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

>
+
Etiketlenen Kullanıcılar

8Beğeni(ler)
  • 3 Post By Bozkurt-
  • 1 Post By SNOOPY
  • 1 Post By Bozkurt-
  • 1 Post By Dolores
  • 1 Post By Che
  • 1 Post By Bozkurt-

 
 
LinkBack Seçenekler Arama Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 14 Eylül 2022, 21:00   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Sunucuya giren kullanıcının ip puanını sorgulama.




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu * { • IP Risk Sorgulama .Aç:/enable #iprisk | echo -a IP Risk Sorgulama Sistemi Açıldı .Kapat:/disable #iprisk | echo -a IP Risk Sorgulama Sistemi Kapatıldı ..Durum < $replace($group(#iprisk).status, off, Kapalı, on, Açık) >:. } #iprisk on raw 352:*:{ haltdef risksorgu $4 } on *:snotice:*:{ if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) { var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5) ;- Muaf port ekleme. if $istok(portburaya portburaya1,%_port,32) { return } ;- Muaf nick ekleme elseif $istok(nickburaya nickburaya1,%_nick,32) { return } ;- Muaf ident ekleme elseif $istok(ident ident1 ident2,%_ident,32) { return } ;- Muaf IP ekleme elseif $istok(ipburaya ipburaya1,%_ip,32 ) { return } who +I %_nick if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu } | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu 13----- Risk Sorgu Başlangıcı ----- if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu } | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu 2Nick: 4 %_nick } } alias risksorgu sockopen -e $+(nrd-,$1) scamalytics.com 443 on *:sockopen:nrd-*: { var %s sockwrite -tn $sockname %s GET $+(/ip/,$gettok($sockname,-1,$asc(-))) HTTP/1.1 %s Host: scamalytics.com %s User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:104.0) Gecko/20100101 Firefox/104.0 %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,*/*;q=0.8 %s Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3 %s Alt-Used: scamalytics.com %s Connection: close %s $crlf } on *:sockread:nrd-*:{ :d | sockread -f %d if ($sockbr == 0) return if *"ip":* iswm %d { if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu } | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu 2IP:4 $_ceviri($remove($gettok(%d,2-,58),$chr(44),"))) -(Uzaklaştırmak İstiyorsanız İP adresi üzerine tıklayınız.) } if *"score":* iswm %d { if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu } | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu 2Puan:4 $_ceviri($remove($gettok(%d,2-,58),$chr(44),"))) - (0-100 Arası Puanlanmaktadır.) } if *"risk":* iswm %d { if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu } | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu 2Risk:4 $_ceviri($remove($gettok(%d,2-,58),$chr(44),"))) } if *"risk":* iswm %d { if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu } | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu 13----- Risk Sorgu Sonu ----- } goto d } alias _ceviri return $replace($1-,low,Düşük,Medium,Orta,High,Yüksek,Very,Çok) on $^*:hotlink:/\d+\.\d+\.\d+\.\d+/S:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu: return $true on *:hotlink:*:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Sorgu: gzline $+(*@,$1) :4Riskli IP Girişi Tespit Edilmiştir. #iprisk End


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Merhabalar;
Kodun amacı sunucuya giren kullanıcıların ip puanlarını sorgulamaktır. 0 ile 100 arası bir puanlama var. Risk grubuna göre puan veriliyor.
Bu kod sayesinde giren kullanıcıların risk grubunu ölçebilir. Takip altında tutabilir. Dilerseniz hotlink sayesinde sunucuya girer girmez ip adresine tıklayarak uzaklaştırabilirsiniz.

Keyifli paylaşımlar.

__________________
Kahpeliğin bahanesi, İhanetin telafisi olmaz.
 
Alıntı ile Cevapla

 


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Sunucuya Giren Nereden? Bozkurt- mIRC Parça Kodlar 0 21 Mayıs 2022 19:15
Sunucuya giren yasaklı ipleri atmak XDie mIRC Scripting Sorunları 1 31 Temmuz 2012 16:05
sunucuya giren ipi sitede sorgulatma (tcl istek ) cashmare Eggdrop, NeoStats, BNC 7 11 Ağustos 2011 22:57
Sunucuya giren 1254. Kisisiniz AyazGeceLer mIRC Scripting Sorunları 7 02 Haziran 2009 13:25
Sunucuya Giren IP'yi Tekrar Girisinde Banlamak TragediE mIRC Scripting Sorunları 5 03 Şubat 2009 22:45