当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbs base64 解密脚本代码

VBScript
VBS教程：正则表达式简介 -定位符
VBS教程：正则表达式简介 -限定符
VBS教程：正则表达式简介 -字符匹配
VBS教程：正则表达式简介 -非打印字符
VBS教程：正则表达式简介 -特殊字符
VBS教程：正则表达式简介 -普通字符
VBS教程：正则表达式简介 -优先权顺序
VBS教程：正则表达式简介 -建立正则表达式
VBS教程：正则表达式简介 -正则表达式语法
VBS教程：正则表达式简介 -使用正则表达式
VBS教程：正则表达式简介 -早期起源
VBS教程：正则表达式简介 -正则表达式
VBS教程：正则表达式简介
VBS教程：属性-VolumeName 属性
VBS教程：属性-Type 属性
VBS教程：属性-TotalSize 属性
VBS教程：属性-SubFolders 属性
VBS教程：属性-Size 属性
VBS教程：属性-ShortPath 属性
VBS教程：属性-ShortName 属性

No. « 1 2 3 4 »

技术文章搜索

关键字

VBScript 中的 vbs base64 解密脚本代码

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-11   浏览: 109 ::
收藏到网摘: n/a

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