delphi 字符串加密收集 function Encode(Str:String):String; var//加密 TmpChr:AnsiChar; i,Len:integer; begin Result:=Str; Len:=Length(Result); TmpChr:=Result[1]; for i:=1 to Len-1 do Result[i]:=Result[i+1]; Result[Len]:=TmpChr; end; function Decode(Str:String):String; var//解密 TmpChr:AnsiChar; i,Len:integer; begin Result:=Str; Len:=Length(Result); TmpChr:=Result[Len]; for i:=Len DownTo 2 do Result[i]:=Result[i-1]; Result[1]:=TmpChr; end; /////////////////////// 功能：字符串加密和解密 作用：可用作密码的和一些重要参数的保存，数据经加密后保存即使被人看到了也无防。 首先定义一个常量数组 const XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用 然后在程序里加入以下两个函数，具体用法就不用多说了吧！ function Enc(Str:String):String;//字符加密函數 這是用的一個異或加密 var i,j:Integer; begin Resu lt:=''; j:=0; for i:=1 to Length(Str) do begin Resu lt:=Resu lt+IntToHex (By te(Str[i]) x or XorKey [j],2); j:=(j+1) mod 8; end; end; fu nction Dec(Str:String):String;//字符解密函數 v ar i,j:Integer; begin Resu lt:=''; j:=0; for i:=1 to Length(Str) div 2 do begin Resu lt:=Resu lt+Char(StrToInt('$'+Copy (Str,i*2-1,2)) x or XorKey [j]); j:=(j+1) mod 8; end; end; fu nction Cry pt(s: string; Key : Word; const bEncry pt: boolean): string; const SeedA = 787; /// 常量，你可以修改 SeedB = 787; /// 常量，你可以修改 v ar i: integer; ps, pr : ^by te; begin if bEncry pt then s := s+#0; SetLength(Resu lt, Length(s)); ps := @s[1]; pr := @Resu lt[1]; for i := 1 to length(s) do begin pr^ := ps^ x or (Key shr 8); if bEncry pt then Key := (pr^ + Key ) * SeedA + SeedB else Key := (ps^ + Key) * SeedA + SeedB; pr := pointer(integer(pr) + 1); ps := pointer(integer(ps) + 1); end; end; /////////////////// 1. function EncrypStr(Src, Key: String): String;//字符串加密函数 ...
