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. Ü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