Шифрование AES

[SergunchikSK]

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

[BARNEY]

ну и шифруй ей... Я же готовый проект выкладывал с этой библиотекой....

Да и на разработку шифровальных средств лицензии в ФСБ получить не забудь.. если для компании пишешь.

http://programmersforum.ru/showthrea...hlight=wcrypt2

вот тебе тема.

[SergunchikSK]

а где выкладывал?

И как создать ключ на основании пароля для AES? У меня нет его в алгоритмах

[Serge_Bliznykov]

SergunchikSK посмотрите на библиотечку Delphi Encryption Compendium, о которой я писал в вышеупомянутой теме.
и учтите, что, согласно википедии (смотри статью)
AES == Rijndael

[BARNEY]

ну темку то читали ?

http://programmersforum.ru/attachmen...3&d=1249890122

там есть ключевое слово..перетащите его в ini , ini на флэш, вот вам переносной ключ.... как вариант...

офф

Serge_Bliznykov
я темку создал

http://programmersforum.ru/showthread.php?t=60614

если интересно можем пообщаться там....

[SergunchikSK]

я тут почитал, может совсем туплю сделал вот так

const
  PROV_RSA_AES=24;
begin
   key:=StrToCard(Edit1.text);
   password:=edit2.Text;
   CryptAcquireContext(@hProv, nil, nil, PROV_RSA_AES, CRYPT_VERIFYCONTEXT);

   CryptCreateHash(hProv, CALG_SHA, 0, 0, @hash);
   CryptHashData(hash, @password[1], length(password), 0);

   CryptDeriveKey(hProv,CALG_AES_256,hash,0,@key);
   GetMem(data, 512);
   CryptEncrypt(key, 0, true, 0, data, @password,256);

где в edit1 у меня ключ. В edit2 то что нужно зашифровать. А допустим в edit3 вывести результат

мне всего лишь нужно зашифровать текст в edit2 и вывести результат потом в Edit3

тоже не знаете, я уже с этим весь мозг вынес

[BARNEY]

блин.... я то знаю.... если не можете с примером разобраться в понедельник напишу вам....

p.s. А для чего это делаете??? Для себя или так фирму подставляете?

[SergunchikSK]

Да там задали задание. Просто нужно реализовать это. Нужно зашифровать и расшифровать пароль на основе ключа именно этим методом.

BARNEY, ну как с помощью?

[BARNEY]

сори бук дома оставил... Завтра принесу...

[SergunchikSK]

Понял, буду ждать. Я тут попробовал зашифровал через RC4. А надо через AES128