Gerar Hash Do Pin Para Alterar .ini Via Aplicação

[murilosantos_global]

Boa tarde,

 

Estou desenvolvendo uma aplicação multi-empresa que inicia instâncias do ACBrNFe monitor dinamicamente, e que altera o arquivo .ini conforme o usuário altera os dados na aplicação. Umas das informações que preciso manipular é PIN do certificado. Percebi que o mesmo fica criptografado no .ini.

 

Tentei usar o comando que está no manual:

 

NFe.SetCertificado(cCertificado,cSenha) // Versão OpenSSL

NFe.SetCertificado(cNumCertificado) // Versão CAPICOM

 

O primeiro comando acima alterou apenas o número do certificado creio que porque uso CAPICOM. Alguém sabe o método de criptografia usado ou em onde posso encontrar esse algoritmo para traduzir para a linguagem que uso(C#).

 

Obrigado

Editado 15 Dezembro, 2014 por murilosantos_global

[murilosantos_global]

Vou fazer um teste tentando usar o outro executável referente ao open SSL. Isso resolveria meu problema, mas ainda gostaria de ser capaz de realizar a criptografia sem disparar o comando pro socket.

[murilosantos_global]

Uso o certificado A3, me falaram que o OPEN SSL é para certificado A1. Então realmente preciso de uma forma de salvar a senha direto no arquivo de texto uma vez que o comando setCerticado do CAPICOM não recebe o parâmetro da senha.

[André Ferreira de Moraes]

O ACBrNFeMonitor é um projeto OpenSource, baixe os fontes do aplicativo via SVN e analise a função LeINICrypt.

[murilosantos_global]

Ok, já baixei os fontes, foi de grande ajuda me informar o nome da função. Logo mais dou um retorno. Muito obrigado.

[murilosantos_global]

Analisando onde o código tem referência à LeINICrypt, encontrei utilização da função StrCrypt, que tentei traduzir a mesma. Não consegui fazer funcionar para o texto do corpo do e-mail. Se algum quiser colaborar agradeço, mas não preciso dessa informação por hora. Segue fonte C#, o original, e alguns testes de mesa.

 

Pin original: 10203040

Pin no arquivo .ini: 4569591A06677444

Pin retornado na função: 4569591A06677444

 

senha de email:Glob@l123456_#global!

senha do email no arquivo .ini: 33350448753B71466A5F1F03086313350448543B61

senha retornada pela função: 33350448753B71466A5F1F03086313350448543B61

        /// <summary>
        /// Recebe conteúdo que será encriptografado para ser salvo no arquivo ACBrMonitorNFE.ini
        /// </summary>
        /// <param name="strConteudoCriptografar">Informação a ser criptografada, como senha do e-mail ou do pin do certificado etc</param>
        /// <returns>Retorna "string" que representa a informação encriptografada</returns>
        public string CriptografarStringParaACBrMonitor(string strConteudoCriptografar)
        {
            string strChave = "tYk*5W@"; // chave encontrada nos fontes do ACBrMonitor: ACBrMonitor1.pas, linha 54
            int intTamanhoTexto = strConteudoCriptografar.Length; ;
            int intPos = 0;
            int intPosLetra = 0;
            int intTamanhoChave = strChave.Length;
            string strTextoEncriptografado = "";

            for (int i = 0; i < intTamanhoTexto; i++)
            {
                intPos = (i + 1) % intTamanhoChave;
                if (intPos == 0)
                    intPos = intTamanhoChave;

                intPosLetra = (int)strConteudoCriptografar[i] ^ (int)strChave[intPos - 1];
                strTextoEncriptografado += string.Format("{0:X2}", intPosLetra);

            }
            return strTextoEncriptografado;
        }

function StrCrypt(const AString, StrChave: AnsiString): AnsiString;
        var
          i, TamanhoString, pos, PosLetra, TamanhoChave: Integer;
          C : AnsiString ;
        begin
          Result        := AString;
          TamanhoString := Length(AString);
          TamanhoChave  := Length(StrChave);

          for i := 1 to TamanhoString do
          begin
             pos := (i mod TamanhoChave);
             if pos = 0 then
                pos := TamanhoChave;

             posLetra := ord(Result[i]) xor ord(StrChave[pos]);
             if posLetra = 0 then
                posLetra := ord(Result[i]);

             C := AnsiChar( chr(posLetra) );
             Result[i] := C[1] ;
          end;
        end ;