Crypt :: Smimeengine. Perl Interface para openssl para comandos de smime com suporte a mecanismos de hardware.
Baixe Agora

Crypt :: Smimeengine. Classificação e resumo

Crypt :: Smimeengine. Tag

Módulo Perl. perl OpenSSL Interface OpenSSL. Interface Smime. Smime

Crypt :: Smimeengine. Descrição

interface de Perl para OpenSSL para SMIME comandos com suporte motores de hardware. Crypt :: SMimeEngine é uma interface de Perl para OpenSSL para comandos SMIME com motores de hardware support.SYNOPSIS uso Crypt :: SMimeEngine qw (sinal de inicialização verificar getFingerprint getCertInfo load_privk getErrStr ossl_version); 'certs /' $ cert_dir =; # Caminho confiável certificado $ cert = 'certs / cert.pem'; # Caminho signatário certificado $ key = 'certs / key.pem'; # Caminho da chave private $ other_cert = []; # certs para adicionar # deixe-me inizialize o módulo com motor openssl (sem motor hw) $ engine_type = 'openssl'; $ Out = init ($ cert_dir, $ cert, $ key, $ other_cert, $ engine_type); morrer "Errore no processo de inicialização:" .getErrStr () ". "If $ fora; print" Init OK "; # Agora inizialize o módulo com um motor de hardware # Você pode carregar todas as openssl motor compatível; # se você quer uma lista destes motores tentar este comando no seu servidor # motor openssl # # ex:. Se você escolher suporte ao mecanismo de hardware nCipher # tente a próxima snip # XXX remenber # XXX este módulo é testado de mim apenas mediante nCipher netHsm !!! # XXX por favor me avise se você tentar com sucesso com outro motor hw $ engine_type = 'chil'; $ engine_lib = '/ opt / nfast / toolkits / hwcrhk / libnfhwcrhk.so '; # XXX verificar na sua instalação !!! $ out = init ($ cert_dir, $ cert, $ key, $ other_cert, $ engine_type, $ engine_lib); die "Errore em processo de inicialização: ".getErrStr ()." "If $ fora; print" Init OK "; # SINAL $ mail_in = 'MAIL / mail.txt'; $ mail_out = 'MAIL / mail.txt.signed'; $ out = sinal ($ mail_in, $ mail_out); imprimir $ fora? "Sinal de erro:". getErrStr ()." ":" Sinal de OK "; # VERIFICAR $ noverify = 1; # verdade, não verificar a cadeia, caso contrário false $ out = verificar ($ mail_out, $ cert, $ noverify); imprimir $ fora? "Verificar:" .getErrStr ()." ":" Verifique OK "; # CARGA nova chave-certificado de US $ out = load_privk ($ new_key, $ new_cert); imprimir $ fora? "Erro ao carregar nova chave-cert:" .getErrStr ()." ":" Load_privk OK "; # Obter o certificado digital $ esquema = 'SHA1'; $ out = getFingerprint ($ cert, $ esquema); if (definido $ out) {print" impressão digital ($ cert): $ a ";} Else {print "Errore para obter impressões digitais:" .getErrStr ()," ";} # Get as informações do certificado $ obj = getCertInfo ($ cert); if (ref ($ obj)) {print" informações Cert: "; Print "EMISSORA:". $ Obj -> { 'emissor'}," "; Print "ASSUNTO:". $ Obj -> { 'sujeito'}," "; Print "SERIAL:". $ Obj -> { 'série'}," "; Print "STARTDATE:". $ Obj -> { 'startdate'}," "; Print "ENDDATE:". $ Obj -> { 'enddate'}," "; Print "EMAIL:". $ Obj -> { 'v3_email'}," ";} Else {print "Erro na getCertInfo:" .getErrStr ()," ";} Este módulo é uma interface simples com a função nativa do OpenSSL para a manipulação SMIME Pode ser um trabalho com motores de hardware openssl compatíveis Neste momento o módulo não percebe encription / descrição funções escreva para o autor se você estiver interessado.... requisitos: · Perl.

Crypt :: Smimeengine. Software Relacionado