如何使用vbs实现解密base64加密的脚本-创新互联

这篇文章主要为大家展示了“如何使用vbs实现解密base64加密的脚本”,内容简而易懂,条理清晰,希望能够帮助大家解决疑惑,下面让小编带领大家一起研究并学习一下“如何使用vbs实现解密base64加密的脚本”这篇文章吧。

创新互联公司专注于企业网络营销推广、网站重做改版、宁强网站定制设计、自适应品牌网站建设、成都h5网站建设商城网站开发、集团公司官网建设、外贸网站制作、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为宁强等各大城市提供网站开发制作服务。

代码如下:


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实现解密base64加密的脚本”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!


当前名称:如何使用vbs实现解密base64加密的脚本-创新互联
网页URL:http://pwwzsj.com/article/ccdech.html