delphi7 写一个能对汉字、字母、数字都能加密的函数 和解密函数。求例子

Delphi 7 中创建一个可以处理汉字、字母和数字的加密解密函数通常会涉及到字符编码转换和简单的位操作。这里是一个基于替换式加密的基本示例，我们将使用 Caesar Cipher（凯撒密码）作为加密算法：

type
  TCharset = set of char; // 定义字符集

function EncryptChar(Char: char; Key: integer): char;
begin
  if Char in ['A'..'Z'] then
    Result := Chr(Ord(Char) + Key);
  else if Char in ['a'..'z'] then
    Result := Chr(Ord(Char) + Key - 26); // 小写字母加偏移
  else if Char in ['0'..'9'] then
    Result := Chr(Ord(Char) + Key - 55); // 数字加偏移
  else
    Result := Char; // 非字母数字直接返回
end;

// 加密函数
function EncryptString(const Input: string; Key: integer): string;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(Input) do
    Result := Result + EncryptChar(Input[i], Key);
end;

// 解密函数
function DecryptString(const Encrypted: string; Key: integer): string;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(Encrypted) do
    Result := Result + EncryptChar(Encrypted[i], -Key);
end;

这个示例中的加密函数`EncryptString`和解密函数`DecryptString`都接受一个字符串和一个整数密钥作为输入。它们遍历输入字符串中的每个字符，并应用相应的加密规则。

注意，这只是一个非常基础的加密示例，实际应用中可能会使用更复杂的加密算法，如AES或RSA等，并且应该妥善保存和管理密钥以保证安全性。