Girişte Ülke/Şehir/İSP Gösterme - Sayfa 8 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

diE · 07 Nisan 2021, 02:15

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

SuLh · 07 Nisan 2021, 03:22

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

diE · 07 Nisan 2021, 03:31

@[Ü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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
töbeler olsun mirctemi sorun vardır nedir

SuLh · 07 Nisan 2021, 04:24

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

Beatle · 07 Nisan 2021, 13:08

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.

Sadullah · 07 Nisan 2021, 14:41

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ı ?

diE · 07 Nisan 2021, 16:02

SuLh Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

Zadrich · 09 Nisan 2021, 02:16

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

diE · 09 Nisan 2021, 14:45

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

  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

Alper · 09 Nisan 2021, 17:39

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>

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
ülke Şehir Yeni	Z-Lined	mIRC Scripting Hazır Kodlar	6	09 Aralık 2011 15:56
Ülke-Şehir Bulucu.	h4pp3n	mIRC Scripting Hazır Kodlar	24	01 Nisan 2011 11:36
28 ülke, 67 fotoğrafçı, tek şehir	pyracantha	Sinema Dünyası	0	30 Aralık 2010 18:59
Whois'de ülke gösterme Yardim Pls...	GamSe	Unreal IRCd	4	05 Şubat 2008 22:24

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.