Duvida Arquivo Lista Autenticados MD5

[gabriellc]

Pessoal ja procurei e nao achei nem um topico que me exclarecese bem minha duvida!, seguinte:

1ºtenho os componentes acbrecf, acbrpaf, acbraac e acbread, com eles consigo gerar o codigo md5 do aplicativo(tb consigo gerar o codigo MD5 dos outros aplicativos e dlls, individualmente), minha duvida eh o seguinte, eu que crio o arquivo de lista autenticados, ou os componentes acbr criam esse arquivo pra mim se ele criar, como seria o procedimento?

2º vi em algum topico que adicionando o nome dos aplicativos que uso ao componente ACBrAAC, ele geraria esses codigos automaticamente junto com o arquivo,(mais nao consegui fazer isso) adicionei os nomes dos aplicativos na property Params do componente acbraac, esta correto?

3º o codigo MD5 que guardo no arquivo de verificacao, eh o codigo MD5 do arquivo TXT de arquivos autenticados neh isso?

resumindo, como seria a forma correta de gerar esse arquivo de lista de autenticados? (se sou eu que crio o arquivo ou o componente o cria para mim?)

[Régys Silveira]

viewtopic.php?f=12&t=5655

[gabriellc]

regys, me responda se estou correto, Por favor, esse arquivo de lista de autenticados é o arquivo auxiliar (onde vai as informacoes da Soft. house e dados do sistema criptografado)? eu estava pensando que seria outro arquivo contendo somente a lista de aplicativos(nao criptografado).

é isso?

[Régys Silveira]

Não, são dois arquivos diferentes, o arquivo da lista de autenticados e o arquivo onde fica a lista de todos os .exe e .dll que você utiliza é que executam algum requisito do paf-ecf, Requisito IX do roteiro. Este arquivo é gerado pelo componente ACBrPAF.

O arquivo criptografado e outro, nele ficam os dados da software house, ecf e md5 do arquivo gerado acima, este está no Requisito XXII item 4 do roteiro. Este ultimo é controlado pelo componente ACBrAAC.

Quando você liga o ACBrAAC ao ACBrPAF e no ACBrAAC você preenche a lista de outros arquivos autenticados e possível pela rotina que mostrei no tópico viewtopic.php?f=12&t=5655 efetuar a geração do arquivo, o componente ACBrPAF vai ler a lista de arquivos do ACBrAAC, calcular os MD5 e gravar o arquivo, não é automático, tem que seguir a rotina descrita no tópico que citei.

[gabriellc]

regys vlw pela dica entendi o funcionamento direito, e deu certo aqui a geracao dos arquivos, so estou com outro probleminha, quando geroa o arquivo auxiliar ta ficando assim:

N3ADMREST.EXE 2D867564183368663FC8B2EEC339203F

N3ADMREST.EXE 2D867564183368663FC8B2EEC339203F

N3FBCLIENT.DLL EBE6A2F5AF1E59123591C0269EB1D3D9

N3FBCLIENT.DLL EBE6A2F5AF1E59123591C0269EB1D3D9

N3LISTA_ARQUIVOS.TXT 00000000000000000000000000000000

N3LISTA_ARQUIVOS.TXT 00000000000000000000000000000000

N3MP2032.DLL E5007AD782A45C7E93C265257706167A

N3MP2032.DLL E5007AD782A45C7E93C265257706167A

N3UNZDLL.DLL 7FFDAFE8FA23D676643E9AAF4189F9FB

N3UNZDLL.DLL 7FFDAFE8FA23D676643E9AAF4189F9FB

N3ZIPDLL.DLL 0C11FF337EA3614783494C5376A5ED41

N3ZIPDLL.DLL 0C11FF337EA3614783494C5376A5ED41

ele imprime 2 linhas de cada aplicativo que adicionei;

e esta dando um erro : erro ao ler a Chave:

trecho do codigo: que coloquei no evento aacOnGetChave:

Chave := '-----BEGIN RSA PRIVATE KEY-----' + sLineBreak +

'MIICXQIBAAKBgQDRK02x0uOZRodmxr9t83vxbHBy1o/WeE5y5Wr9oZSnurdYLK7l'+ sLineBreak +

'Fz0fHAaBLM2yFDUdDs0Ej8n5dfu8JBIIcBwz/V6zCAiLR+jwosCYde1w8Aj48PKf'+ sLineBreak +

'SwVx/W9//MZgEcNy6juRfrTefRisSdA1reSsQE6dccAksyiSczyku2ZwwQIDAQAB'+ sLineBreak +

