下面是加密的过程:
a=wscript.scriptfullname:on error resume next:a=wscript.arguments(0):set s=createobject("scripting.filesystemobject"):e="":c=s.opentextfile(a).readall:h="":c=replace(c,""&vbcrlf&"",":"):c=replace(c,chr(34),chr(34)&chr(34)):j=len(c):dim k(10485760):for t=1 to j:k(t)=mid(c,t,1):next:for g=0 to j:d=d&k(j-g):next:c="c="&chr(34)&d&chr(34)&":dim k("&len(d)&"):for u=1 to "&len(d)&":k(u)=mid(c,u,1):next:f="&chr(34)&chr(34)&":for g=0 to "&len(d)&":f=f&k("&len(d)&"-g):next:exec"&"ute(f)":for w= 1 to len(c):e=e&"&chr("&asc(mid(c,w,w))&")":next:e="execute("&right(e,len(e)-1)&")":set enc=createobject("scripting.encoder"):e=enc.encodescriptfile(".vbs","'["&vbcrlf&e,0,"vbscript"):s.createtextfile(a&".vbe").writeline e
各位如果知道的话请帮忙写一下了,感激不尽

'**************************************************************
上面脚本结果
2aw2awawwawa2waw2waw22awwa2wawwa22wawaw2w22aw2wa2waw22aww22aw2wa
2aw2awawwawa2waw2waw22awwa2wawwa22wawaw2w22aw2wa2waw22aww22aw2wa
2aw2awawwawa2waw2waw22awwa2wawwa22wawaw2w22aw2wa2waw22aww22aw2wa
2aw2awawwawa2waw2waw22awwa2wawwa22wawaw2w22aw2wa2waw22aww22aw2wa
最后来看尾,同样最后4个字符无效
前面8个字符好像同样是base64编码
不过没看出来是干什么用的,看看下面的脚本吧
'**************************************************************
Set objSE = CreateObject( "Scripting.Encoder" )
For i = 1 To 512
sa = string(i,"b")
sz = objSE.EncodeScriptFile( ".VBS", sa, 0, "" )
st = st & Mid( sz, Len(sz) - 12,6) & ","
Next
sb = split(left(st,len(st)-1),",")
for j = 0 to ubound(sb)
     se = se & asc(base64b(sb(j))) & vbcrlf
next
wsh.echo se
function base64b(sStringToDecode)
Const CharList =  
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
sStringToDecode = Replace(Replace(Replace(sStringToDecode, vbCrLf,  
""), vbTab, ""), " ", "")
iDataLength = Len(sStringToDecode)
For iGroupInitialCharacter = 1 To iDataLength Step 4
iDataByteCount = 3
iGroup = 0
For iCharacterCounter = 0 To 3
sCharacter = Mid(sStringToDecode, iGroupInitialCharacter +  
iCharacterCounter, 1)
If sCharacter = "=" Then
iDataByteCount = iDataByteCount - 1
iData = 0
Else
iData = InStr(1, CharList, sCharacter, 0) - 1
End If
iGroup = 64 * iGroup + iData
Next
iGroup = Hex(iGroup)
iGroup = String(6 - Len(iGroup), "0") & iGroup
sPreliminaryOutString = Chr(CByte("&H" & Mid(iGroup, 1, 2))) & Chr
(CByte("&H" & Mid(iGroup, 3, 2))) & Chr(CByte("&H" & Mid(iGroup, 5,  
2)))
sOutputString = sOutputString & Left(sPreliminaryOutString,  
iDataByteCount)
Next
base64b = sOutputString
end function
'********************************************************************


特殊字符？
那个JS的。。。
加个编码头。。。
<meta http-equiv="Content-Type" content="text/html;charset=GB2312">

我试过了，没用，解密后就剩下注释的“'”