const XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用 function Dec(Str:String):String;//字符解密函?vari,j:Integer;beginResult:='';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; 就上面几行代码，
求懂php的帮忙把这个函数翻译成php的，
我delphi加密，然后php解密，
我对php一点也不懂，但是懂调用。
回复讨论(解决方案)
解决了200分奉上
还有一个帖子也是100分： http://bbs.csdn.net/topics/390998635
给个密文，我测试看看~
function Dec($str){ $XorKey = array(0xB2,0x09,0xAA,0x55,0x93,0x6D,0x84,0x47); $result = ""; for($i=0, $j=0; $i 能顺便把加密函数也翻译一下吗
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;
好测试密文
给个密文，我测试看看~
密文 F76DC321A1 解出来应该是Edit2 但是用你翻译的php的解出来是Edit 少了一位
给个密文，我测试看看~
密文 F76DC321A1 解出来应该是Edit2 但是用你翻译的php的解出来是Edit 少了一位
这样肯定没问题了。
$XorKey = array(0xB2,0x09,0xAA,0x55,0x93,0x6D,0x84,0x47);echo $s = enc('Edit2', $XorKey), PHP_EOL;echo dec($s, $XorKey);function Enc($Str, $XorKey) { //:String;//字符加密函? ?是用的一??或加密 $Result = ''; $j = 0; for($i=0; $iF76DC321A1
Edit2
能顺便把加密函数也翻译一下吗
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;
好测试密文
to: xuzuning 版主，你那个代码我执行的一直出错，不知道为什么。
