Mail Archives: cygwin/1997/11/10/07:45:14
| Date: Sun, 9 Nov 1997 19:39:10 -0500
| From: Jason Parsons <root AT SAFFRONCS DOT COM>
| Subject: Re: Intel Pentium Bug
| To: BUGTRAQ AT NETSPACE DOT ORG
|
| Re the F0 0F C7 C8 Pentuim bug:
|
| I just wanted ot repost this from the Linux-security list. Thought it
| might be helpful to some here. This was posted to Linux-security by Sam
| Trenholme <set AT reality DOT samiam DOT org>.
|
| #!/usr/bin/perl
|
| # There is no known software fix to the F0 0F C7 C8 bug at this time
|
| # usage: finddeath dir
|
| # where dir is the directory you recursively look at all programs in
| # for instances of the F0 0F C7 C8 sequence
|
| # This script will search for programs with this sequence, which will
| # help sysadmins take appropriate action against those running such
| # programs
|
| # This script is written (but has not been tested) in Perl4, to
| # insure maximum compatibility
|
| sub findit {
| local($dir,$file,@files,$data) = @_;
|
| undef $/;
|
| if(!opendir(DIR,$dir)) {
| print STDERR "Can not open $dir: $!\n";
| return 0;
| }
|
| @files=readdir(DIR);
|
| foreach $file (@files) {
| if($file ne '.' && $file ne '..') {
| if( -f "$dir/$file" && open(FILE,"< $dir/$file")) {
| $data=<FILE>;
| if($data =~ /\xf0\x0f\xc7\xc8/) {
| print "$dir/$file contains F0 0F C7 C8\n";
| }
| } elsif( -d "$dir/$file") {
| &findit("$dir/$file");
| }
| }
| }
|
| }
|
| $dir = shift || '/home';
|
| &findit($dir);
_________________________________________
Martin Svenningsson - Helsingborg, SWEDEN
http://www.tripnet.se/~emmess/
Try the ultimate mIRC script, BML!iRC
-
For help on using this list (especially unsubscribing), send a message to
"gnu-win32-request AT cygnus DOT com" with one line of text: "help".
- Raw text -