
	`About \| Buy Stuff \| News \| Products \| Rants \| Search \| Security`

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