HTML-Kodu

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 Connection: keep-alive
  sockwrite -n $sockname $crlf 
}
on $*:sockread:/^google/i: {
  var %2 | sockread %2 | tokenize 32 %2 
  if (href="/url?q isin %2) { _google $sockname %2 }
  if (*</script></body></html>* iswm %2) {
    if $hget(googlearama) {
      var %x 1 | while $hget(googlearama,%x).item {
        if $hget(google,web) isin $v1 {
          msg $_wchan 1Sorgulanan Web:4 $hget(google,web)
          msg $_wchan 1Sorgulanan Kelime:4 $hget(google,kelime)
          msg $_wchan 1Google Üzerinde:4 $siralama($hget(googlearama,$hget(googlearama,%x).item))
          msg $_wchan 1Google İndex:4 $hget(googlearama,%x).item
          msg $_wchan 
          .hinc -m google bulunan 1
        }
        inc %x
      }
      if $hget(google,bulunan) {
        msg $_wchan  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
      }
    }
    msg $_wchan  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),3,61)
    if (webcache. !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
}
alias bul {
  if $sock(google) { msg $_wchan Şu an $hget(google,web) sitesi sorgulanoyor bekleyiniz.. | $+(.timer,google) 1 25 sockclose google | return }
  var %:rand $rand(100,99999) 
  msg $_wchan  12 $remove($strip($1),http://) Adresi  4 $2-  kelimesinde 12G4o7o12g3l4e 1üzerinde bilgilere bakılıyor bekleyiniz.
  .hadd -m google web $remove($strip($1),http://) | .hadd -ms google kelime $2-
  sockopen $+(google,%rand) www.google.com.tr 80 | sockmark $+(google,%rand) $2-
}