Delphi AES-128-ECB加密模式，PKCS5Padding补码， key 需要为16位，并对加密的内容使用BASE64做转码功能

在Delphi中，要使用AES-128-ECB（电子密码本模式）加密，配合PKCS7Padding（等长填充），同时对加密后的结果进行Base64编码，可以按照以下步骤操作：

1. **设置环境**:
- 引入必要的库：`System.NetEncoding`, `System.Security.Cryptography` (从Delphi 2007起自带AES支持)。

2. **生成16字节的随机密钥（Key）**:

   var
     Key: TBytes;
   begin
     SetLength(Key, 16);
     RandomMemory(Key, Length(Key)); // 生成16字节的随机密钥
   end;

3. **创建AES加密器**:

   var
     AesEncryptor: IAsymmetricAlgorithm;
   begin
     AesEncryptor := CreateOATObject('Algoritma.AES', 'AESManaged') as IAsymmetricAlgorithm;
     AesEncryptor.Key := Key;
     AesEncryptor.Mode := TAlgorithmMode.ECB; // ECB模式
   end;

4. **应用PKCS5Padding**:

   function PKCS5Pad(input: TBytes; blockSize: Integer): TBytes;
   const
     padChar = $FF;
   begin
     result := input;
     if Length(input) mod blockSize <> 0 then
       raise Exception.CreateFmt('Input too short for padding (%d bytes, %d block)', [Length(input), blockSize]);
     SetLength(result, Length(input) + blockSize - Length(input) mod blockSize);
     FillChar(result[Length(input) ..], blockSize, padChar);
   end;

5. **加密数据**:

   var
     Input: string;
     EncryptedData: TBytes;
   begin
     Input := 'Your Data'; // 要加密的数据
     EncryptedData := PKCS5Pad(Encoding.UTF8.GetBytes(Input), AesEncryptor.BlockSize);
   end;

6. **Base64编码**:

   var
     Base64Encoded: string;
   begin
     Base64Encoded := EncodeBase64(EncryptedData);
   end;