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

- 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)

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.

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)

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...]

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 :)

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 :)

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.

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

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

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.

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.