php高手请帮忙转换一段ASP代码

来源：百度知道 编辑：UC知道 时间：2024/05/09 13:07:16
谢谢
<%
If (lValue And m_l2Power(31 - iShiftBits)) Then
LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
Else
LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
End If
End Function

Private Function str2bin(varstr)
Dim varasc
Dim i
Dim varchar
Dim varlow
Dim varhigh

str2bin = ""
For i = 1 To Len(varstr)
varchar = Mid(varstr, i, 1)
varasc = Asc(varchar)

If varasc < 0 Then
varasc = varasc + 65535
End If

If varasc > 255 Then
varlow = Left(Hex(Asc(varchar)), 2)
varhigh = Right(Hex(Asc(varchar)), 2)
str2bin = str2bin & ChrB("&H" & varlow) & ChrB("&H" & varhigh)
Else
str2bin

<?php

if ($lValue && m_l2Power(31 - $iShiftBits)) {
$LShift = (($lValue & m_lOnBits(31 - ($iShiftBits + 1))) * m_l2Power($iShiftBits)) | 0x80000000 ;
else
$LShift = (($lValue & m_lOnBits(31 - $iShiftBits)) * m_l2Power($iShiftBits));
}
}

function str2bin($varstr){
$str2bin = ""
For ($i=1;$i<strLen($varstr);i++){
$varchar = Mid($varstr, $i, 1) ;
$varasc = Asc($varchar) ;
if ($varasc < 0){
$varasc = $varasc + 65535;
}
If ($varasc > 255){
$varlow = substr(Hex(Asc($varchar)), 0, 2);
$varhigh = substr(Hex(Asc(varchar)), -2);
$str2bin = $str2bin . ChrB("&H" . $varlow) . ChrB("&H" . $varhigh);
}else{
$str2bin = $str2bin . ChrB(AscB($varchar));
}
}
}

?>