Un po' di storia

Non provo neppure a spiegare cosa si intende con "spam" parlando di posta elettronica. Se non lo sapete, vuol dire che non avete usato la posta elettronica negli ultimi <troppi> anni, per cui questo articolo non vi interessa :-).

Ci sono svariati metodi per limitare la quantità di spazzatura che arriva nella nostra casella postale. Molti, tra cui SpamAssassin che è scritto in Perl ed è molto diffuso, analizzano il contenuto di ciascun messaggio, cercando di indovinare la probabilità che sia da cestinare; funzionano piuttosto bene, ma sono un po' pesanti dal punto di vista computazionale: finché avete un solo account di cui preoccuparvi, vanno bene, ma se dovete gestire un intero dominio, potrebbe essere il caso di aggiungere qualche altro sistema di filtraggio.

Un sistema che ha avuto discreta popolarità fino a non molto tempo fa è il black listing: si prendono delle liste di indirizzi IP considerati "inaffidabili", e si rifiutano tutti i messaggi provenienti da essi. Semplice, ma un po' troppo drastico, specialmente perché è molto più facile finire per sbaglio in una di quelle liste che farsi togliere.

Di recente è stato inventato il gray listing, come forma meno drastica del black listing: invece che rifiutare il messaggio, si segnala un errore temporaneo, e se il mittente riprova l'invio, si accetta. Il senso può non essere molto ovvio, per cui è bene spiegare meglio.

Un server di posta serio gestisce una coda di messaggi da inviare. Per ciascun messaggio in coda, tenta l'invio contattando il gestore posta responsabile per l'indirizzo del destinatario. Se tale gestore accetta il messaggio, bene, fine del lavoro. Se lo rifiuta, si può segnalare il problema al mittente. Ma, in alcuni casi, il gestore destinatario potrebbe essere non raggiungibile, o segnalare qualche errore temporaneo (ovvero che, nell'opinione del gestore destinatario, dovrebbe risolversi tra un po' tempo). In questi ultimi casi, il gestore mittente rimette il messaggio in coda, e ritenta l'invio dopo qualche tempo. Però (e qui sta tutto il "succo" del gray listing) molti spammer non usano gestori di posta seri, ma usano programmini specializzati nell'inviare il maggior numero possibile di messaggi nel minor tempo possibile. Questi sistemi non gestiscono una coda, per cui trattano un errore temporaneo come un errore permanente: ignorando il problema, e non ritentando l'invio.

Per cui, se il nostro gestore destinatario costringe ciascun mittente a tentare l'invio due volte, non accetterà mai messaggi da sistemi di invio stupidi, e eliminerà così la maggior parte dello spam. D'altra parte, se qualcuno ha un gestore posta serio che esce da un indirizzo "sospetto" secondo qualche black list, un sistema di gray listing accetterà i suoi messaggi (l'utilità di ciò è discutibile, ma almeno abbiamo la possibilità di scegliere come trattare ciascun caso).

Il contorno

Avendo di recente spostato il mio dominio su un server dedicato, mi sono trovato a dover configurare il server di posta elettronica (oltre a tutto il resto). Ho scelto netqmail, principalmente perché l'avevo già usato e quindi ho un'idea di come si configuri. Dopo aver notato la non trascurabile quantità di spam che entrava, mi sono messo a cercare un sistema di gray listing da incastrare nel server. Ne ho trovati parecchi, ma nessuno faceva proprio quel che volevo, per cui mi sono ispirato alle caratteristiche migliori di ciascuno, e ne ho scritto uno a modo mio (ah, il bello del software libero!).

Per incastrarlo dentro netqmail, ho usato il meccanismo detto qmail-spp, che permette di chiedere a qmail-smtpd di invocare un programma esterno in certe fasi del protocollo SMTP. In particolare, mi farebbe comodo agire con più informazioni possibile; siccome non voglio leggermi l'intero messaggio, mi limiterò a usare le informazioni presenti sulla "busta": indirizzo IP della macchina mittente, indirizzo di posta del mittente, e indirizzo di posta del destinatario.

A modo mio

Ma cos'è, esattamente, che voglio ottenere?

1. Gray listing sulla maggior parte dei messaggi
2. Se un server si dimostra capace di passare il gray listing e non compare in alcuna black list, viene aggiunto a una white list e non subirà più filtraggio

Detto così sembra anche semplice, ma come lo spieghiamo alla macchina? Questa è la subroutine principale del mio "graylister":

sub check {
   my ($host,$from,$to)=@_;

   remove_old_attempts();
   if (is_whitelisted($host)) {
       accept_message();return;
   }
   if (is_second_attempt($host,$from,$to)) {
       if (is_blacklisted($host)) {
           cleanup_attempt($host,$from,$to);
           accept_message();return;
       }
       else {
           add_to_whitelist($host);
           accept_message();return;
       }
   }
   record_first_attempt($host,$from,$to);
   reject_temporarily($from);
   return;
}

Andiamo riga per riga. La sub prende 3 parametri: l'indirizzo IP del server che sta cercando di mandarci un messaggio, l'indirizzo di posta da cui dice di provenire il messaggio, e l'indirizzo di posta a cui sarebbe destinato:

sub check {
   my ($host,$from,$to)=@_;

remove_old_attempts serve per tenere pulito il piccolo database che uso per tenere traccia dei tentativi di invio.

Se il server mittente è nella white list, accetto il messaggio e termino l'elaborazione:

if (is_whitelisted($host)) {
    accept_message();return;
}

Se è la seconda volta che ricevo lo stesso messaggio, e il server mittente sta in qualche black list, pulisco la traccia del tentativo e accetto il messaggio; se il server non sta in nessuna black list, lo considero definitivamente affidabile, e comunque accetto il messaggio:

if (is_second_attempt($host,$from,$to)) {
    if (is_blacklisted($host)) {
        cleanup_attempt($host,$from,$to);
        accept_message();return;
    }
    else {
        add_to_whitelist($host);
        accept_message();return;
    }
}

Se arrivo a questo punto, vuol dire che il messaggio è un primo tentativo da parte di un server non dichiarato affidabile: tengo traccia del tentativo, e segnalo errore temporaneo:

   record_first_attempt($host,$from,$to);
   reject_temporarily($from);
   return;
}

Come si vede, con un minimo di occhio allo stile, si può scrivere codice Perl chiaro e leggibile.

I dettagli

Ovviamente quella subroutine, da sola, non ha speranza di funzionare. Pur senza mostrare tutto il codice, è opportuno scendere un po' nei dettagli delle varie funzioni usate.

#!/usr/bin/perl
use DAKKAR::Graylister;

exit 0 unless (defined $ENV{GRAYLISTING}) and (!defined $ENV{RELAYCLIENT});

DAKKAR::Graylister::check(DAKKAR::Graylister::get_from_env());

#!/bin/bash

export PERL5LIB='/usr/local/graylist/lib/perl5:/usr/local/graylist/lib/perl5/x86_64-linux-thread-multi'

exec /usr/local/graylist/bin/dakkar-graylister