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

Sayfa 3 Toplam 4 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Girişte Ülke/Şehir/İSP Gösterme (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/682252-giriste-ulke-sehir-isp-gosterme.html)

Beatle

09 Nisan 2021 18:20

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Kod:

on *:text:*:#OperLog:{

  if $regex($1,/^[!.][uüÜ]lke/Si) {

    if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }

    elseif $regex($2,/^ekle$/Si) {

      if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }

      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok. }

      elseif $hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) ülkesi yasak listesinde zaten ekli. }

      else { .hadd -ms Ulke $remove($strip($3-),$chr(32))  $+($strip($3-),$chr(191),$nick) | .hsave -o Ulke Ulke.Yasak | msg #  $strip($3-) yasak ülke listesine eklendi. }

    }

    elseif $regex($2,/^s[ıiİ]l$/Si) {

      if !$3 { msg # Lütfen !ulke sil <Ulke> olarak belirtiniz. }

      elseif !$hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) yasak ülke listesinde ekli değil. }

      else { .hdel -ms Ulke $remove($strip($3-),$chr(32)) | .hsave -o  Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesinden silindi. }

    }

    elseif $regex($2,/^l[ıiİ]st$/Si) {

      if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }

      else {

        msg # Yasak Ülke Listesi

        msg # -

        var %:t = 1 | while %:t <= $hget(Ulke,0).data {

          msg # $+(%:t,-,$chr(41)) Ülke:4 $token($hget(Ulke,%:t).data,1,191)  Ekleyen:2 $token($hget(Ulke,%:t).data,2,191)

          inc %:t

        }

        msg # -

        msg # Yasak Ülke Listesi Sonu

      }

    }

  }

}

on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }

raw 352:*:{ var %:r $r(1000,99999) | sockopen -e $+(ulke,%:r)  
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443 | sockmark $+(ulke,%:r) $+($4,¿,$6) }

on *:sockopen:ulke*:{

  if ($sockerr) { .sockclose $sockname | return }

  sockwrite -nt $sockname GET $+(/locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 

  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:87.0) Gecko/20100101 Firefox/87.0

  sockwrite -nt $sockname $crlf

}

on *:sockread:ulke*:{ 

  var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke

  if $regex($1-,/IP Country: (.+)<img src=/i) { .hadd -ms Country $sockname $iif($regml(1),$regml(1),Belirsiz) }

  elseif $regex($1-,/Town: (.+)/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }

  elseif $regex($1-,/ISP Provider: (.+)<hr>/i) {

    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]  [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4  $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname)  - Şehir:2 $hget(Sehir,$sockname) - ISP:5  $iif($regml(1),$regml(1),Belirsiz)  $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak  Ülke Girişi!)

    if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline  $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }

    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname

  }

}

Bu kodda türkçe karakter hatası oluyor.Birde ülkesi sehri belirsiz diye cıkmıyor tire işareti oluyor.Kütahya mesela karakter hatası gözüküyor.

[ GİRİŞ ] Nick: PoLeN - IP: 95.7.123.199 - Ülke: Turkey - Şehir: KÃ¼tahya - ISP: Turk Telekom
[ GİRİŞ ] Nick: Leylaaa - IP: 213.43.12.12 - Ülke: - Şehir: - ISP: Turkcell Iletisim Hizmetleri A.s.

diE	09 Nisan 2021 19:10

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Alper Nickli Üyeden Alıntı (Mesaj 1042472495)

Site bilerek mi öyle yapılmış bilmiyorum ama her zaman aynı şekilde gelmiyor veri mesela bizim yaptığımız şablona uyan şekilde veri geliyorsa sorun yok veriyi zaten gösteriyor ama diğer türü veriyi bulmadığı için doğal olarak veriyi göstermiyor.

Bahsettiğim olay,

Bazen aşağıdaki gibi geliyor veri durum böyle olunca veri alınmıyor.

1a
</span>
<hr>
IP Country:
7
Germany
c
<img src='

Bazen ise aşağıdaki gibi geliyor aşağıdaki gibi gelirse sorun yok veriyi yakalar ve gösterir.

