1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Var 
  Cipher : TDCP_rijndael;
  AES_Key :       Array [0..15] of Byte = ($32,$43,$f6,$a8,$88,$5a,$30,$8d,  $31,$31,$98,$a2,$e0,$37,$07,$34);
  AES_IV  :       Array [0..15] of Byte = ($00,$01,$00,$01,$00,$01,$00,$01,  $00,$01,$00,$01,$00,$01,$00,$01);
  Cipher_Block  : Array [0..15] of Byte = ($9b,$dd,$38,$72,$36,$8f,$6d,$67,  $39,$44,$dd,$9e,$14,$29,$3f,$35);
  Cipher_OutData: Array [0..15] of Byte;

begin
  Cipher := TDCP_rijndael.Create(nil);
  Cipher.Init      (AES_Key, SizeOf(AES_Key)*8, @AES_IV);
  //Cipher.EncryptCBC(Cipher_InData, Cipher_Block, Length(Cipher_InData) );
  Cipher.Reset;
  Cipher.DecryptCBC(Cipher_Block, Cipher_OutData, Length(Cipher_Block) );
  Cipher.Burn;
  Cipher.Free;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

type
  TByteArray = Array of Byte;

Var 
  Cipher_OutData: TByteArray;  //nicht "Array [0..15] of Byte;"
....
  SetLength(Cipher_OutData,length(Cipher_Block));
  Cipher.DecryptCBC(Cipher_Block, Cipher_OutData, Length(Cipher_Block) );  //wie vorher                    

1:

procedure DecryptCBC(const Indata; var Outdata; Size: longword); virtual;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Var
  EncryptedData,  DecryptedData: TByteArray;
  AES_Key, AES_IV : TByteArray;

begin
  SetLength(AES_Key,16);
  AES_Key[0]    := $00;  AES_Key[1]  := $BA; //und so weiter bis byte 16
  SetLength(AES_IV ,16);
  AES_IV[0]    := $01;  AES_IV[1]  := $02; //und so weiter bis byte 16

  aBlockSize := 20016; //or any other number, maybe NOT a factor of 16 Bytes
  Setlength(EncryptedData,aBlockSize);  
  Setlength(DecryptedData, aBlockSize);
  ms.Position := $0 ; //position innerhalb eines memory streams von wo ich die "encrypteten Daten auslese", hier: von Position 0 an
  ms.Read(EncryptedData[0], aBlockSize);  //array of bytes zum entschlüsseln auffüllen 

  Cipher := TDCP_rijndael.Create(nil);
  Cipher.Init(AES_Key, Length(AES_Key)*8, @AES_IV);
  Cipher.Reset;  
  Cipher.DecryptCBC(EncryptedData[0], DecryptedData[0], aBlockSize); //-> ByteArray “DecryptedData” sollte die entschluesselten daten beinhalten, leider passt das derzeit noch nicht;
  Cipher.Burn;
  Cipher.Free;                    

1:

procedure Init(const Key; Size: longword; InitVector: pointer); virtual;