基于VBS、ASP环境下的BASE64 Encode 和 Decode

最新推荐文章于 2024-06-26 14:57:34 发布

AMinfo

最新推荐文章于 2024-06-26 14:57:34 发布

阅读量3.6k

点赞数

分类专栏： ASP VBS Base64 Decode Encode

本文链接：https://blog.csdn.net/AMinfo/article/details/70478053

版权

本文介绍了在VBS和ASP环境下，由于特定API需求，作者自编的Base64编码和解码实现。提供的源码经过初步测试，适用于满足特定编码格式要求的场景。

摘要由CSDN通过智能技术生成

网络上有各种Base64编码、解码的例子源码，编码后虽然也可以通过大部分解码程序解码，但编码后的结果却各有不同。

转载请说明来源于：http://blog.csdn.net/aminfo/article/details/70478053

由于工作需要，在调用某API时，网络上的Base64编码结果不符合要求，于是自写一个基于VBS的BASE64 Encode和Decode，已经过初次测试。代码如下供参考：

<%'基于VBS、ASP的Base64 Encode 和 Base64 Decode
Dim sc
Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "JScript"

Dim tmpStr, tmpResult
tmpStr = "··ASCII第···一次以规范标准的型态发表是在1967年,1234567890-=`~！·#￥%……—*（）——+~!@#$%^&*()_+[]{};'\:""|,./<>?《》？：“|{}，。/；‘、][ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ最后一次更新则是在1986年,至今为止共定义了128个字符,其中33个字符无法显示(这是以现今操作系统为依归,但在DOS模式··"
tmpResult = vbsBase64Encode(StringToByteArray(tmpStr))
Response.write "编码： " & tmpResult & "<BR>"
tmpResult = ByteArrayToString(vbsBase64Decode(tmpResult))
Response.write "解码：" & tmpResult & "<BR>"
Response.write "原串：" & tmpStr & "<BR>"

If tmpStr <> tmpResult Then
	Response.write "结果不同"
Else
	Response.write "结果相同"
End If

'编码
Function vbsBase64Encode(byteArray)
	Dim last2byte : last2byte = 3
	Dim last4byte : last4byte = 15
	Dim last6byte : last6byte = 63
	Dim lead6byte : lead6byte = 252
	Dim