AcbrNfe criptografia....

[bravvo]

alguém tem alguma função. pronta para de criptografar a senhas do acbrnfemonitor???
alguém sabe como ler a mensagem do e-mail do acbr???
fico grato por qualquer ajuda.


consegui fazer a descriptografia para posiveis interesados segue methodo de descriptografia....

Código: Selecionar todos

function STRCRYPT_ACBRNFE(senha)
//    senha:=HexToStr("456D5B130C36331F32184B")
    chave:="tYk*5W@"
    Result:=senha
    TamanhoString := len(senha)
    TamanhoChave  := len(chave)
    For i:=1 to TamanhoString
        pos:=Mod(i,TamanhoChave)
        if (pos == 0)
            pos := TamanhoChave
        endif
        posLetra := ASC(Result[i]) ^^ ASC(chave[pos])
        if (posLetra == 0)
            posLetra := ASC(Result[i])
        endif
        C := ConvToAnsiCP( chr(posLetra ))
        Result[i] := C[1] 
    next
return( Result )

o unico detalhe e que tem que fazer a conversao dos caracteres de hexadecimal para string para pegar a senha do ini
e o inverso para passar a senha para o ini...

[toya]

Procure la na toyaNET (http://www.toyanet.com.br/bitgaragem.php#bit_nfe)

[lucimauro]

Boa tarde bravvo.
Tentei compilar seu exemplo mais esta dando erro na linha posletra ^^ (aqui não compila) e também você teria o exemplo das funções de hexadecimal para Sting e vice versa?

[toya]

Lucimauro, veja na vossa msg private se chegou algo...

[lucimauro]

Elcio obrigado pela sua atenção meu caro.
Eu compilei o exemplo mais a senha retornada não é confere com a senha que esta gravada no acbr.