AES 256 + Base64

@Ler1k · Регистрация: 20.04.2016

Доброго времени суток, может кто подсказать функцию шифрование на делфи aes 256.
Нужен хотя бы пример шифрование:
data+privat key.

@mr-Crocodile · 10.10.2019, 17:33

что, тебе враги гугл сломали?

Given this code in Delphi using DCrypt:

Delphi

Uses DCPcrypt2, DCPblockciphers, DCPrijndael, DCPbase64;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var Cipher : TDCP_rijndael;
    Data, Key, IV : ansistring;
    index, dataLength, bsize, pad: integer;
begin
  key := '12345678901234567890123456789012';
  IV  := '1234567890123456';
  Data := 'thisis128bitstxt';
 
  Cipher := TDCP_rijndael.Create(nil);
  try
    Cipher.Init(Key[1],256,@IV[1]);
 
    //don't miss padding
    {start padding}
    dataLength := Length(Data);
    bsize := (Cipher.BlockSize div 8);
    pad := bsize - (dataLength mod bsize);
    for index := 1 to pad do
      Data := Data+chr(pad);
    {end padding}
 
    Cipher.EncryptCBC(Data[1],Data[1],Length(Data));
  finally
    Cipher.Free;
  end;
 
  Data := DCPBase64.Base64EncodeStr(Data);
  Memo1.Lines.Add(Data);
end;

@Ler1k · 10.10.2019, 19:43 **[ТС]**

Я пытался через эту библиотеку, ну у меня не получалось сложить только что бы шифровал, текст и приват кей. Без IV
и в формате ECB. Можете пожалуйста помочь?

Добавлено через 43 минуты
Спасибо разобрался с этой библиотекой, оказалось все очень просто...

@mr-Crocodile · 11.10.2019, 09:36

Сообщение от Ler1k

Спасибо разобрался с этой библиотекой, оказалось все очень просто...

так ты выложи решение (или расскажи, в чём была проблема). это будет полезно.

@Ler1k · 11.10.2019, 09:43 **[ТС]**

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var Cipher : TDCP_rijndael;
    Data, Key, IV : ansistring;
    index, dataLength, bsize, pad: integer;
begin
  key := 'WUNQL217CgV-BHATCAh_NE1WXWFwLWou';
// IV  := '1234567890123456'; //// Здесь просто закоментил 
  Data := 'text';
 
  Cipher := TDCP_rijndael.Create(nil);
  try
    Cipher.Init(Key[1],256,@IV[1]);
 
    //don't miss padding
    {start padding}
    dataLength := Length(Data);
    bsize := (Cipher.BlockSize div 8);
    pad := bsize - (dataLength mod bsize);
    for index := 1 to pad do
      Data := Data+chr(pad);
 
    Cipher.EncryptECB(Data[1],Data[1]); /// Здесь убрал Length(Data)
  finally
    Cipher.Free;
  end;
 
  Data := DCPBase64.Base64EncodeStr(Data);
  Memo1.Lines.Add(Data);
end;

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

@mr-Crocodile · 11.10.2019, 10:21

Сообщение от Ler1k

Не знаю правильно все или нет.

у меня возникает большой вопрос к этой строке

Сообщение от Ler1k

Delphi

1	Cipher.Init(Key[1],256,@IV[1]);

если ты закомментил заполнение строки IV то там - в лучшем случае, пустая строка, но, скорее всего, там какой-то мусор.

а так пробовал?

Delphi

1	Cipher.Init(Key[1],256, nil );

@Ler1k · 11.10.2019, 13:25 **[ТС]**

Не знаю даже как и по чему))
ну что так:

Delphi

1	Cipher.Init(Key[1],256,@IV[1]);

что так:

Delphi

1	Cipher.Init(Key[1],256, nil );

Шифрует одинаково даже если просто оставить IV пустым..

Delphi

 IV  := '';

так же без изменений, шифрует как надо..

Ну ваш вариант точно по лучше..

@Ler1k 5 / 4 / 2 Регистрация: 20.04.2016 Сообщений: 62
		1
	RAD XE3+ AES 256 + Base64 10.10.2019, 17:05. Показов 4575. Ответов 6 Метки нет (Все метки) Доброго времени суток, может кто подсказать функцию шифрование на делфи aes 256. Нужен хотя бы пример шифрование: data+privat key. 0

@Ler1k 5 / 4 / 2 Регистрация: 20.04.2016 Сообщений: 62
	10.10.2019, 19:43 [ТС]	3
	Я пытался через эту библиотеку, ну у меня не получалось сложить только что бы шифровал, текст и приват кей. Без IV и в формате ECB. Можете пожалуйста помочь? Добавлено через 43 минуты Спасибо разобрался с этой библиотекой, оказалось все очень просто... 1

@mr-Crocodile 2830 / 1501 / 602 Регистрация: 19.03.2019 Сообщений: 4,987
	11.10.2019, 09:36	4
	Сообщение от Ler1k Спасибо разобрался с этой библиотекой, оказалось все очень просто... так ты выложи решение (или расскажи, в чём была проблема). это будет полезно. 0

Опции темы

AES 256 + Base64

Решение