В общем, тема длинная только начал разбираться. Первая проблема -
Код:
1 2 3 4 5 6 7 8 9 10 11 12 | var
hProv: HCRYPTPROV;
hKey:HCRYPTKEY;
buffer: string ;
len:DWORD;
begin
buffer := 'Password' ;
len := length(buffer);
CryptAcquireContext(@hProv, nil , nil , PROV_RSA_FULL, CRYPT_VERIFYCONTEXT);
CryptGenKey(hProv, CALG_RC4,CRYPT_ENCRYPT or CRYPT_DECRYPT,@hKey);
CryptEncrypt(hKey, 0 , FALSE , 0 , @buffer[ 1 ], @len, len);
ShowMessage(buffer);
|
Этот код ничё не шифрует хотя по логике всё правильно. В общем есть у кого
РАБОЧИЕ исходники шифрования на Dlephi??