当前位置:Gxlcms > PHP教程 > (100%结贴)求把这几行代码翻译成PHP的。解决方案

(100%结贴)求把这几行代码翻译成PHP的。解决方案

时间:2021-07-01 10:21:17 帮助过:19人阅读

(100%结贴)求把这几行代码翻译成PHP的。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
  1. const<br> <br> XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用<br> <br>function Dec(Str:String):String;//字符解密函數<br>var<br>i,j:Integer;<br>begin<br>Result:='';<br>j:=0;<br>for i:=1 to Length(Str) div 2 do<br> begin<br> Result:=Result+Char(StrToInt('$'+Copy(Str,i*2-1,2)) xor XorKey[j]);<br> j:=(j+1) mod 8;<br> end;<br>end;



就上面几行代码,
求懂php的帮忙把这个函数翻译成php的,
我delphi加密,然后php解密,


我对php一点也不懂,但是懂调用。
------解决思路----------------------
  1. $XorKey = array(0xB2,0x09,0xAA,0x55,0x93,0x6D,0x84,0x47);<br><br>echo $s = enc('Edit2', $XorKey), PHP_EOL;<br><br>echo dec($s, $XorKey);<br><br>function Enc($Str, $XorKey) { //:String;//字符加密函數 這是用的一個異或加密<br> $Result = '';<br> $j = 0;<br> for($i=0; $i<strlen($str); $i++)="" {<br=""> $Result .= sprintf('%02X', ord($Str{$i}) ^ $XorKey[$j]);<br> $j = ($j+1) % 8;<br> }<br> return $Result;<br>}<br><br>function Dec($str, $XorKey){<br> $result = "";<br> for($i=0, $j=0; $i<strlen($str); $i+="2)" {<br=""> $result .= chr(hexdec($str{$i} . $str{$i+1}) ^ $XorKey[$j]);<br> $j = ++$j % 8;<br> }<br> return $result;<br>}<br></strlen($str);></strlen($str);>
F76DC321A1
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;



好测试密文


  1. <br><!--?php<br /-->$XorKey = array(0xB2,0x09,0xAA,0x55,0x93,0x6D,0x84,0x47);<br>function Dec($str){<br> global $XorKey;<br> $result = "";<br> $j = 0;<br> for ($i = 0; $i < strlen($str)/2; $i++)<br> {<br> $result = $result . chr(hexdec($str[$i*2] . $str[$i*2+1]) ^ $XorKey[$j]);<br> $j = ++$j % 8;<br> }<br> return $result;<br>}<br><br><br>function Enc($str){<br>
  2. global $XorKey;<br>
  3. $result = "";<br>
  4. $j = 0;<br>
  5. for ($i = 0; $i < strlen($str); $i++)<br>
  6. {<br>
  7. $result = $result. dechex(ord($str[$i])^$XorKey[$j]);<br>
  8. $j = ++$j % 8;<br>
  9. }<br>
  10. return $result;<br>}<br>echo Enc("Edit2")."\n";<br>echo Dec("F76DC321A1");

人气教程排行