Crypt :: Smimeengine.
التحميل الان

Crypt :: Smimeengine. الترتيب والملخص

Crypt :: Smimeengine. العلامات

الوحدة النمطية بيرل بيرل OpenSSL واجهة Openssl. واجهة SMIME. مظلمة

Crypt :: Smimeengine. وصف

واجهة PERL إلى Openssl لأوامر SMIME مع دعم محركات الأجهزة. Crypt :: Smimeengine هو واجهة بيرل لمختبر أوامر SMIME مع دعم محركات الأجهزة. يستخدم Synopsis Crypt :: SMIMEENGINEGINE QW (علامة INIT التحقق من GetFingerPrint GetCertinfo Load_Privk Geterrstr Ossl_version)؛ $ cert_dir = 'certs /'؛ # مسار شهادة الموثوق $ $ cert = 'certs / cert.pem'؛ # شهادة المسار الموقع $ مفتاح = 'certs / key.pem'؛ # مسار المفتاح الخاص $ $_cert = []؛ # certs لإضافة # اسمحوا لي أن أقوم بمعنى الوحدة مع محرك Openssl (لا يوجد محرك HW) $ Engine_Type = 'Openssl'؛ $ خارج = INIT ($ cert_dir، $ cert، مفتاح $، $ comer_cert، $ engine_type)؛ يموت "errore في عملية تهيئة:" .geterrstr (). " "إذا كانت $ خارج؛ طباعة" "؛ # الآن إلى الوحدة النمطية مع محرك الأجهزة. # يمكنك تحميل كل محرك Openssl متوافق؛ # إذا كنت تريد قائمة بهذه المحركات جرب هذا الأمر على الخادم # Openssl Engine # # السابقين: إذا اخترت دعم محرك الأجهزة Ncipher # جرب Snip # XXX Remenber # XXX تم اختبار هذه الوحدة مني فقط على Ncipher Nethsm! # XXX، واسمحوا لي اسمحوا لي أن أعرف إذا كنت تحاول بنجاح مع محرك HW آخر $ Engine_Type = 'Chil'؛ $ Engine_lib = '/ opt / nfast / toolskits / hwcrhk / libnfhwcrhk.so '؛ # xxx تحقق على التثبيت الخاص بك! $ خارج = init ($ cert_dir، $ cert، $ one_cert، $ engine_type، $ engine_lib)؛ يموت "errore in تهيئة العملية: ".geterrstrstr ()." "إذا كانت $ خارج؛ طباعة" "؛ # علامة $ $ mail_in = 'mail / mail.txt'؛ $ mail_out = 'mail / mail.txt.signed'؛ $ خارج = علامة ($ mail_in، $ mail_out)؛ طباعة $ خارج؟" علامة الخطأ: ". geterrstrstr (). " ":" تسجيل موافق "؛ # التحقق من $ noverify = 1؛ # صحيح لا تحقق من السلسلة، False خلاف ذلك $ خارج = تحقق ($ Mail_out، $ certify، $ noverify)؛ طباعة $ خارج؟" تحقق من: ".geterrstrstr (). ":" تحقق من موافق "؛ # تحميل مفتاح الشهادة الجديدة $ خارج = load_privk ($ new_key، $ new_cert)؛ قم بطباعة $ خارج؟" خطأ في تحميل مفتاح Cert الجديد: ".geterrstr (). ":" load_privk موافق "؛ # احصل على شهادة بصمات الأصابع $ shema = 'sha1'؛ $ خارج = getfingerprint ($ cert، مخطط $)؛ إذا (محدد $ خارج) {print" بصمة ($ cert): $ خارج "؛} آخر {print" errore للحصول على بصمة: ".geterrstr ()،" "؛} # احصل على معلومات الشهادة $ obj = getcertinfo ($ cert)؛ إذا (ref ($ obj)) {print" معلومات cert: "؛ طباعة" المصدر: ". $ obj -> {'assuer'}،" "؛ طباعة" الموضوع: ". $ obj -> {'الموضوع'}،" "؛ طباعة" المسلسل: ". $ obj -> {'serial'}،" "؛ طباعة" startdate: ". $ obj -> {'startdate'}، "؛ طباعة" Enddate: ". $ obj -> {'inddate'}،" "؛ طباعة" البريد الإلكتروني: ". $ obj -> {'v3_email'}، "؛} آخر {print" خطأ في getcertinfo: ".geterrstr ()،" "؛} هذه الوحدة هي واجهة بسيطة مع وظيفة أصلية من OpenSSL لمعالجة SMIME. يمكن أن يكون العمل مع محركات الأجهزة Openssl متوافقة. في هذا الوقت، لا تتحقق الوحدة الوالد وظائف Encription / Description. اكتب إلى المؤلف إذا كنت مهتما. متطلبات: perl.

Crypt :: Smimeengine. برامج ذات صلة