| Sessiz | 31 Mart 2010 19:20 |
Whois çekenin bilgilerini görün.
Merhabalar.
Difuzyon nickli arkadaşım böyle bir kod vermişti, fakat ip-address.com un belli bir ip whois çektikten sonra üyelik istemesi sebebi yüzünden bir aksilik vardı. Yine bizim soyle.net helperlerinin isteği üzerine bende melissadata dan cektigim verilerle bu sokceti hazırladım. SiyahKaR arkadaşımda yardımcı oldu. Sizlerinde kullanımına sunuyorum kolay gelsin. Bir sıkıntı olursa baslık altından yazabilirsiniz. Kod:
alias .ip {
return %ip
}
on 1:SOCKOPEN:ipbilgi: {
sockwrite -n $sockname GET $+(/lookups/iplocation.asp?ipaddress=,$.ip HTTP/1.1)
sockwrite -n $sockname Host: $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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
}
; +W Flag'ı olan arkadaşlar için hazırlanmıştır. Whois cekenin bilgilerini echolar.
; Coded Sessiz & SiyahKaR
Ben bilgileri sadece whois penceresinde görmek istiyorum derseniz
echo -a 4Whois:1 Nick : %wn - Ulke: %ulke - Sehir: %sehir - IP:
Bu satırı kaldırmanız yeterlidir. Teşekkürler. Not : Doğru bilgi vermiyor falan derseniz suç benim değil dataları çektimiğimiz sitenin :) Daha iyi bir ip location sitesi bulursanız orada da deneriz.
Operler arkadaşlar için de Operin whois çektiği kişinin bilgilerini yansıtması için bir kod hazırlıyorum onuda sunarım yakında. | 