regi.aboboras

Como diz a primeira mensagem do tópico, para gravar as senhas no formato 'encriptado' do ACBrNFeMonitor. Para gravar o arquivo ACBrNFeMonitor.ini, os programadores em modo terminal, especialmente, em CLIPPER ou COBOL, podem encontrar alguma dificuldade para gravar estes campos no formato que o .ini passa ao ACBrNFeMonitor, principalmente, se como eu, quiser que o usuário do sistema interfira o menos possível no ACBrNFeMonitor, passando os parametros através de nosso sistema. No meu caso, em alguns locais, meus clientes trabalham com multiplas empresas, o que incorre em multiplos CNPJs, multiplos CERTIFICADOS, multiplos Usuários e Senhas de E-mail, etc. E a cada troca de CNPJ que o sistema faz, é necessário repassar tudo isso ao .INI. Até o momento, eu atuava configurando o ACBrNFeMonitor para cada um dos CNPJs, gravando o .INI e mudando de nome para EMPRESA??.INI. De dentro do sistema, mandava copiar o arquivo EMPRESA??.INI para ACBrNFeMonitor.INI e enviava o comando NFE.LerIni ao ACBrNFeMonitor. Mas, quero poder gravar todo o Arquivo INI de dentro de meu sistema, para ter um controle maior, além de uma flexibilidade maior quanto à mudança de dados. Esta rotina pega o codigo ASC (decimal) de cada caractere e grava este código no formato HEXADECIMAL, então HASH('TESTE') deve retornar 5445535445, ou seja T = 54 E = 45 S = 53 T = 54 E = 45 Este é o método para gravação da mensagem de e-mail; o método de gravação de senhas, ainda estou analisando os fontes em DELPHI do ACBrNFeMonitor para interpretar como as mesmas são gravadas; assim que tiver solucionado, eu posto aqui. Não me aprofundei muito em outros linguagens, como DELPHI, que devem ter funções PRONTAS para isso. Reginaldo Lima

Para quem tiver com este mesmo problema, consegui desenvolver uma solução em clipper, que disponibilizo o código abaixo. function HASH(var2Hash) varHASHed='' for C_HASH=1 to len(var2Hash) varHASHed=varHASHed+Dec2Hex(asc(substr(var2Hash,C_HASH,1))) next return(varHASHed) function Dec2Hex(nDEC) cHEX :='' if valtype(nDEC)='N' aBASE16 := {'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'} aHEX := {} nDIVIDENDO := nDEC nQUOCIENTE := 1 while nQUOCIENTE<>0 nQUOCIENTE:=int(nDIVIDENDO/16) nRESTO :=nDIVIDENDO-(nQUOCIENTE*16) nRESTO++ cHEX :=aBASE16[nRESTO] aADD(aHEX,cHEX) nDIVIDENDO := nQUOCIENTE enddo endif cHEX := '' for X=len(aHEX) to 1 step -1 cHEX += aHEX[X] next return(cHEX) Exemplo de chamada: procedure TestHASH ? 'TESTE = ' ?? HASH('TESTE') return