Bug ths Intel ..

[Jiannis Mitsos]

> Pentium MONO. (oxi se olous tous epeksergastes tis intel). Auto to lew,
> giati molis diabasa to e-mail, eutuxws, diabasa tin Bugtraq lista gia
> auto to bug. Alliws 0a eperna tilefwno na akyrwsw tin agora 4 Pentium-II 
> pou kanei to panepistimio. Pantws, se pentium-II to bug den yparxei.

Kala enta3ei exeis ontws dikio ... to problhma estiazetai stous e3hs 
epe3ergastes 
 
    - All Intel-socket7 processors are affected: Pentium, Pentium-MMX.
    - Cyrix (= IBM) processors fall for a closely similar prank, but
          that can be configured away. (Use set6x86 for this).
    - AMDs are immune to this. 
    - 486s, Pentium Pros and Pentium IIs don't fall for this.
    - I expect 386's to behave, Overdrive processors to fail. 

Kia epishs sas stelnw kai ena perl scriptaki to opoio "psaxnei" na dei an 
yparxoyn programmata se ena sub-dir me aythn thn klhsh .. ( to opoio to 
steilane sthn idia lista ) 
-------------- next part --------------

There is no known fix to the F0 0F C7 C8 bug at this time.  What can be
done, however, is run a program, such as the script after my signature, to
locate any and all such programs.  This script can be used in single
user mode after a mysterious lockup on a multiuser Pentium system.

I hope it is possible to come up with a software fix for this problem.

- Sam

"You can...turn sadness into laughter" -- Sunscreem, _Love_U_More_

#!/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, at 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);