prog13Хеширование файлов не является целью моего проекта. С PB только начал работать и поэтому ищу что-нить попроще (без написания алгоритма), как в вышеописанном примере: вызвал функцию - получил хэш.Читаем
здесь
MSDN BlogOur "Microsoft Base/Strong/Enhanced Cryptographic Providers" are implemented on Rsaenh.dll. If you try to use CryptCreateHash with any SHA-2 Algid (CALG_SHA_256, CALG_SHA_384, CALG_SHA_512) and any of these CSP, you will still get a NTE_BAD_ALGID error on XP SP3. Why? The issue is that those Algid's are only valid with providers of type
PROV_RSA_AES , and these CSP are of type
PROV_RSA_FULL .
И далее, про реестр.
Примерный код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
n_cryptoapi in_crypto
string docname, named
integer value
value = GetFileOpenName("Select File", &
+ docname, named, "TXT", &
+ "Text Files (*.TXT),*.TXT" )
IF value = 1 THEN
integer li_FileNum
long flen, bytes_read, loops, i
blob b, tot_b
flen = FileLength(docname)
li_FileNum = FileOpen(docname, StreamMode!, Read!, LockRead!)
IF flen > 32765 THEN
IF Mod(flen, 32765) = 0 THEN
loops = flen/32765
ELSE
loops = (flen/32765) + 1
END IF
ELSE
loops = 1
END IF
FOR i = 1 to loops
bytes_read = FileRead(li_FileNum, b)
tot_b = tot_b + b
NEXT
FileClose(li_FileNum)
string hash
in_crypto.iHashAlgorithm = in_crypto.CALG_SHA_256
in_crypto.iCryptoProvider = in_crypto.MS_ENH_RSA_AES_PROV
in_crypto.iProviderType = in_crypto.PROV_RSA_AES
hash = in_crypto.of_gethashvalue( tot_b )
messagebox ("hash", hash)
END IF
Но! Есть одна тонкость.
В функции of_gethashvalue есть объявление
1.
2.
3.
//Blob{20} lblob_hash
//может не хватить. Замените на что-нибудь типа:
Blob{512} lblob_hash.
На Win7 отрабатывает нормально.
Кроме того, лично мне очень не нравятся не инициализированные строковые переменные, которые используются в апишных вызовах, поэтому рекомендую добавить что-нибудь. вроде
К сожалению, гарантировать работоспособность не могу, под рукой нет WinXP. Пробуйте.
