Cevap: !Nerden kodu güncel.
Alıntı:
Enes Nickli Üyeden Alıntı
(Mesaj 1042650200)
konuyu hortlaşmış gibi olmayayıda çalışan kodu olan atabilir mi ?
| Kullanımı: !nerden IP/NICK Kod:
raw 378:*:{
sockopen $+(chepro,%:rand) ipinfo.io 80
sockmark $+(chepro,%:rand) $+($token($6,2,64),¿,$2)
}
on *:sockopen:chepro*:{
sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),?token=118fa7da158796) HTTP/1.1
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname Host: ipinfo.io
sockwrite -n $sockname Accept-Language: en-US
sockwrite -n $sockname Content-Type: application/json; charset=utf-8
sockwrite -n $sockname $crlf
}
on *:sockread:chepro*:{
var %:chepro | sockread %:chepro | tokenize 32 %:chepro
if region isin %:chepro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $remove($gettok(%:chepro,2-,58),$chr(44),") }
if city isin %:chepro { .hadd -m $token($sock($sockname).mark,2,191) City $remove($gettok(%:chepro,2-,58),$chr(44),") }
if country isin %:chepro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $remove($gettok(%:chepro,2-,58),$chr(44),") }
if "org isin %:chepro {
var %:isp $remove($gettok(%:chepro,2-,58),$chr(44),")
var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir) $hget(%:n,City)
msg %:kanal Nick:4 %:n - IP: %ip - Ulke: %ülke - Sehir: %sehir - ISP: %:isp Saat: $time - Tarih: $date
.hfree -w %:n | sockclose $sockname
}
}
on *:text:*:#:{
if $regex($1,/^[!.-]nerden$/Si) {
if !$2 { msg # Lütfen !nerden <IP/Nick> olarak belirtiniz. | return }
set %:kanal #
if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { var %:rand $r(1000,99999) | sockopen $+(chepro,%:rand) ipinfo.io 80 | sockmark $+(chepro,%:rand) $+($2,¿,Bilinmiyor) }
else { .whois $2 }
}
}
|
