文件名称:BASE64
-
所属分类：
- 标签属性：
- 上传时间：2013-03-03
-
文件大小：941byte
-
已下载：0次
-
提 供 者：
-
相关连接：无下载说明：别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容来自于网络，使用问题请自行百度
BASE64解码 VBS源代码
Function fDecode(sStringToDecode)
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 -BASE64 decoding the VBS source the code Function fDecode (sStringToDecode) the 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
Function fDecode(sStringToDecode)
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 -BASE64 decoding the VBS source the code Function fDecode (sStringToDecode) the 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
(系统自动生成,下载前可以参看下载内容)
下载文件列表
BASE64.VBS
本网站为编程资源及源代码搜集、介绍的搜索网站，版权归原作者所有！ 粤ICP备11031372号
1999-2046 搜珍网 All Rights Reserved.