Crypt :: Smimeengine Interfaz Perl a OpenSSL para los comandos de Smime con soporte de motores de hardware.
Descargar ahora

Crypt :: Smimeengine Clasificación y resumen

Crypt :: Smimeengine Etiquetas

Módulo perl perla AbiertoSSL Interfaz OPENSSL Interfaz de pitime Pitillo

Crypt :: Smimeengine Descripción

Interfaz Perl a OpenSSL para los comandos de SMIE con soporte de motores de hardware. Crypt :: SMIMEENGINE es una interfaz Perl a OpenSSL para los comandos de Smime con soportes de motores de hardware.Synopsis Use Crypt :: SMIMEENGINE QW (señal de inicio Verifique getFingerprint getCertinfo load_privk geterrstr ossl_version); $ cert_dir = 'certs /'; # Certificado de confianza TRAYED $ CERT = 'CERTS / CERT.PEM'; # Certificado de firmante de ruta $ KEY = 'CERTS / KEY.PEM'; # PATH PATH PRIVCT KEY $ OTRER_CERT = []; # certs para agregar # Déjame inizializar el módulo con el motor OpenSSL (sin motor HW) $ motor_type = 'openssl'; $ OUT = INIT ($ CERT_DIR, $ CERT, KEY $, $ OTRERT, $ MOINTER_TYPE); Die "Errore en el proceso de inicialización:" .geterrstr () ". "Si $ fuera; imprimir" init ok "; # Ahora inizialize el módulo con un motor de hardware. # Puede cargar todos los motores compatibles con OpenSSL; # Si desea una lista de estos motores, intente este comando en su servidor # OpenSSL Motor # # EX: Si elige el soporte del motor de hardware Ncipher. # Prueba el siguiente snip # xxx remenber # xxx Este módulo se prueba solo en NCPHER NETHSM! # XXX Por favor, hágamelo saber si lo intenta con éxito con otro motor HW $ MOINTOR_TYPE = 'Chil'; $ motor_lib = '/ Opt / Nofast / Toolkits / HWCRHK / LIBNFHWCRHK.SO '; # XXX Verifique en su instalación !!! $ OUT = INIT ($ CERT_DIR, $ CERT, KEY CLAVE, $ OTRERT, $ ENGINE_TYPE, $ MOINGER_LIB); DIE "Errore en Inicializar proceso: ".geterrstr ()". "Si $ fuera; imprimir" init ok "; # Firmar $ mail_in = 'mail / mail.txt'; $ mail_out = 'mail / mail.txt.signed'; $ out = Signo ($ mail_in, $ mail_out); Imprimir $ fuera?" Signo de errores: ". geterrstr () ". ":" Signo ok "; # Verifique $ Noverify = 1; # true no verifique la cadena, falso de lo contrario $ OUT = Verifique ($ mail_out, $ cert, $ noverify); imprimir $ fuera?" Verifique: ".geterrstr ()". ":" Verifique bien "; # Cargar nuevo tecla-certificado $ fuera = load_privk ($ new_key, $ new_cert); imprimir $ fuera?" Error a cargar nuevo Key-Cert: ".geterrstr ()". ":" load_privk ok "; # Obtenga el certificado HIPPRINT $ STHEMA = 'SHA1'; $ OUT = GetFingerPrint ($ CERT, SCHEMA); Si (definido $ OUT) {Imprimir" Huella dactilar ($ CERT): $ OUT ";} else {imprimir" errores para obtener huellas dactilares: ".geterrstr ()," ";} # Obtenga la información del certificado $ obj = getcertinfo ($ CERT); if (ref ($ obj)) {imprimir" Información del CERT: "; Imprimir" Emisor: ". $ obj -> {'emisor'}," "; Imprimir" Asunto: ". $ obj -> {'sujeto'}," "; Imprimir" Serial: ". $ obj -> {'serial'}" "Imprimir" STARTDATE: ". $ obj -> {'startdate'}," "; Imprimir" EndDate: ". $ obj -> {'enddate'}," "; Imprimir" Correo electrónico: ". $ obj -> {'v3_email'}," ";} else {imprimir" error en getcertinfo: ".geterrstr ()," ";} Este módulo es una interfaz simple con la función nativa de OpenSSL para la manipulación de Smime. Puede trabajar con motores de hardware openssl compatibles. En este momento, el módulo no realiza funciones de incrustaciones / descripción. Escriba al autor si está interesado. Requisitos: · Perl

Crypt :: Smimeengine Software relacionado