Envoi de mot passe par mail encrypté
Bonjour,
J'ai un script perl qui envoi les mots de passe modifié par mail. Je viens de me faire remonter les bretelles : ce genre de script n'était pas sécurisé car le mail envoyé n'est pas chiffré. Je viens donc de faire des test pour chiffrer le mail et j'ai écrit ceci :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| #!/usr/bin/perl
use warnings;
use strict;
use MIME::Lite;
use MIME::Base64;
#Faire le message a encrypté
my $data = encode_base64("Mon message encrytpé\n");
my $msg = MIME::Lite-> new (
From =>'bot@acme.org',
To =>'user@acme.org',
Subject =>'Test mail',
Data => $data, 'Content-Transfer-Encoding' => 'base64');
$msg->attr('Content-Disposition' => 'attachment');
$msg->attr('Content-Disposition.filename' => 'smime.p7m');
$msg->attr('Content-Type' => 'application/x-pkcs7-mime');
$msg->attr('Content-Type.smime-type' => 'enveloped-data');
$msg->attr('Content-Type.name' => 'smime.p7m');
$msg-> send(); |
Ce que je reçoit n'est pas mal mais j'ai un message d'erreur au prompt :
Code:
1
2
3
| Explicitly setting a MIME header field (content-transfer-encoding) is dangerous:
use the attr() method instead.
at ./test_mail.pl line 11 |
C'est la ligne 11 c'est celle qui commence par my $msg.
D’où 2 questions : utilises-je bien la bonne manière pour pseudo encoder mon message? Que veux dire ce type de message après l’exécution du script?
Ceci dit je reçoit bien les mail envoyé.
Merci de votre aide.
