- 軟件大?。?3KB
- 軟件語言:簡體中文
- 軟件類型:國產(chǎn)軟件
- 軟件類別:下載工具
- 更新時間:2008-01-07
- 軟件授權(quán):免費版
- 官方網(wǎng)站:http://www.yulv.net/
- 運行環(huán)境:Win9x/Me/NT/2000/XP/2003
- 標簽:專用鏈接加解密
IDM(Internet Download Manager) v6.22.1 綠色特別版 zd423作品
7.59MB/簡體中文/4.3
internet download manager中文破解版下載(Internet Download Manager) v6.29.1免費版
7.59MB/簡體中文/7.5
Internet Download Manager注冊機(Internet Download Manager) v6.30最新版
7.56MB/簡體中文/8
迅雷7(Thunder) v7.9.43.5054 官方正式版
32.23MB/簡體中文/5.8
4.9MB/簡體中文/5.8
【主要代碼如下】
'(注:我自己用的不是這種方法,我討厭For循環(huán).)
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