复制代码 代码如下:

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代码打包

您可能感兴趣的文章:

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。