[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