Perl/Linux Brontox Remover

08Mar06

Here is a simple perl/linux (should work on cygwin) script to wipe out Brontox from your flash disk.

#!/usr/bin/perl

$brontoxMD5 = '9f472b33711035a5174f4f7f2ea5398f';

$deleted = 0;
foreach (`find -name '*exe'`) {
. . chomp;
. . @path = split /\//;
. . $path[-2] =~ s/[[]()+*]/$1/g;
. . if ($path[-1] =~ /^$path[-2]/) {
. . . . if (`md5sum '$_' | cut -d" " -f1` == $brontoxMD5) {
. . . . . . print "Removing: $_n";
. . . . . . `rm '$_'`;
. . . . . . $deleted++;
. . . . }
. . }
}

print "$deleted files removed\n";

Don’t mind the dots, I cant post ‘whitespaces’ to WordPress. It’s just there for the sake of code indentation.

Run the code at the root directory of your brontox-infected flash-disk.

Filed under: Internet   |  12 Comments