Girişte Ülke/Şehir/İSP gösterme. (Güncel)
Kod:
on *:snotice:*:{
if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
;- Muaf port ekleme.
if $istok(6661,%_port,32) { return }
;- Muaf nick ekleme
elseif $istok(Lilith,%_nick,32) { return }
;- Muaf ident ekleme
elseif $istok(ident ident1 ident2,%_ident,32) { return }
;- Muaf IP ekleme
elseif $istok(ip ip1 ip2,%_ip,32 ) { return }
who +I $9
}
}
raw 352:*:{
sockopen $+(nerdenpro,%:rand) ipinfo.io 80
sockmark $+(nerdenpro,%:rand) $+($4,¿,$6)
}
on *:sockopen:nerdenpro*:{
sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/geo) 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:nerdenpro*:{
var %:nerdenpro | sockread %:nerdenpro | tokenize 32 %:nerdenpro
if region isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) }
if city isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) City $_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),")) }
if country isin %:nerdenpro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $_dzlt($_tr($remove($gettok(%:nerdenpro,2-,58),$chr(44),"))) }
if "org isin %:nerdenpro {
var %:isp $_tr($remove($gettok(%:nerdenpro,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)
$iif(!$window(@Giris),window -e @Giris)
.echo @Giris 0,1[Giriş Bilgi] 0,4Nick: 0,1 %:n 0,4IP: 0,1 %ip 0,4Ulke Kodu: 0,1 %ülke 0,4Şehir: 0,1 %sehir 0,4 ISP: 0,1 %:isp
.hfree -w %:n | sockclose $sockname
}
}
alias _tr return $replace($1-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ÅŸ,Ş,ÄŸ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ,â,,Â,)
alias _dzlt return $replace($1-,TR,TÜRKİYE,US,A.B.D,DE,ALMANYA,IT,İTALYA,FR,FRANSA,AZ,AZERBAYCAN,BE,BELÇİKA,BG,BULGARİSTAN,)
|
