Crypt :: Smimaengine. Perl-Schnittstelle zu OpenSSL für limmere Befehle mit Hardwaregine-Unterstützung.
Jetzt downloaden

Crypt :: Smimaengine. Ranking & Zusammenfassung

Crypt :: Smimaengine. Stichworte

Perl-Modul Perl OpenSSL OpenSSL-Schnittstelle. SMIME-Schnittstelle Smime.

Crypt :: Smimaengine. Beschreibung

Perl-Schnittstelle zu OpenSSL für lineare Befehle mit Hardwaregine-Unterstützung. Crypt :: Smimeengine ist eine Perl-Schnittstelle zur OpenSSSL für Smime-Befehle mit Hardware-Engines Support.Synopsis Verwenden von Crypt :: SmimaEngine QW (Init-Zeichen Überprüfen Sie GetFingerprint GetCertInfo Load_Privk geterrstr, $ cert_dir = 'CERTS /'; # Pfad Trusted Certificate $ Cert = 'CERTS / CERT.PEM'; # Pfadunterzeichner-Zertifikat $ KEY = 'CERTS / KEY.PEM'; # Pfad Privater Schlüssel $ youm_cert = []; # Zertifikate zum Hinzufügen # Lassen Sie mich das Modul mit dem OpenSSL-Motor (kein HW-Motor) $ engine_type = 'openssl'; $ out = INIT ($ CERT_DIR, $ CERT, $ KEY, $ Other_Cert, $ Engine_Type); Die "Erore in Initialize-Prozess:" .geterrstr (). " "Wenn $ out; drucken" init ok "; # Jetzt inzialtialisieren Sie das Modul mit einem Hardwaregotor. # Sie können jeden Motor öffnen, der kompatibel laden. # Wenn Sie eine Liste dieser Motoren wünschen, versuchen Sie diesen Befehl auf Ihrem Server # OpenSSL Engine # # # Versuchen Sie den nächsten Snip # xxx remenber # xxx Dieses Modul wird von mir nur bei nCOPHIME NETHSM getestet !!! # xxx Bitte lassen Sie es mich wissen, wenn Sie es erfolgreich mit anderen HW-Motor $ motorg_type = "chil" versuche; opt / nfast / toolkits / hwcrk / libnfhwcrk.so '; # xxx Überprüfung bei Ihrer Installation !!! $ out = init ($ cert_dir, $ cert, $ Key, $ Other_Cert, $ Engine_Type, $ engine_lib); Die "Fehler in Prozess initialisieren: ".geterrstr ()." "Wenn $ out; drucken" init ok "; # Sign $ mail_in = 'mail / mail.txt'; $ mail_out = 'mail / mail.txt.design'; $ out = sign ($ mail_in, $ mail_out); drucken $ raus?" Fehlerzeichen: ". geternstr (). " ":" Zeichen ok "# Überprüfen Sie $ noverify = 1; # True Nein Überprüfen Sie die Kette, false ansonsten $ out = bestätigen ($ mail_out, $ cert, $ noverify); drucken $ raus?" Verify: ".geterrstr ()." ":" Überprüfen Sie das OK "; # Lade neues Key-Zertifikat $ out = load_privk ($ new_key, $ new_cert); drucken $ raus?" Fehler beim Laden neuer Key-Cert: ".geterrstr ()." ":" load_privk ok "; # Holen Sie sich das Zertifikat Fingerprint $ SCHEMA = 'SHA1'; $ out = GetFingerprint ($ CERT, $ SCHEMA); if (definiert $ OUT) {drucken" Fingerprint ($ CERT): $ out ";} else {drucken" error, um den Fingerabdruck zu erhalten: ".geterrstr ()," ";} # Holen Sie sich die Zertifikatinformation $ obj = getckcertinfo ($ cert); if (Ref (REF ($ OBJ)) {drucken" Cert-Information: "; drucken" Emittent: ". $ obj -> {'Emittent'}," "; drucken" Betreff: ". $ obj -> {'thema'}," "; drucken" serial: ". $ obj -> {'seriell'}," "; drucken" starten: ". $ obj -> {'startdate'}," "; drucken" enddate: ". $ obj -> {'enddate'}," "; drucken" E-Mail: ". $ obj -> {'v3_email'}," ";} else {drucken" Fehler in getckcertinfo: ".geterrstr ()," ";} Dieses Modul ist eine einfache Schnittstelle mit nativer Funktion von OpenSSL für lächelnd-Manipulation. Es kann mit kompatiblen OpenSSL-Hardwareginern funktionieren. Zu diesem Zeitpunkt realisiert das Modul nicht mit der Verschreibungs- / Beschreibung-Funktionen. Schreiben Sie an den Autor, wenn Sie interessiert sind. Anforderungen: · Perl.

Crypt :: Smimaengine. Zugehörige Software