delphi sm2加密中文乱码

在 Delphi 中进行 SM2 加密时，可能会遇到中文乱码的问题。这通常是因为 SM2 加密算法使用的是字节流而不是字符流。在处理中文字符时，需要进行字符编码的转换。下面是一个示例代码，展示了如何使用 Delphi 进行 SM2 加密并处理中文乱码问题：

uses
  System.SysUtils, IdSSLOpenSSL, IdCTypes, IdHMACSHA1, IdOpenSSLHeaders, IdOpenSSLIOHandler;

function SM2Encrypt(const input: AnsiString; const publicKey: AnsiString): AnsiString;
var
  ctx: PSSL_CTX;
  ecKey: PEC_KEY;
  bio: PBIO;
  cipherText: TIdBytes;
  len: Integer;
begin
  SSL_load_error_strings();
  OpenSSL_add_all_algorithms();
  SSLeay_add_all_algorithms();

  ctx := SSL_CTX_new(EVP_sm2());
  if ctx = nil then
    raise Exception.Create('Failed to create SSL context');

  bio := BIO_new_mem_buf(PAnsiChar(publicKey), Length(publicKey));
  ecKey := PEM_read_bio_EC_PUBKEY(bio, nil, nil, nil);
  if ecKey = nil then
    raise Exception.Create('Failed to read public key');

  len := SM2_encrypt(ctx, ecKey, PByte(input), Length(input), nil, @len);
  if len <= 0 then
    raise Exception.Create('Failed to encrypt data');

  SetLength(cipherText, len);
  if SM2_encrypt(ctx, ecKey, PByte(input), Length(input), PByte(cipherText), @len) <= 0 then
    raise Exception.Create('Failed to encrypt data');

  SSL_CTX_free(ctx);
  EC_KEY_free(ecKey);
  BIO_free(bio);

  Result := TIdEncoderMIME.EncodeBytes(cipherText);
end;

在调用 `SM2Encrypt` 函数时，传入待加密的中文字符串以及公钥的字符串形式。函数会返回经过加密后的密文字符串。注意，此处使用了 `TIdEncoderMIME.EncodeBytes` 方法对密文进行 Base64 编码，以确保返回的结果是可打印字符。

希望这个示例能帮助你解决中文乱码的问题。如果还有其他疑问，请随时提问。