加密和解密(delphi实现)

最新推荐文章于 2025-05-28 09:39:26 发布

formiss

最新推荐文章于 2025-05-28 09:39:26 发布

阅读量4k

点赞数

CC 4.0 BY-SA版权

文章标签：解密 delphi 加密 stream string integer

本文链接：https://blog.youkuaiyun.com/formiss/article/details/1566352

本文介绍了一种简单的字符串加密和解密算法实现过程。该算法首先通过异或运算将每个字符与其在字符串中的位置结合，之后再与一个随机生成的密钥进行异或运算。加密后的结果加上密钥并通过Base64编码输出。解密则逆向操作，先解码，再利用相同的密钥和位置信息还原原始字符串。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//加密流程：先把每个字符与自己在字符串中的位置异或运算，然后再与密钥进行异或运算
//然后把密钥加在最后，最后把所得的结果进行base64编码
//解密时反之：先解码，再解密。
function TfrmClassRoom.CryptStr(const s: string; stype: smallint): string;
var
i, fkey: integer;
sInput:string;
stream:TStringStream;
begin
result := '';
case stype of
    0: //加密
      begin
        randomize;
        fkey := random($FF);
        for i := 1 to length(s) do
          result := result + chr(ord(s[i]) xor i xor fkey);
        result := result + char(fkey);
        //Result := s;
        stream := TStringStream.Create(result);
        stream.Position :=0;
        Result := IdEncoderMIME1.Encode(stream);
        stream.Free;
        for i:=1 to length(result) do
          if Result[i]='/' then Result[i]:='_'
          else if Result[i]='+' then Result[i]:='!'
      end;
    1: //解密
      begin
        sInput := s;
        for i:=1 to length(sInput) do
          if sInput[i]='_' then sInput[i]:='/'
          else if sInput[i]='!' then sInput[i]:='+';
        sInput := IdDecoderMIME1.DecodeToString(sInput);
        //Result :=sinput;
        fkey := ord(sInput[length(sInput)]);
        for i := 1 to length(sInput) - 1 do
          result := result + chr(ord(sInput[i]) xor i xor fkey)
      end;
end;
end;