Delphi×Ö·û´®¼ÓÃܽâÃܺ¯Êý

Delphi×Ö·û´®¼ÓÃܽâÃܺ¯Êý
¹¦ÄÜ£º×Ö·û´®¼ÓÃܺͽâÃÜ
Ê×Ïȶ¨ÒåÒ»¸ö³£Á¿Êý×é
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
Result:='';
j:=0;
for i:=1 to Length(Str) do
   begin
     Result:=Result+IntToHex(Byte(Str[i]) xor XorKey[j],2);
     j:=(j+1) mod 8;
   end;
end;
function Dec(Str:String):String;//×Ö·û½âÃܺ¯數
var
i,j:Integer;
begin
Result:='';
j:=0;
for i:=1 to Length(Str) div 2 do
   begin
     Result:=Result+Char(StrToInt('$'+Copy(Str,i*2-1,2)) xor XorKey[j]);
     j:=(j+1) mod 8;
   end;
end;