Шифрование AES

[BARNEY]

Держи шифрование... думаю расшифровку поймёшь из последнего проекта.

[Serge_Bliznykov]

BARNEY, ну, раз Вы такой в этом деле дипломированный специалист, то у меня к Вам вопрос и малюсенькая просьба...

вопрос такой: а где в Вашем примере используется криптоалгоритм AES (как я понял именно этот алогритм требуется автору топика) ?!

и просьба - понимаю, что это дополнительный труд, но пишите, пожалуйста комментарии. Для нас, ньюбов, это было бы очень полезно!

___________________________________ _________
SergunchikSK, тёзка, а поясните, а почему Вы решили библиотечкой Delphi Encryption Compendium не пользоваться?.. (ну, были же какие-то причины отказаться от этой библиотеки?..)

[BARNEY]

Serge_Bliznykov
1) Дипломированным специалистом себя в этой области не считаю, ибо есть чему учиться.

Первое сообщение

Подскажите пожалуйста как зашифровать и дешифровать строку с ключом:
Нашел библиотеку wcrypt2. Как можно через нее?

Сам её использую.... 2 примера с исходниками выше....
Вопросы пожелания.

[SergunchikSK]

Всем спасибо, правда я только вчера вечером уже сделал.
Я себя совершенно не чувствую в этом деле специалистом.

{получаем контекст криптопровайдера}

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_AES_128, hash, 0, @key);

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


{выделяем место для буфера}
    GetMem(data, 1024);
    {шифруем данные}
      login:=password; //данные
       l := Length(login);
       if not CryptEncrypt(key, 0, True, 0, Pointer(login), @l, Length(login)) then
          if GetLastError <> ERROR_MORE_DATA then
                   RaiseLastOSError;
        // Шаг 2: выделили буфер (уже не 512, а ровно, сколько надо)
       Y := Length(login);
      SetLength(login, l);
      // Шаг 3: шифрование
        if not CryptEncrypt(key, 0, True, 0, Pointer(login), @Y, Length(login)) then
               RaiseLastOSError;
        SetLength(login, Y);


    {освобождаем место и закрываем файлы}
    FreeMem(data, 512);
    {освобождаем контекст криптопровайдера}
    edit4.Text:= login;



   // CryptReleaseContext(hProv, 0);

только вопрос выводиться барякозябры, можно как-нибудь перекодировать?