One Hat Cyber Team
Your IP :
10.30.1.1
Server IP :
103.148.201.5
Server :
Linux web-olt 5.15.0-161-generic #171-Ubuntu SMP Sat Oct 11 08:17:01 UTC 2025 x86_64
Server Software :
Apache/2.4.52 (Ubuntu)
PHP Version :
8.1.29
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
libauthen-sasl-perl
/
examples
/
Edit File:
example_pl
#!/usr/bin/env perl # short example script use lib 'lib'; use Authen::SASL; # This part is in the user script my $sasl = Authen::SASL->new( mechanism => 'PLAIN CRAM-MD5 EXTERNAL ANONYMOUS', callback => { user => 'gbarr', pass => 'fred', authname => 'none' }, ); # $sasl is then passed to a library (eg Net::LDAP) # which will then do my $conn = $sasl->client_new("ldap","localhost", "noplaintext noanonymous"); # The library would also set properties on the connection #$conn->property( # iplocal => $socket->sockname, # ipremote => $socket->peername, #); # It would then start things off and send this info to the server my $initial = $conn->client_start; my $mech = $conn ->mechanism; print "$mech;", unpack("H*",$initial),";\n"; # When the server want more information, the library would call print unpack "H*", $conn->client_step("xyz"); print "\n";
Simpan