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

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)
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.[COLOR="Silver"]

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.


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk