[NT_AUTHORITY]

В общем, тема длинная только начал разбираться. Первая проблема -

Код:

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??