请帮忙把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 = lastModifiedpEnd Function%>