@SReject Hello SReject can u help me with these code ???
on $*:SNOTICE:/client connecting .*?@([a-z\-\d.]+)/i:{
var %addr = $regml(1)
if ($regex(%addr,^\d\d?\d?\.\d\d?\d?\.\d\d?\d?\.\d\d?\d?$/i)) {
.dns $PAddr(%addr,1)
hadd -m ProxyCheck $PAddr(%addr,1) Check 1 %addr
}
else {
hadd -m ProxyCheck %addr GetIP
.dns %addr
}
}
on *:DNS:{
if ($hget(ProxyCheck,$dns(0).addr)) {
var %hash = $v1, %cnt, %addr, %ip, %zone, %naddr, %msg
hdel ProxyCheck $dns(0).addr
if (Check * iswm %hash) {
%cnt = $gettok($v2,2,32)
%addr = $gettok($v2,3,32)
%IP = $RevIP($gettok($dns(0).addr,1-4,32))
%zone = $gettok($dns(0).addr,5-,32)
if ($iaddress) {
%msg = Your ip, %ip $+ , has been found in the DNSBL of %zone
gline %addr %msg
gline %ip %msg
}
elseif (%cnt < $numtok($BList,32)) {
%naddr = $PAddr(%IP,$calc(%cnt +1))
hadd -m ProxyCheck %naddr Check $calc(%Cnt +1) %addr
.dns %naddr
}
}
elseif (%hash == GetIP) && ($dns(1).ip) {
%addr = $PNext($v1,1)
.dns %addr
hadd -m ProxyCheck %addr Check 1 $dns(0).addr
}
halt
}
}
alias -l PAddr return $Revip($$1) $+ . $+ $$gettok($BList,$$2,32)
alias -l Revip {
tokenize 46 $1
return $+($4, ., $3, ., $2, ., $1)
}
alias -l BList {
return $&
.dronebl $&
.proxybl $&
.rbl.efnet.org $&
.dnsbl.ahbl.org $&
.dnsbl.rizon.net $&
.dnsbl.swiftbl.org
}
Drone connect:
-
*** Notice -- Client connecting on port 6667: Clonex-kzymlssq (clonex@ool-44c5b8d8.dyn.optonline.net) [clients]
-
* Dns resolving:
ool-44c5b8d8.dyn.optonline.net
-
*** G:Line added for *@68.197.184.216 on Sun Jul 24 19:42:59 2011 GMT (from Security to expire at Wed Aug 17 12:00:35 2011 GMT: :DNSBL listed. Check www.ircnet.com/cgi-bin/bl.cgi?ip=68.197.184.216 for removal.)
-
These code doesnt work for me
PS : Security is a bot (bopm)