<span style="word-break:break-all">
<hr>
IP Country: Turkey <img src='ip/world.small/tr.png' width='18' height='12' alt='country flag'>
<hr>
Country Code: TUR <img src='ip/world.small/tr.png' width='18' height='12' alt='country flag'>
<hr>

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sanırım daha tasarım tamamen bitmemiş kodlamasında değişmeler olabiliyor ilk gün <img src='ip/world.small/tr.png' width='18' height='12' alt='country flag'> bu kısımlar yoktu sızın kod paylastıgınızda yenıden kodlamaları değişmiş. sanırım farklı siteler üzerinden gitmek gerecek ör: ipinfo.io gibi.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:10 -->-> Daha önceki mesaj 19:09 --

Alıntı:

Alper Nickli Üyeden Alıntı (Mesaj 1042472495)

YouMyCure

02 Mayıs 2021 01:59

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1042470787)

Uzun süredir aynı çizgide devam eden site evrim geçirmiş. Bunu güncellemek gerek. (En kısa zamanda) ;idea

Çok Haklısın ! :)
ssl gerektirmez siteyi değiştirdim.

Kod:

on *:snotice:*Client connecting on port*:who +I $9

raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($4,¿,$6)

on *:sockopen:pro*:{ 

  sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/json?token=bdbdb82ae05b96) 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  $crlf 

}

on *:sockread:pro*:{ 

  var %:pro | sockread %:pro | tokenize 32 %:pro

  if region isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $remove($gettok(%:pro,2-,58),$chr(44),") }

  if city isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) City $remove($gettok(%:pro,2-,58),$chr(44),") }

  if country isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $remove($gettok(%:pro,2-,58),$chr(44),") }

  if "org isin %:pro { 

    var %:isp $remove($gettok(%:pro,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)

    echo -a Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp 

    .hfree -w %:n | sockclose $sockname

  } 

}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Redworm

02 Mayıs 2021 02:17

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1042481986)

Çok Haklısın ! :)
ssl gerektirmez siteyi değiştirdim.

Kod:

on *:snotice:*Client connecting on port*:who +I $9

raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($4,¿,$6)

on *:sockopen:pro*:{ 

  sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/json?token=bdbdb82ae05b96) 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  $crlf 

}

on *:sockread:pro*:{ 

  var %:pro | sockread %:pro | tokenize 32 %:pro

  if region isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $remove($gettok(%:pro,2-,58),$chr(44),") }

  if city isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) City $remove($gettok(%:pro,2-,58),$chr(44),") }

  if country isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $remove($gettok(%:pro,2-,58),$chr(44),") }

  if "org isin %:pro { 

    var %:isp $remove($gettok(%:pro,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)

    echo -a Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp 

    .hfree -w %:n | sockclose $sockname

  } 

}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Pardon siz carder misin/iz :)

YouMyCure

02 Mayıs 2021 02:19

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Redworm Nickli Üyeden Alıntı (Mesaj 1042481989)

Pardon siz carder misin/iz :)

estağfurullah, o bahsettiğiniz arkadaşların rank kısmında yazıyor, ben kullanıcıyım :)

Alper

02 Mayıs 2021 22:51

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Ek bilgi vereyim site hakkında normalde limit olan site

sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/json?token=bdbdb82ae05b96) HTTP/1.1

Kırmızı renk ile renklendirdiğim yeri kendi üyeliğiniz ile değiştirirseniz daha fazla sorgu yapabilirsiniz. Her ücretsiz üyeliğin aylık 50 bin sorgu hakkı var.

KatiLPence

03 Mayıs 2021 04:31

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Kodu remoteye ekledim ama çalışmadı.Siteden üyelikde aldım giriş yapan olunca pencere açıp bilgi vermiyor

YouMyCure

03 Mayıs 2021 10:05

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

KatiLPence Nickli Üyeden Alıntı (Mesaj 1042482479)

Kodu remoteye ekledim ama çalışmadı.Siteden üyelikde aldım giriş yapan olunca pencere açıp bilgi vermiyor

oper girmeniz gerekiyor

KatiLPence

06 Mayıs 2021 03:59

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1042482499)

oper girmeniz gerekiyor

Zaten oper girişim var sorun her nick sorgulamıyor.10 tanede 1 tanesinde bilgi geliyor.

YouMyCure

06 Mayıs 2021 07:55

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

KatiLPence Nickli Üyeden Alıntı (Mesaj 1042483850)

