IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 13 Sayfadan 1 234567811 SonSayfa »
Konuya ait 40 Mesajı başka Sayfada göster

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)

Toprak 17 Şubat 2015 15:44
Girişte Ülke/Şehir/İSP Gösterme
 
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:
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..

Feragat 17 Şubat 2015 18:07
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Güzel olmuş. Emeklerine sağlık.

mercenary 17 Şubat 2015 18:46
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Teşekkürler toprak yalnız bende iki sefer gösteriyor.
Nick:4 sheqerr - IP:4 88.249.208.73 - Ulke:4 Turkey - Sehir:4 Istanbul - ISP:4 Turk Telekom
Nick:4 sheqerr - IP:4 88.249.208.73 - Ulke:4 Turkey - Sehir:4 Istanbul - ISP:4 Turk Telekom

Toprak 17 Şubat 2015 19:00
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
mercenary Nickli Üyeden Alıntı (Mesaj 1041617322)
Teşekkürler toprak yalnız bende iki sefer gösteriyor.
Nick:4 sheqerr - IP:4 88.249.208.73 - Ulke:4 Turkey - Sehir:4 Istanbul - ISP:4 Turk Telekom
Nick:4 sheqerr - IP:4 88.249.208.73 - Ulke:4 Turkey - Sehir:4 Istanbul - ISP:4 Turk Telekom
Sanırım mIRC'inizde başka bir kod daha var girişte who filan çeken.

Kod'daki bu kısmı kaldırın siz tamamdır..
Kod:
on *:snotice:*Client connecting on port*:who +I $9

eTheRciTy 18 Şubat 2015 22:50
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Peki bunu kanala yansıtmak için ne yapmamız gerekiyor @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Örnek #Şehir kanalına yansıtmak istiyorum.

Aytac 19 Şubat 2015 01:53
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
eTheRciTy Nickli Üyeden Alıntı (Mesaj 1041618143)
Peki bunu kanala yansıtmak için ne yapmamız gerekiyor @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Örnek #Şehir kanalına yansıtmak istiyorum.
Kod:
#giriste on
on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:pro*:{
  sockwrite -nt $sockname GET $+(/ip-address-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 Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  var %:pro | sockread -f %:pro
  if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (ISP Provider: isin %:pro) {
    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
    msg #Şehir Nick:2 %:n - IP:2 %ip - Ulke:2 %ülke - Sehir:2 %sehir - ISP:2 %:isp
    .hfree -sw %:n
    sockclose $sockname
  }
}
#giriste end
menu menubar {
  +> IP GIRIS
  ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on  }
  ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off  }
  ..Durum < $replace($group(#giriste).status, off, Kapalı, on, Açık) >:.
}

POSOFxPOWER 20 Şubat 2015 03:01
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Guzel Kod yazmisin Toprak
ama CR3.5 te calismiyor. bu sekilde hata veriyor

01:56] -> Server: 315:*:halt
-
[01:56] -> Server: 352:*:{
-
+I End of /WHO list.
-
( 315:*:halt ) Yanlis Komut Kullandiniz..
( 352:*:{ ) Yanlis Komut Kullandiniz..

statuste connect bu sekilde gozukuyir
[01:57] -iRC.network.CoM- *** Notice -- Client connecting on 5.5.5.5:6667 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] client

Toprak 20 Şubat 2015 14:29
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
POSOFxPOWER Nickli Üyeden Alıntı (Mesaj 1041618732)
Guzel Kod yazmisin Toprak
ama CR3.5 te calismiyor. bu sekilde hata veriyor

01:56] -> Server: 315:*:halt
-
[01:56] -> Server: 352:*:{
-
+I End of /WHO list.
-
( 315:*:halt ) Yanlis Komut Kullandiniz..
( 352:*:{ ) Yanlis Komut Kullandiniz..

statuste connect bu sekilde gozukuyir
[01:57] -iRC.network.CoM- *** Notice -- Client connecting on 5.5.5.5:6667 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] client


CR'de hiç bulunmadım ama mantık şu kullanıcı girişte who +I Nick komutunu uyguluyor ve 352.' rawda ip adresini alıp socks açıyor..

oSmanLi 16 Mart 2015 16:39
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
güzeL çalışma olmus

[RaNGeR] 19 Mart 2015 00:16
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Hocam Emeklerine Sağlık Kod Harika Bir Şekilde Çalışıyor Ellerine Sağlık Hocam.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 05:38.
Sayfa 1 Toplam 13 Sayfadan 1 234567811 SonSayfa »
Konuya ait 40 Mesajı başka Sayfada göster

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