把一段vb的解密代码转化成php的问题

Question

<script language="VBScript" type="text/VBScript">
Function UnEncryptUserInfo(Str)
Dim I,TempStr,ChrStr
If Str <> "" Then
For I = 1 To Len(Str)
ChrStr = (Asc(Mid(Str,I,1)) - 5)
ChrStr = Chr(ChrStr)
TempStr = TempStr & ChrStr
Next
UnEncryptUserInfo = TempStr
Else
UnEncryptUserInfo = ""
End If
End Function
</script> 这样一段代码，我想写一个php的文件，从外部获取一个字符串，也就是个加密的内容“=:67;;>Exnsf3htr” 把这个用php输出解密后的字符串，这个应该怎么写呢？高人请帮帮忙 

Answer 1

补充一点就是php要实现处理过程类似于下面的演示，只是把中间的处理方法变成vbs中的这种解密
 <?php  
if($LabelArray['Html']!=""&&$LabelArray['PageType']=='Content')  
 {  
  $<SPAN class=t_tag onclick=tagshow(event) href="tag.php?name=html">html</SPAN>=$LabelArray['Html'];  
  if(strpos($LabelUrl,'_')===false)//说明这是第一页,其它类型<SPAN class=t_tag onclick=tagshow(event) href="tag.php?name=%D2%B3%C3%E6">页面</SPAN>是不处理的  
 {  
   preg_match("/\(pageno > (\d+)\)/i",$html, $matches);  
   $pagenum=$matches[1];  
   if($pagenum>2)  
   {  
    $return="<locoypages>";  
    for($i=2;$i<=$pagenum;$i++)  
    {  
     $url=str_replace(".html",'_'.$i.'.html',$LabelUrl);  
     $return.="<a href='".$url."'></a>";  
    }  
    $return.='</locoypages>';  
    $LabelArray['Html'].=$return;  
   }  
  }  
 }  
 echo serialize($LabelArray);  ?> 

Answer 2

你看懂了这段VBS 就不难.
没看懂. 就难.. 看起来 这段VBS 就是把每个ASCII字符的值减了5, 所以PHP解密如法炮制就OK了.表说你不会写..解密原理都讲了.要别人给你源码, 你就付费就OK了.

Answer 3

......随便给 原理都给你讲了... 自己看手册写一下还不容易..你要是RMB花不光... 随便你给多少. 站内PM 给支付宝帐号.

Answer 4

$a = '=:67;;>Exnsf3htr';function decode($str){
$out ='';
for($i=0; $i<strlen($str); $i++){
$out .= chr(ord($str[$i])-5);
}
return $out;
}var_dump(decode($a));
// out string(16) "[email protected]"