Шифрование Rijndael - PullRequest
Новая
       9

Шифрование Rijndael

1 голос
/ 26 апреля 2011

Я использую найденную библиотеку DCPcrypt здесь .

Вот небольшой код для шифрования строки 

InitializationVector: AnsiString;
const Key: Ansistring = 'keykeykeykey';
// Encrypt a string and return the Base64 encoded result
function Encrypt(DataToEncrypt: ansistring):ansistring;
var
  Cipher : TDCP_rijndael;
  Data: string;
  IV: array[0..15] of byte;      // the initialization vector
  i:Integer;
begin
  // Pad Key, IV and Data with zeros as appropriate
  FillChar(IV,Sizeof(IV),0);            // make the IV all zeros

  Data := PadWithZeros(DataToEncrypt,BlockSize);

  for i := 0 to (Length(IV) - 1) do   //just random values for the IV
    IV[i] := Random(256);

  Cipher := TDCP_rijndael.Create(nil);

  if Length(Key) <= 16 then
    Cipher.Init(Key[1],128,@IV[1])
  else if Length(Key) <= 24 then
    Cipher.Init(Key[1],192,@IV[1])
  else
    Cipher.Init(Key[1],256,@IV[1]);
  // Encrypt the data
  Cipher.EncryptCBC(Data[1],Data[1],Length(Data));
  // Free the cipher and clear sensitive information
  Cipher.Free;

  SetString(InitializationVector,PAnsiChar(@IV[1]),Length(IV));
  InitializationVector := Base64EncodeStr(InitializationVector);

  //Base64 encoded result
  Result := Base64EncodeStr(Data);
end;

Я могу расшифровать полученную строку, но только половину. Нашел один похожий пост, но он нашел ответ при кодировании криптограммы с base64, что я делаю. Здесь .

Любая помощь приветствуется!

1 Ответ

4 голосов
/ 27 апреля 2011

Строки в Delphi 2009/2010 и XE по умолчанию являются строками Unicode.
Это означает, что отдельные символы могут занимать 1 или больше байтов .
Вы помещаете старый добрый AnsiString вкод, но забыл один.

Это означает, что перевод в Unicode испортит ваше дешифрование, поскольку при шифровании даже один измененный бит испортит все.

Придерживайтесь AnsiStrings во всем, и вы должны быть в порядке.

Изменение: 

function Encrypt(DataToEncrypt: ansistring):ansistring;
var
  Cipher : TDCP_rijndael;
  Data: string;
  IV: array[0..15] of byte;      // the initialization vector
  i:Integer;
begin

на 

// Encrypt a string and return the Base64 encoded result
function Encrypt(DataToEncrypt: AnsiString): AnsiString;
var
  Cipher: TDCP_rijndael;
  //Data: string; <<- change to ansistring
  Data: AnsiString;
  IV: array[0..15] of byte;      // the initialization vector
  i: Integer;
...