怎样加密字符串？

Question

要求用固定的字符串对另一个字符串加密
加密的结果只能是字母或数字
结果是一个固定的值
每次用同样的字符串加密结果都一样

Answer 1

稍微复杂的有:function TForm1.Decrypt(s: string; Key: Integer): string;
var
  i: Integer;
begin
  Result := s;
  for i := 1 to Length(s) do
    Result[i] := Chr(Ord(s[i]) xor Key);
end;function TForm1.Encrypt(s: string; Key: Integer): string;
begin
      Result := Decrypt(s, Key);
end;

Answer 2

其实就是对目标字符串的ASCII进行运算而已

Answer 3

function  Security(S : String):string;
const TempStr ='9876543210abcdefghijklmnopqrstuvwxyzABCDEFGHIJCKLMNOPQRSTUVWXZY';
var Temp_Char : Char ;
     i,j: integer ;
begin
   for i:= 1 to length(S) do
    begin
      Temp_char := s[i] ;
      j:= Ord(temp_Char);
      if ((j-60) > 63) or (J-60) < 1 ) then
      //-60的值可能自己根据情况进行调整
      begin
        Result := '含有不能进行加密的字符'+temp_Char+inttostr(j);
        exit ;
      end
      else
      begin
         Result :=Result + TempStr[Ord(temp_Char)-40] ;
      end ;
    end ;end ;
只是一个示例而已