Zaten oper girişim var sorun her nick sorgulamıyor.10 tanede 1 tanesinde bilgi geliyor.

öyle bir durum söz konusu olması mümkün değil, sunucu adresinizi pm atın hatanın kaynağına beraber bakalım.

KatiLPence

07 Mayıs 2021 18:05

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1042483855)

öyle bir durum söz konusu olması mümkün değil, sunucu adresinizi pm atın hatanın kaynağına beraber bakalım.

Çok teşekkürler yardımların için eline sağlık güzel çalışıyor.Zamanını çaldım hakkını helal et

Zadrich

10 Mayıs 2021 06:54

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Merhaba @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Güncellediğiniz Kodlama Aktif şekilde güzel çalışmakta, Ellerinize sağlık
Lakin Türkçe karakter sorunu var. Bilginiz olsun.

Mahrez

13 Mayıs 2021 13:26

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Kod:

on ^*!:nick: {

  if $regex($usermode,o) { set %tkp. [ $+ [ $newnick ] ] 1 | who +I $newnick }

}
 

on *:start: {

  if $isfile(iptakip.63) { hmake iptakip | hload iptakip iptakip.63 }

}
 

#giriste on

;on *:snotice:*Client connecting on port*:who +I $9

on *:snotice:*: {

  if $regex($1-,/Client connecting (on port|at)/Si) { who +I $token($token($1-,1,40),-1,32) }

  elseif $regex($1-,/Sunucuya baglaniyor\.\.\. Baglanan\: (.+) \((.+)\@(.+)\) \- Port\: (.+)/Si) { who +I $regml(1) }

}

raw 352:*:var %:r $r(1000,99999) | sockopen -e $+(pro,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443 | sockmark $+(pro,%:r) $+($4,¿,$6)

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 

alias gtekrar { who +I $regml(1) }

on *:sockopen:pro*:{ 

  sockwrite -nt $sockname GET $+(/locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 

  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: close

  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8

  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:87.0) Gecko/20100101 Firefox/87.0

  sockwrite -nt $sockname $crlf

}

on *:sockread:pro*:{

  var %:pro

  sockread %:pro

  if $regex(u,%:pro,/IP Country\x3A\x20(\S+)\x20/Si) { .hadd -m $token($sock($sockname).mark,2,191) Ülke $iif($htmlfree($regml(u,1)) == $null,Belirsiz,$htmlfree($regml(u,1))) }

  if $regex(c,%:pro,/Town\x3A\x20(\S+)\x20/Si) { .hadd -m $token($sock($sockname).mark,2,191) Sehir $iif($htmlfree($regml(c,1)) == $null,Belirsiz,$htmlfree($regml(c,1))) }

  if $regex(i,%:pro,/ISP Provider\x3A\x20(.+)<hr>/Si) {

    var %:isp $iif($htmlfree($regml(i,1)) == $null,Belirsiz,$htmlfree($regml(i,1)))

    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)

    msg #MersinLi 14,1 Nick:0 %:n 1... 14IP:0 %ip 1... 14Ülke:0 %ülke 1... 14Şehir:0 %sehir 1... 14ISP:0 %:isp  2 $iif($hget(iptakip,%ip),Eski Giriş Bulundu:  $v1) 

    hadd -m iptakip %ip $addtok($hget(iptakip,%ip),%:n,32)

    hsave iptakip iptakip.63

    .hfree -sw %:n

    sockclose $sockname

  }

}

#giriste end

menu menubar {

  +> IP GIRIS

  ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on  }

  ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off  }

  ..Durum < $replace($group(#giriste).status, off, Kapalı, on, Açık) >:.

}
 

menu nicklist   {

  NickKontrol: if $regex($usermode,o) { set %tkp. [ $+ [ $1 ] ] 1 | who +I $$1 }

}

bendekide yansıtmıyor artık. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] üstad.

YouMyCure

13 Mayıs 2021 16:42

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Nea Nickli Üyeden Alıntı (Mesaj 1042487280)

Kod:

on ^*!:nick: {

  if $regex($usermode,o) { set %tkp. [ $+ [ $newnick ] ] 1 | who +I $newnick }

}
 

on *:start: {

  if $isfile(iptakip.63) { hmake iptakip | hload iptakip iptakip.63 }

}
 

#giriste on

;on *:snotice:*Client connecting on port*:who +I $9

