Shulou(Shulou.com)06/03 Report--

This article mainly shows you "how to use vbs to achieve decryption base64 encryption script", the content is easy to understand, clear, hope to help you solve your doubts, the following let Xiaobian lead you to study and learn "how to use vbs to decrypt base64 encryption script" this article.

The code is as follows:

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 (sStringToDecode, vbCrLf, "), vbTab,"), ") iDataLength = Len (sStringToDecode) If iDataLength Mod 40 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 are all the contents of the article "how to use vbs to implement a script for decrypting base64 encryption" Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.