In case this helps anyone:
>>>>> Thus spake "Ionel Chila"
There is a quick perl script that can detect
the ramen worm. I also have the source code for
the worm if anyone interested.
Regards
#!/bin/perl
# Script that checks for signs of ramen infection
#
$detected = 0;
print "Ramen worm checker.\nChecking...\n";
open(F,"/etc/redhat-release") ;
print "You are running ",<F>,"\n";;
close(F);
@suspect = ("/usr/src/.poop", "/usr/src/.poop/ramen.tgz",
"/tmp/ramen.tgz");
foreach (@suspect)
if(-e) {
print "found $_\n";
$detected++;
}
}
open(N, "/bin/netstat -an|") or print "Could not open /bin/netstat\n";
while(<N>) {
if (/:27374.*LISTEN/) {
print "Ramen webserver detected on port 27374\n";
$detected++;
last;
}
}
close(N);
if ($detected) {
print "$detected telltale signs of ramen found. Get professional
help\n";
} else {
print "Wheee! No ramen signs found!\n";
}
Rusty Carruth Email: [EMAIL PROTECTED] or [EMAIL PROTECTED]
Voice: (480) 345-3621 SnailMail: Schlumberger ATE
FAX: (480) 345-8793 7855 S. River Parkway, Suite 116
Ham: N7IKQ @ 146.82+,pl 162.2 Tempe, AZ 85284-1825
ICBM: 33 20' 44"N 111 53' 47"W