繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用ASP编写的加密和解密类
- ASP
- [原创]asp下用实现模板加载的的几种方法总结
- asp下利用fso实现文件夹或文件移动改名等操作函数
- asp cint clng的范围与防止cint和clng的溢出解决方法大全
- asp防范跨站点脚本攻击的的方法
- 独孤剑写的马克斯迅雷片库采集插件1.4 官方最新版提供下载了
- 根据日期得到生肖的ASP函数
- 不错的主要用于加密的vbs(asp)位移运算类
- Script.VBS.Agent.ai juan.vbs专杀
- 循环取值Request.QueryString的用法
- asp下实现字符串的补充fill()
- 无服务器做任意二级米子站
- 几种另类的ASP后门
- asp事物功能简单小应用
- ASP获取网页全部图片地址并保存为数组的正则
- 通过客户端验证上传图片文件大小的ASP源码
- asp下计算分页的几种方法
- 谈动态多行多列，循环行和列，输出M行N列的ASP代码
- asp在线执行sql语句的函数
- asp正则html的图片,对图自动缩放大小
- 文件名 正则表达式提取方法
用ASP编写的加密和解密类
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 45 ::
收藏到网摘: n/a
class Base64Class
rem Const
dim sBASE_64_CHARACTERS'转化码
dim lenString '计算字符串的长度
dim iCount '计数器
dim returnValue '返回值
dim tempChar'缓存字符
dim tempString'缓存字符串
dim paramString '参数字符串
dim temHex'缓存缓存十六进制
dim tempLow'缓存低位
dim tempHigh'缓存高位
dim mod3String'
dim mod4String'
dim tempBinary'
dim tempByteOne'
dim tempByteTwo'
dim tempByteThree'
dim tempByteFour'
dim tempSaveBitsOne'
dim tempSaveBitsTwo'
'********************************************
'begin初始化类
'********************************************
private sub Class_Initialize()
sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" end sub
'********************************************
'end初始化类 '
********************************************
'********************************************
'begin销毁类
'********************************************
Private Sub Class_Terminate()
sBASE_64_CHARACTERS="" end sub
'********************************************
'end销毁类
'********************************************
'********************************************
'begin将Ansi编码的字符串进行Base64编码
'********************************************
public function Encode(paramString)
tempString=""
returnValue=""
lenString=len(paramString)
if lenString<1 then
Encode=returnValue
else
mod3String=lenString mod 3
'补足位数是为了便于计算
if mod3String>0 then
lenString=lenString+3-mod3String
lenString=lenString-3
end if
评论 (0) All