on *:snotice:*: {

  if $regex($1-,/Client connecting (on port|at)/Si) { who +I $token($token($1-,1,40),-1,32) }

  elseif $regex($1-,/Sunucuya baglaniyor\.\.\. Baglanan\: (.+) \((.+)\@(.+)\) \- Port\: (.+)/Si) { who +I $regml(1) }

}

raw 352:*:var %:r $r(1000,99999) | sockopen -e $+(pro,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443 | sockmark $+(pro,%:r) $+($4,¿,$6)

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 

alias gtekrar { who +I $regml(1) }

on *:sockopen:pro*:{ 

  sockwrite -nt $sockname GET $+(/locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 

  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: close

  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8

  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:87.0) Gecko/20100101 Firefox/87.0

  sockwrite -nt $sockname $crlf

}

on *:sockread:pro*:{

  var %:pro

  sockread %:pro

  if $regex(u,%:pro,/IP Country\x3A\x20(\S+)\x20/Si) { .hadd -m $token($sock($sockname).mark,2,191) Ülke $iif($htmlfree($regml(u,1)) == $null,Belirsiz,$htmlfree($regml(u,1))) }

  if $regex(c,%:pro,/Town\x3A\x20(\S+)\x20/Si) { .hadd -m $token($sock($sockname).mark,2,191) Sehir $iif($htmlfree($regml(c,1)) == $null,Belirsiz,$htmlfree($regml(c,1))) }

  if $regex(i,%:pro,/ISP Provider\x3A\x20(.+)<hr>/Si) {

    var %:isp $iif($htmlfree($regml(i,1)) == $null,Belirsiz,$htmlfree($regml(i,1)))

    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)

    msg #MersinLi 14,1 Nick:0 %:n 1... 14IP:0 %ip 1... 14Ülke:0 %ülke 1... 14Şehir:0 %sehir 1... 14ISP:0 %:isp  2 $iif($hget(iptakip,%ip),Eski Giriş Bulundu:  $v1) 

    hadd -m iptakip %ip $addtok($hget(iptakip,%ip),%:n,32)

    hsave iptakip iptakip.63

    .hfree -sw %:n

    sockclose $sockname

  }

}

#giriste end

menu menubar {

  +> IP GIRIS

  ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on  }

  ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off  }

  ..Durum < $replace($group(#giriste).status, off, Kapalı, on, Açık) >:.

}
 

menu nicklist   {

  NickKontrol: if $regex($usermode,o) { set %tkp. [ $+ [ $1 ] ] 1 | who +I $$1 }

}

bendekide yansıtmıyor artık. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] üstad.

eski kodu kullanıyorsun bu posttakini kullanman gerek
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Justice

14 Mayıs 2021 19:30

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Hocam, "/s -n" kısaltma yazabilmek için mIRC'e ne eklememiz gerekir?

Gazeffer

30 Mayıs 2021 23:13

Cevap: Girişte Ülke/Şehir/İSP Gösterme

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] merhaba kodda türkçe karakter hatası var bilgin olsun yoksa işleyişinde sorun yok
şu sekilde örnek
GİRİS Nick:( Misafir1756 ) [»] IP: [»] Ulke: "TR", [»] Sehir: "Ä°zmir", [»] Firma: "AS207429 Kapteyan Bilisim Teknolojileri"

Che	30 Mayıs 2021 23:55

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Gazeffer Nickli Üyeden Alıntı (Mesaj 1042493660)

Hangi mirc sürümünü kullanıyorsunuz.

Gazeffer

30 Mayıs 2021 23:58

Cevap: Girişte Ülke/Şehir/İSP Gösterme

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] mIRC v6.35 kullanıyorum

Che	31 Mayıs 2021 00:05

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Bende kullanıyorum Sorun görünmüyor.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Gazeffer

31 Mayıs 2021 00:07

Cevap: Girişte Ülke/Şehir/İSP Gösterme

exe degişeyim genede bir deniyeyim bende @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

YouMyCure

31 Mayıs 2021 07:02

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Gazeffer Nickli Üyeden Alıntı (Mesaj 1042493660)

Alıntı:

Gazeffer Nickli Üyeden Alıntı (Mesaj 1042493681)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] mIRC v6.35 kullanıyorum

