| ZaLiM1979 | 19 Kasım 2025 13:05 |
Cevap: İp adresi konum sorgulama (Güncel)
Alıntı:
SNOOPY Nickli Üyeden Alıntı
(Mesaj 1043101586)
Kod:
alias sorgula {
if (!$1) { echo -a Örnek: /sorgula 1.2.3.4 | return }
unset %head.done
set %ip.raw $null
set %ip.addr $1
sockopen -e ip.lookup ipwho.is 443
}
on *:sockopen:ip.lookup:{
if ($sockerr) { echo -a Bağlantı hatası. | return }
sockwrite -nt $sockname GET /json/$+ %ip.addr HTTP/1.1
sockwrite -nt $sockname Host: ipwho.is
sockwrite -nt $sockname User-Agent: mIRC
sockwrite -nt $sockname Connection: close
sockwrite -nt $sockname $crlf
}
on *:sockread:ip.lookup:{
var %l
sockread %l
; header bitti mi?
if (!$len(%l)) { set %head.done 1 | return }
if (%l == $chr(13)) { set %head.done 1 | return }
if (!%head.done) return
; json verisini ekle
set %ip.raw %ip.raw %l
}
on *:sockclose:ip.lookup:{
if (%ip.raw == $null) {
echo -a Sunucu veri göndermedi.
unset %ip.*
return
}
var %j = %ip.raw
var %asn = Bulunamadı
var %ulke = Bulunamadı
var %kita = Bulunamadı
var %bolge = Bulunamadı
var %sehir = Bulunamadı
var %isp = Bulunamadı
var %tur = Bulunamadı
var %domain = Bulunamadı
if ($regex(%j,/"asn":\s*([0-9]+)/)) set %asn $regml(1)
if ($regex(%j,/"country":"([^"]+)"/)) set %ulke $regml(1)
if ($regex(%j,/"continent":"([^"]+)"/)) set %kita $regml(1)
if ($regex(%j,/"region":"([^"]+)"/)) set %bolge $regml(1)
if ($regex(%j,/"city":"([^"]+)"/)) set %sehir $regml(1)
if ($regex(%j,/"isp":"([^"]+)"/)) set %isp $regml(1)
if ($regex(%j,/"type":"([^"]+)"/)) set %tur $regml(1)
if ($regex(%j,/"domain":"([^"]+)"/)) set %domain $regml(1)
echo -a ASN: $fixutf(%asn)
echo -a Ülke: $fixutf(%ulke)
echo -a Kıta: $fixutf(%kita)
echo -a Bölge: $fixutf(%bolge)
echo -a Şehir: $fixutf(%sehir)
echo -a ISP: $fixutf(%isp)
echo -a Tür: $fixutf(%tur)
echo -a Domain: $fixutf(%domain)
unset %ip.*
unset %head.done
}
alias fixutf {
return $replace($1-,\u0130,İ,\u0131,ı,\u00dc,Ü,\u00fc,ü,\u011e,Ğ,\u011f,ğ,\u015e,Ş,\u015f,ş,\u00d6,Ö,\u00f6,ö,\u00c7,Ç,\u00e7,ç)
}
$replace() parametresini 7.81'e göre biraz daha farklıymış tekrar kontrol ettim ve sondaki kısmı tekrar gözden geçirdim yine de bir hata varsa ufak bir testle sizin mirciniz üzerinde yaptığınız bazı değişikliklerden kaynaklanabilir. Kod:
/echo -a $fixutf(\u00f6\u011f\u015f)
bunu yazdığınız zaman altaki yazması gerekir.
|
ASN: Bulunamadı
Ülke: Bulunamadı
Kıta: Bulunamadı
Bölge: Bulunamadı
Şehir: Bulunamadı
ISP: Bulunamadı
Tür: Bulunamadı
Domain: Bulunamadı
Kod birsey bulamdi. :)
/echo -a $fixutf(\u00f6\u011f\u015f) yapinca aktiv pencerede bu geliyor: $fixutf(\u00f6\u011f\u015f)
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:05 -->-> Daha önceki mesaj 13:03 --
Alıntı:
Che Nickli Üyeden Alıntı
(Mesaj 1043102125)
Kod:
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 80
}
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ı hatası. | sockclose $sockname | return }
var %tmp
sockread %tmp
if (%tmp != $null) {
; HTTP headerları geç
if (!$regex(%tmp,/^(HTTP\/|Content-|Server:|Date:|Connection:)/i)) {
set %ipdata %ipdata $+ %tmp
}
}
}
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ı
var %domain = Bulunamadı
var %continent = Bulunamadı
if ($regex(%ipdata,/"type":"([^"]+)"/i)) { set %type $regml(1) }
if ($regex(%ipdata,/"continent":"([^"]+)"/i)) { set %continent $regml(1) }
if ($regex(%ipdata,/"asn":\s*([0-9]+)/i)) { set %asn $regml(1) }
if ($regex(%ipdata,/"isp":"([^"]+)"/i)) { set %org $regml(1) }
if ($regex(%ipdata,/"country":"([^"]+)"/i)) { set %country $regml(1) }
if ($regex(%ipdata,/"region":"([^"]+)"/i)) { set %region $regml(1) }
if ($regex(%ipdata,/"city":"([^"]+)"/i)) { set %city $regml(1) }
if ($regex(%ipdata,/"domain":"([^"]+)"/i)) { set %domain $regml(1) }
if ($regex(%ipdata,/"hostname":"([^"]+)"/i)) { set %domain $regml(1) }
echo -a 3,1[ K U L L A N I C I B İ L G İ L E R İ ]
echo -a 9ASN: 10 $utf2tr(%asn)
echo -a 9Ülke: 10 $utf2tr(%country)
echo -a 9Kıta: 10 $utf2tr(%continent)
echo -a 9Bölge: 10 $utf2tr(%region)
echo -a 9Şehir: 10 $utf2tr(%city)
echo -a 9ISP: 10 $utf2tr(%org)
echo -a 9IP Türü: 10 $utf2tr(%type)
echo -a 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
}
|
Bu Kod bu hatayi veriyor: IP 162.19.230.101 bilgileri sorgulanıyor...
Sunucuyla bağlantı kurulamıyor. |
