Rijndael decrypt mit Passwort & IV als Passphrase

[totti14]

Hallo gammatester,

das war die C Funktion dazu.

Code:

//Expand a user-supplied key material into a session key.
// key        - The 128/192/256-bit user-key to use.
// chain      - initial chain block for CBC and CFB modes.
// keylength  - 16, 24 or 32 bytes
// blockSize  - The block size in bytes of this Rijndael (16, 24 or 32 bytes).
void CRijndael::MakeKey(char const* key, char const* chain, int keylength, int blockSize)

Der falsche Mode ist da aus einen Copy&Paste reingerutscht

[gammatester]

OK, nehmen wird an, das ECB mit 128-Bit key vorliegt, dann sollte
es ungefähr so gehen

Delphi-Quellcode:

var
  AES: TDCP_rijndael;

const
  key128: array[0..15] of Ansichar = 'Key16_123456789!';
var
  plain,ct: array[0..15] of byte
...
  AES.Init(key128,128,nil);
  AES.EncryptECB(plain,ct);

Das Problem mit DCPCrypt (so wie ich es kenne, zB dcpcrypt2-2010.zip) ist, daß EncryptECB nur einen 16-Byte-Block akzeptiert. Du mußt also in einer Schleife entschlüsseln.

Zu Testen kannst Du zB http://jacquelin.potier.free.fr/CryptoStuff/ hernehmen. Wenn's dann wirklich ECB ist kannst Du auch meine AES-Routinen http://www.wolfgang-ehrhardt.de/crypt_de.html#AES verwenden.

[totti14]

Mode ist CBC und dann a' 64 Byte Blöcke.
Das entpacken usw bekomme ich ja noch hin aber ich habe keine Ahnung von der Initialisierung mit den beiden String.

Hier ist mal ein Beispiel von der C Unit

https://www.codeproject.com/Articles...ncryption-Decr

Das CryptoTool ist ja sehr schön. Kannte ich gar nicht.
Damit hat das AES entpacken funktioniert wenn ich dort meine beiden Strings unter Key & IV eingebe.

[gammatester]

Hier ein volständiges Programm analog zu C mit Ver- und Entschlüssseln (ich benutze Deinem IV in C hat man 16 0-Bytes).

Delphi-Quellcode:

program T_DCP;

{$apptype console}

uses
  SysUtils,
  Classes,
  DCPcrypt2,
  DCPblockciphers,
  DCPrijndael;

var
  AES: TDCP_rijndael;

var
  sm_chain0: array[0..15] of Ansichar = 'Vector16_1234567';
  key: array[0..15] of Ansichar = '1234567890123456';
  szDataIn1: array[0..47] of Ansichar = 'ababababccccccccababababccccccccababababcccccccc';

procedure TestCBCDP;
var
  i: integer;
var
  tmp,szDataOut: array[0..47] of Ansichar;
begin
  //fillchar(sm_chain0, sizeof(sm_chain0), 0);
  //Verschlüsseln
  AES.CipherMode := cmCBC;
  AES.Init(key,128,@sm_chain0);
  AES.EncryptCBC(szDataIn1,szDataOut,sizeof(szDataIn1));
  writeln('Verschuesseln: ');
  writeln(szDataOut);

  //Entschlüsseln
  AES.CipherMode := cmCBC;
  AES.Init(key,128,@sm_chain0);
  AES.DecryptCBC(szDataOut,tmp,sizeof(szDataIn1));
  writeln('Ver + Entschuesseln: ',tmp);
end;

begin
  AES := TDCP_rijndael.Create(nil);
  TestCBCDP;
end.

Und das Ergebnis

Code:

C:\TMP\yy>T_DCP.exe
Verschuesseln:
à¤┌é┴╠7}Ê©▄ÒáÁ¬, 3{┐Wf╔♣╣[G☺
Ver + Entschuesseln: ababababccccccccababababccccccccababababcccccccc

[totti14]

Danke gammatester funzt perfekt.