繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用ASP编写的加密和解密类
- ASP
- 一段ASP 伪静态代码
- asp的程序能实现伪静态化的方法
- 实例讲解实现抓取网上房产信息的ASP程序
- [图]Flash+ASP实现电子互动地图在线标注功能
- asp下多个域名后缀同时查询的域名查询系统
- 用ASP实现对ORACLE数据库的操作
- 用ASP做的DNS LOOKUP程序
- 用存储过程、GetRows()、抽取10万条数据的速度测试
- asp中利用CSW中文分词组件来实现自己网站的内容关键词自动提取
- ASP+JS三级联动下拉菜单[调用数据库数据]
- 用ASP实现距指定日期的倒记时程序源码
- 详细讲解ASP脚本循环语句
- ASP中如何判断一个字符是不是汉字
- 将ACCESS转化成SQL2000要注意的问题
- Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法
- 在ASP中使用均速分页法提高分页速度的方法
- ASP+COM不得不注意的问题
- ASP生成动态flash的工具与介绍
- 用asp实现的数据库中存取文件的代码
- asp的通用数据分页类
用ASP编写的加密和解密类
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 53 ::
收藏到网摘: 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
