mIRCForumlari.Net

mIRCForumlari.Net (https://www.mircforumlari.net/)
-   mIRC Scripting Hazýr Kodlar (https://www.mircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Giriþte Ülke/Þehir/ÝSP Gösterme (https://www.mircforumlari.net/mirc-scripting-hazir-kodlar/139-giriste-ulke-sehir-isp-gosterme.html)

RahmetLi 12 Aralýk 2022 03:19

Giriþte Ülke/Þehir/ÝSP Gösterme
 
PHP- Kodu:

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(85.104.93.153,%_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 $_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)
    msg #Giriþ 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-,Ü,Ü,ÅŸ,þ,Ä,Ð,İ,Ý,Ö,Ö,ü,ü,ÅŸ,Þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,б,ý,а,Ý,Ç,Ç,Å,Þ,П,ð,â,,Â,)



Tüm Zamanlar GMT +3 Olarak Ayarlanmýþ. Þuanki Zaman: 21:23.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.


Navbar with Avatar by Motorradforum