generateead

generateEAD

Gera a assinatura EAD do arquivo a partir das chaves pública e privada informadas.

Parâmetros:

cNomeArquivo: Variável STRING com o cominho+nome do arquivo que será usado na geração do registro EAD.

cChavePublica: Variável STRING com a chave pública gerada.

cChavePrivada: Variável STRING com a chave privada gerada.

  cRegistroEAD: Variável STRING com o tamanho de 256 bytes para receber o registro EAD criado

 
iGrava: Variável INTEGER para indicar se o registro EAD será ou não incluído ao final do arquivo informado, onde:

0: não incluir.

1: incluir.

retornos da Função (INTEIRO):

0: Erro de execução.

1: OK.

Observações:

• No arquivo informado deve existir uma linha em branco ao seu final para que a assinatura EAD (registro EAD) seja incluído, caso o parâmetro iGrava esteja igual a 1 na função.

• As chaves pública e privada devem ser geradas pela função genkkey antes de serem passadas como parâmetro na função generateEAD.

• A variável que receberá a assinatura EAD (registro EAD) deve ser inicializada com 256 espaços antes de usá-la.

Exemplo:

' Exemplo em Visual Basic

(...)

cRegistroEAD = Space(256)

cNomeArquivo = "C:\Espelho.txt"

iRetorno = generateEAD( cNomeArquivo, cChavePublica, cChavePrivada, cRegistroEAD, 1 )

If ( iRetorno = 0 ) Then

 MsgBox "Erro de execução!", vbInformation + vbOKOnly, "Atenção"

Else

 MsgBox "Sucesso!", vbInformation + vbOKOnly, "Atenção"

End If

(...)

// Exemplo em Delphi

(...)

setlength( cRegistroEAD, 256 );

cNomeArquivo := "C:\Espelho.txt";

iRetorno := generateEAD( cNomeArquivo, cChavePublica, cChavePrivada, , 1 );

if ( iRetorno = 0) then

 application.MessageBox( 'Erro de execução!', 'ERRO', MB_ICONINFORMATION + MB_OK )

else

 application.MessageBox( 'Sucesso!', 'ERRO', MB_ICONINFORMATION + MB_OK );

(...)