Çok güzel bir kodla devam ediyoruz. Bu kodun işlevi şu;
Size whois çekildiğinde, whois çeken kişinin yerel bilgilerini alırsınız.
Ülke, şehir, IP No, Organizasyon, Yerel zaman ve bulunduğu yerin enlem – boylam ölçülerini.
Bu kodu kullanabilmeniz için Admin, Oper veya Helper olmanız gerekir.
+W Flagı gerektiğindendir.

on *:sockopen:yerelbilgi:{
sockwrite -n $sockname GET /ip_tracer/ $+ %yerelipno HTTP/1.1
sockwrite -n $sockname Host: www.ip-adress.com $+ $crlf $+ $crlf
sockwrite -n $sockname $clrf
}
on *:sockread:yerelbilgi:{
if ($sockerr) {
echo 4 -a Veri alımında Hata oluştu. | .timers off | halt
}
else {
var %difi
sockread %difi
if (** iswm %difi) { %yerelbilgi = $addtok(%yerelbilgi ~,$remove($htmlfree(%difi),$chr(9)),126) }
if (*** iswm %difi) { set %yerelulke $remove($htmlfree(%difi),$chr(9)) }
}
}
alias bağlan {
sockclose yerelbilgi
sockopen yerelbilgi www.ip-adress.com 80
if !$window(@Whois) {
.timer -h 1 2800 window -adk0 +let @Whois 700 80 260 175 Verdana 12
.timer -h 1 2850 titlebar @Whois yerel bilgiler…
}
else { .timer -h 1 2800 window -a @Whois }
.timer -h 1 2900 aline @Whois 11,1Nick1…11:8 $!eval(%yerelnick,1) 1…………………………………………….
.timer -h 1 2950 aline @Whois 11,1IP no1.11:8 $!eval(%yerelipno,1) 1……………………………………………..
.timer -h 1 3000 aline @Whois 11,1Ülke1……………11:9 $!eval(%yerelulke,1) 1……………………………………..
.timer -h 1 3100 aline @Whois 11,1Bölge1………….11:9 $!token(%yerelbilgi,1,126) 1…………………………………
.timer -h 1 3200 aline @Whois 11,1Şehir1…………..11:9 $!token(%yerelbilgi,2,126) 1………………………………..
.timer -h 1 3300 aline @Whois 11,1Enlem1…………11:9 $!token(%yerelbilgi,3,126) 1………………………………….
.timer -h 1 3400 aline @Whois 11,1Boylam1……….11:9 $!token(%yerelbilgi,4,126) 1…………………………………..
.timer -h 1 3500 aline @Whois 11,1Organizasyon:9 $!token(%yerelbilgi,5,126) 1………………………………………….
.timer -h 1 3600 aline @Whois 11,1Yerel Zaman1..11:9 $!token(%yerelbilgi,7,126) 1……………………………………..
.timer -h 1 3700 aline @Whois 0,1—————-Bilgi Sonu——————-
.timer -h 1 3750 sockclose yerelbilgi
.timer -h 1 4000 unset %yerel*
}
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 %yerelipno $remove($token($3,2,64),$chr(41))
set %yerelnick $2
bağlan
echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor…
}
}