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