Алгоритм АЕS шифрование, расшифрование

[max38934]

Подскажите пожалуйста кто сталкивался, если необходимо шифрование алгоритмом AES с помощью CryptoAPI, где именно нужно указывать, что шифрование будет именно этим алгоритмом (необходимо определенный криптопровайдер или определенный тип?)

CryptAcquireContext(@hProv, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT)

Заранее очень благодарен!

[max38934]

Необходимо использовать :
тип = PROV_RSA_AES, имя = MS_ENH_RSA_AES_PROV .

Я обращаюсь через библиотеку wcrypt2.pas, но в ней нет - PROV_RSA_AES, имеется PROV_RSA_FULL и др. Что делать?

[max38934]

public
    { Public declarations }
    hProv: HCRYPTPROV;
    key: HCRYPTKEY;
    encrypt: boolean;
  end;
....
var hProv: HCRYPTPROV;
    hash: HCRYPTHASH;
    key: HCRYPTKEY;
    data: PByte;
    l: DWORD;
    fl:boolean;
    i:integer;
    err,login,cript_rez: string;
    cript_temp_1:array[0..65535] of char;
    cript_temp_2:string[255];
Const PROV_RSA_AES=24;
....
{получаем контекст криптопровайдера}
CryptAcquireContext(@hProv, nil, nil, PROV_RSA_AES, CRYPT_VERIFYCONTEXT);

{создаем хеш-объект}
CryptCreateHash(hProv, CALG_SHA, 0, 0, @hash);

{хешируем пароль}
CryptHashData(hash, @password[1], length(password), 0);

{создаем ключ на основании пароля для потокового шифра RC4}
CryptDeriveKey(hProv, CALG_RC4, hash, 0, @key);

{уничтожаем хеш-объект}
CryptDestroyHash(hash);

{выделяем место для буфера}
    GetMem(data, 512);
      {шифруем данные}
      login:=text; //данные
      fl:=true;
      l:=length(login);
      for i:=1 to length(login) do
      begin
      data^:=ord(login[i]);
      CryptEncrypt(key, 0, fl, 0, data, @l, l);

      cript_temp_1[i]:=chr(data^);
      cript_temp_2[i]:=cript_temp_1[i];
      login[i]:=cript_temp_2[i];   //рез-т шифрования
    end;
    {освобождаем место и закрываем файлы}
    FreeMem(data, 512);
    {освобождаем контекст криптопровайдера}
    CryptReleaseContext(hProv, 0);

Данный код реализован был для шифра RC4, а как для AES сделать?

[max38934]

Необходимо указать алгоритм - AES или CALG_AES, а там нет что делать?

CryptDeriveKey(hProv, CALG_RC4, hash, 0, @key)

[Goodwin98]

Не уверен, но возможно поможет.
http://www.cryptopro.ru/Cryptopro/forum/view.asp?q=2347

[max38934]

Я по находил const.
А вот когда зашифровываю текст, то выдается ошибка 'Unknown error', в чем может быть причина?

{получаем контекст криптопровайдера}
CryptAcquireContext(@hProv, nil, nil, PROV_RSA_AES, CRYPT_VERIFYCONTEXT);
 {создаем хеш-объект}
CryptCreateHash(hProv, CALG_SHA, 0, 0, @hash);
  {хешируем пароль}
CryptHashData(hash, @password[1], length(password), 0);
  {создаем ключ на основании пароля для AES_256}
CryptDeriveKey(hProv,CALG_AES_256,hash,0,@key);
..
{выделяем место для буфера}
    GetMem(data, 512);
    {шифруем данные}
      login:=text; //данные
      fl:=true;
      l:=length(login);
      for i:=1 to length(login) do
      begin
      data^:=ord(login[i]);
      if not CryptEncrypt(key, 0, fl, 0, data, @l, l) then
            begin
            case int64(GetLastError) of
            ERROR_INVALID_HANDLE: err := 'ERROR_INVALID_HANDLE';
            ERROR_INVALID_PARAMETER: err := 'ERROR_INVALID_PARAMETER';
            NTE_BAD_ALGID: err := 'NTE_BAD_ALGID';
            NTE_BAD_DATA: err := 'NTE_BAD_DATA';
            NTE_BAD_FLAGS: err := 'NTE_BAD_FLAGS';
            NTE_BAD_HASH: err := 'NTE_BAD_HASH';
            NTE_BAD_HASH_STATE: err := 'NTE_BAD_HASH_STATE';
            NTE_BAD_KEY: err := 'NTE_BAD_KEY';
            NTE_BAD_LEN: err := 'NTE_BAD_LEN';
            NTE_BAD_UID: err := 'NTE_BAD_UID';
            NTE_DOUBLE_ENCRYPT: err := 'NTE_DOUBLE_ENCRYPT';
            NTE_FAIL: err := 'NTE_FAIL';
            NTE_NO_MEMORY: err := 'NTE_NO_MEMORY';
            else err := 'Unknown error';                     //      <--  выдается данное сообщение
            end;
            MessageDlg('Error of CryptEncrypt: '+err,
                         mtError, [mbOK], 0);
            exit;
            end;
      cript_temp_1[i]:=chr(data^);
      cript_temp_2[i]:=cript_temp_1[i];
      login[i]:=cript_temp_2[i];   //рез-т шифрования

[Goodwin98]

Пусть выведет, что пришло по GetLastError, или положи сюда екзешник, я гляну.

[max38934]

http://imagedesign.com.ua/max/1.rar

[max38934]

button 1 - Зашифрование
___________________
Ошибка одна и та же: (разными путями)
1

ERROR CRYPTENCRYPT -- Unknown error

2 else err := 'Unknown error'; заменить на else RaiseLastOSError;

System Error. Code:234.
Имеются дополнительные данные. Process stopped/ Use step or run to continue/

3 else err := 'Unknown error'; заменить на
else
begin
FormatMessage(FORMAT_MESSAGE_FROM_S YSTEM,nil,e,0,mbuf,sizeof(mbuf),nil );
err:=IntToStr(e)+#13#10+mbuf;
end;

Error of CryptEncrypt : 21
Устройство не готово

[Goodwin98]

Я с crypto api раньше не работал,но
Во-первых, у того, что я скачал не отображается окно, соотв и button1 нажать не могу.
во-втрорых, а зачем шифровать в цикле почему не.

 login:=text; //данные
      fl:=true;
      l:=length(login);
      if not CryptEncrypt(key, 0, fl, 0, login, @l, l) then

?

UPD:
Написал аналог. Он воврашает ошибку ERROR_MORE_DATA. К чему бы это?