Google sıra bulucu v2 – (HTTP – HTTPS – subdomain)

Kod sahibi: Set

Google sira bulucu bilindigi gibi paylasima acık bir cod olarak yapmistim, zamanla sistemler değişti 2013 senesinden beridir ilkkez güncellemesini yapiyorum, bu version’da https ve sub domain ‘leri arama sitesi olarak kullanabileceksiniz,

Güncelleme:

Direk googleden gelen veri degiştiginden, codeler degişti.
Eski codede https sorgulari olmuyordu, sorgular acildi.
Gene ilk 100 olarak ayarli, 500 olan sadece bende bulunuyor onu paylasmayi düşünmüyorum
Code daha hızlı hale geldi, direk tepkilere acık oldu.

Kod:

alias googlearama {
  var %rand $rand(0,99999)
  sockopen $+(google,%rand) www.google.com 80 
  sockmark $+(google,%rand) $2-
  if !$hget(google,stat) { echo -a -/- 4 $1 2adresi4 $2- 2kelimesinde4 google 2uzerinde bilgilere bakiliyor bekleyiniz. }
  hadd -m google web $+(http://,$1)
  hadd -m google kelime $2-
}
 
on $*:sockopen:/^google/i: {
  sockwrite -n $sockname GET $+(/search?num=500&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 | tokenize 32 %2
  if (*ile ilgili hiçbir arama sonucu* iswm %2) {
    echo -a 1Belirtiginiz $sock($sockname).mark kelimesi google aramalarinda bulunmamaktadir.
    sockclose $sockname 
    .hfree -sw googlearama | .hfree -sw google
    return 
  }
  if (href="/url?q isin %2) { _google $sockname %2 }
  if (*Görselle ara* iswm %2) {
    if $hget(googlearama) {
      var %x 1 | while $hget(googlearama,%x).item {
        if $hget(google,web) isin $v1 {
          echo -a 1Sorgulanan Web:4 $hget(google,web)
          echo -a 1Sorgulanan Kelime:4 $hget(google,kelime)
          echo -a 1Google Üzerinde:4 $siralama($hget(googlearama,$hget(googlearama,%x).item))
          echo -a 1Google İndex:4 $hget(googlearama,%x).item
          echo -a
          .hinc -m google bulunan 1
        }
        inc %x
      }
      if $hget(google,bulunan) {
        echo -a 1Google üzerinde ilk4 100 sirada4 $hget(google,web) web adresi4 $hget(google,kelime) kelimesiyle4 $hget(google,bulunan) kere index almistir.
        .hfree -sw googlearama | .hfree -sw google
        sockclose $sockname
        return
      }
    }
    echo -a 1Belirtilen $hget(google,web) adresi $hget(google,kelime) kelimesinde ilk4 100 sitede yer almamaktadir.
    sockclose $sockname
    .hfree -sw googlearama | .hfree -sw google
  }
}
alias _google {
  var %x 1
  while $pos($2-,href="/url?q=http,%x) {
    var %web $token($token($mid($1-,$v1),1,38),4,61)
    if (webcache. !isin %web) { .hinc -m google inc 1 | .hadd -m googlearama %web  $hget(google,inc) | ;echo -a 4 $hget(google,inc) - %web }
    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
}