UC知道如何将以下代码转换成asp?
来源：百度知道 编辑：UC知道 时间：2024/07/04 10:51:12
$arrCrc=array(0x00000000, 0x04C11DB7, 0x09823B6E, 0x0D4326D9, 0x130476DC, 0x17C56B6B, 0x1A864DB2, 0x1E475005, 0x2608EDB8, 0x22C9F00F);
$PassCrc=$pass;
$dwVal=0;
$LenPass=strlen($PassCrc);
if($LenPass<=4){
$j=24;
$temp=substr($PassCrc,0,1);
$temp=ord($temp);
$dwVal=$temp<<$j;
for($i=0;$i<$LenPass-1;$i++){
$j=$j-8;
$temp=substr($PassCrc,$i+1,1);
$temp=ord($temp);
$temp<<=$j;
$dwVal=$dwVal|$temp;
}
$dwVal=~$dwVal;
}else{
$j=24;
$temp=substr($PassCrc,0,1);
$temp=ord($temp);
$dwVal=$temp<<$j;
for($i=1;$i<4;$i++){
$j=$j-8;
$temp=substr($PassCrc,$i,1);
$temp=ord($temp);
$temp<<=$j;
$dwVal=$dwVal|$temp;
}
$dwVal=~$dwVal;
$dwVal=dechex($dwVal);
$dwVal=hexdec($dwVal);
$tmpChar=substr($PassCrc,4);
$count=strlen($tmp
$PassCrc=$pass;
$dwVal=0;
$LenPass=strlen($PassCrc);
if($LenPass<=4){
$j=24;
$temp=substr($PassCrc,0,1);
$temp=ord($temp);
$dwVal=$temp<<$j;
for($i=0;$i<$LenPass-1;$i++){
$j=$j-8;
$temp=substr($PassCrc,$i+1,1);
$temp=ord($temp);
$temp<<=$j;
$dwVal=$dwVal|$temp;
}
$dwVal=~$dwVal;
}else{
$j=24;
$temp=substr($PassCrc,0,1);
$temp=ord($temp);
$dwVal=$temp<<$j;
for($i=1;$i<4;$i++){
$j=$j-8;
$temp=substr($PassCrc,$i,1);
$temp=ord($temp);
$temp<<=$j;
$dwVal=$dwVal|$temp;
}
$dwVal=~$dwVal;
$dwVal=dechex($dwVal);
$dwVal=hexdec($dwVal);
$tmpChar=substr($PassCrc,4);
$count=strlen($tmp
看看合不合用
.Write("$arrCrc=array(0x00000000, 0x04C11DB7, 0x09823B6E, 0x0D4326D9, 0x130476DC, 0x17C56B6B, 0x1A864DB2, 0x1E475005, 0x2608EDB8, 0x22C9F00F); ")
.Write("$PassCrc=$pass; ")
.Write("$dwVal=0; ")
.Write("$LenPass=strlen($PassCrc); ")
.Write("if($LenPass<=4){ ")
.Write("$j=24; ")
.Write("$temp=substr($PassCrc,0,1); ")
.Write("$temp=ord($temp); ")
.Write("$dwVal=$temp<<$j; ")
.Write("for($i=0;$i<$LenPass-1;$i++){ ")
.Write("$j=$j-8; ")
.Write("$temp=substr($PassCrc,$i+1,1); ")
.Write("$temp=ord($temp); ")
.Write("$temp<<=$j; ")
.Write("$dwVal=$dwVal|$temp; ")
.Write("} ")
.Write("$dwVal=~$dwVal; ")
.Write("")
.Write("}else{ ")
.Write("$j=24; ")
.Write("$te