繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一段加密函数（base64）
- ASP
- 深入研究Application和Session对象(2)
- 深入研究Application和Session对象(3)
- 开始 .Net的旅程（一）
- 开始 .Net的旅程（二）
- 手把手教你使用VB来创建ASP组件(1)
- 手把手教你使用VB来创建ASP组件(2)
- 手把手教你使用VB来创建ASP组件(3)
- 手把手教你使用VB来创建ASP组件(4)
- 手把手教你使用VB来创建ASP组件(5)
- 手把手教你使用VB来创建ASP组件(6)
- 手把手教你使用VB来创建ASP组件(7)
- 手把手教你使用Java来编写ASP组件(1)
- 手把手教你使用Java来编写ASP组件(2)
- 手把手教你使用Java来编写ASP组件(3)
- 手把手教你使用Java来编写ASP组件(4)
- 手把手教你使用Java来编写ASP组件(5)
- 手把手教你使用Java来编写ASP组件(6)
- ASP 3.0高级编程（二十四）
- ASP 3.0高级编程（二十五）
- ASP 3.0高级编程（二十六）
ASP 中的 一段加密函数（base64）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 212 ::
收藏到网摘: 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
