Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias sorgula {
if (!$1) { echo -a Lütfen bir IP giriniz. Örnek: /sorgula 1.2.3.4 | return }
set %ipaddr $1
set %ipdata $null
echo -a IP: %ipaddr Bilgileri Sorgulanıyor...
sockopen -e iplookup ipwho.is 443
}
on *:SOCKOPEN:iplookup: {
if ($sockerr) {
echo -a Sunucuyla Bağlantı Kurulamıyor.
sockclose $sockname
return
}
sockwrite -n $sockname GET $+(/,%ipaddr) HTTP/1.1
sockwrite -n $sockname Host: ipwho.is
sockwrite -n $sockname User-Agent: mIRC
sockwrite -n $sockname Connection: close
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:iplookup: {
if ($sockerr) {
echo -a Sunucuyla Bağlantı Kurulamıyor.
sockclose $sockname
return
}
var %temp
sockread %temp
if (%temp != $null) {
; HTTP headerları atla
if (!$regex(%temp, /^HTTP\/|^[A-Za-z\-]+:/i)) {
set %ipdata %ipdata $+ %temp
}
}
}
on *:SOCKCLOSE:iplookup: {
timer 1 1 showdata
}
alias showdata {
if (%ipdata == $null) {
echo -a Gösterilecek Veri Yok.
unset %ipaddr
unset %ipdata
return
}
var %type = Bulunamadı
var %asn = Bulunamadı
var %country = Bulunamadı
var %region = Bulunamadı
var %city = Bulunamadı
var %org = Bulunamadı
if (*"type":* iswm %ipdata) {
if ($regex(%ipdata, /"Domain":"([^"]+)"/i)) { set %domain $regml(1) }
}
if (*"type":* iswm %ipdata) {
if ($regex(%ipdata, /"type":"([^"]+)"/i)) { set %type $regml(1) }
}
if (*"type":* iswm %ipdata) {
if ($regex(%ipdata, /"continent":"([^"]+)"/i)) { set %continent $regml(1) }
}
if (*"connection":* iswm %ipdata) {
if ($regex(%ipdata, /"asn":\s*([0-9]+)/i)) { set %asn $regml(1) }
if ($regex(%ipdata, /"isp":"([^"]+)"/i)) { set %org $regml(1) }
}
if (*"country":* iswm %ipdata) { if ($regex(%ipdata, /"country":"([^"]+)"/i)) { set %country $regml(1) } }
if (*"region":* iswm %ipdata) { if ($regex(%ipdata, /"region":"([^"]+)"/i)) { set %region $regml(1) } }
if (*"city":* iswm %ipdata) { if ($regex(%ipdata, /"city":"([^"]+)"/i)) { set %city $regml(1) } }
echo -a 3,1[ K U L L A N I C I B İ L G İ L E R İ ] 9ASN : 10 $utf2tr(%asn) 9Ülke : 10 $utf2tr(%country) 9Kıta : 10 $utf2tr(%continent) 9Bölge : 10 $utf2tr(%region) 9Şehir : 10 $utf2tr(%city) 9ISP : 10 $utf2tr(%org) 9IP TÜRÜ : 10 $utf2tr(%type) 9Alan Adı : 10 $utf2tr(%domain)
unset %ipaddr
unset %ipdata
}
alias utf2tr {
var %text = $1-
%text = $replace(%text,\u0130,İ,\u0131,ı,\u00dc,Ü,\u00fc,ü,\u011e,Ğ,\u011f,ğ,\u015e,Ş,\u015f,ş,\u00d6,Ö,\u00f6,ö,\u00c7,Ç,\u00e7,ç)
return %text
}