[Mimedefang] Website listing spammed stocks

Martin Blapp mb at imp.ch
Mon Aug 6 23:06:12 EDT 2007


> Now if there were only some way to harness this.

What about this ?

wget http://www.qwoter.com/spam.php
cat spam.php | perl -e 'while (<STDIN>) {$_ =~ s/star-big-off.gif/\n/g; print 
$_;}' | perl -e 'while (<STDIN>) { if ($_ =~ /symbol=(.[^"]+)">(.[^<]+)/) {print 
$1 . " " . $2 . "\n";}}' | sort | uniq

You could even make SpamAssassin Rules with it.

Martin




More information about the MIMEDefang mailing list