手机
当前位置:查字典教程网 >脚本专栏 >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加密的脚本】相关文章:

用VBScript制作QQ自动登录的脚本代码

用vbs实现的瞬间关闭多个系统进程的脚本

用VBScript写合并文本文件的脚本

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

用vbs实现的XP序列号替换器

用vbs实现zip功能的脚本

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

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

用vbs 取得收藏夹里的所有链接名称和URL的脚本

用vbs实现按创建日期的顺序列出一个文件夹中的所有文件

精品推荐
分类导航