ubuntu
IndoForum Newbie F
- No. Urut
- 111840
- Sejak
- 1 Jan 2011
- Pesan
- 23
- Nilai reaksi
- 0
- Poin
- 1
ini ane punya GOOGLE MULTI DOMAIN untuk scanner, jadi biar auto gitu scan nya ...!!
untuk selebihnya, silahkan di explore lagi aja
ini kalau mau auto scan nya..
ini contohnya
./Up
Kode:
sub se_google_m {
my ($chan,$key,$nf) = @_;
my @daftar;
my $num = 50; my $max = 5000; my $p;
my @doms = (
"com","ae","com.ar","at","com.au","be","com.br","ca","ch","cl","de","dk","fi","fr","gr","com.hk",
"ie","co.il","it","co.jp","co.kr","lt","lv","nl","com.pa","com.pe","pl","pt","ru","com.sg",
"com.tr","com.tw","com.ua","co.uk","hu","com.af","com","ae","com.ag","com.ai","am","com.ar","as",
"at","com.au","az","ba","com.bd","be","bg","com.bh","bi","com.bn","com.bo","com.bn","bs","co.bw",
"com.by","com.bz","ca","cd","cg","ch","ci","co.ck","cl","cn","com.co","co.cr","com.cu","cz","de",
"dj","dk","dm","com.do","com.ec","ee","com.eg","es","com.et","fi","com.fj","fm","fr","ge","gg",
"com.gi","gl","gm","gp","gr","com.gt","gy","com.hk","hn","hr","ht","hu","co.id","ie","co.il",
"im","co.in","is","it","je","com.jm","jo","co.jp","co.ke","com.kh","ki","kg","co.kr","kz","la",
"li","lk","co.ls","lt","lu","lv","com.ly","co.ma","md","mn","ms","com.mt","mu","mv","mw","com.mx",
"com.my","com.na","com.nf","com.ng","com.ni","nl","no","com.np","nr","nu","co.nz","com.om","com.pa",
"com.pe","com.ph","com.pk","pl","pn","com.pr","pt","com.py","com.qa","ro","ru","rw","com.sa","com.sb",
"sc","se","com.sg","sh","si","sk","sn","sm","st","com.sv","co.th","com.tj","tk","tm","to","tp","com.tr",
"tt","com.tw","com.ua","co.ug","co.uk","com.uy","co.uz","com.vc","co.ve","vg","co.vi","com.vn","vu","ws",
"co.yu","co.za","co.zm","co.zw");
my $dom = $doms[rand(scalar(@doms))];
my $url = "http://www.google.".$dom."/search?&num=".$num."&q=".$key;
my $murl = "http://www.google.".$dom;
my $nxurl;
my $q = bukasitus($url);
if ( $q =~ /class=b><a href=\"(.*?)\">/ ) {
my $nxurl = $1;
msgn($dbgchan,"Google.".$dom,$nxurl);
msgn($chan,"Google.".$dom,"Scanning...");
}
while ( $q =~ m/<h3 class=r><a href=\"http:\/\/(.*?)\"/g ) { push (@daftar, $1); }
for ($p=50;$p<=$max;$p+=$num) {
$nxurl = "http://www.google.".$dom."/search?num=".$num."&q=".$key."&start=".$p."&sa=N";
$q = bukasitus($nxurl);
while ( $q =~ m/<h3 class=r><a href=\"http:\/\/(.*?)\"/g ) { push (@daftar, $1); }
if ( $q !~ /<h3 class=r><a href=\"http:\/\/(.*?)\"/ ) { return @daftar; }
}
return @daftar;
}
untuk selebihnya, silahkan di explore lagi aja
ini kalau mau auto scan nya..
ini contohnya
Kode:
if (($com =~ /^autoscan\s+(.+?[=])\s+(.*)/) && (fork() == 0)) { a_scanz($dtarget,$1,$2,$hb,1); exit; }
./Up