AcbrNfe criptografia....
Enviado: 27 Dez 2011 14:17
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....
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...
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...