function CryptStr(const S:String; sType: DWord):String; var i: Integer; FKey: Integer; begin result:=''''''''; case sType of 0: SetPass; 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); end; 1: GetPass Begin FKey := Ord(S[Length(s)]); for i:=1 to Length(s) - 1 do Result := Result+Chr( Ord(s[i]) xor i xor FKey);
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
