加密和解密(delphi实现)

//加密流程：先把每个字符与自己在字符串中的位置异或运算，然后再与密钥进行异或运算
//然后把密钥加在最后，最后把所得的结果进行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;