About | Buy Stuff | News | Products | Rants | Search | Security | Social
Home » Resources » Rants

The Perl SpamStopper Stopper!

Week of February 4, 2002
Submitted by Tom Liston of the Hackbusters.

The blind idiocy of the RAILhead 'designer' is coming more and more to light, only hours after the discussion was opened. (See here and here for further background.)

The following Perl application also beats the great Maury.

Subject: Re: Third Party OS X Software
   From: Tom Liston
   Date: Mon, 4 Feb 2002 09:52:37 -0600

Doh! Same program in perl...  (even the same dumb-ass redundant 
semi-colons).

#!/usr/bin/perl
while(<>){
    if(/(.*'mailto:\s*)(\S+)(\s*'.*)/i){
        print $1;
        @1 = unpack('C*', $2);
        while(@1){
            $c = shift(@1);
            print '&#$c;';
        }
        print $3;
    } else {
        print;
    }
}

269 bytes.

-TL

Related Articles
Third Party OS X Software
S3 The SpamStopper Stopper!
Third Party OS X Software - Comments

About | Buy | News | Products | Rants | Search | Security
Copyright © Radsoft. All rights reserved.