当前位置: 代码迷 >> ASP >> 请帮忙把js改写为VBScript,多谢
  详细解决方案

请帮忙把js改写为VBScript,多谢

热度:139   发布时间:2012-03-19 22:03:05.0
请帮忙把js改写为VBScript,谢谢!
JScript code

function Modifcode(str){
   var len=str.length;
   var key=0x1;
   var lastModifiedp="";
   var char="";
   for(i=0;i<len;i+=3){
      if(str.charAt(i)=="3"){
         char=String.fromCharCode(parseInt(parseInt(str.charAt(i+2))^key))
      }else if(str.charAt(i)=="4"){
         char=String.fromCharCode(parseInt(parseInt(str.charAt(i+1)+str.charAt(i+2))^key))
      }else{
         char=String.fromCharCode(parseInt(parseInt(str.charAt(i)+str.charAt(i+1)+str.charAt(i+2))^key))
      }
      lastModifiedp+=char.toString()
   }
   return Modifcode
}

请帮忙把上面的代码用VBScript改写,谢谢!

------解决方案--------------------
VBScript code

<%
Function Modifcode(str)
   Dim ln : ln = Len(str)
   Dim key : key = &H01
   Dim lastModifiedp : lastModifiedp=""
   Dim char : char=""
   Dim i 
   For i=1 To ln Step 3
      If Mid(str, i , 1)="3" Then
         char=Chr(CInt(CInt(Mid(str,(i+2),1)) XOR key))
      ElseIf Mid(str, i, 1)="4" Then
         char=Chr(CInt(CInt(Mid(str,i+1,1) & Mid(str,i+2,1)) XOR key))
      Else
         char=Chr(CInt(CInt(Mid(str,i,1) & Mid(str,i+1,1) & Mid(str,i+2,1)) XOR key))
      End If
      lastModifiedp = lastModifiedp & char
   Next
   Modifcode = lastModifiedp
End Function
%> 
  相关解决方案