Size whois cekenin bilgileri görme komutu yani bu komutu siz remotenize ekliceksiniz. remoteye alt+R ilede ulaşabilirsiniz. Whois bilgilerinize bakiyor kim size whois cekiyor bildirimi icin güzelbir kodtur.
alias .ip {
return %ip
}
on 1:SOCKOPEN:ipbilgi: {
sockwrite -n $sockname GET $+(/lookups/iplocation.asp?ipaddress=,$.ip HTTP/1.1)
sockwrite -n $sockname Host: $+(www.melissadata.com,$str($crlf, 2))
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
sockwrite -n $sockname $crlf
}
on *:sockread:ipbilgi:{
if ($sockerr) {
echo 4 -a Hata var hata | halt
}
else {
var %sessiz
sockread $htmlfree(%sessiz)
.tokenize 32 $htmlfree(%sessiz)
if (*Country* iswm $1-) && $4 == $null {
.set %ulke 0
.set %ulke $remove($2,Country)
}
if (*City* iswm $1-) && $4 == $null {
.set %sehir 0
.set %sehir $remove($2,City)
echo -a 4Whois:1 Nick : %wn – Ulke: %ulke – Sehir: %sehir – IP: $.ip
echo @Whois2 4Whois:1 Nick : %wn – Ulke: %ulke – Sehir: %sehir – IP: $.ip
}
}
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
alias ipcik {
if $sock(ipbilgi) {
sockclose $ifmatch
}
sockopen ipbilgi www.melissadata.com 80
echo -a Whois çekildi bilgiler alınıyor.
}
on ^*:snotice:*size whois çekti*: { if !$window(@Whois2) { window -gn @Whois2 }
set %ip $remove($gettok($3,2,64),-1,$chr(41))
set %wn $2
Echo -tm @Whois2 $2 Nicki Su Anda Bilgilerinize Bakıyor !
ipcik
halt
}


