delphi7 对部分程序简单的AES加密 例子

Delphi 7中可以使用内置的加密库如VCL Crypto API，尤其是通过`TIdDES`组件来进行AES（Advanced Encryption Standard）加密。以下是一个简单的例子，展示了如何使用`TIdDES`对字符串进行加密：

uses
  IdCryptoStream, IdDES;

procedure AESEncrypt(const PlainText: string; const Key: string);
var
  Stream: TIdDES;
begin
  // 初始化DES密钥
  Stream := TIdDES.Create(nil);
  try
    // 设置密钥，这里假设Key是16字节长度的密钥（AES-128）
    Stream.KeyData.SetString(Key.Pack('Hex'), System.SizeOf(Stream.KeyData));

    // 创建一个新的加密流
    var Encryptor: TMemoryStream = TMemoryStream.Create;
    try
      Stream.SetMode(TDES.cmEncrypt);

      // 加密数据
      Encryptor.Write(PlainText.Packed, Length(PlainText));
      Stream.Output := Encryptor;

      // 获取加密后的数据
      Result := Encryptor.Data;
    finally
      Encryptor.Free;
    end;
  finally
    Stream.Free;
  end;
end;

// 使用示例
var
  Input: string := 'Hello, World!';
  Encrypted: string;
begin
  Encrypted := AESEncrypt(Input, 'YourSecretKey1234567890');
  WriteLn('Encrypted Data:', Encrypted);