IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Çözüldü Socket iSP veri sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/1045633-socket-isp-veri-sorunu.html)

Socket iSP veri sorunu

on *:snotice:*: {
if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) $(.+)@(.+)$/Si) {
.who +I $9
.timerver 01 01 ctcp $9 VERSION
var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
set -l %girisipsi $regml(5)
set -l %girisidenti $regml(4)
if $istok(6661,%_port,32) { return }
elseif $istok(Lilith,%_nick,32) { return }
elseif $istok(ident ident1 ident2,%_ident,32) { return }
elseif $istok(85.104.93.153,%_ip,32 ) { return }
;msg #Pusat
msg #Pusat 15,1 Giriş Nick: 9,1 $9 7,1 Giriş iP: 15,1 $regml(5) 7,1 PORT: 15,1 $regml(2) 7,1 iDENT: 15,1 $regml(4)
if %_port == 6667 || %_port == 6668 || %_port == 6669 || %_port == 7000 || %_port == 7003 {
;msg #Opers 4 $regml(3) Nicki : 4 %_port Üzerinden Andro-Mirc Girişi yapmıştır.
}
}
}
#ispbilgisi on
raw 352:*: {
sockopen $+(nrdn,%:rand) ipinfo.io 80
sockmark $+(nrdn,%:rand) $+($4,¿,$6)
}
on *:sockopen:nrdn*: {
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: close
sockwrite -n $sockname Host: ipinfo.io
sockwrite -n $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
sockwrite -n $sockname Content-Type: application/json; charset=utf-8
sockwrite -n $sockname $crlf
}
on *:sockread:nrdn*:{
var %:nrdn
sockread -f %:nrdn
tokenize 32 %:nrdn
if region isin %:nrdn { .hadd -m $token($sock($sockname).mark,2,191) Sehir $_tr($remove($gettok(%:nrdn,2-,58),$chr(44),")) }
if city isin %:nrdn { .hadd -m $token($sock($sockname).mark,2,191) City $_tr($remove($gettok(%:nrdn,2-,58),$chr(44),")) }
if country isin %:nrdn { .hadd -m $token($sock($sockname).mark,2,191) Ülke $_tr($remove($gettok(%:nrdn,2-,58),$chr(44),")) }
if "org isin %:nrdn {
var %:isp $_tr($remove($gettok(%:nrdn,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)
.write girisler.txt GiRiŞ: 10 $date 6 $time 4 $token($sock($sockname).mark,2,191) iP: 4 %girisipsi PORT: 4 %_port iDENT: 4 %_ident ŞEHİR: 4 %sehir
/msg #pusat 9,1 $token($sock($sockname).mark,2,191) 7,1 üLKE: 15,1 %ülke 7,1 ŞEHİR: 15,1 %sehir 7,1 iSP: 15,1 %:isp
.hfree -sw %:n
.hfree -sw %:nrdn
/sockclose $sockname
unset %girisipsi
halt
}
}
alias _dzlt return $replace($1-,TR,TURKIYE,DE,ALMANYA,mins,dakika,min,dakika,hrs,saat,hr,saat,days,gün,day,gün,wks,hafta,wk,hafta)
alias _tr return $replace($1-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ã–,Ö,Ã¼,ü,ÅŸ,Ş,ÄŸ,ğ,Ã§,ç,Ä±,ı,Ã¶,ö,Ğ±,ı,Ğ°,İ,Ã‡,Ç,Å,Ş,ĞŸ,ğ,Ã¢,,Â,)
#ispbilgisi end

Ustalar selamlar. bu socket kod ile isp verilerini alıp kanala loglatıyorum. bazı ufak editler yaptım ve sorunsuz kullanıyorum.
Sorgulama yapılan ipinfo.io sitesinde sorgulamada vpn: True yada vpn: False değeri var ve eğer ip adresi VPN ise True sonucu veriyor. Koda nasıl bir düzenleme yapmam lazımki sorguda ip adresi vpn: True ise #Pusat kanalına mesaj ile bildirim yaptırıp aynı zamanda bağlanan Nicke ceza yada uyarı ekletebilirim?
yardımlarınız için şimdiden teşekkürler.