Re: [SLUG] Sendmail SPAM mail filtering

From: Derek Glidden (dglidden@illusionary.com)
Date: Tue Mar 19 2002 - 11:34:27 EST


On Tue, 2002-03-19 at 09:33, Matt Miller wrote:
> Any recommendations on SPAM mail filters for a couple of Sendmail relays
> (other than the FEATURE(`dnsbl') Realtime Blackhole List)?

If it absolutely must be sendmail-based, look at milter.
(http://www.milter.org/). It's not strictly a SPAM filter, or anything
in particular, but lots of ways of using the new APIs in newest versions
of sendmail to do various sorts of filtering, including SPAM filtering.
It's all pretty raw at the moment, but looks very promising and can do
more than just SPAM filtering. It's kind of like getting procmail built
into sendmail.

If you can deal with piping everything through procmail, "Spam Assassin"
is probably the way to go. (http://spamassassin.taint.org/) It
combines keyword matching with Vipul's Razor to catch most SPAM. It
requires very new versions of Perl and all the associated modules
though, so unless you have a recently installed system, you can expect
lots of package installing and/or upgrading before you'll get it to
work, which is why I don't use it at the moment.

Vipul's Razor itself (http://razor.sourceforge.net/) and Junkfilter
(http://junkfilter.zer0.org/) are other procmail-based SPAM filters that
can be used together to catch a lot of SPAM. I personally use a
combination of these two and catch about 99% of the SPAM with an
extremely low false-positive ratio. (Perhaps 1 out of 1000 false
positives at most.)

-- 
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#!/usr/bin/perl -w
$_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map
{$_%16or$t^=$c^=($m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;
$t^=(72,@z=(64,72,$a^=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)
[$_%8]}(16..271);if((@a=unx"C*",$_)[20]&48){$h=5;$_=unxb24,join
"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$d=
unxV,xb25,$_;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=$t&($d
>>12^$d>>4^$d^$d/8))<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*
8^$q<<6))<<9,$_=$t[$_]^(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}
print+x"C*",@a}';s/x/pack+/g;eval 

usage: qrpff 153 2 8 105 225 < /mnt/dvd/VOB_FILENAME \ | extract_mpeg2 | mpeg2dec -

http://www.cs.cmu.edu/~dst/DeCSS/Gallery/ http://www.eff.org/ http://www.anti-dmca.org/



This archive was generated by hypermail 2.1.3 : Fri Aug 01 2014 - 18:21:27 EDT