kullanmış olduğun bilgisayar/vds türkçe karakter problemi oluşmuş sanırım çözüm olarak ufak bir kod ile halledebiliriz.

Kod:

alias _tr return $replace($1-,Ã–,ö,Ã‡,ç,Ä°,i,Ã¶,ö,Ã§,ç,Ã¼,ü,ÅŸ,ş,Ä±,ı,Å,ş,ÄŸ,ğ,Ãœ,ü,Ä,ğ,$chr(39),`)

on *:snotice:*Client connecting on port*:who +I $9

raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($4,¿,$6)

on *:sockopen:pro*:{ 

  sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/json?token=bdbdb82ae05b96) 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  $crlf 

}

on *:sockread:pro*:{ 

  var %:pro | sockread %:pro | tokenize 32 %:pro

  if region isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $remove($gettok(%:pro,2-,58),$chr(44),") }

  if city isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) City $remove($gettok(%:pro,2-,58),$chr(44),") }

  if country isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $remove($gettok(%:pro,2-,58),$chr(44),") }

  if "org isin %:pro { 

    var %:isp $remove($gettok(%:pro,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)

    echo -a Nick:4 $_tr(%:n) - IP:4 %ip - Ulke:4 $_tr(%ülke) - Sehir:4 $_tr(%sehir) - ISP:4 $_tr(%:isp) 

    .hfree -w %:n | sockclose $sockname

  } 

}

gibi düzenleyebilirsin.

Gazeffer

31 Mayıs 2021 15:03

Cevap: Girişte Ülke/Şehir/İSP Gösterme

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Ellerine saglik şimdi Sorun düzeldi tşkler

Zanay

05 Temmuz 2021 17:37

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Bro bunu #logs kanalına nasıl yansıtacağız.

#Nick ogz - IP: 88.***.252.*** - Ulke: TR - Sehir: Zonguldak Ere** - ISP: AS47331 TTNet A.S.

olarak herhangi bir yere yazıyor ve sadece bot üzerinden görülüyor.

Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1042481986)

Çok Haklısın ! :)
ssl gerektirmez siteyi değiştirdim.

Kod:

on *:snotice:*Client connecting on port*:who +I $9

raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($4,¿,$6)

on *:sockopen:pro*:{ 

  sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/json?token=bdbdb82ae05b96) 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  $crlf 

}

on *:sockread:pro*:{ 

  var %:pro | sockread %:pro | tokenize 32 %:pro

  if region isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $remove($gettok(%:pro,2-,58),$chr(44),") }

  if city isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) City $remove($gettok(%:pro,2-,58),$chr(44),") }

  if country isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $remove($gettok(%:pro,2-,58),$chr(44),") }

  if "org isin %:pro { 

    var %:isp $remove($gettok(%:pro,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)

    echo -a Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp 

    .hfree -w %:n | sockclose $sockname

  } 

}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Subzero

05 Temmuz 2021 18:10

Re: Girişte Ülke/Şehir/İSP Gösterme

Kod:

on *:snotice:*Client connecting on port*:who +I $9

raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($4,¿,$6)

on *:sockopen:pro*:{ 

  sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/json?token=bdbdb82ae05b96) 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  $crlf 

}

on *:sockread:pro*:{ 

  var %:pro | sockread %:pro | tokenize 32 %:pro

  if region isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $remove($gettok(%:pro,2-,58),$chr(44),") }

  if city isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) City $remove($gettok(%:pro,2-,58),$chr(44),") }

  if country isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $remove($gettok(%:pro,2-,58),$chr(44),") }

  if "org isin %:pro { 

    var %:isp $remove($gettok(%:pro,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 #logs Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp 

    .hfree -w %:n | sockclose $sockname

  } 

}

bunu denermisin. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Toprak

05 Temmuz 2021 18:19

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Kod güncellendi, ek olarak Mobile IP ve VPN sorgusu eklendi..

coolboy

05 Temmuz 2021 19:55

Cevap: Girişte Ülke/Şehir/İSP Gösterme

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sorgu sınırsızmı.

vioLeta

05 Temmuz 2021 20:22

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1042507335)

Kod güncellendi, ek olarak Mobile IP ve VPN sorgusu eklendi..

Eline sağlık:cokcool::seytani:;blush

NurSima

05 Temmuz 2021 20:43

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Emeğinize sağLık...

Toprak

05 Temmuz 2021 21:37

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

coolboy Nickli Üyeden Alıntı (Mesaj 1042507359)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sorgu sınırsızmı.

Sorgu sınırı yok yalnız, aşırı bir trafik fark edersek kısıtlama getirebiliriz :)

Zanay

06 Temmuz 2021 10:24

Cevap: Re: Girişte Ülke/Şehir/İSP Gösterme

Subzero çok teşekkür ederim. Süpersin çalışıyor. Buna Web Giriş - Mobil Giriş olarak ayrı bir kod eklenir mi ?

Alıntı:

Subzero Nickli Üyeden Alıntı (Mesaj 1042507333)

Kod:

on *:snotice:*Client connecting on port*:who +I $9

raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) ipinfo.io 80 | sockmark $+(pro,%:r) $+($4,¿,$6)

on *:sockopen:pro*:{ 

  sockwrite -n $sockname GET $+(/,$token($sock($sockname).mark,1,191),/json?token=bdbdb82ae05b96) 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  $crlf 

}

on *:sockread:pro*:{ 

  var %:pro | sockread %:pro | tokenize 32 %:pro

  if region isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Sehir $remove($gettok(%:pro,2-,58),$chr(44),") }

  if city isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) City $remove($gettok(%:pro,2-,58),$chr(44),") }

  if country isin %:pro { .hadd -m $token($sock($sockname).mark,2,191) Ülke $remove($gettok(%:pro,2-,58),$chr(44),") }

  if "org isin %:pro { 

    var %:isp $remove($gettok(%:pro,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 #logs Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp 

    .hfree -w %:n | sockclose $sockname

  } 

}

bunu denermisin. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Akabinde

01 Aralık 2021 18:11

Cevap: Girişte Ülke/Şehir/İSP Gösterme

BaşarıLar

POSOFxPOWER

10 Ocak 2022 17:27

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Hayirli gunler,
bu kod artik calismiyormu ?

Che	10 Ocak 2022 17:41

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

POSOFxPOWER Nickli Üyeden Alıntı (Mesaj 1042595123)

Hayirli gunler,
bu kod artik calismiyormu ?

Erişime kısıtlandığı için çalışmaz.

Zanay

16 Şubat 2022 11:30

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Che Nickli Üyeden Alıntı (Mesaj 1042595129)

Erişime kısıtlandığı için çalışmaz.

Che merhabalar;

Özel mesaj atamıyorum. Erişim kısıtlandı demişsin, konuyla ilgili yardımcı olur musun?

Toprak

19 Ağustos 2022 10:59

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Kod:

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \((.+)@(.+)\)/Si) { who +I $regml(2) }

raw 352:*:var %_rand $+($6,$r(1000,99999)) | sockopen $+(giris_bildiri,%_rand) cesuryurek.net 80 | sockmark $+(giris_bildiri,%_rand) $+($4,¿,$6)

on *:sockopen:giris_bildiri*:{  

  if ($sockerr) { sockclose $sockname }

  else {

    sockwrite -nt $sockname GET $+(/bilgi5.php?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1

    sockwrite -nt $sockname Host: $sock($sockname).addr

    sockwrite -nt $sockname Connection: keep-alive

    sockwrite -nt $sockname Cache-Control: max-age=0

    sockwrite -nt $sockname Upgrade-Insecure-Requests: 1

    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36

    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9

    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7

    sockwrite -nt $sockname $crlf  

  } 

}

on *:sockread:giris_bildiri*:{  

  var %tr | sockread %tr | tokenize 32 %tr

  if $regex($1-,/<span>Country:</span> <span>(.+)</span>/i) { .hadd -msu7 Ulke $sockname $regml(1) }

  elseif $regex($1-,/<span>City:</span> <span>(.+)</span>/i) { .hadd -msu7 Sehir $sockname $regml(1) }

  elseif $regex($1-,/<span>ISP:</span> <span>(.+)</span>/i) { .hadd -msu7 ISP $sockname $regml(1) }

  elseif $regex($1-,/<span>Mobile:</span> <span>(.+)</span>/i) { .hadd -msu7 Mobile $sockname $iif($regml(1) == true,Evet,Hayır) }

  elseif $regex($1-,/<span>Proxy:</span> <span>(.+)</span>/i) { 

    $iif(!$window(@Giris),window -e @Giris)

    .echo @Giris 4Nick: $token($sock($sockname).mark,2,191) 4IP: $token($sock($sockname).mark,1,191) 4Ulke: $iif($hget(Ulke,$sockname),$v1,Belirsiz) 4Sehir: $iif($hget(Sehir,$sockname),$v1,Belirsiz) 4ISP: $iif($hget(ISP,$sockname),$v1,Belirsiz) 4Mobile IP: $hget(Mobile,$sockname) 4VPN: $iif($regml(1) == true,Evet,Hayır)

    sockclose $sockname

  }

}

Kod güncellendi.

High	01 Eylül 2022 12:46

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Toprak, gayet güzel çalışıyor KOD bu koda hotlink ekleyebilir misin? boş vaktin olduğun da daha kullanışlı olur benzer Kodlar vardı ama çalışmıyor.

Tunne

10 Ekim 2022 22:41

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1041617269)

Merhaba,
Giriş yapan kişinin Ülke, Şehir, ISP, Mobil(IP), VPN olup olmadığı şeklinde @Giris penceresine yansıtır..
Kodu kullanabilmeniz için client girişini görebilmeniz gerekmektedir.

Kod:

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \((.+)@(.+)\)/Si) { who +I $regml(2) }

raw 352:*:var %_rand $+($6,$r(1000,99999)) | sockopen $+(giris_bildiri,%_rand) igs.gevezeyiz.net 80 | sockmark $+(giris_bildiri,%_rand) $+($4,¿,$6)

on *:sockopen:giris_bildiri*:{  

  if ($sockerr) { sockclose $sockname }

  else {

    sockwrite -nt $sockname GET $+(/bilgi.php?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1

    sockwrite -nt $sockname Host: $sock($sockname).addr

    sockwrite -nt $sockname Connection: keep-alive

    sockwrite -nt $sockname Cache-Control: max-age=0

    sockwrite -nt $sockname Upgrade-Insecure-Requests: 1

    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36

    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9

    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7

    sockwrite -nt $sockname $crlf  

  } 

}

on *:sockread:giris_bildiri*:{  

  var %tr | sockread %tr | tokenize 32 %tr

  if $regex($1-,/<span>Country:</span> <span>(.+)</span>/i) { .hadd -msu7 Ulke $sockname $regml(1) }

  elseif $regex($1-,/<span>City:</span> <span>(.+)</span>/i) { .hadd -msu7 Sehir $sockname $regml(1) }

  elseif $regex($1-,/<span>ISP:</span> <span>(.+)</span>/i) { .hadd -msu7 ISP $sockname $regml(1) }

  elseif $regex($1-,/<span>Mobile:</span> <span>(.+)</span>/i) { .hadd -msu7 Mobile $sockname $iif($regml(1) == true,Evet,Hayır) }

  elseif $regex($1-,/<span>Proxy:</span> <span>(.+)</span>/i) { 

    $iif(!$window(@Giris),window -e @Giris)

    .echo @Giris 4Nick: $token($sock($sockname).mark,2,191) 4IP: $token($sock($sockname).mark,1,191) 4Ulke: $iif($hget(Ulke,$sockname),$v1,Belirsiz) 4Sehir: $iif($hget(Sehir,$sockname),$v1,Belirsiz) 4ISP: $iif($hget(ISP,$sockname),$v1,Belirsiz) 4Mobile IP: $hget(Mobile,$sockname) 4VPN: $iif($regml(1) == true,Evet,Hayır)

    sockclose $sockname

  }

}

Kod güncellendi..

oncelıkle emegınıze saglık bu kod ıcın. bunu mırce txt ata bılıyormuyuz ıslevı varmı. Bıde gırıs clıent gormek nasıl oalcak tsk ederım.

Bozkurt-

11 Ekim 2022 13:38

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Tunne Nickli Üyeden Alıntı (Mesaj 1042725496)

oncelıkle emegınıze saglık bu kod ıcın. bunu mırce txt ata bılıyormuyuz ıslevı varmı. Bıde gırıs clıent gormek nasıl oalcak tsk ederım.

Kopyaladığınız kodu txt atarsanız mirce tanıtmanız gerekir. /load -rs belgeadi.txt şeklinde ya da direkt mircinizde alt R kombinasyonu ile remoteler bölümüne kodu yapıştırabilirsiniz. Giriş bildirimlerini görmek için en az oper yetkisine sahip olmanız lazım. Mevcut kopyaladığınız koddaki site erişim kısıtlaması uyguladığı için site sahibinden ip adresinize giriş izni tanımlaması isteyebilirsiniz. Ya da son güncelleme ile eklenen kodu kullanabilirsiniz.

DeLiKanLl

24 Aralık 2022 17:28

Cevap: Girişte Ülke/Şehir/İSP Gösterme

4Nick: User 4IP: 88.242.240.90 4Ulke: Turkey 4Sehir: KÃ„Â±rÃ„Â±kkale 4ISP: TurkTelecom 4Mobile IP: Hayır 4VPN: Hayır
4Nick: User 4IP: 88.242.240.90 4Ulke: Turkey 4Sehir: KÃ„Â±rÃ„Â±kkale 4ISP: TurkTelecom 4Mobile IP: Hayır 4VPN: Hayır

Selamlar.
Kodu ekledim çalışıyor. Fakat giriş yapanı iki kez gösteriyor. Birde şehir kısmında karaktelrer bozuk çıkıyor. Düzeltilebilir mi ??

Bozkurt-

24 Aralık 2022 18:25

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

DeLiKanLl Nickli Üyeden Alıntı (Mesaj 1042760301)

Kod:

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \((.+)@(.+)\)/Si) { who +I $regml(2) }

raw 352:*:var %_rand $+($6,$r(1000,99999)) | sockopen $+(giris_bildiri,%_rand) cesuryurek.net 80 | sockmark $+(giris_bildiri,%_rand) $+($4,¿,$6)

on *:sockopen:giris_bildiri*:{  

  if ($sockerr) { sockclose $sockname }

  else {

    sockwrite -nt $sockname GET $+(/bilgi5.php?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1

    sockwrite -nt $sockname Host: $sock($sockname).addr

    sockwrite -nt $sockname Connection: keep-alive

    sockwrite -nt $sockname Cache-Control: max-age=0

    sockwrite -nt $sockname Upgrade-Insecure-Requests: 1

    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36

    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9

    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7

    sockwrite -nt $sockname $crlf  

  } 

}

on *:sockread:giris_bildiri*:{  

  var %tr | sockread %tr | tokenize 32 %tr

  if $regex($1-,/<span>Country:</span> <span>(.+)</span>/i) { .hadd -msu7 Ulke $sockname $regml(1) }

  elseif $regex($1-,/<span>City:</span> <span>(.+)</span>/i) { .hadd -msu7 Sehir $sockname $_tr($regml(1)) }

  elseif $regex($1-,/<span>ISP:</span> <span>(.+)</span>/i) { .hadd -msu7 ISP $sockname $regml(1) }

  elseif $regex($1-,/<span>Mobile:</span> <span>(.+)</span>/i) { .hadd -msu7 Mobile $sockname $iif($regml(1) == true,Evet,Hayır) }

  elseif $regex($1-,/<span>Proxy:</span> <span>(.+)</span>/i) { 

    $iif(!$window(@Giris),window -e @Giris)

    .echo @Giris 4Nick: $token($sock($sockname).mark,2,191) 4IP: $token($sock($sockname).mark,1,191) 4Ulke: $iif($hget(Ulke,$sockname),$v1,Belirsiz) 4Sehir: $iif($hget(Sehir,$sockname),$v1,Belirsiz) 4ISP: $iif($hget(ISP,$sockname),$v1,Belirsiz) 4Mobile IP: $hget(Mobile,$sockname) 4VPN: $iif($regml(1) == true,Evet,Hayır)

    sockclose $sockname

  }

}

alias _tr return $replace($1-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ã–,Ö,Ã¼,ü,ÅŸ,Ş,ÄŸ,ğ,Ã§,ç,Ä±,ı,Ã¶,ö,Ğ±,ı,Ğ°,İ,Ã‡,Ç,Å,Ş,ĞŸ,ğ,Ã¢,,Â,)

Girişte who çeken başka bir remoteniz varsa ondan iki kez gösteriyordur türkçe karakter için ufak bir düzenleme yaptım sorunsuz çalışıyor.

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:06.

Sayfa 3 Toplam 4 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster