trojan scan - 09/11/11 07:38 PM
What do you think about the script? does it work?
Code:
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 }