Tekil Mesaj gösterimi
Alt 22 Mayıs 2022, 15:19   #1
Çevrimiçi
Bozkurt-
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Whois çektiğiniz kişi nereden?




Merhabalar;
Remotenin amacı whois çektiğiniz kullanıcının coğrafi konum bilgilerini göstermektir.
Özellikle sunucularda .nerden vb gibi komutları kullanmanıza gerek kalmadan kullanıcının coğrafi konumunu öğrenebilirsiniz.



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

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
raw 378:*:{ haltdef ipinfoio $4 } on *:sockopen:whois:{ sockwrite -tn $sockname GET $+(/,%sip,/geo) HTTP/1.1 sockwrite -tn $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8 sockwrite -tn $sockname Connection: keep-alive sockwrite -tn $sockname Host: ipinfo.io sockwrite -tn $sockname $crlf } on *:sockread:whois:{ var %d_whois | sockread %d_whois | tokenize 32 %d_whois if *"ip":* iswm %d_whois { echo -a > - 0,4 C* C* C* C* C* 0,4 C* C* C* C* C* } if *"ip":* iswm %d_whois { echo -a > 4,1 Kullanıcının IP sorgusu başladı. } if *"ip":* iswm %d_whois { echo -a > - 0,4 C* C* C* C* C* 0,4 C* C* C* C* C* } if *"ip":* iswm %d_whois { echo -a > 2IP ADRESI:4 $gettok(%d_whois,2-,58),$chr(44) } if *"city":* iswm %d_whois { echo -a > 2ŞEHIR:4 $gettok(%d_whois,2-,58),$chr(44) } if *"region":* iswm %d_whois { echo -a > 2BÖLGE:4 $gettok(%d_whois,2-,58),$chr(44) } if *"country":* iswm %d_whois { echo -a > 2ULKE:4 $gettok(%d_whois,2-,58),$chr(44) } if *"loc":* iswm %d_whois { echo -a > 2LOKASYON:4 $gettok(%d_whois,2-,58),$chr(44) } if *"org":* iswm %d_whois { echo -a > 2SAĞLAYICI FIRMA:4 $gettok(%d_whois,2-,58),$chr(44) } if *"postal":* iswm %d_whois { echo -a > 2POSTA KODU:4 $gettok(%d_whois,2-,58),$chr(44) } if *"timezone":* iswm %d_whois { echo -a > 2SAAT DILIMI:4 $gettok(%d_whois,2-,58),$chr(44) } if *"readme":* iswm %d_whois { echo -a > - 0,4 C* C* C* C* C* 0,4 C* C* C* C* C* } if *"readme":* iswm %d_whois { echo -a > 4,1IP sorgusu bitti. | sockclose whois } } alias ipinfoio { if $regex($1,/(\d+\.\d+.\d+\.\d+)/) { sockclose whois | %sip = $replace($1,-,.) | sockopen whois ipinfo.io 80 | return } set -e %d_nick $1 | enable #whois | userip $1 } #whois off

Keyifli Paylaşımlar.

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

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver