Crypt :: smimeengine. ממשק perl כדי openssl עבור פקודות Smime עם מנועי חומרה תמיכה.
הורד עכשיו

Crypt :: smimeengine. דירוג וסיכום

Crypt :: smimeengine. תגים

פרל מודול perl OpenSSL ממשק OpenSL. ממשק ממשק מֶמְשָׁנִי

Crypt :: smimeengine. תיאור

ממשק Perl כדי OpenSSL עבור SMIME פקודות עם תמיכה מנועי חומרה. קריפטה :: SMimeEngine הוא ממשק Perl כדי OpenSSL עבור פקודות SMIME עם קריפטה השימוש support.SYNOPSIS מנועי חומרה :: QW SMimeEngine (סימן init לוודא getFingerprint getCertInfo load_privk getErrStr ossl_version); 'Certs /' $ = cert_dir; # נתיב מהימן CERT $ תעודה = 'certs / cert.pem'; # נתיב $ תעודת החותם key = 'certs / key.pem'; # נתיב $ מפתח פרטיים other_cert = []; # Certs להוסיף # תן לי inizialize מודול עם מנוע OpenSSL (אין מנוע HW) $ engine_type = 'OpenSSL'; דולר מתוך = init ($ cert_dir, $ CERT, $ מפתח, $ other_cert, $ engine_type); למות "Errore בתהליך התחלתית:" .getErrStr () ". "אם $ החוצה; הדפסה" איתחול אישור "; # עכשיו inizialize מודול עם מנוע חומרה # אתה יכול לטעון כל OpenSSL מנוע תואם; # אם אתה רוצה רשימה של מנועי אלה לנסות פקודה זו על האקס # # OpenSSL מנוע השרת # שלך:. אם תבחר תמיכה מנוע חומרה nCipher # לנסות את פִסָה הבא # XXX REMENBER # XXX מודול זה נבדק ממני רק על nCipher netHsm !!! # XXX אנא תן לי לדעת אם תנסה עם בהצלחה עם engine_type $ מנוע HW אחרות = "יל"; $ engine_lib = "/ opt / nfast / ערכות כלים / hwcrhk / libnfhwcrhk.so '; # XXX לאמת על ההתקנה שלך !!! דולר מתוך = init ($ cert_dir, $ CERT, $ מפתח, $ other_cert, $ engine_type, $ engine_lib); למות "Errore ב תהליך אתחול: ".getErrStr ()." "אם $ החוצה; הדפסה" איתחול אישור "; # Sign $ mail_in = 'MAIL / mail.txt'; $ mail_out = 'MAIL / mail.txt.signed'; $ החוצה = סימן ($ mail_in, $ mail_out); להדפיס $? "סימן שגיאה:". getErrStr ()." ":" אישור כניסה "; # VERIFY $ noverify = 1; # נכון לא לאמת את השרשרת, שקר אחרת החוצה $ = לאמת ($ mail_out, $ CERT, $ noverify); להדפיס $? "אמת:" .getErrStr ()." ":" אמת אישור "; # מטען חדש KEY-CERTIFICATE דולר מתוך = load_privk ($ new_key, $ new_cert); להדפיס $? "שגיאה לטעון-CERT המפתח החדש:" .getErrStr ()." ":" אישור load_privk "; # להשיג את הסכימה $ תעודת טביעת אצבע = 'SHA1'; $ החוצה = getFingerprint (CERT $, $ סכימה); אם (המוגדר $ החוצה) {print" טביעות אצבע (CERT $): $ החוצה ";} Else {print "Errore לקבל טביעות אצבע:" .getErrStr ()," ";} # ולקבל את האישור מידע $ obj = getCertInfo ($ CERT); אם (נ"צ ($ obj)) {print" מידע Cert: "; הדפסה "מנפיק:". $ Obj -> { 'מנפיק'}," "; הדפסה "הנושא:". $ Obj -> {ה"נושא"}," "; הדפסה "serial:". $ Obj -> { 'סדרתי'}," "; הדפסה "STARTDATE:". $ Obj -> { 'startdate'}," "; הדפסה "ENDDATE:". $ Obj -> { 'enddate'}," "; הדפסה "דואר אלקטרוני:". $ Obj -> { 'v3_email'}," ";} Else {print "שגיאה getCertInfo:" .getErrStr ()," ";} מודול זה הוא ממשק פשוט עם פונקצית יליד OpenSSL עבור מניפולצית SMIME זה יכול להיות עבודה עם מנוע חומרת OpenSSL תואמים בשלב זה המודול לא מבין encription / פונקציות תיאור כתוב למחבר אם אתה מעוניין.... דרישות: · פרל

Crypt :: smimeengine. תוכנה קשורה