Toprak
27 Ocak 2015, 23:08
İyi akşamlar,
Sunucumuz için yapmışdım istiyen çok olunca paylaşmak istedim.
[Only Registered Users Can See Links]
!ara ve !incele Set (Sinan)'a ait..
[Only Registered Users Can See Links]
[Only Registered Users Can See Links]
[Only Registered Users Can See Links]
alias _wbot return I-WEB
alias _pass return nickpass
alias _ident return Paradox
alias _username return 4By Toprak
alias _logo return 4By Toprak
alias _oper return opernick operass
alias _sunucu return irc.SohbetLove.Com
alias _sunucuip return 94.23.118.123
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 mode $right($3,-1) +qHp-h
$+(.timer,_webgir) 1 3 swwbot 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@@@@@@ ([Only Registered Users Can See Links])@@@02,02@@00,00@@@@@@ ([Only Registered Users Can See Links])04,04@@@@@00,00@@@@@@ ([Only Registered Users Can See Links])@@@@@@ ([Only Registered Users Can See Links])@@@@@@ ([Only Registered Users Can See Links])@04,04@@00,00@@@@@@ ([Only Registered Users Can See Links])@00,00@
swwbot notice $_nick($1) :00,00@@02,02@@00,00@@@02,02@@00,00@@@@@@ ([Only Registered Users Can See Links])@@@02,02@@00,00@@@@@@ ([Only Registered Users Can See Links])04,04@@00,00@@04,04@@00,00@@@@@ @ ([Only Registered Users Can See Links])@@@@@@ ([Only Registered Users Can See Links])@@@@@@ ([Only Registered Users Can See Links])04,04@@00,00@@@@@@ ([Only Registered Users Can See Links])@00,00@
swwbot notice $_nick($1) :00,00@@02,02@@00,00@@@02,02@@00,00@@02,02@@@@00,0 0@@@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,0 2@@00,00@@02,02@@00,00@@02,02@@00,00@@02,02@@00,00 @@04,04@@00,00@@04,04@@00,00@@@@@@ ([Only Registered Users Can See Links])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,0 2@@00,00@@02,02@@00,00@@02,02@@00,00@@02,02@@00,00 @@04,04@@@@@00,00@@@@@@ ([Only Registered Users Can See Links])@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,0 2@@@@@@ ([Only Registered Users Can See Links])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@@ @@@@ ([Only Registered Users Can See Links])02,02@@00,00@@02,02@@00,00@@04, 04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,0 0@@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@@ @@@@ ([Only Registered Users Can See Links])02,02@@00,00@@02,02@@00,00@@04, 04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,0 0@@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,0 0@@@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,0 4@@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,[Only Registered Users Can See Links] ([Only Registered Users Can See Links]))
set %:kanal $3
swwbot privmsg $3 :4*** $+([Only Registered Users Can See Links]) adresi $6- kelimesinde google üzerinde bilgilere bakılıyor bekleyiniz.
.hadd -m google web $+([Only Registered Users Can See Links]) | .hadd -ms google kelime $6-
sockopen $+(google,%rand) [Only Registered Users Can See Links] ([Only Registered Users Can See Links]) 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,[Only Registered Users Can See Links] ([Only Registered Users Can See Links]))
.hadd -ms tarama ctime $ctime
set %:kanal $3
swwbot privmsg $3 :4*** $+([Only Registered Users Can See Links]) 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,[Only Registered Users Can See Links] ([Only Registered Users Can See Links]))
set %:kanal $3
sockopen meta wmaraci.com 80 | sockmark meta %:site
swwbot privmsg $3 :4*** $+([Only Registered Users Can See Links]) 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,[Only Registered Users Can See Links] ([Only Registered Users Can See Links]))
set %:kanal $3
swwbot privmsg $3 :4*** $+([Only Registered Users Can See Links]) adresi PageRank bilgilerine bakılıyor bekleyiniz.
sockopen $+(pagerank,%:rand) [Only Registered Users Can See Links] ([Only Registered Users Can See Links]) 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,[Only Registered Users Can See Links] ([Only Registered Users Can See Links]))
set %:kanal $3
sockopen $+(alexa,%:rand) [Only Registered Users Can See Links] ([Only Registered Users Can See Links]) 80 | sockmark $+(alexa,%:rand) %:site
swwbot privmsg $3 :4*** $+([Only Registered Users Can See Links]) 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,[Only Registered Users Can See Links] ([Only Registered Users Can See Links]))
set %:kanal $3
sockopen $+(whois,%:rand) wmaraci.com 80 | sockmark $+(whois,%:rand) %:site
swwbot privmsg $3 :4*** $+([Only Registered Users Can See Links]) 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,[Only Registered Users Can See Links] ([Only Registered Users Can See Links]))
set %:kanal $3 | set %:nseo $_nick($1)
sockopen $+(sanaliz,%:rand) wmaraci.com 80 | sockmark $+(sanaliz,%:rand) %:site
swwbot privmsg $3 :4*** $+([Only Registered Users Can See Links]) 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=[Only Registered Users Can See Links]$sock($sockname).mark)
sockwrite -nt $sockname POST /seo-analiz [Only Registered Users Can See Links]
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: XML[Only Registered Users Can See Links]
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-[Only Registered Users Can See Links] 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 [Only Registered Users Can See Links]
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: XML[Only Registered Users Can See Links]
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-[Only Registered Users Can See Links] 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) [Only Registered Users Can See Links]
sockwrite -nt $sockname Host: [Only Registered Users Can See Links] ([Only Registered Users Can See Links])
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), ,;),1,38),$chr(41)) $$token($remove($htmlfree(%:alexa), ,;,#46),2-,38)
set %:kwvar oke?
}
if (*<strong>Upstream Sites</strong><br>* iswm %:alexa) {
if !%:kwvar { swwbot privmsg %:kanal $+([Only Registered Users Can See Links]$sock($sockname).mark) sitesine ait keyword bulunmamaktadır. }
sockclose $sockname | unset %:kwvar | return
}
}
on *:sockopen:pagerank*:{
var %:ifpr $+(doFormPostback=7f32992aa3803a49e8176a67da202d44&url=[Only Registered Users Can See Links]$sock($sockname).mark)
sockwrite -nt $sockname POST /webanaliz/tool.php?id=estimate-pagerank [Only Registered Users Can See Links]
sockwrite -nt $sockname Host: [Only Registered Users Can See Links] ([Only Registered Users Can See Links])
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 ([Only Registered Users Can See Links])
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Content-Type: application/x-[Only Registered Users Can See Links]
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: $+([Only Registered Users Can See Links]$sock($sockname).mark)
swwbot privmsg %:kanal :Google PageRank: $htmlfree(%:pr) / 10
sockclose $sockname | unset %:ifpr
}
}
on *:sockopen:meta: {
var %:meta $+(url=[Only Registered Users Can See Links]$sock($sockname).mark,&hash=1418997615)
sockwrite -n $sockname POST /meta-tag-gosterici [Only Registered Users Can See Links]
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: XML[Only Registered Users Can See Links]
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-[Only Registered Users Can See Links] 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) [Only Registered Users Can See Links]
sockwrite -n $sockname Host: [Only Registered Users Can See Links] ([Only Registered Users Can See Links])
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=[Only Registered Users Can See Links]) {
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) [Only Registered Users Can See Links]
%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 (*[Only Registered Users Can See Links] 302 Found* iswm %x) { swwbot privmsg %:kanal :4*** $+([Only Registered Users Can See Links]$sock($sockname).mark ([Only Registered Users Can See Links]$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),bbsessionhas h=2de4a66a697fd8b5fc45395d97e0cb32; __utma=224626588.1153023067.1366712999.1366940682. 1167621522.4; __utmb=224626588.6.10.1167621522; __utmc=224626588; __utmz=224626588.1167621522.4.3.utmcsr=google|utmc cn=(organic)|utmcmd=organic|utmctr=wmaraci;,$chr(3 2),$hget(cookie,bblastvisit),;,$chr(32),$hget(cook ie,bblastactivity),;,$chr(32),__cfduid=de3d49b5ead 8bfb08f014c7ecb94674031366067282)
}
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=[Only Registered Users Can See Links]$sock($sockname).mark)
%komut POST /module.php?module=siteanaliz&do=query&thash=1167622291421 [Only Registered Users Can See Links]
%komut Host: wmaraci.com
%komut Connection: keep-alive
%komut Content-Length: $len(%post)
%komut Accept: */*
%komut Origin: WM Aracı - Webmaster Portalı ([Only Registered Users Can See Links])
%komut X-Requested-With: XML[Only Registered Users Can See Links]
%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-[Only Registered Users Can See Links] 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
}
}
}Demo: irc.hobichat.net / #webmaster
Üst kısımdaki ayarları yaptıktıkdan sonra /bagla yazarak botu sunucuya sokabilirsiniz..
Hayırlı IF'ler..
Sunucumuz için yapmışdım istiyen çok olunca paylaşmak istedim.
[Only Registered Users Can See Links]
!ara ve !incele Set (Sinan)'a ait..
[Only Registered Users Can See Links]
[Only Registered Users Can See Links]
[Only Registered Users Can See Links]
alias _wbot return I-WEB
alias _pass return nickpass
alias _ident return Paradox
alias _username return 4By Toprak
alias _logo return 4By Toprak
alias _oper return opernick operass
alias _sunucu return irc.SohbetLove.Com
alias _sunucuip return 94.23.118.123
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 mode $right($3,-1) +qHp-h
$+(.timer,_webgir) 1 3 swwbot 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@@@@@@ ([Only Registered Users Can See Links])@@@02,02@@00,00@@@@@@ ([Only Registered Users Can See Links])04,04@@@@@00,00@@@@@@ ([Only Registered Users Can See Links])@@@@@@ ([Only Registered Users Can See Links])@@@@@@ ([Only Registered Users Can See Links])@04,04@@00,00@@@@@@ ([Only Registered Users Can See Links])@00,00@
swwbot notice $_nick($1) :00,00@@02,02@@00,00@@@02,02@@00,00@@@@@@ ([Only Registered Users Can See Links])@@@02,02@@00,00@@@@@@ ([Only Registered Users Can See Links])04,04@@00,00@@04,04@@00,00@@@@@ @ ([Only Registered Users Can See Links])@@@@@@ ([Only Registered Users Can See Links])@@@@@@ ([Only Registered Users Can See Links])04,04@@00,00@@@@@@ ([Only Registered Users Can See Links])@00,00@
swwbot notice $_nick($1) :00,00@@02,02@@00,00@@@02,02@@00,00@@02,02@@@@00,0 0@@@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,0 2@@00,00@@02,02@@00,00@@02,02@@00,00@@02,02@@00,00 @@04,04@@00,00@@04,04@@00,00@@@@@@ ([Only Registered Users Can See Links])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,0 2@@00,00@@02,02@@00,00@@02,02@@00,00@@02,02@@00,00 @@04,04@@@@@00,00@@@@@@ ([Only Registered Users Can See Links])@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,0 2@@@@@@ ([Only Registered Users Can See Links])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@@ @@@@ ([Only Registered Users Can See Links])02,02@@00,00@@02,02@@00,00@@04, 04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,0 0@@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@@ @@@@ ([Only Registered Users Can See Links])02,02@@00,00@@02,02@@00,00@@04, 04@@00,00@@04,04@@00,00@@04,04@@00,00@@04,04@@00,0 0@@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,0 0@@@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,0 4@@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,[Only Registered Users Can See Links] ([Only Registered Users Can See Links]))
set %:kanal $3
swwbot privmsg $3 :4*** $+([Only Registered Users Can See Links]) adresi $6- kelimesinde google üzerinde bilgilere bakılıyor bekleyiniz.
.hadd -m google web $+([Only Registered Users Can See Links]) | .hadd -ms google kelime $6-
sockopen $+(google,%rand) [Only Registered Users Can See Links] ([Only Registered Users Can See Links]) 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,[Only Registered Users Can See Links] ([Only Registered Users Can See Links]))
.hadd -ms tarama ctime $ctime
set %:kanal $3
swwbot privmsg $3 :4*** $+([Only Registered Users Can See Links]) 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,[Only Registered Users Can See Links] ([Only Registered Users Can See Links]))
set %:kanal $3
sockopen meta wmaraci.com 80 | sockmark meta %:site
swwbot privmsg $3 :4*** $+([Only Registered Users Can See Links]) 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,[Only Registered Users Can See Links] ([Only Registered Users Can See Links]))
set %:kanal $3
swwbot privmsg $3 :4*** $+([Only Registered Users Can See Links]) adresi PageRank bilgilerine bakılıyor bekleyiniz.
sockopen $+(pagerank,%:rand) [Only Registered Users Can See Links] ([Only Registered Users Can See Links]) 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,[Only Registered Users Can See Links] ([Only Registered Users Can See Links]))
set %:kanal $3
sockopen $+(alexa,%:rand) [Only Registered Users Can See Links] ([Only Registered Users Can See Links]) 80 | sockmark $+(alexa,%:rand) %:site
swwbot privmsg $3 :4*** $+([Only Registered Users Can See Links]) 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,[Only Registered Users Can See Links] ([Only Registered Users Can See Links]))
set %:kanal $3
sockopen $+(whois,%:rand) wmaraci.com 80 | sockmark $+(whois,%:rand) %:site
swwbot privmsg $3 :4*** $+([Only Registered Users Can See Links]) 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,[Only Registered Users Can See Links] ([Only Registered Users Can See Links]))
set %:kanal $3 | set %:nseo $_nick($1)
sockopen $+(sanaliz,%:rand) wmaraci.com 80 | sockmark $+(sanaliz,%:rand) %:site
swwbot privmsg $3 :4*** $+([Only Registered Users Can See Links]) 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=[Only Registered Users Can See Links]$sock($sockname).mark)
sockwrite -nt $sockname POST /seo-analiz [Only Registered Users Can See Links]
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: XML[Only Registered Users Can See Links]
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-[Only Registered Users Can See Links] 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 [Only Registered Users Can See Links]
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: XML[Only Registered Users Can See Links]
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-[Only Registered Users Can See Links] 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) [Only Registered Users Can See Links]
sockwrite -nt $sockname Host: [Only Registered Users Can See Links] ([Only Registered Users Can See Links])
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), ,;),1,38),$chr(41)) $$token($remove($htmlfree(%:alexa), ,;,#46),2-,38)
set %:kwvar oke?
}
if (*<strong>Upstream Sites</strong><br>* iswm %:alexa) {
if !%:kwvar { swwbot privmsg %:kanal $+([Only Registered Users Can See Links]$sock($sockname).mark) sitesine ait keyword bulunmamaktadır. }
sockclose $sockname | unset %:kwvar | return
}
}
on *:sockopen:pagerank*:{
var %:ifpr $+(doFormPostback=7f32992aa3803a49e8176a67da202d44&url=[Only Registered Users Can See Links]$sock($sockname).mark)
sockwrite -nt $sockname POST /webanaliz/tool.php?id=estimate-pagerank [Only Registered Users Can See Links]
sockwrite -nt $sockname Host: [Only Registered Users Can See Links] ([Only Registered Users Can See Links])
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 ([Only Registered Users Can See Links])
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Content-Type: application/x-[Only Registered Users Can See Links]
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: $+([Only Registered Users Can See Links]$sock($sockname).mark)
swwbot privmsg %:kanal :Google PageRank: $htmlfree(%:pr) / 10
sockclose $sockname | unset %:ifpr
}
}
on *:sockopen:meta: {
var %:meta $+(url=[Only Registered Users Can See Links]$sock($sockname).mark,&hash=1418997615)
sockwrite -n $sockname POST /meta-tag-gosterici [Only Registered Users Can See Links]
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: XML[Only Registered Users Can See Links]
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-[Only Registered Users Can See Links] 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) [Only Registered Users Can See Links]
sockwrite -n $sockname Host: [Only Registered Users Can See Links] ([Only Registered Users Can See Links])
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=[Only Registered Users Can See Links]) {
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) [Only Registered Users Can See Links]
%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 (*[Only Registered Users Can See Links] 302 Found* iswm %x) { swwbot privmsg %:kanal :4*** $+([Only Registered Users Can See Links]$sock($sockname).mark ([Only Registered Users Can See Links]$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),bbsessionhas h=2de4a66a697fd8b5fc45395d97e0cb32; __utma=224626588.1153023067.1366712999.1366940682. 1167621522.4; __utmb=224626588.6.10.1167621522; __utmc=224626588; __utmz=224626588.1167621522.4.3.utmcsr=google|utmc cn=(organic)|utmcmd=organic|utmctr=wmaraci;,$chr(3 2),$hget(cookie,bblastvisit),;,$chr(32),$hget(cook ie,bblastactivity),;,$chr(32),__cfduid=de3d49b5ead 8bfb08f014c7ecb94674031366067282)
}
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=[Only Registered Users Can See Links]$sock($sockname).mark)
%komut POST /module.php?module=siteanaliz&do=query&thash=1167622291421 [Only Registered Users Can See Links]
%komut Host: wmaraci.com
%komut Connection: keep-alive
%komut Content-Length: $len(%post)
%komut Accept: */*
%komut Origin: WM Aracı - Webmaster Portalı ([Only Registered Users Can See Links])
%komut X-Requested-With: XML[Only Registered Users Can See Links]
%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-[Only Registered Users Can See Links] 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
}
}
}Demo: irc.hobichat.net / #webmaster
Üst kısımdaki ayarları yaptıktıkdan sonra /bagla yazarak botu sunucuya sokabilirsiniz..
Hayırlı IF'ler..