Whois çekene ait yerel bilgiler

Kodun amacı:

+W modesine sahip (Helper,Oper,Admin vs vs) biri iseniz ve size whois çekildiğinde,
-irc.Sunucu.com- *** L4roXyL (asas@78.190.73.236) did a /whois on you.
şeklinde uyarı alıyorsanız koddan yararlanabilirsiniz.
Size whois çekenin ip no’sundan hareketle IP Location Finder adresinden yerel bağlantı bilgilerini size sunacaktır.

İşte kod:
Kod:

on *:sockopen:whoiz:{
sockwrite -n $sockname GET /index.php?query= $+ %difyipno HTTP/1.1
sockwrite -n $sockname Host: www.iplocation.net $+ $crlf $+ $crlf
sockwrite -n $sockname $clrf
}
on *:sockread:whoiz:{
if ($sockerr) { echo -a Veri alımında Hata oluştu. | halt }
else {
var %difi
sockread %difi
if (*Country*Region*City* iswm %difi) { set %dify $htmlfree($replace(%difi,

,$chr(32))) }
elseif (*Registry*Information* iswm %difi) {
sockclose whoiz
if $regex(%dify,/Region City ISP (.+) Google Map for.+Geolocation data from/i) {
set %difuzyon $regml(1)
if !$window(@Whois) { window -adk0 +let @Whois 700 80 290 132 Verdana 12 | titlebar @Whois yerel bilgiler… }
else { window -a @Whois }
aline @Whois 11,1Nick1…11:8 %difyyerelnick 1…………………………………………….
aline @Whois 11,1IP no1.11:8 $token(%difuzyon,1,32) 1……………………………………………..
aline @Whois 11,1Ülke1……………11:9 $token(%difuzyon,2,32) 1……………………………………..
aline @Whois 11,1Bölge1………….11:9 $token(%difuzyon,3,32) 1…………………………………
aline @Whois 11,1Şehir1…………..11:9 $token(%difuzyon,4,32) 1………………………………..
aline @Whois 11,1Organizasyon:9 $token(%difuzyon,5-,32) 1………………………………………….
aline @Whois 0,1—————-Bilgi Sonu————————————————————
unset %dif*
}
}
}
}
alias bağlantı {
sockclose whoiz
sockopen whoiz www.iplocation.net 80
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
on *:snotice:*whois*on*you*: {
if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) {
hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41))
set -e %difyipno $remove($token($3,2,64),$chr(41))
set -e %difyyerelnick $2
bağlantı
echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor…
}
}

Size whois çeken nick için 1 defa işlem yapmaktadır(flood olayına engel olmak için).

Resimde 2 türlü görüntü bir aradır.Bir tanesi window(pencere) diğer ise tip(baloncuk).
Yukarıdaki kod sadece window(pencere) halinde görünüm sağlamaktadır.
Şayet mirciniz destekliyorsa tip(baloncuk) olarak görmek isterseniz kod içerisinde mavi kısmı siler aşağıdaki dizinleri yerine eklersiniz.
Her ikisinide görmek istiyorsanız mavi kısmın hemen üstüne aşağıdaki kodu ilave edersiniz.
Alıntı:
noop $tip(Whois,Yerel Bilgiler,Nick: %difyyerelnick,7)
noop $tip(Whois,Yerel Bilgiler,IP No: $token(%difuzyon,1,32),7)
noop $tip(Whois,Yerel Bilgiler,Ülke: $token(%difuzyon,2,32),7)
noop $tip(Whois,Yerel Bilgiler,Bölge: $token(%difuzyon,3,32),7)
noop $tip(Whois,Yerel Bilgiler,Şehir: $token(%difuzyon,4,32),7)
noop $tip(Whois,Yerel Bilgiler,Org.: $token(%difuzyon,5,32),7)

Görünüm seçeneklerini biraz daha arttırarak kendinize göre de düzenleyebilirsiniz.

Leave a Reply

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir