Çë´ó¼Ò°ïæ°ÑÒÔϵÄdelphi´úÂë±ä³ÉVBµÄ

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;

---

¶¥
{{