手机
当前位置:查字典教程网 >脚本专栏 >vbs >vbs版的解密base64加密的脚本
vbs版的解密base64加密的脚本
摘要:复制代码代码如下:FunctionfDecode(sStringToDecode)'ThisfunctionwilldecodeaBase6...

复制代码 代码如下:

FunctionfDecode(sStringToDecode)

'ThisfunctionwilldecodeaBase64encodedstringandreturnsthedecodedstring.

'Thisbecomesusefullwhenattemptingtohidepasswordsfrompryingeyes.

ConstCharList="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"

DimiDataLength,sOutputString,iGroupInitialCharacter

sStringToDecode=Replace(Replace(Replace(sStringToDecode,vbCrLf,""),vbTab,""),"","")

iDataLength=Len(sStringToDecode)

IfiDataLengthMod4<>0Then

fDecode="BadstringpassedtofDecode()function."

ExitFunction

EndIf

ForiGroupInitialCharacter=1ToiDataLengthStep4

DimiDataByteCount,iCharacterCounter,sCharacter,iData,iGroup,sPreliminaryOutString

iDataByteCount=3

iGroup=0

ForiCharacterCounter=0To3

sCharacter=Mid(sStringToDecode,iGroupInitialCharacter+iCharacterCounter,1)

IfsCharacter="="Then

iDataByteCount=iDataByteCount-1

iData=0

Else

iData=InStr(1,CharList,sCharacter,0)-1

IfiData=-1Then

fDecode="BadstringpassedtofDecode()function."

ExitFunction

EndIf

EndIf

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

EndFunction

vbs代码打包

【vbs版的解密base64加密的脚本】相关文章:

用vbs确定用户的登录名的代码

用vbs实现的强制杀进程的脚本

Windows管理脚本学习

vbs实现的定时提醒你休息的脚本

用vbs实现本地添加用户的脚本

用vb和vbs 破解flashxp的密码的代码

vbs实现的下拉框对应键入值

批量替换快捷方式目的路径的VBS脚本

getSQLinfo.vbs 获得SQL数据/日志空间使用情况的脚本

iisweb.vbs iis网站管理脚本使用介绍

精品推荐
分类导航