use Socket;print "The following lamers were detected on your system: \n";while($line=<>) {if($line=~/(root.exe)|(cmd.exe)/) { @lame=split(/\s/,$line);print $lame[3]." ".$lame[0]." ("; @lamename=gethostbyaddr(inet_aton($lame[0]),AF_INET);print $lamename[0].")]\n"; } }
Il scanne un fichier log Apache donné en entrée standard
# Une alternative
Posté par Pierre Tramal (site web personnel) . En réponse à la dépêche Un script pour detecter un scan de Nimda. Évalué à 7.
use Socket;print "The following lamers were detected on your system: \n";while($line=<>) {if($line=~/(root.exe)|(cmd.exe)/) { @lame=split(/\s/,$line);print $lame[3]." ".$lame[0]." ("; @lamename=gethostbyaddr(inet_aton($lame[0]),AF_INET);print $lamename[0].")]\n"; } }
Il scanne un fichier log Apache donné en entrée standard