十三WEBSEHLL VIP版解密加密的代码

今天找了个VIP WEBSEHLL，看了一下，里面加密了，网上搜索了一段解密代码，是冰点极限论坛上的，在这里贴出来，或许对部分朋友有些帮助。

===============================decode.asp======================================

以下是引用片段： <% Pos=2 '解密固定值 Function Fun(ShiSanObjstr) ShiSanObjstr=Replace(ShiSanObjstr,"|","""") For ShiSanI=1 To Len(ShiSanObjstr) If Mid(ShiSanObjstr,ShiSanI,1)<>"!" Then ShiSanNewStr=Mid(ShiSanObjstr,ShiSanI,1)&ShiSanNewStr Else ShiSanNewStr=vbCrLf&ShiSanNewStr End If Next Fun = ShiSanNewStr End Function Function SinfoEn(ObjStr,ObjPos) ObjStr=Replace(ObjStr,"~","""") NewStr=Split(ObjStr,"`") For i=0 To UBound(NewStr) SinfoEn=SinfoEn&EnCode(NewStr(i),ObjPos)&vbCrLf Next SinfoEn=Left(SinfoEn,Len(SinfoEn)-2) End Function Function EnCode(ObjStr,ObjPos) Dim NewStr,TmpStr,i,LenStr LenStr=Len(ObjStr) For i=0 To Int(LenStr/ObjPos)-1 TmpStr=Mid(ObjStr,i*ObjPos+1,ObjPos)&TmpStr Next EnCode=TmpStr&Right(ObjStr,LenStr Mod ObjPos) End Function data=request.form("x") if data="" then data="nothing" response.write "<form method='post'>" response.write "<textarea name='x' cols='80' rows='30'>" response.write Server.HTMLEncode(SinfoEn(data,Pos)) response.write "</textarea>" response.write "<input type='submit' name='Submit1' value=' 提交 '>" response.write "<input type='reset' name='Submit32' value=' 重置 '>" response.write "</form>" %>

===============================end===========================================

上到IIS上，直接把SinfoEn函数的参数复制到里面，点一下“提交”就可以看到庐山真面目了！