EldoS | Feel safer!

Software components for data protection, secure storage and transfer

How to encrypt AES 128 ECB with key

Posted: 08/09/2016 14:55:27
by Bremen Sistemas (Basic support level)
Joined: 08/20/2012
Posts: 17

procedure TForm1.Button4Click(Sender: TObject);
  Crypto: TElAESSymmetricCrypto;
  keyM: TElSymmetricKeyMaterial;
  KeyBuf,InBuf,OutBuf: ByteArray;
  OutSize: integer;
  IV : ByteArray;

  mykey: string;
  mykey := 'hFPcpNFQ8JQhmJ/idIngQg==';        // normal
  //mykey := 'aEZQY3BORlE4SlFobUovaWRJbmdRZz09';  // base64

  Crypto         := TElAESSymmetricCrypto.Create(SB_ALGORITHM_CNT_AES128, cmECB);
  //Crypto.Padding := cpPKCS5;

  keyM   := TElSymmetricKeyMaterial.Create;

    SetLength(IV, 16);
    IV:= SBUtils.BytesOfString(Copy(Edit1.Text,1,16));
    Key.IV := IV;
    KeyBuf := SBUtils.BytesOfString(Edit1.Text);
    Key.Key:= KeyBuf;
    aes.Padding := cpNone;
    aes.KeyMaterial := Key;

   // aes.Mode :=

    InBuf := SBUtils.BytesOfString(Edit2.Text);
    OutSize := 0;
    aes.Encrypt(@InBuf[0], Length(InBuf), nil, OutSize);
    SetLength(OutBuf, OutSize);
    aes.Encrypt(@InBuf[0], Length(InBuf), @OutBuf[0], OutSize);
    SetLength(OutBuf, OutSize);
    // convert binary output to Base64 to make it readable
    Memo1.Text := SBEncoding.Base64EncodeArray(OutBuf, false);

How to encrypt AES 128, with 16bits, if my "mykey" is size 24 ?
Posted: 08/09/2016 15:07:50
by Eugene Mayevski (Team)

Technical Support is provided to customers with the linked Support Access Ticket. You will find your Support Access Ticket together with all the details about how to use it in the registration e-mail that we’ve sent to you upon the purchase. The procedure of linking the Support Access Ticket is described in the registration e-mail as well.

I am afraid that without the Support Access Ticket linked we won't be able to assist you. Thank you for understanding.

Sincerely yours
Eugene Mayevski



Topic viewed 929 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!