Gera o MD5 do arquivo executável da aplicação.
Parâmetros:
cNomeArquivo: Variável STRING com o cominho+nome do arquivo que será usado na geração do MD5, com o tamanho de até 512 caracteres.
cMD5: Variável STRING inicializada com 33 espaço para receber o MD5 gerado.
Possíveis retornos da Função (INTEIRO):
0: Erro de execução.
1: OK.
Exemplo:
' Exemplo em Visual Basic
(...)
cNomeArquivo = "C:\App.exe"
cMD5 = space(33)
cNomeArquivo, cMD5)
If (iRetorno = 0) Then
MsgBox "Erro na chave!"
Else
MsgBox "Chave correta!", vbInformation + vbOKOnly, "Atenção"
End If
(...)
// Exemplo em Delphi
(...)
cNomeArquivo := "C:\App.exe";
SetLength( cMD5, 33 );
iRetorno := md5FromFile( cNomeArquivo, cMD5 );
if ( iRetorno = 0 ) then
application.MessageBox( 'Erro na chave !', 'ERRO', MB_ICONINFORMATION + MB_OK )
else
application.MessageBox( 'Chave correta!', 'ERRO', MB_ICONINFORMATION + MB_OK );
(...)
|