S/MIME Mails versenden mit perl (Allgemeines zu Perl)

[thread]20345[/thread]

S/MIME Mails versenden mit perl

Tags: perl5 Similar Threads

Readers: 12

Articles: hide open all | hide show old branches

+6 replies
guest Arokh

2017-08-04 09:17
Hallo ,liebe Community.

Ich plage mich seit ein paar Tagen mit einem Problem rum. Es gelingt mir nicht, RFC-konforme mit S/MIME verschlüsselte Mails mit perl zu versenden.
Als Module verwende ich Crypt::SMIME und MIME::Lite.
Crpyt::SMIME macht aus der MIME-Mails folgenden S/MIME-Code:
Code: (dl )

1 2 3 4 5 6 7

MIME-Version: 1.0 Content-Disposition: attachment; filename="smime.p7m" Content-Type: application/pkcs7-mime; smime-type=enveloped-data; name="smime.p7m" Content-Transfer-Encoding: base64 E2E Test-Nachricht MFIGCSqGSIb3DQEHA6BFMEMCAQAxADA8BgkqhkiG9w0BBwEwHQYJYIZIAWUDBAEC BBCCZtHO+nhKZXb8wZxm6jeRgBCgqKSUsILqhDbBbpjxc0j5
Den codierten Teil der Nachricht verwende ich nun beim Versenden per MIME::Lite als Body und setze zusätzlich noch die 3 Header-Felder:
Code (perl): (dl )

1 2 3

$msg->attr('Content-Disposition'=>'attachment; filename=smime.p7m'); $msg->attr('Content-Type'=>'application/x-pkcs7-mime; smime-type=enveloped-data; "name=smime.p7m"'); $msg->attr('Content-Transfer-Encoding'=>'base64');
Die Nachricht wird vom Mail-Client als SMIME-Mail erkannt (Schloss-Symbol), kann aber nicht geöffnet werden.
Testhalber mit Thunderbird verschickte und mit dem gleichen Public Key verschlüsselte Mails funktionieren einwandfrei.

Irgendjemand eine Idee ?

Danke im voraus !
Last edited: 2017-08-04 11:13:11 +0200 (CEST)
- +4 replies
- rosti
  
  2017-08-04 11:59
  
  User since
  2011-03-19
  3566 articles
  BenutzerIn
  
  MIME Mails kennen keine Attachments. Vielmehr gibt es Multipart-Mails mit dem entsprechenden Content-Type: multipart/mixed oder multipart/alternative.
  
  Deine Header erscheinen mir suspect. MfG
  http://blog.rolfrost.de/
  
  The art of steam.
  - +3 replies
  - guest Arokh
    
    2017-08-07 11:03
    
    Ich hatte hier eigentlich chon geantwortet, aber meine Antwort wurde nicht veröffentlicht.
    @Admins: Bitte mal schauen, ob da was schiefgegangen ist - denn die Lösung des Problems könnte auch andere interessieren.
    Danke
    Last edited: 2017-08-07 12:24:31 +0200 (CEST)
    - +2 replies
    - Relais
      
      2017-08-07 21:43
      
      User since
      2003-08-06
      2257 articles
      ModeratorIn
      
      Es wartet kein Posting auf Approval, daher, poste es doch einfach nochmal.
      Oder noch bessererstelle auch einen User, dann brauchst Du kein Admin-Approval mehr für Deine Posts.
      Erst denken, dann posten --
      27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.
      
      Winter is Coming
      - guest Arokh
        
        2017-08-29 16:01
        
        Dann hier nochmal die Antwort:
        
        crypt:SMIME produziert keinen von einem aktuellen Mail-Client auswertbaren SMIME-Header. Ich vermute, es kommt mit aktuellen Schlüssellängen nicht klar - also Finger weg.
        
        Die Lösung ist, openssl per System-Aufruf zu benutzen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
        
        #!/usr/bin/perl use strict; my $body="body.msg"; my $smime="smime.msg"; my $publickey="key.pem"; my $subject="Test-Nachricht E2E-verschluesselt"; my $message='Das hier ist eine ganz geheime Nachricht :-P'; my $orig='absender@example.com'; my $rec='empfaenger@example.com'; open(BODY,">$body") or die ("Kann File $body nicht oeffnen !\n"); print BODY $message; close (BODY); my $message=`/usr/bin/openssl smime -encrypt -text -in $body -out $smime -from $orig -to $rec -subject "$subject" $publickey`; if (my $mail=`/usr/lib/sendmail $rec <$smime`) { print "Fehler beim Mailversand: $mail\n"; } unlink $body; unlink $smime;
        
        Ganz wichtig ist die Option "-text", sonst kann der Mailclient die Nachricht nicht korrekt anzeigen.
        Für dieses simple Script würde normalerweise auch ein Shell-Script genügen, aber man scriptet da ja meistens noch jede Menge drumrum.
        Last edited: 2017-08-29 16:13:03 +0200 (CEST)
- GwenDragon
  
  2017-08-29 17:17
  
  User since
  2005-01-17
  14835 articles
  Admin1
  
  Verschoben von Netzwerkprogrammierung und Netzwerke mit Perl nach Allgemeines zu Perl
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2017-08-04 09:17.