DNSBL Proxy Koruma

mirc proxy koruma, mirc proxy koruma addonu, proxy koruma, proxy koruma addonu

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

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

}