nerden Kodu Güncel
Hem kendiniz için hem botlar için kullanabilirsiniz
kullanımı .nerden nick veya ip
Örnek !nerden ZaiL veya !nerden 1.2.3.4.5 Gibi Kod:
on *:text:*:#:{
if $regex($1,/^([!\.]nerden)$/i) {
if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
set %:kanal #
if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
else { .enable #nerdenbul | .who +I $2 }
}
}
on *:input:#:{
if $regex($1,/^([!\.]nerden)$/i) {
if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
set %:kanal #
if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
else { .enable #nerdenbul | .who +I $2 }
}
}
#nerdenbul off
raw 352:*: _nerden $4
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r) cizgi.gen.tr 80 | sockmark $+(yerbul,%:r) $1 }
alias _tr-ok return $replace($1-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ÅŸ,Ş,ÄŸ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ)
on *:sockopen:yerbul*:{
sockwrite -n $sockname GET $+(/nerden/bilgi.php?ip=,$sock($sockname).mark) HTTP/1.1
sockwrite -n $sockname Host: $sock($sockname).addr
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -n $sockname $crlf
}
on *:sockread:yerbul*:{
var %:yerbul | sockread -f %:yerbul | tokenize 32 %:yerbul
if $regex($1-,/<span>Hostname:</span> <span>(.+)</span>/Si) { msg %:kanal IP: $sock($sockname).mark | msg %:kanal Hostname: $regml(1) }
elseif $regex($1-,/<span>Country:</span> <span>(.+)</span>/Si) { msg %:kanal Ülke: $_tr-ok($regml(1)) }
elseif $regex($1-,/<span>Country Code:</span> <span>(.+)</span>/Si) { msg %:kanal Ülke Kodu: $regml(1) }
elseif $regex($1-,/<span>City:</span> <span>(.+)</span>/Si) { msg %:kanal Şehir: $_tr-ok($regml(1)) }
elseif $regex($1-,/<span>ISP:</span> <span>(.+)</span>/Si) { msg %:kanal ISP: $_tr-ok($regml(1)) }
}
|
