mORMot Open Source

jaclas

Member

Registered: 2014-09-12

Posts: 215

TAESWriteStream - chaining mode

What chaining mode does TAESWriteStream use?

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,660

Website

Re: TAESWriteStream - chaining mode

Only AES cypher without chaining (ECB).
So it is not very secure.

jaclas

Member

Registered: 2014-09-12

Posts: 215

Re: TAESWriteStream - chaining mode

So how to encrypt streams? By copying them to the array?

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,660

Website

Re: TAESWriteStream - chaining mode

Which array are you talking about?

jaclas

Member

Registered: 2014-09-12

Posts: 215

Re: TAESWriteStream - chaining mode

array of byte :-)
I need to encrypt stream (with chaining mode), how to do it best?

Like this?

procedure AESstreamCrypt(const aInStream, aOutStream: TStream; const aKey: TBytes; const aIV: TAESBlock);
var
  lInput : TBytes;
  lOutput : RawByteString;
begin
  lAES := TAESCBC.Create(aKey[0], lKeySize);
  try
    lAES.IV := aIV;
    aInStream.Position := 0;

    // copy aInStream to TBytes local variable
    SetLength(lInput, aInStream.Size);
    aInStream.ReadBuffer(lInput[0], aInStream.Size);

    //encypt TBytes
    lOutput := lAES.EncryptPKCS7(lInput, False);

    //copy encrypted data do output stream
    aOutStream.Write(lOutput[1], Length(lOut));
  finally
    lAES.Free;
  end;
end;

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,660

Website

Re: TAESWriteStream - chaining mode

Yes, or just encrypt in-place if aInSTream is a memory stream.