十三WebShell 登陆密码加密与解密

　　Dim theStr

　　theStr = InputBox( "请输入要加密的密码：", "输入", "NetPatch" )

　　If theStr <> "" Then

　　Call InputBox("请复制已经加密好的字串",,Serinf(theStr,88))

　　End If

　　Function Serinf(getstr, Pos)

　　Dim i, newStr

　　For i = 1 To Len(getstr)

　　newStr = newStr & Asc(Mid(getstr, i, 1))+Pos & (298361 - Pos):

　　Next

　　Serinf = newStr

　　End Function

　　Dim theStr

　　theStr = InputBox( "请输入要解密的密码：", "输入", "166298273189298273204298273168298273185298273204298273187298273192298273" )

　　If theStr <> "" Then

　　Call InputBox("请复制已经解密好的字串",,jm(theStr))

　　End If

　　function jm(data)

　　on error resume next

　　data=replace(lcase(trim(data)),"298273","")

　　for n=1 to len(data)

　　newStr = newStr & chr(mid(data,n,3)-88)

　　n=n+2

　　next

　　jm=newStr

　　'wscript.echo newStr

　　end function