'AoGAIZHHmGB2MqVFGdOP6X+IRsjWizewQgVw4bO8JhSGnRy0TCxvrUi7gICo8pZU'+ sLineBreak +

'NN5VX+J+ONsy2Rx8WEeZtUz42XzeosVzK85nJjUJUWat5iOXL3ZbU9EbHclixcnp'+ sLineBreak +

'maGprjWt2vaYkucY+lmmuddD9//omDEOVB7EE7ILOw5JDoECQQDwHyGAew4vX4Om'+ sLineBreak +

'Rf1Jg+VNqCEhVROxCyGohX1q+4EAmlCjP/Hn08nw4phAs6S+nvikzBx1JCXncAQm'+ sLineBreak +

'Qf3kUzGZAkEA3wAypzHxTTt6Bw3AHtkYt4Vsb/3gMa+SFYVpaRA/zx7qHjBTl2CU'+ sLineBreak +

'0sxDxhqVK3395M4ZW9xFWlgQXdkV4zGBaQJBAIvdtkf+Za7Wdfq+PeE6gLCRRGsE'+ sLineBreak +

'AWpYz4w35WwRf3z4ZgwRTTj6NmCnvIPDoCygsLhdZB4fpix/JQub2OXMR9ECQGeq'+ sLineBreak +

'beGvo98lYQraZ49vmL/ntIszV/+BAMYkaOZAeYlNc8Ro7tMWQNjlwDPds66uOVMe'+ sLineBreak +

'REeh1FO1UJZwDm65WtECQQDpt/0TH+ThRPguqSn2I/r8H+dEopFbwrTSzt6x672g'+ sLineBreak +

'2KJosUaocVX9KoKn2XyOwcMzLovzAF/tQ5glEeh2IROC'+ sLineBreak +

'-----END RSA PRIVATE KEY-----'+ sLineBreak;

// setar o diretório onde vai ser salvo o arquivo

ACBrPAF1.Path := ExtractFilePath(ParamStr(0));

ACBrPAF1.PAF_N.RegistroN1.RAZAOSOCIAL := ACBrAAC1.IdentPAF.Empresa.RazaoSocial;

ACBrPAF1.PAF_N.RegistroN1.UF := ACBrAAC1.IdentPAF.Empresa.Uf;

ACBrPAF1.PAF_N.RegistroN1.CNPJ := ACBrAAC1.IdentPAF.Empresa.CNPJ;

ACBrPAF1.PAF_N.RegistroN1.IE := ACBrAAC1.IdentPAF.Empresa.IE;

ACBrPAF1.PAF_N.RegistroN1.IM := ACBrAAC1.IdentPAF.Empresa.IM;

ACBrPAF1.PAF_N.RegistroN2.NOME := ACBrAAC1.IdentPAF.Paf.Nome;

ACBrPAF1.PAF_N.RegistroN2.VERSAO := ACBrAAC1.IdentPAF.Paf.Versao;

ACBrPAF1.PAF_N.RegistroN2.LAUDO := ACBrAAC1.IdentPAF.NumeroLaudo;

ACBrAAC1.IdentPAF.OutrosArquivos.Add('Lista_Arquivos.txt');

ACBrAAC1.IdentPAF.OutrosArquivos.Add('AdmRest.exe');

ACBrAAC1.IdentPAF.OutrosArquivos.Add('fbclient.dll');

ACBrAAC1.IdentPAF.OutrosArquivos.Add('MP2032.dll');

ACBrAAC1.IdentPAF.OutrosArquivos.Add('UnzDLL.dll');

ACBrAAC1.IdentPAF.OutrosArquivos.Add('ZipDLL.dll');

// Salvar o arquivo de autenticados

ACBrPAF1.SaveFileTXT_N('Lista_Arquivos.txt');

// Carregar o MD5 do arquivo de autenticados

ACBrAAC1.IdentPAF.ArquivoListaAutenticados.Nome := 'Lista_Arquivos.txt';

ACBrAAC1.IdentPAF.ArquivoListaAutenticados.MD5 := ACBrEAD1.MD5FromFile(ExtractFilePath(ParamStr(0)) + 'Lista_Arquivos.txt');

ACBrAAC1.SalvarArquivo;

[Régys Silveira]

Quanto a duplicação e algo no seu sistema que está enviando duplicado provavelmente.

Quanto ao erro, a chave privada deve ser colocada no componente ACBrEAD e o componente ACBrAAC deve estar ligado nele.

