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

Bilmiyorum bi sende çalışıyor sanırım başka çalıştıran yok site değişmeden önce normal çalışıyordu sorun yoktu denemediğim yol kalmadı bakalım

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

Konuya farklı bi yerden yaklaşıp veriyi com objectlerle değerlendireyim dedim, kullanmak isteyen olursa diye buraya bırakıyorum.

Kod:

alias konum {

  var %qk $+(hop,$r(1,9999)),%address $+(https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
wscript.shell 

  .comclose %qk $com(%qk,run,1,bstr,cmd.exe /k $&

    powershell $+($chr(36),xx=new-object -COM Msxml2.ServerXMLHTTP.6.0;) $+($chr(36),xx.Open,$chr(40),'GET',$chr(44),',%address,',$chr(44),$false,$chr(41),;) $+($chr(36),xx.Send,$chr(40),$chr(41),;) $+($chr(36),xx.responseText) $&

    $+ |clip & exit,uint,0,bool,1)

  var %k 1 | while %k <= $cb(0) { if $cb(%k) {

      if $regex(u,$cb(%k),/IP Country\x3A\x20(\S+)\x20/Si) { .hadd -m %:n Ülke $iif($htmlfree($regml(u,1)) == $null,Belirsiz,$htmlfree($regml(u,1))) }

      if $regex(c,$cb(%k),/Town\x3A\x20(\S+)\x20/Si) { .hadd -m %:n Sehir $iif($htmlfree($regml(c,1)) == $null,Belirsiz,$htmlfree($regml(c,1))) }

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

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

        var %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)

        echo -st 2[ 4Giriş 2] *** Nick:4 %:n 3- IP:4 %ip 3- Ulke:4 %ülke 3- Sehir:4 %sehir 3- ISP:4 %:isp 3- Saat:4 $timestamp | clipboard

      }

    } 

    inc %k 

  }

}

/konum IP Nick

Kod:

/konum 176.55.***.*** Deneme

Kod:

[ Giriş ] *** Nick: Deneme - IP: 176.55.***.*** - Ulke: Turkey - Sehir: Istanbul - ISP: Vodafone Telekomunikasyon A.S. - Saat: [03:20:47]

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

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

[03:27] [ Giriş ] *** Nick: zz - IP: 88.xx.xxx.xx - Ulke: Belirsiz - Sehir: Belirsiz - ISP: Belirsiz - Saat: [03:27]
[03:28] [ Giriş ] *** Nick: zz - IP: 176.xx.xxx.xx - Ulke: Belirsiz - Sehir: Belirsiz - ISP: Belirsiz - Saat: [03:28]
[03:28] [ Giriş ] *** Nick: zz - IP: 176..xx.xxx.xx - Ulke: Belirsiz - Sehir: Belirsiz - ISP: Belirsiz - Saat: [03:28]
[03:29] [ Giriş ] *** Nick: zz - IP: 176.54.xxx.xx - Ulke: Belirsiz - Sehir: Belirsiz - ISP: Belirsiz - Saat: [03:29]

Çalışıyor ama hepsıne belırsız dıyor :) töbeler olsun mirctemi sorun vardır nedir

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

ilk postta paylaşılan htmlfree aliasi mevcut değilse, içeriği boş döndürüyordur. o aliasi remotenize ekleyin.

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.Bunları çözebilirmiyiz.

[ 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

ssl kurulu oldugu halde veri cekmiyor @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] knk senin yaptıdın konum calısıyor peki bu konumdan yola cıksak /konum yazmadan kendisi gosterse olmaz mı ?

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

Alıntı:

SuLh Nickli Üyeden Alıntı (Mesaj 1042471183)

ilk postta paylaşılan htmlfree aliasi mevcut değilse, içeriği boş döndürüyordur. o aliasi remotenize ekleyin.

evet haklısın onu ekleyınce sorunsuz calısıyor sanırım powershell'in oldugu yerlerde calısıyor vds/vps server 2003 gıbı makınalarda calısmıyor emegıne saglık

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

Belli version ve belli vds türlerinde çalışıyor gerisinde deaktif olarak hiç bir şekilde çalışmıyor.

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

Kod:

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 kod bu şekilde aktif olmuyor bende ssl olduğu halde

Kod:

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

bu kısmı deaktif edince çalışmaya başlıyor fakat ip nick harici ülke şehir ve ısp göstermiyor aynı şekilde bir önceki sayfalarda @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'inde paylaştığı koddada aynı sorun mevcut

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

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>