(100%结贴)求把这几行代码翻译成PHP的。解决方案
程序员文章站
2024-04-03 22:32:10
...
(100%结贴)求把这几行代码翻译成PHP的。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
就上面几行代码,
求懂php的帮忙把这个函数翻译成php的,
我delphi加密,然后php解密,
我对php一点也不懂,但是懂调用。
------解决思路----------------------
Edit2
------解决思路----------------------
const
XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用
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;
就上面几行代码,
求懂php的帮忙把这个函数翻译成php的,
我delphi加密,然后php解密,
我对php一点也不懂,但是懂调用。
------解决思路----------------------
$XorKey = array(0xB2,0x09,0xAA,0x55,0x93,0x6D,0x84,0x47);F76DC321A1
echo $s = enc('Edit2', $XorKey), PHP_EOL;
echo dec($s, $XorKey);
function Enc($Str, $XorKey) { //:String;//字符加密函數 這是用的一個異或加密
$Result = '';
$j = 0;
for($i=0; $i$Result .= sprintf('%02X', ord($Str{$i}) ^ $XorKey[$j]);
$j = ($j+1) % 8;
}
return $Result;
}
function Dec($str, $XorKey){
$result = "";
for($i=0, $j=0; $i$result .= chr(hexdec($str{$i} . $str{$i+1}) ^ $XorKey[$j]);
$j = ++$j % 8;
}
return $result;
}
Edit2
------解决思路----------------------
$XorKey = array(0xB2,0x09,0xAA,0x55,0x93,0x6D,0x84,0x47);
function Dec($str){
global $XorKey;
$result = "";
$j = 0;
for ($i = 0; $i {
$result = $result . chr(hexdec($str[$i*2] . $str[$i*2+1]) ^ $XorKey[$j]);
$j = ++$j % 8;
}
return $result;
}
function Enc($str){
global $XorKey;
$result = "";
$j = 0;
for ($i = 0; $i {
$result = $result. dechex(ord($str[$i])^$XorKey[$j]);
$j = ++$j % 8;
}
return $result;
}
echo Enc("Edit2")."\n";
echo Dec("F76DC321A1");
相关文章
相关视频