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 );
(...)
|