带密匙的字符串加密解密函数(支持中文)

uses AnsiStrings;   Function JiaMi(Src:String; Key:String):String;   var     KeyLen :Integer;     KeyPos :Integer;     offset :Integer;     dest :String;     SrcPos :Integer;     SrcAsc :Integer;     Range :Integer;     IntTemp:integer;     SrcAnsi:PAnsiChar;   begin     KeyLen:=Length(Key);     KeyPos:=0;     Range:=1;     Randomize;     offset:=Random(Range);     dest:=format('%1.2x',[offset]);     SrcAnsi:=PAnsiChar(AnsiString(Src));     IntTemp:= Length(SrcAnsi);     for SrcPos := 1 to IntTemp do     begin       SrcAsc:=(Ord(SrcAnsi[SrcPos-1]) + offset) MOD 255;       if KeyPos < KeyLen then KeyPos:= KeyPos + 1 else KeyPos:=1;       SrcAsc:= SrcAsc xor Ord(Key[KeyPos]);       dest:=dest + format('%1.2x',[SrcAsc]);       offset:=SrcAsc;     end;     Result:=Dest;   end;   //解密函数   Function JieMi (Src:String; Key:String):String;   var     KeyLen :Integer;     KeyPos :Integer;     offset :Integer;     dest :String;     SrcPos :Integer;     SrcAsc :Integer;     TmpSrcAsc :Integer;     Range :Integer;     SrcAnsi:PAnsiChar;     IntTemp,i:Integer;     ByteArray: array of Byte;   begin     KeyLen:=Length(Key);     if KeyLen = 0 then key:='starlin';     KeyPos:=0;     SrcPos:=0;     SrcAsc:=0;     Range:=1;     offset:=StrToInt('$'+ copy(src,1,2));     SrcPos:=3;     IntTemp:=Length(Src) div 2;     setlength(ByteArray,IntTemp);     i:=0;     repeat       try         SrcAsc:=StrToInt('$'+ copy(src,SrcPos,2));       except         SrcAsc:=StrToInt('$00');       end;           if KeyPos < KeyLen Then KeyPos := KeyPos + 1 else KeyPos := 1;           TmpSrcAsc := SrcAsc xor Ord(Key[KeyPos]);           if TmpSrcAsc <= offset then         TmpSrcAsc := 255 + TmpSrcAsc - offset       else         TmpSrcAsc := TmpSrcAsc - offset;       ByteArray[i]:=TmpSrcAsc;       i:=i+1;       offset:=srcAsc;       SrcPos:=SrcPos + 2;     until SrcPos >= Length(Src);     CopyMemory(@SrcAnsi[0],@ByteArray[0],IntTemp);     dest:=string(AnsiStrings.strpas(SrcAnsi));     Result:=Dest;       end;     procedure TForm1.Button1Click(Sender: TObject);   begin showmessage(jiami('www.delphitop.com','123')); showmessage(jiemi(jiami('www.delphitop.com','123'),'123')); end;