on *:TEXT:!trojanscan*:#:{
alias trojan
.unset %virus
msg $chan 4Starting the scan on $2
var %i = 1
while (%i <= $nick($1,0) ) {
if ($right($nick($1, %i),1) isnum 0-9) {
if ($left($right($nick($1, %i),2),1) isnum 0-9 ) {
if ($me !isop $chan) {
if (%virus) { .inc %virus }
if (!%virus) { .set %virus 1 }
msg $chan 4Trojan found on $1 ( $+ $nick($1, %i) $+ )
}
if ($me isop $chan) {
if (!%tro) { .set %tro 1 }
if (%tro) { .inc %tro }
.ban -u60 $chan $nick($1, %i) 1
.kick # $nick($1, %i) 4Possible trojan client - nr. %tro
if (%virus) { .inc %virus }
if (!%virus) { .set %virus 1 }
msg $chan 4Trojan found on $1 ( $+ $nick($1, %i) $+ )
}
}
}
inc %i
}
if (!%virus) { .set %virus 0 }
msg $chan 4Found ( $+ %virus $+ )
msg $chan 4End of scan
}