Daemon adlı üyeden alıntı:

Kod:

alias _wbot return W-Master
alias _pass return 123456
alias _ident return Paradox
alias _username return 2 Web Analyzer
alias _logo return 2Web analyzer
alias _oper return Oper Sifren
Alias _os supass return supass
alias _sunucu return irc.sunucuadi.com
alias _sunucuip return ipadres
alias _port return 6667
alias bagla sockopen wbot $_sunucuip $_port
alias _nick return $remove($gettok($1,1,33),:)
alias swwbot $iif($sock(wbot).status == active,sockwrite -nt wbot $1-)
on *:sockclose:wbot:$+(.timer,wbot) 1 2 sockopen wbot $_sunucuip $_port
on *:sockopen:wbot:{
  if ($sockerr) { sockclose wbot | $+(.timer,wbot) 1 2 sockopen wbot $_sunucuip $_port | returnex }  
  swwbot NICK $+($_wbot,$r(100,9999)) 
  swwbot USER $_ident "" " $+ $iif($host,$host,$ip) $_username
  sockmark $sockname $_wbot
}
on *:sockread:wbot:{
  if ($sockerr) { sockclose wbot | $+(.timer,wbot) 1 2 sockopen wbot $_sunucuip $_port | returnex }  
  var %;wbot | sockread %;wbot | tokenize 32 %;wbot
  if ($1 = ping) swwbot pong $remove($2,:) 
  if $regex($2,/(001|433|376)) { swwbot oper $_oper | swwbot ns ghost $_wbot $_pass | swwbot ns release $_wbot $_pass | swwbot join #0,0 | $+(.timer,$rand(100,999)) 1 3 swwbot nick $_wbot }
  if $1 == error && $2 == :closing { sockclose wbot | $+(.timer,wbot) 1 3 sockopen wbot $_sunucuip $_port }  
  if $regex($2,/(473|475|471|474)) { swwbot sajoin $_wbot $4 }
  if $regex($2,/(411|481)) { swwbot oper $_oper | swwbot nick $_wbot | swwbot nickserv identify $_pass }
  if $regex($2,/(PRIVMSG|NOTICE|ACTION)) && ($left($3,1) != $chr(35)) {
    if $4 == :TIME { swwbot NOTICE $_nick($1)  TIME $time | return }
    if $4 == :VERSION { swwbot NOTICE $_nick($1) VERSION mIRC v6.35 Khaled Mardam-Bey | return }
    if $4 == :FINGER { swwbot NOTICE $_nick($1) FINGER $__logo Idle $r(1,4) seconds | return }
    if $4 == :PING  { swwbot NOTICE $_nick($1) PONG $5- | return }
  }
  if ($2 == NICK) { 
    if ($_nick($1) == $_wbot) { swwbot ns ghost $_wbot $_pass | swwbot ns release $_wbot $_pass | $+(.timer,$rand(100,999)) 1 3 swwbot nick $_wbot }
    if ($right($3,-1) == $_wbot) {
      swwbot nickserv identify $_pass      
      swwbot oper $_oper
      swwbot join #0,0
      swwbot join #webmaster
      swwbot mode $right($3,-1) +qHp-h
      $+(.timer,_webgir) 1 3 swbot sajoin $right($3,-1) #WebMaster,#Opers
    }
  }
  if $2 == PART && $_nick($1) == $_wbot && $istok(#WebMaster #Opers,$3,32) { swwbot sajoin $_nick($1) $3 }
  if ($2 == JOIN) {
    if $_nick($1) == $_wbot && $istok(#WebMaster #Opers,$right($3,-1),32) {
      swwbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5)
      swwbot mode $_nick($1) +qHpN-h
      return
    }
    if $_nick($1) != $_wbot && $right($3,-1) == #WebMaster {
      swwbot notice $_nick($1) 00,00@@02,02@@00,00@@@02,02@@00,00@@@@@@@@@02,02@@00,00@@@@@@04,04@@@@@00,00@@@@@@@@@@@@@@@@@@@04,04@@00,00@@@@@@@00,00@
      swwbot notice $_nick($1) 00,00@@02,02@@00,00@@@02,02@@00,00@@@@@@@@@02,02@@00,00@@@@@@04,04@@00,00@@04,04@@00,00@@@@@@@@@@@@@@@@@@04,04@@00,00@@@@@@@00,00@
      swwbot notice $_nick($1) 00,00@@02,02@@00,00@@@02,02@@00,00@@02,02@@@@00,00@@@02,02@@@@@00,00@@@04,04@@00,00@@04,04@@00,00@@@04,04@@@@00,00@@@04,04@@@@@00,00@@@04,04@@00,00@@04,04@@00,00@@@00,00@
      swwbot notice $_nick($1) 00,00@@02,02@@00,00@02,02@00,00@02,02@@00,00@02,02@@00,00@@02,02@@00,00@@02,02@@00,00@@02,02@@00,00@@04,04@@00,00@@04,04@@00,00@@@@@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@@00,00@
      swwbot notice $_nick($1) 00,00@@02,02@@00,00@02,02@00,00@02,02@@00,00@02,02@@00,00@@02,02@@00,00@@02,02@@00,00@@02,02@@00,00@@04,04@@@@@00,00@@@@@@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@04,04@@00,00@@@@00,00@
      swwbot notice $_nick($1) 00,00@@02,02@@00,00@02,02@00,00@02,02@@00,00@02,02@@@@@@00,00@@02,02@@00,00@@02,02@@00,00@@04,04@@00,00@04,04@@00,00@@@@04,04@@@@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@@@00,00@@@@@00,00@
      swwbot notice $_nick($1) 00,00@@@02,02@@00,00@02,02@@00,00@@02,02@@00,00@@@@@@02,02@@00,00@@02,02@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@04,04@@00,00@@@@00,00@
      swwbot notice $_nick($1) 00,00@@@02,02@@00,00@02,02@@00,00@@02,02@@00,00@@@@@@02,02@@00,00@@02,02@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@@00,00@
      swwbot notice $_nick($1) 00,00@@@02,02@@00,00@02,02@@00,00@@@02,02@@@@00,00@@@02,02@@@@@00,00@@@04,04@@00,00@@04,04@@00,00@@@04,04@@@@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,00@@@00,00@
      swwbot notice $_nick($1)  -
      swwbot notice $_nick($1) :Hoşgeldiniz, kanal içerisinde "!komutlar" yazarak bütün komutların listesini görebilirsiniz.
      return
    }
  }


  if $2 == MODE && $left($3,1) == $chr(35) {
    if (!$5) { return }
    if $regex($4,\+(b)) && ($+(*,$_wbot,*) iswm $5-) { swwbot mode $3 -b $_wbot | return }
    if $regex($4,\-(h)) || $regex($4,\+(a|o|q)) && ($+(*,$_wbot,*) iswm $5-) { swwbot mode $3 -qao+h $str($+($_wbot,$chr(32)),5) }
  }
  if ($2 = privmsg && $3 == #WebMaster) {
    if $regex($remove($4,:),/^([!\.]komutlar)$/i) {
      swwbot privmsg $3 :2 Web-Bilgi Sistemi
      swwbot privmsg $3 :
      swwbot privmsg $3 :!ara <site ismi> <aranacak kelime> Sitenizi, google üzerinde detaylı aramaya alır.
      swwbot privmsg $3 :!incele <site ismi> Sitenizin, Backlink-Dmoz-Alexa-Pagerank vb. gibi bilgilerinin yansıtılmasını sağlar.
      swwbot privmsg $3 :!meta <site adı> Sitenizin, Meta-Kodlarını ortaya döker veya herhangi bir sitenin.
      swwbot privmsg $3 :
      swwbot privmsg $3 :2 Web-SEO Analiz işlem komutları
      swwbot privmsg $3 :
      swwbot privmsg $3 :!pr <site ismi> Sitenizin, PageRank durumunu ölçer.
      swwbot privmsg $3 :!kw <site ismi> Keyword analizi olarak, sitenizin GOOGLE üzerinde GEÇERLİ görünen kelimeleri araştırır. 
      swwbot privmsg $3 :!w <site ismi> Sitenizin, Kayıt(WHOIS) bilgilerini yansıtır.
      swwbot privmsg $3 :!seo <site ismi> Sitenizin SEO Analizini yapar.
    }
    if $regex($remove($4,:),/^([!\.]ara)$/i) {
      if (*.* !iswm $5) || !$6 { swwbot privmsg $3 :Lütfen !ara <site ismi> <aranacak kelime> olarak belirtiniz. | return } 
      if $sock(google) { swwbot privmsg $3 :Şuan $hget(google,web) sitesi sorgulanıyor bekleyiniz.. | $+(.timer,google) 1 25 sockclose google | return }
      var %:rand $rand(100,99999), %:site $remove($5,www.,http://)      
      set %:kanal $3
      swwbot privmsg $3 :4*** $+(http://www.,%:site) adresi $6- kelimesinde google üzerinde bilgilere bakılıyor bekleyiniz.
      .hadd -m google web $+(http://www.,%:site) | .hadd -ms google kelime $6-
      sockopen $+(google,%rand) www.google.com.tr 80 | sockmark $+(google,%rand) $6-
    }
    if $regex($remove($4,:),/^([!\.][ıiİ]ncele)$/i) {
      if (*.* !iswm $5) { swwbot privmsg $3 :Lütfen !incele <site ismi> olarak belirtiniz. | return } 
      var %:rand $rand(100,99999), %:site $remove($5,www.,http://)
      .hadd -ms tarama ctime $ctime
      set %:kanal $3 
      swwbot privmsg $3 :4*** $+(http://www.,%:site) adresi bilgilere bakılıyor bekleyiniz.
      sockopen $+(gindex,%:rand) wmaraci.com 80 | sockmark $+(gindex,%:rand) %:site
    }
    if $regex($remove($4,:),/^([!\.]meta)$/i) {
      if (*.* !iswm $5) { swwbot privmsg $3 :Lütfen !meta <site ismi> olarak belirtiniz. | return } 
      if $sock(meta) { swwbot privmsg $3 :Şuan $sock(meta).mark sitesi sorgulanıyor bekleyiniz.. | $+(.timer,meta) 1 25 sockclose meta | return }
      var %:site $remove($5,www.,http://)
      set %:kanal $3
      sockopen meta wmaraci.com 80 | sockmark meta %:site      
      swwbot privmsg $3 :4*** $+(http://www.,%:site) adresi meta bilgilerine bakılıyor bekleyiniz.
    }
    if $regex($remove($4,:),/^([!\.]pr)$/i) {
      if (*.* !iswm $5) { swwbot privmsg $3 :Lütfen !pr <site ismi> olarak belirtiniz. | return } 
      if $sock(pr) { swwbot privmsg $3 :Şuan $sock(pr).mark sitesi sorgulanıyor bekleyiniz.. | $+(.timer,pr) 1 25 sockclose pr | return }
      var %:rand $rand(100,99999), %:site $remove($5,www.,http://)
      set %:kanal $3
      swwbot privmsg $3 :4*** $+(http://www.,%:site) adresi PageRank bilgilerine bakılıyor bekleyiniz.
      sockopen $+(pagerank,%:rand) www.ircforumlari.net 80 
      sockmark $+(pagerank,%:rand) %:site 
    }
    if $regex($remove($4,:),/^([!\.]kw)$/i) {
      if (*.* !iswm $5) { swwbot privmsg $3 :Lütfen !kw <site ismi> olarak belirtiniz. | return } 
      var %:rand $rand(100,99999), %:site $remove($5,www.,http://)
      set %:kanal $3
      sockopen $+(alexa,%:rand) www.alexa.com 80 | sockmark $+(alexa,%:rand) %:site
      swwbot privmsg $3 :4*** $+(http://www.,%:site) adresi keywords bilgilerine bakılıyor bekleyiniz.
    }
    if $regex($remove($4,:),/^([!\.]w)$/i) {
      if (*.* !iswm $5) { swwbot privmsg $3 :Lütfen !w <site ismi> olarak belirtiniz. | return } 
      var %:rand $rand(100,99999), %:site $remove($5,www.,http://)      
      set %:kanal $3
      sockopen $+(whois,%:rand) wmaraci.com 80 | sockmark $+(whois,%:rand) %:site
      swwbot privmsg $3 :4*** $+(http://www.,%:site) adresi whois bilgilerine bakılıyor bekleyiniz.
    }
    if $regex($remove($4,:),/^([!\.]seo)$/i) {
      if (*.* !iswm $5) { swwbot privmsg $3 :Lütfen !seo <site ismi> olarak belirtiniz. | return } 
      var %:rand $rand(100,99999), %:site $remove($5,www.,http://)      
      set %:kanal $3 | set %:nseo $_nick($1)
      sockopen $+(sanaliz,%:rand) wmaraci.com 80 | sockmark $+(sanaliz,%:rand) %:site
      swwbot privmsg $3 :4*** $+(http://www.,%:site) adresi SEO analiz bilgilerine bakılıyor bekleyiniz.
    }
  }
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:sanaliz*:{
  var %:analiz $+(url=http%3A%2F%2F,$sock($sockname).mark)
  sockwrite -nt $sockname POST /seo-analiz HTTP/1.1
  sockwrite -nt $sockname Host: wmaraci.com
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Content-Length: $len(%:analiz)
  sockwrite -nt $sockname Accept: */*
  sockwrite -nt $sockname X-Requested-With: XMLHttpRequest
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36
  sockwrite -nt $sockname Content-Type: application/x-www-form-urlencoded; charset=UTF-8
  sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  sockwrite -nt $sockname 
  sockwrite -nt $sockname %:analiz
}
on *:sockread:sanaliz*:{
  var %:sanaliz | sockread -f %:sanaliz | tokenize 32 %:sanaliz
  if (<div class="seodurumbilgi"> isin %:sanaliz) { .hinc -ms Seo bilgi }
  if (<div class="seodurumbasarili"> isin %:sanaliz) { .hinc -ms Seo basarılı }
  if (<div class="seodurumhata"> isin %:sanaliz) { .hinc -ms Seo hata }
  if (<div class="kutu hata"> isin %:sanaliz) { .hadd -ms Seo hatabak 1 | return }
  if $hget(Seo,hatabak) { swwbot privmsg %:nseo : $+ $iif($remove($htmlfree(%:sanaliz),Detay) == Sitenizde toplam 1 resim,Sitenizde toplam 1 resim alt etiketine sahip değil.,$remove($htmlfree(%:sanaliz),Detay))  | .hdel -ms Seo hatabak | return }
  if (*progressBar* step_duration* function(data)* iswm %:sanaliz) {
    swwbot privmsg %:kanal :Seo Puan'ı: $token($token(%:sanaliz,1,44),-1,40) / 100
    swwbot privmsg %:kanal :Hatalı Olanlar $iif($hget(Seo,hata),$hget(Seo,hata),0) / Başarılı Olanlar $iif($hget(Seo,basarılı),$hget(Seo,basarılı),0) / Bilgi Mesajları $iif($hget(Seo,bilgi),$hget(Seo,bilgi),0)
    .hfree -sw Seo
  }
}
on *:sockopen:whois*:{
  var %:who $+(whois_type=3&domain=,$sock($sockname).mark)
  sockwrite -nt $sockname POST /whois HTTP/1.1
  sockwrite -nt $sockname Host: wmaraci.com
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Content-Length: $len(%:who)
  sockwrite -nt $sockname Accept: */*
  sockwrite -nt $sockname X-Requested-With: XMLHttpRequest
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36
  sockwrite -nt $sockname Content-Type: application/x-www-form-urlencoded; charset=UTF-8
  sockwrite -nt $sockname 
  sockwrite -nt $sockname %:who
}
on *:sockread:whois*:{
  var %:whois | sockread %:whois | tokenize 32 $htmlfree(%:whois)
  if (*Alan Adı* iswm %:whois) { swwbot privmsg %:kanal :Alan Adı: $_trkce($token($token($token(%:whois,2,58),1,60),2,62)) }  
  if $regex(%:whois,/Oluşturulma\sTarihi(.+)/i) { swwbot privmsg %:kanal :Oluşturulma Tarihi: $_trkce($token($token($regml(1),4-,62),1,60)) }
  if $regex(%:whois,/Güncelleme\sTarihi(.+)/i) { swwbot privmsg %:kanal :Güncelleme Tarihi: $_trkce($token($token($regml(1),4-,62),1,60)) }
  if $regex(%:whois,/IP\sAdresi(.+)/i) { swwbot privmsg %:kanal :IP Adresi: $token($token($regml(1),4-,62),1,60) }
  if (Sponsoring Registrar: isin %:whois) || (Registrar: isin %:whois) { swwbot privmsg %:kanal :Bulunduğu Firma: $_trkce($token(%:whois,2,58)) }
  if (Registrant Name: isin %:whois) { swwbot privmsg %:kanal :Kayıt Eden: $_trkce($upper($token(%:whois,2,58))) }
  if (Registrant Email: isin %:whois) { swwbot privmsg %:kanal :Email Adresi: $_trkce($upper($token(%:whois,2,58))) }
  if (Name Server: isin %:whois) && (*.* iswm $upper($token(%:whois,2,58))) { swwbot privmsg %:kanal :Name Server: $token(%:whois,2,58) }  
}
on *:sockopen:alexa*:{
  sockwrite -nt $sockname Get $+(/siteinfo/,$sock($sockname).mark) HTTP/1.1
  sockwrite -nt $sockname Host: www.alexa.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:alexa*:{
  var %:alexa | sockread %:alexa
  if (*<td class='topkeywordellipsis' title='* iswm %:alexa) {
    swwbot privmsg %:kanal $+($token($remove($htmlfree(%:alexa),&nbsp,;),1,38),$chr(41)) $$token($remove($htmlfree(%:alexa),&nbsp,;,#46),2-,38) 
    set %:kwvar oke?
  } 
  if (*<strong>Upstream Sites</strong><br>* iswm %:alexa) {
    if !%:kwvar { swwbot privmsg %:kanal $+(http://www.,$sock($sockname).mark) sitesine ait keyword bulunmamaktadır. }
    sockclose $sockname | unset %:kwvar | return
  }
}
on *:sockopen:pagerank*:{
  var %:ifpr $+(doFormPostback=7f32992aa3803a49e8176a67da202d44&url=http%3A%2F%2Fwww.,$sock($sockname).mark)
  sockwrite -nt $sockname POST /webanaliz/tool.php?id=estimate-pagerank HTTP/1.1
  sockwrite -nt $sockname Host: www.ircforumlari.net
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:33.0) Gecko/20100101 Firefox/33.0
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  sockwrite -nt $sockname Referer: Estimate PageRank
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Content-Type: application/x-www-form-urlencoded
  sockwrite -nt $sockname Content-Length: $len(%:ifpr)
  sockwrite -nt $sockname 
  sockwrite -nt $sockname %:ifpr
}
on *:sockread:pagerank*:{
  var %:pr | sockread %:pr | tokenize 32 %:pr
  if (*<div class="bigNumber">* iswm %:pr) { set %:ifpr oke! }
  else if (%:ifpr) {
    swwbot privmsg %:kanal :Sorgulanan Site: $+(http://www.,$sock($sockname).mark)
    swwbot privmsg %:kanal :Google PageRank: $htmlfree(%:pr) / 10
    sockclose $sockname | unset %:ifpr
  }
}
on *:sockopen:meta: {
  var %:meta $+(url=http%3A%2F%2F,$sock($sockname).mark,&hash=1418997615)
  sockwrite -n $sockname POST /meta-tag-gosterici HTTP/1.1
  sockwrite -n $sockname Host: wmaraci.com
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Content-Length: $len(%:meta)
  sockwrite -n $sockname Accept: */*
  sockwrite -n $sockname X-Requested-With: XMLHttpRequest
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36
  sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded; charset=UTF-8
  sockwrite -n $sockname 
  sockwrite -n $sockname %:meta
}
on *:sockread:meta: {
  var %:meta | sockread %:meta | tokenize 32 %:meta | ;echo -a %:meta
  if (*<title>*</title>* iswm %:meta) {
    swwbot privmsg %:kanal :Başlık (Title): $_trkce($token($htmlfree(%:meta),2,58))
    swwbot privmsg %:kanal :Başlık en fazla 70 karakter uzunluğunda olmalıdır. 70 karakterden uzun olması arama motorları tarafından spam olarak yorumlanmaktadır.
    swwbot privmsg %:kanal : $+ $iif($len($_trkce($token($htmlfree(%:meta),2,58))) >= 71,Sitenizin başlığı $len($_trkce($token($htmlfree(%:meta),2,58))) karakterdir ve Seo açısından uygun değildir.,Sitenizin başlığını $len($_trkce($token($htmlfree(%:meta),2,58))) karakterdir ve uygundur.)
  }
  if (*<meta name="description" content=* iswm %:meta) {
    swwbot privmsg %:kanal :
    swwbot privmsg %:kanal :Açıklama (Description): $_trkce($token(%:meta,-2,34))
    swwbot privmsg %:kanal :Açıklama meta etiketi 160 karakterden az olmalıdır. 160 karakterden uzun olması arama motorları tarafından spam olarak yorumlanmaktadır.
    swwbot privmsg %:kanal : $+ $iif($len($_trkce($token(%:meta,-2,34))) > 160,Sitenizin açıklaması $len($_trkce($token(%:meta,-2,34))) karakterdir ve Seo açısından uygun değildir.,Sitenizin açıklaması $len($_trkce($token(%:meta,-2,34))) karakterdir ve uygundur.)
  }
  if (*<meta name="keywords" content="* iswm %:meta) {
    swwbot privmsg %:kanal :
    swwbot privmsg %:kanal :Anahtar Kelime (Keywords): $_trkce($token(%:meta,-2,34))
    swwbot privmsg %:kanal :Anahtar kelime meta etiketi 260 karakterden az olmalıdır. 260 karakterden uzun olması arama motorları tarafından spam olarak yorumlanmaktadır.
    swwbot privmsg %:kanal : $+ $iif($len($_trkce($token(%:meta,-2,34))) > 260,Sitenizin anahtar kelimeleri $len($_trkce($token(%:meta,-2,34))) karakter uzunluğudadır. Anahtar kelimelerinizi azaltınız.,Sitenizin anahtar kelimeleri $len($_trkce($token(%:meta,-2,34))) karakter uzunluğudadır ve uygundur.)
    sockclose $sockname
  }
}
alias _trkce return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ş,ş,ı,ı,Å?,ş,ğ,ğ,Ü,ü,Ä?,ğ,$chr(39),`)
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
  if (*ile ilgili hiçbir arama sonucu* iswm %2) {
    swwbot privmsg %:kanal :Belirtiginiz $sock($sockname).mark kelimesi google 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 $hget(googlearama,%x).item) { 
          swwbot privmsg %:kanal :Sorgulanan web: $hget(google,web)
          swwbot privmsg %:kanal :Sorgulanan kelime: $hget(google,kelime)
          swwbot privmsg %:kanal :Google uzerinde: $siralama($hget(googlearama,$hget(googlearama,%x).item))
          swwbot privmsg %:kanal :
          .hinc -m google bulunan 1
        }
        inc %x
      }
      if $hget(google,bulunan) {
        swwbot privmsg %:kanal :Google uzerinde ilk 500 sirada $hget(google,web) web adresi $hget(google,kelime) kelimesiyle $hget(google,bulunan) kere index almistir.
        .hfree -sw googlearama | .hfree -sw google
        sockclose $sockname
        return
      }
    }
    swwbot privmsg %:kanal :Belirtilen $hget(google,web) adresi $hget(google,kelime) kelimesinde ilk 500 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
}
on *:sockopen:gindex*: {
  var %komut sockwrite -nt $sockname
  %komut GET $+(/site-analizi/,$sock($sockname).mark) HTTP/1.1
  %komut Host: wmaraci.com
  %komut Connection: keep-alive
  %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %komut User-Agent: Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.64 Safari/537.31
  %komut Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  %komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.3
  %komut $crlf
  unset %gosterim 
}
on *:sockread:gindex*: {
  var %x | sockread %x
  if (*HTTP/1.1 302 Found* iswm %x) { swwbot privmsg %:kanal :4*** $+(http://www.,$sock($sockname).mark) web adresine ulaşılamıyor... | .hdel -ms tarama ctime | return }
  if (*Cookie*PHPSESSID* iswm %x) { .hadd -m cookie PHPSESSID $token($token(%x,2,58),1,59) }
  if (*Cookie: *wmlastvisit* iswm %x) { .hadd -m cookie  $token($token(%x,2,58),1,59) }
  if (*Cookie: *wmlastactivity* iswm %x) { .hadd -m cookie bblastactivity $token($token(%x,2,58),1,59) | $+(.timer,$sock($sockname).mark) 2 3 /2gindex $sock($sockname).mark $(|) inc -e %gosterim }
}
alias tamamlat {
  return $+($hget(cookie,PHPSESSID),;,$chr(32),bbsessionhash=2de4a66a697fd8b5fc45395d97e0cb32; __utma=224626588.1153023067.1366712999.1366940682.1167621522.4; __utmb=224626588.6.10.1167621522; __utmc=224626588; __utmz=224626588.1167621522.4.3.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=wmaraci;,$chr(32),$hget(cookie,bblastvisit),;,$chr(32),$hget(cookie,bblastactivity),;,$chr(32),__cfduid=de3d49b5ead8bfb08f014c7ecb94674031366067282)
}
alias 2gindex {
  var %x $rand(0,9999)
  sockopen $+(2gindex,%x) wmaraci.com 80
  sockmark $+(2gindex,%x) $1
}
on *:sockopen:2gindex*: {
  var %komut sockwrite -nt $sockname, %post $+(url=http%3A%2F%2F,$sock($sockname).mark)
  %komut POST /module.php?module=siteanaliz&do=query&thash=1167622291421 HTTP/1.1
  %komut Host: wmaraci.com
  %komut Connection: keep-alive
  %komut Content-Length: $len(%post)
  %komut Accept: */*
  %komut Origin: WM Aracı - Webmaster Portalı
  %komut X-Requested-With: XMLHttpRequest
  %komut User-Agent: Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.64 Safari/537.31
  %komut Content-Type: application/x-www-form-urlencoded; charset=UTF-8
  %komut Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  %komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.3
  %komut Cookie: $tamamlat
  %komut 
  %komut %post
}
on *:sockread:2gindex*: {
  var %x3 | sockread %x3
  if (%gosterim == 2) {
    if (/pr.php?premiumI isin %x3) { .hadd -m tarama pr $token(%x3,6,39) }
    if (/googleindex.php isin %x3) { .hadd -m tarama gindex  $token(%x3,6,39) }
    if (/googlebacklink.php? isin %x3) { .hadd -m tarama gbaclink $token(%x3,6,39) }
    if (/alexa.php? isin %x3) {
      .hadd -m tarama 1alexa $token(%x3,6,39)
      .hadd -m tarama 2alexa $token(%x3,8,39)
      .hadd -m tarama 3alexa $token(%x3,10,39)
    }
    if (/yahooindex.php? isin %x3) { .hadd -m tarama yahoindex $token(%x3,6,39) }
    if (/yandexindex.php? isin %x3) { .hadd -m tarama yandexindex $token(%x3,6,39) }
    if (/dmoz.php? isin %x3) { .hadd -m tarama dmoz $token(%x3,6,39) }
    if (/location.php isin %x3) {
      if (bilinmiyor == $token(%x3,6,39)) { .hadd -m tarama location $v2 }
      else { .hadd -m tarama location $token($token(%x3,6,39),2,62) }
    }
    if (/domainage.php? isin %x3) { .hadd -m tarama yas $token(%x3,6,39) }
    if (/google_image.php? isin %x3) {
      .hadd -m tarama 2gindex $token(%x3,6,39)
      unset %gosterim
      swwbot privmsg %:kanal :Web: $sock($sockname).mark
      swwbot privmsg %:kanal :Pagerank Degeri: $hget(tarama,pr)
      swwbot privmsg %:kanal :Google Index: $hget(tarama,gindex)
      swwbot privmsg %:kanal :Google Gorsel Index: $hget(tarama,2gindex)
      swwbot privmsg %:kanal :Google Baclink: $hget(tarama,gbaclink)
      swwbot privmsg %:kanal :Alexa Dunya Sirasi: $hget(tarama,1alexa)
      swwbot privmsg %:kanal :Alexa Ulke Sirasi: $hget(tarama,2alexa)
      swwbot privmsg %:kanal :Alexa Baclink: $hget(tarama,3alexa)
      swwbot privmsg %:kanal :Yahoo Index: $hget(tarama,yahoindex)
      swwbot privmsg %:kanal :Yandex Index: $hget(tarama,yandexindex)
      swwbot privmsg %:kanal :Dmoz Kaydi: $hget(tarama,dmoz)
      swwbot privmsg %:kanal :Domain Yasi: $hget(tarama,yas)
      swwbot privmsg %:kanal :Site Lokasyon: $hget(tarama,location)
      swwbot privmsg %:kanal :
      swwbot privmsg %:kanal :4*** Site sorgulama bitmistir. Sorgulama suresi $calc($ctime - $hget(tarama,ctime)) saniye olarak belirtilmistir.
      .hfree -sw tarama | .hfree -sw cookie
      sockclose $sockname
    }
  }
}

Not : Kod tamamen Toprak ve Set tarafindan yazilmistir.

Genişletmek için tıkla ...