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 :
Ce que je reçoit n'est pas mal mais j'ai un message d'erreur au prompt :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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();
C'est la ligne 11 c'est celle qui commence par my $msg.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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.
Partager