MD5 и CryptoAPI

← →
fog (2008-08-31 22:39) [0]

procedure TForm1.Button1Click(Sender: TObject); var hProv: hCryptProv; hHash: hCryptHash; MS: TMemoryStream; sl: cardinal; sig: array[0..63] of Byte; begin CryptAcquireContext(hProv, nil, nil, PROV_RSA_FULL, 0); CryptCreateHash(hProv, CALG_MD5, 0, 0, hHash); MS := TMemoryStream.Create; MS.LoadFromFile("test.exe"); CryptHashData(hHash, MS.Memory, MS.Size, 0); CryptSignHash(hHash, AT_SIGNATURE, nil, 0, nil, sl); CryptSignHash(hHash, AT_SIGNATURE, nil, 0, @sig[0], sl); if hHash <> 0 then CryptDestroyHash(hHash); if hProv <> 0 then CryptReleaseContext(hProv, 0); if MS <> nil then MS.Free; end;

полученный результат (sig) не совпадает с полученным сторонним MD5 калькулятором (md5calc.exe).
размер файла test.exe - > 10 M.
где ошибка?

← →
Медвежонок Пятачок © (2008-09-01 09:06) [1]

И накой здесь CryptSignHash , если нужно всего лишь md5?

← →
Медвежонок Пятачок © (2008-09-01 09:12) [2]

Ну и после CryptHashData нужно получить размер итогового хеша, распределить память под хеш и и затем получить само значение хеша: CryptGetHashParam

← →
fog (2008-09-01 12:08) [3]

Ошибку понял, а как быть с большими (типа образ DVD) файлами?

← →
Медвежонок Пятачок © (2008-09-01 12:09) [4]

Точно так же.

Цикл поблочного чтения и в нем CryptHashData

← →
fog (2008-09-01 16:15) [6]

И на том спасибо

MD5 и CryptoAPI Найти похожие ветки