這篇文章主要為大家展示了“如何使用vbs實現(xiàn)解密base64加密的腳本”，內(nèi)容簡而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學習一下“如何使用vbs實現(xiàn)解密base64加密的腳本”這篇文章吧。

創(chuàng)新互聯(lián)公司專注于企業(yè)網(wǎng)絡營銷推廣、網(wǎng)站重做改版、寧強網(wǎng)站定制設計、自適應品牌網(wǎng)站建設、成都h5網(wǎng)站建設、商城網(wǎng)站開發(fā)、集團公司官網(wǎng)建設、外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應式網(wǎng)頁設計等建站業(yè)務，價格優(yōu)惠性價比高，為寧強等各大城市提供網(wǎng)站開發(fā)制作服務。

代碼如下:

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實現(xiàn)解密base64加密的腳本”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學習更多知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

當前標題：如何使用vbs實現(xiàn)解密base64加密的腳本-創(chuàng)新互聯(lián)
地址分享：http://weahome.cn/article/ccdech.html