Tekil Mesaj gösterimi
Alt 03 Temmuz 2025, 23:26   #1
Çevrimdışı
Bozkurt- Doğrulanmış Üye
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
İp adresi konum sorgulama (Güncel)




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 }

Kullanım şekli :

/sorgula ipadresi ÖRN : /sorgula 8.8.8.8


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Çalışması için 6.35 ve üzeri ssl destekli bir mirc kullanıyor olmanız gerekiyor. https prorokolü üzerinden 443 portundan veri çekmektedir. Mirciniz ssl değilse ssl yapmanız gerekiyor.

__________________
Kahpeliğin bahanesi, İhanetin telafisi olmaz.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan