Konu: .nerden [IP|Nick] Yeni

Kod diEfoRyoU tarafından yazıldı.

Kod:

on *:sockopen:wip:{
sockwrite -tn $sockname GET $+(/,%sip,/json?token=bdbdb82ae05b96) 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:wip:{ var %d_wip | sockread %d_wip | tokenize 32 %d_wip
if *"ip":* iswm %d_wip { Echo -a 2IP Adresi:4 $gettok(%d_wip,2-,58) }
if *"hostname":* iswm %d_wip { Echo -a 2Host Uzantısı:4 $gettok(%d_wip,2-,58) }
if *"region":* iswm %d_wip { Echo -a 2Şehir:4 $gettok(%d_wip,2-,58) }
if *"country":* iswm %d_wip { Echo -a 2Ülke:4 $gettok(%d_wip,2-,58) }
if *"loc":* iswm %d_wip { Echo -a 2Lokasyon:4 $gettok(%d_wip,2-,58) }
if *"postal":* iswm %d_wip { Echo -a 2Posta Kodu:4 $gettok(%d_wip,2-,58) }
if *"org":* iswm %d_wip { Echo -a 2Bağlantı kaynağı:4 $gettok(%d_wip,2-,58) | sockclose wip } }
alias d_wip { if $regex($1,/(\d+\.\d+.\d+\.\d+)/) {
sockclose d_wip | %sip = $replace($1,-,.) | sockopen wip ipinfo.io 80 | return }
set -e %d_nick $1 | enable #wip | userip $1 }
#wip off
raw 340:*:{ if $2 { %sip = $gettok($2,2,64) | sockopen wip ipinfo.io 80 | disable #wip | return }
echo -a %d_nick nickinin ip adresine ulasılamadı. | disable #wip }
#wip end