mIRC Google sira bulucu –

Merhaba’lar , Baslik’ta belirtildigi gibi Googlede web adresinin aranilan kelimede ilk 100 siraya gore kacinci sirada oldugunu bulabilen bir code’dir, direk Google uzerinden calistigi icin sonuclar neredeyse %100 olmaktadir.

 

Kullanimi: /googlearama -Web- -Aranacak kelime-

 

alias googlearama { var %rand $rand(0,99999) sockopen $+(google,%rand) www.google.com.tr 80 sockmark $+(google,%rand) $2- echo -a -/- 5 $1 6adresi5 $2- 6kelimesinde google uzerinde bilgilere bakiliyor bekleyiniz. hadd -m google web $+(http://,$1) hadd -m google kelime $2- } on $*:sockopen:/^google/i: { sockwrite -n $sockname GET $+(/search?num=100&q=,$replace($sock($sockname).mark,$chr(32),+),&hl=tr&gbv=2) HTTP/1.1 sockwrite -n $sockname Host: www.google.com.tr sockwrite -n $sockname $crlf } on $*:sockread:/^google/i: { var %2 | sockread %2 if (*ile ilgili hiçbir arama sonucu* iswm %2) { .echo -a 6Belirtiginiz5 $sock($sockname).mark 6kelimesi 5google6 aramalarinda bulunmamaktadir. sockclose $sockname hfree -sw googlearama hfree -sw google return } if (class=”r”><a href=”/url?q isin %2) { _google $sockname %2 } if (Google\u0026#39;da isin %2) { if $hget(googlearama) { var %x 1 while $hget(googlearama,%x).item { if ($hget(google,web) isin $v1) { .echo -a 5Sorgulanan web: $hget(google,web) .echo -a 5Sorgulanan kelime: $hget(google,kelime) .echo -a 5Google uzerinde: $siralama($hget(googlearama,$v2)) .echo -a -/- 6Google uzerinde ilk5 100 6sirada5 $hget(google,kelime) 6kelimesiyle5 $hget(googlearama,%x).item 6link’iyle index almistir. .echo -a – hinc -m google bulunan 1 } inc %x } if $hget(google,bulunan) { .echo -a – *** 6Google uzerinde ilk5 100 6sirada5 $hget(google,web) 6 web adresi5 $hget(google,kelime) 6 kelimesiyle4 $hget(google,bulunan) 6 kere index almistir. hfree -sw googlearama hfree -sw google sockclose $sockname return } } .echo -a 6Belirtilen 5 $hget(google,web) 6adresi5 $hget(google,kelime) 6kelimesinde ilk5 100 6 sitede yer almamaktadir. sockclose $sockname hfree -sw googlearama hfree -sw google } } alias _google { var %x 1 while $pos($2-,class=”r”><a href=”/url?q=http:,%x) { var %web $token($token($mid($2-,$v1,300),4,61),1,38) if (google !isin %web) { hinc -m google inc 1 hadd -m googlearama %web $hget(google,inc) } inc %x } } alias siralama { if ($gettok($calc($gettok($1,1,46) / 10),2,46) / 10),2,46) == $null) { return $gettok($calc($gettok($1,1,46) / 10),1,46) Sayfa $gettok($1,2,46) Sirada | halt } return $calc($gettok($calc($1 / 10),1,46) +1) Sayfa $iif(!$gettok($calc($1 / 10),2,46),1,$gettok($calc($1 / 10),2,46)) Sirada }