perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 17
Click for quality!




12.02.2012 / 00:01

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragMail::GPG
Seitenanfang
Hallo zusammen,

ich erstelle mit dem CPAN Modul:
http://search.cpan.org/~jred/Mail-GPG-1.0.6/lib/Mail/GPG.pm

eine GPG crypted Mail. Diese wird mir aber im Mime Output generiert, wie kann ich diesen nun per mail versenden?

So generiere ich:


my $mg = Mail::GPG->new ;
my $entity = MIME::Entity->build (
From => 'kuzio@mail.de',
To => 'kuzio@mail.de',
Subject => "Mail::GPG Testmail",
Data => [ "Hiho, a nice encrypted mail" ],
Encoding => "quoted-printable",
Charset => "iso-8859-1",
);

my $encrypted_entity = $mg->mime_encrypt (
entity => $entity,
key_id => '5D91292F',
recipients => [ 'mail@kuzio.de' ]);

my $mail_text = $encrypted_entity->as_string;

Folgender ouptut wirde generiert:

'MIME-Version: 1.0
X-Mailer: MIME-tools 5.420 (Entity 5.420)
From: kuzio@mail.de
To: kuzio@mail.de
Subject: Mail::GPG Testmail
Content-Type: multipart/encrypted;
boundary="----------=_1188321582-1063-0";
protocol="application/pgp-encrypted"

This is a multi-part message in MIME format...

------------=_1188321582-1063-0
Content-Type: application/pgp-encrypted
Content-Disposition: inline
Content-Transfer-Encoding: 7bit

Version: 1

------------=_1188321582-1063-0
Content-Type: application/octet-stream
Content-Disposition: inline
Content-Transfer-Encoding: 7bit

-----BEGIN PGP MESSAGE-----
Version: GnuPG v1.4.1 (GNU/Linux)

hQEOA62EkYpcu9vpEAQA0ScTuT4bjJXjVJPC3i3WFB1AXkbNsJYdb2rPGxJ81jO7
o8166dOjV8vU7h355HQ485lrhQXJx4dnSGRAYIUMpCw+L4My767Q6NB947psgdS2
W9C4/pBm9wYifL2BnwUtC+8ClqF7Y/8DCqqrsyG/Ppx9oh85LRWNKWOur4s1L30E
ALfTXsUyjdO9I4w5kuVApJkIKIIMbYiRwYSD0qgztxPG1M4ztMQof+u9f5eUBuam
PD8Tk/Ul8Z+w2SZkZkvk8i4eqEylHzG76cj2GArAreaBJ5Nm+Rot7nfdI1KpUoNL
1d1RPEzso8KXiD87BWKg6iJ6t56OHoFYQcknPOUaRb4M0rwBo/xjfmZnrgXFnFdy
YVAzwdKSi2c9OGFOdQI5LEb4Wn8i7LuDXqUC4HJ1avsXSNIB7sA13ExgYwYJ7VMy
cZGZINr06l8uKauLl7V/6km7iOk1UbZK1urRjZ7NcCFeJopZkIUhZUAdK3G2t/FL
q3m2hZ7sDybaCbcfLjKkjsfx2p698caJN0l08j22y80kUUKFml30A9e6WpWhZrSa
Ln5pGSHenEWBhOdIzc2QM5nVPI+P8Bgu0zcIptPuLw==
=udiA
-----END PGP MESSAGE-----

------------=_1188321582-1063-0--

Wie kann ich diesen jetzt per mail verschicken?

danke im voraus

Datum: 28.08.2007-19:06

Beitragre: Mail::GPG
Seitenanfang
Ich bin mir nicht sicher, ob es funktioniert, aber kannst Du es nicht, wie zB auch eine "einfache" Mail ueber eine pipe an sendmail schicken? Also etwa so:

open(SENDMAIL, "|/mein/pfad/zu/sendmail -t") or die "Fehler: $!";
print SENDMAIL $mail_text;
close(SENDMAIL);

Gruss,
mooze.

Datum: 30.08.2007-08:43

-






-
-