Re: Tuer le spam à la racine!

>En quoi l'utilisation de rbl_check dans spamassassin est désastreuse ?
C'est du simple vécu.
Essaye un filtrage avec et sans. Tu verra que seul le nombre de faux positifs diminue (je parle de la règle par défaut sans configuration particulière).

Cette règle au mieux ne sert à rien. L'utilisation de sorbs en particulier manque de finesse. Je ne parle même pas de contrôler les mails en sortie.

Brèf ça fait beaucoup de dns pour pas grand chose. Je me trompe peut-être mais c'est mon impression.

au fait tant que j'y suis j'ai pondu ça l'autre jour si y en a que ça intéresse


#!/usr/bin/perl -w

use strict;
use Net::DNS;

my $ip = $ARGV[0];
my $usage="Usage dnsblcheck ip";
die $usage unless($ip);

sub rev {
my $ip = shift;
my @tab = split(/\./,$ip);
@tab = reverse(@tab);
return join('.',@tab);
}

sub resolve {
my ($ip, $blacklist) = @_ ;
my $res = Net::DNS::Resolver->new;
my $qs = rev($ip);
$qs .= '.'.$blacklist;
my $query = $res->query("$qs","A");
if ($query) {
($query->answer)[0]->print;
$query = $res->query("$qs","TXT");
if ($query) {
($query->answer)[0]->print;
}
} else {
print "Pas dans $blacklist \n";
}
}
my @blacklists = qw/ list.dsbl.org
bl.spamcop.net
dynablock.easynet.nl
blackholes.easynet.nl
cbl.abuseat.org
dnsbl.sorbs.net
dnsbl.njabl.org
zen.spamhaus.org
spews.dnsbl.net.au
relays.ordb.org
proxies.blackholes.easynet.nl
dsbl.org /;
foreach(@blacklists){
resolve $ip, $_;
}