救急！！！！php翻写delphi代码

Question

救急！！！！php翻写delphi代码
在delphi中的一段代码现在要翻写成php的，请大侠帮忙看看，代码如下：function Decode:AnsiString;
var
  I: LongInt;
begin
        I := 157548;
       SetLength(Result, 1);
        Move(I, Result[1], Length(Result))
end;
其中的:
       SetLength(Result, 1);
        Move(I, Result[1], Length(Result))
用php该如何写?

Answer 1

SetLength(Result, 1); 
Move(I, Result[1], Length(Result)) 那么你说他在做什么?

Answer 2

SetLength(Result, 1); 
相当于设置一个长度为1的Result数组
Move(I, Result[1], Length(Result))
是块拷贝，把I也就是157548当成ascii码串，转换为字符串后，截取一位给Result

Answer 3

其他我也不求了，我现在就想知道：
把157548(也就是说任意一个大的整数)这个值当做ascii码串,转换为字符串该怎么做？
谢谢“xuzuning ”关心我的话题，感谢！！！
请继续帮助。

Answer 4

我写的，只能是字符，特殊符号不行，自己再改吧。
//字符串转化为ascii
function str2asc($str)
{
$num='';
while(strlen($str)!=0)
{
$a=substr($str,0,1);
$num.=ord($a);
$str=substr($str,1,strlen($str));
}
return $num;
}//ascii转化为字符串
function asc2str($num)
{
$num=(string)$num;
$str='';
while(strlen($num)!=0)
{
$a=(int)substr($num,0,1);
if($a>2)
{
$b=(int)substr($num,0,2);
$num=substr($num,2,strlen($num));
}else
{
$b=(int)substr($num,0,3);
$num=substr($num,3,strlen($num));
}
$str.=chr($b);
}
return $str;
}示例:
echo str2asc('sfdsl');
echo '<br>';
echo asc2str(str2asc('sfdsl'));
---------------------
115102100115108
sfdsl 

Answer 5

asc2str('123456')不能asc2str(123456)
也就是要将123456转化为字符串