繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一段加密函数（base64）
- ASP
- asp中利用数组实现数据库记录的批量录入方法
- vbs(asp)的栈类
- 加密處理使密碼更安全[CFS編碼加密]
- 在asp中通过vbs类实现rsa加密与解密
- 披著羊皮的大野狼 - Session
- 简体中文编码对应器
- len(),lift(),right()不能正常识别中文的解决方法
- 实现WEB中的@虚拟域名系统(原理篇)
- 巧用ASP生成PDF文件
- 二级域名原理以及程序，申请即可开通
- 无组件上传图片到数据库中，最完整解决方案
- 在ASP中使用SQL语句之1:SELECT 语句
- 在ASP中使用SQL语句之2:用WHERE子句设置查询条件
- 在ASP中使用SQL语句之3:LIKE、NOT LIKE和 BETWEEN
- 在ASP中使用SQL语句之4:联合语句
- 在ASP中使用SQL语句之5:开始执行
- 在ASP中使用SQL语句之6:存储查询
- 在ASP中使用SQL语句之7:ORDER BY
- 在ASP中使用SQL语句之8:随机数
- 在ASP中使用SQL语句之9:表单操作
ASP 中的 一段加密函数（base64）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 145 ::
收藏到网摘: n/a
Function Base64encode(ByVal asContents)
Dim lnPosition
Dim lsResult
Dim Char1
Dim Char2
Dim Char3
Dim Char4
Dim Byte1
Dim Byte2
Dim Byte3
Dim SaveBits1
Dim SaveBits2
Dim lsGroupBinary
Dim lsGroup64
If Len(asContents) Mod 3 > 0 Then asContents = asContents & String(3 - (Len(asContents) Mod 3), " ")
lsResult = ""
For lnPosition = 1 To Len(asContents) Step 3
lsGroup64 = ""
lsGroupBinary = Mid(asContents, lnPosition, 3)
Byte1 = Asc(Mid(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3
Byte2 = Asc(Mid(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15
Byte3 = Asc(Mid(lsGroupBinary, 3, 1))
Char1 = Mid(sBASE_64_CHARACTERS, ((Byte1 And 252) \ 4) + 1, 1)
Char2 = Mid(sBASE_64_CHARACTERS, (((Byte2 And 240) \ 16) Or (SaveBits1 * 16) And &HFF) + 1, 1)
Char3 = Mid(sBASE_64_CHARACTERS, (((Byte3 And 192) \ 64) Or (SaveBits2 * 4) And &HFF) + 1, 1)
Char4 = Mid(sBASE_64_CHARACTERS, (Byte3 And 63) + 1, 1)
lsGroup64 = Char1 & Char2 & Char3 & Char4
lsResult = lsResult + lsGroup64
Next
Base64encode = lsResult
End Function
评论 (0) All
