Sunucuya giren kullanıcının risk durumunu sorgulama
Kod:
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. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu } | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu 13----- Risk Sorgu Başlangıcı -----
if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu } | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Ü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. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu } | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Ü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. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu } | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Ü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. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu } | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Ü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. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu } | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Ü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. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu: return $true
on *:hotlink:*:@[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
Sorgu: gzline $+(*@,$1) :4Riskli IP Girişi Tespit Edilmiştir.
#iprisk End
Sunucuya giren kullanıcının riskli olup olmadığını görebilmenizi sağlar. 0 risk yok 100 çok risklidir.Puan puan risk durumunu gösterir. Bu sayede kullanıcıları rahatlıkla takip edebilirsiniz. |
