推荐您安装2345加速浏览器,保护上网安全,瞬间启动,极速浏览网页!一键安装关闭
您的位置:软件下载 > 网络工具 > 下载工具 > 专用链接加解密

专用链接加解密 V1.0 中文绿色版

无病毒 无插件
  • 软件大小:233KB
  • 更新日期:2008-10-10
  • 软件语言:简体中文
  • 软件授权:国产软件
  • 软件评论:2条
  • 官方网站:Home Page
  • 适用平台:Win2003/WinXP/
【主要代码如下】
'(注:我自己用的不是这种方法,我讨厌For循环.)
Option Explicit
Private Const cstBase64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Private arrBase64() As String
'作者:同济黄正
'00100001 00100001 0
【主要代码如下】
'(注:我自己用的不是这种方法,我讨厌For循环.)
Option Explicit
Private Const cstBase64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Private arrBase64() As String
'作者:同济黄正
'00100001 00100001 00100001 --源码
'00001000 00010010 00000100 00100001 --Base64码

Public Function Base64Encode(strSource As String) As String
On Error Resume Next
'适用于中、英文的Base64编码/解码VB6超精简版 作者:同济黄正
If UBound(arrBase64) = -1 Then
arrBase64 = Split(StrConv(cstBase64, vbUnicode), vbNullChar)
End If
Dim arrB() As Byte, bTmp(2) As Byte, bT As Byte
Dim I As Long, J As Long
arrB = StrConv(strSource, vbFromUnicode)

J = UBound(arrB)
For I = 0 To J Step 3
Erase bTmp
bTmp(0) = arrB(I + 0)
bTmp(1) = arrB(I + 1)
bTmp(2) = arrB(I + 2)

bT = (bTmp(0) And 252) / 4
Base64Encode = Base64Encode & arrBase64(bT)

bT = (bTmp(0) And 3) * 16
bT = bT + bTmp(1) 16
Base64Encode = Base64Encode & arrBase64(bT)

bT = (bTmp(1) And 15) * 4
bT = bT + bTmp(2) 64
If I + 1 <= J Then
Base64Encode = Base64Encode & arrBase64(bT)
Else
Base64Encode = Base64Encode & "="
End If

bT = bTmp(2) And 63
If I + 2 <= J Then
Base64Encode = Base64Encode & arrBase64(bT)
Else
Base64Encode = Base64Encode & "="
End If
Next
End Function

Public Function Base64Decode(strEncoded As String) As String
'适用于中、英文的Base64编码/解码VB6超精简版 作者:同济黄正
On Error Resume Next
Dim arrB() As Byte, bTmp(3) As Byte, bT, bRet() As Byte
Dim I As Long, J As Long
arrB = StrConv(strEncoded, vbFromUnicode)
J = InStr(strEncoded & "=", "=") - 2
ReDim bRet(J - J 4 - 1)
For I = 0 To J Step 4
Erase bTmp
bTmp(0) = (InStr(cstBase64, Chr(arrB(I))) - 1) And 63
bTmp(1) = (InStr(cstBase64, Chr(arrB(I + 1))) - 1) And 63
bTmp(2) = (InStr(cstBase64, Chr(arrB(I + 2))) - 1) And 63
bTmp(3) = (InStr(cstBase64, Chr(arrB(I + 3))) - 1) And 63

bT = bTmp(0) * 2 ^ 18 + bTmp(1) * 2 ^ 12 + bTmp(2) * 2 ^ 6 + bTmp(3)

bRet((I 4) * 3) = bT 65536
bRet((I 4) * 3 + 1) = (bT And 65280) 256
bRet((I 4) * 3 + 2) = bT And 255
Next
Base64Decode = StrConv(bRet, vbUnicode)
End Function
[展开全部↓]
软件截图
此软件由http://www.yulv.net的用户上传。如有异议,请联系用户后,书面通知本站,我们会在24小时内做出处理。 有任何版权异议请进>>
网友评论
多特网友 2008-01-11 回复
++写的东西就是不错!
多特网友 2008-01-11 回复
表示事后 好
多特网友 2008-01-11 回复
表示事后 好
多特网友 2008-01-11 回复
++写的东西就是不错!
相关说明
多特软件站欢迎用户将网页内容和下载地址转发到博客、微博、论坛等。
所有软件已经过工作人员安装检测,如不能正常运行,请检查运行环境和硬件配置,或在评论中反馈,工作人员会及时处理。
判断软件好坏,请用户参考用户评论或者软件好评度
您可能还需要