[Mimedefang] got my mojo working

Brent J. Nordquist b-nordquist at bethel.edu
Mon Feb 23 15:18:43 EST 2004


Some more thoughts:

On Mon, 23 Feb 2004, Dave Helton <dave at kd0yu.com> wrote:

>         if ($line =~ /[Mm][Ee][Dd][Ss]/) {$subscore += 6};
>         if ($line =~ /[Pp][Ii][Ll][Ll][Ss]/) {$subscore += 6};
>         $line =~ s/@/a/g; 
>         $line =~ s/1/i/g;

Also 6 for g, | and ! for i, and all the same characters for l as for i.  
Those are what I've seen here.  Why are you doing the substitution after
the checks for "meds" and "pills" (won't find p1lls for example)?

You might think about accented versions of the vowels which I'm starting 
to see also.

Other words to consider flagging:  "pharmacy" "drugs"

>         if ($line =~ /[Vv][Ii][Aa][Gg][Rr][Aa]/) {$subscore += 3};

Couldn't you use /viagra/i (simpler) once you're to this point?

And then there are all the misspellings that are really common.  Here's 
just the latest few from my corpus:  "v?agra" "viegra" "VUiagra" (or any 
other extra letter thrown in) "viagrga" "vaiagra"  Once I saw "\/iagra".

And a whole bunch of misspellings like "viaggra" listed in antidrug.cf
mentioned here earlier today.  Discouraged yet?  :-)

-- 
Brent J. Nordquist <b-nordquist at bethel.edu> N0BJN
Other contact information: http://kepler.acns.bethel.edu/~bjn/contact.html



More information about the MIMEDefang mailing list