Perl Mail Anonyme

Alors aujourd’hui, nous allons voir comme il est simple de faire un mail anonyme au moyen du langage Perl et de quelques lignes de code.

Il faut savoir que les serveurs SMTP des fournisseurs d’accès ne font pas réellement de contrôle sur leurs serveurs SMTP. Il suffit assez souvent de mettre une adresse d’expéditeur en quelquechose@lefai.extension

Ex : toto@free.fr (si on est chez Free).

Voyons ce petit bout de code (ne t’inquiète pas toi qui n’aime pas la programmation, c’est vraiment pas compliqué 😉 )


#!/usr/bin/perl
For www.lestutosdenico.com
#############################

use Net::SMTP;

$leservsmtp="smtp.free.fr";
$from = "toto\@free.fr";
$to = "jesaispas\@anonymous.com";
$subject = "lestutosdenico";
$message = "Juste un test\n";

$smtp = Net::SMTP->new("$leservsmtp", Timeout => 120);
$smtp->mail("$from");
$smtp->to("$to");
$smtp->data();    #obligatoire (voir RFC 821)
$smtp->datasend("To: $to\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend("$message\n");
$smtp->dataend();
$smtp->quit();

Comme vous pouvez le voir, j’utilise le module NET:: SMTP qui est assez simple d’utilisation mais voici tout de même le lien CPAN permettant une explication approfondie : http://search.cpan.org/~gbarr/libnet-1.22/Net/SMTP.pm

Pour information, j’avais utilisé ce type de script afin de m’envoyer quotidiennement l’espace disque de machines d’un petit réseau récolté au moyen d’une implémentation WMI.

Comme il n’y avait pas de serveur SMTP interne, je ne me suis pas gêné 🙂

PS : Pas trop d’abus avec les mails anonymes (your ISP is Watching you).

6 Responses to "Perl Mail Anonyme"

Laissez un commentaire