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

Akabinde · 01 Aralık 2021, 18:11

BaşarıLar

POSOFxPOWER · 10 Ocak 2022, 17:27

Hayirli gunler,
bu kod artik calismiyormu ?

Che · 10 Ocak 2022, 17:41

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

Hayirli gunler,
bu kod artik calismiyormu ?

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

Zanay · 16 Şubat 2022, 11:30

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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.

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

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.