EldoS | Feel safer!

Software components for data protection, secure storage and transfer

Violation with TElAESSymmetricCrypto

Posted: 10/30/2009 04:49:12
by Evelyne Collin (Basic support level)
Joined: 09/21/2009
Posts: 2


Here my code for encrypt of the data :

Chiffrement := TElAESSymmetricCrypto.Create(SB_ALGORITHM_CNT_AES128,cmCBC);
CleTransact := TElSymmetricKeyMaterial.Create();

    //Load key
    fsCleTrans := TFileStream.Create(fCleTrans, fmOpenRead or fmShareDenyWrite);

      CleTransact.Key := LoadKey;


    CleTransact.IV := IV;

    Chiffrement.Padding     := cpNone;
    Chiffrement.KeyMaterial := CleTransact;

    fichDataChif := UFonctions.ConstructCheminDest(Copy(fichZip,1,length(fSource)- 6),'_2.chf');

    fsInput := TFileStream.Create(fichZip, fmOpenRead);
      fsOutput := TFileStream.Create(fichDataChif, fmCreate);
        Chiffrement.Encrypt(fsInput, fsOutput);

    on E : Exception do begin
      MessageDlg(E.Message, mtError, [mbOk], 0);
      Result := '';
  Result := fichDataChif;

I have an error of violation when I for the second time call this function in the same treatment for encrypt another group of data.

Chiffrement.Encrypt(fsInput, fsOutput); //<= Violation

Sincerely yours,
Posted: 10/30/2009 05:16:08
by Eugene Mayevski (Team)

No way, sorry. Please assign the license ticket to David Michel's account.

Sincerely yours
Eugene Mayevski



Topic viewed 979 times

Number of guests: 1, registered members: 0, in total hidden: 0


Back to top

As of July 15, 2016 EldoS business operates as a division of /n software, inc. For more information, please read the announcement.

Got it!