首页 新闻 赞助 找找看

delphi函数转php函数

0
悬赏园豆:5 [待解决问题]
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;

 

以上是Delphi写的一个函数,需要转成php函数,请高手们赐教,不胜感激

朱辉的主页 朱辉 | 初学一级 | 园豆:199
提问于:2013-07-25 15:54
< >
分享
清除回答草稿
   您需要登录以后才能回答,未注册用户请先注册