1. 云栖社区>
  2. 技术资料>
  3. 正文

vbs版的解密base64加密的脚本_vbs

作者:用户 来源:互联网 时间:2016-02-22 11:43:18

解密base64vbs

vbs版的解密base64加密的脚本_vbs - 摘要: 本文讲的是vbs版的解密base64加密的脚本_vbs, 复制代码 代码如下: Function fDecode(sStringToDecode)  'This function will decode a Base64 encoded string and returns the dec

复制代码 代码如下:

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 vbs base64加密、java base64加密解密、base64加密解密、js base64加密解密、ios base64加密解密,以便于您获取更多的相关知识。

稳定可靠、可弹性伸缩的在线数据库服务,全球最受欢迎的开源数据库之一

6款热门基础云产品6个月免费体验;2款产品1年体验;1款产品2年体验

弹性可伸缩的计算服务,助您降低 IT 成本,提升运维效率

开发者常用软件,超百款实用软件一站式提供