Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Whois çekene ait yerel bilgiler

diShy

~ یơυℓℓεss ..
Emektar Yönetici
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,083
  • MFC Puanı
    339
  • MFC Seviyesi

ize whois çekenin ip no\'sundan hareketle IP Location Finder adresinden yerel bağlantı bilgilerini size sunacaktır.

Kod:
on *:sockopen:whoiz:{
sockwrite -n $sockname GET /index.php?query= $+ %difyipno HTTP/1.1
sockwrite -n $sockname Host: IP Location Finder $+ $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 IP Location Finder 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...
}
}
 
Üst Alt