[gabriellc]

blz regys vlw pela ajuda, ele ta gravando blz agora,

N109292369000190 Fran Informatica Ltda

N2 AutomaRest 8.8

N3ADMREST.EXE F767938461962E16FFFDFAD9ACA819CF

N3FBCLIENT.DLL EBE6A2F5AF1E59123591C0269EB1D3D9

N3MP2032.DLL E5007AD782A45C7E93C265257706167A

N3UNZDLL.DLL 7FFDAFE8FA23D676643E9AAF4189F9FB

N3ZIPDLL.DLL 0C11FF337EA3614783494C5376A5ED41

N909292369000190 000005

EADC02DFE61DD7F82E4C914EC998598B36D0EF91B7395F240483781D65C095E9BD4726A6F6A3BC3D13E53DA24084533CDFA4C71484F9ABABF15326354B54E937FC656B6317D5935B7152CC91E56C135BF16EEF826E1E3C45EC37D6225E1BFB25354CB0444086820475BD9ABB525E69DFCAB07E189E3346746528D875DF2041E16AC

agora outro problema(rsrsrsrs desculpa o incomodo ai)...

no comando

ACBrPAF1.SaveFileTXT_N('Lista_Arquivos.txt');

ele fica entrando em loop! o que podera ser...?

Vê o arquivo ai por favor e se possivel me diz o que esta errado! nao estou conseguindo identificar

frm_TEF.pas

[gabriellc]

deixa pra la problema resolvido (até que em fim!) estava colocando a funcao que o regys passou num local errado! vlw pelas dicas.

[softcom.wendel]

Qual é o local correto para se colocar a função que o Regys passou?

[Régys Silveira]

Qual é o local correto para se colocar a função que o Regys passou?

O arquivo de autenticados (N) deve ser gerado sempre que abrir o seu aplicativo.

[softcom.wendel]

Bom Dia a todos.

Eu estou utilizando o Acbrpaf Setando a Propriedade AAC para o ACBrAAC e a propriedade EAD para o ACBREAD.

Nos eventos Abaixo estou passando minhas chaves

procedure TDMECF.ACBrEADGetChavePrivada(var Chave: AnsiString);

begin

Chave := ChavePrivada;

end;

procedure TDMECF.ACBrEADGetChavePublica(var Chave: AnsiString);

begin

Chave := ChavePublica;

end;

As chaves estão no formato abaixo

ChavePublica = 'E'+'XXX..';

ChavePrivada = F'+'XXX..';

mas no ACBRPAF EM TACBrPAF.SaveFileTXT_N que salva o arquivo com os exes e dlls passados, esta dando erro em

if FPAF_N.RegistroN3.Count > 0 then

Write(txtFile, FPAF_N.WriteRegistroN3);

Pois neste momento ele gera o MD5 de cada arquivo...no meu caso esta dando erro de acesso de memória na função

TACBrEAD.CalcularHashArquivo

O que poderia ser, pois dei uma olhada e nao achei o erro.

Obrigado pela atenção

[Régys Silveira]

Qual é a mensagem de erro?

Verifique também as chaves, pois o formato delas e aquele gerado pelo ACBrEAD.

[softcom.wendel]

as chaves estão declaradas assim:

ChavePublica = 'E'+'5A011D42F5BAB1B7D4BEDF48D8EA0D2A70EA747DB57C28F75282202EB599DDADF6AD6A0380989EE3A698884E3C14C37786A4A58FEAF831D10D5C298F89045120F32D136F785119F3650F21643A69854874E1B05BA08E5CE26421BCB35D0026B3550232322A1154F5EF5D9ABFB9068D8E9985D592C053DCF0A080CC9D99BA737';

ChavePrivada = 'F'+'55F0B07A983DC8130D44450EF5E50323E9B6952F58BA20A2A347446192B2094D52442B32C835C948D9B5428F6FB9EB155156EA42C5185CA23E9F86D4992DD7FEF926AC27609F5D3FBF73B1D11DAC084C6AAAC0D126DB3127CB8DFECA6372F638E57BAA6626659C8B547867DB6F91A7C261691EA4FCDF78776D3686E55C08249';

A Tela com o erro vou colocar em anexo.

Obrigado pela atenção pessoal.

[Régys Silveira]

Esse não é o formato de chaves correto, gere um par de chaves utilizando o exemplo do ACBrEAD localizado em ACBr\Exemplos\ACBrEAD\Delphi, este exemplo já permite gerar também o arquivo XML para validação do registro EAD.