mIRC DNSBL Proxy Koruma

Aytac

Developer
Yönetici
Developer
Katılım
4 Şub 2020
Mesajlar
373
Tepkime puanı
17
Puanları
18
Konum
ircland
Web sitesi
www.ircalem.net
Kod:
menu menubar,channel {
  +> Proxy Koruma
  ..Aç:!if $group(#Proxys).status = on { echo 4 -tgae Proxy Korumasi Zaten AÇIK } | else { /.enable #Proxys | echo 4 -tgae Proxy Korumasi AÇILDI | set %proxys on  }
  ..Kapat:!if $group(#Proxys).status = off { echo 4 -tgae Proxy Korumasi Zaten KAPALI } | else { /.disable #Proxys | echo 4 -tgae Proxy Korumasi KAPATILDI | set %proxys off  }
  ..Durum < $replace($group(#Proxys).status, off, Kapali, on, Açik) >:.
}
 
#Proxys off
alias tara { 
  if ($1) { 
    var %pro1 $rand(1,99999999) 
    sockopen $+(pro5,%pro1,.,$2,.,$3) dronebl.org 80
    sockmark $+(pro5,%pro1,.,$2,.,$3) $1
  }
}
on *:sockopen:pro5*:{
  sockwrite -n $sockname GET /lookup.do?ip= $+ $sock($sockname).mark HTTP/1.1
  sockwrite -n $sockname Host: dronebl.org
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/53.0.2785.116 Safari/537.36
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 
  sockwrite -n $sockname $crlf
}
on *:sockread:pro5*:{
  var %xx [ $+ [ $sockname ] ]
  sockread %xx [ $+ [ $sockname ] ]
  if (*There have been listings for the host* iswm %xx [ $+ [ $sockname ] ]) {
    gzline $+(*@,$sock($sockname).mark) - 0,10 Proxy Banned
    if !$window(@DBSL-tor) { window -neg1 @DBSL-tor } | echo @DBSL-tor ( IP ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinden 4PROXY 1giriş tespit edilmiştir.
    halt   
  }
}
on *:snotice:*Client connecting on port*:who +I $9 
raw 352:*:{ 
  tara $4
}
 
#Proxys end
 
Üst