#!/bin/nsperl
#
# Search the log files for Back Orifice and Netbus ports

open (FILEOUT,">trojan.log") || die "Can't open trojan.log: $!\n";
$oldfile = select(FILEOUT);

chomp($DATE=`date +%d%b%y`);
#print "Today's date is $DATE", ;   

$LOGFILE="$DATE.elog";
print "\nThis is the log file $LOGFILE\n\n";

open (FWLOG, "$LOGFILE")|| die "Can't open $LOGFILE: $!\n";
while(<FWLOG>){ 
  print "$_" if /\b12345\b/; 
  print "$_" if /\b12346\b/;
  print "$_" if /\b20034\b/;
  print "$_" if /\b8787\b/; 
  print "$_" if /\b31337\b/;
  print "$_" if /\b31338\b/;
  print "$_" if /\b54320\b/;
  print "$_" if /\b54321\b/;
}

close (FILEOUT);
close(FWLOG);