变态重口极致另类在线-波多久久夜色精品国产-波多野结衣在线观看一区-波多野结衣在线观看一区二区-污污的网站免费阅读-污污视频网址

東坡下載:內容最豐富最安全的下載站!

幫助|文件類型庫|最新更新|下載分類|排行榜

編程相關破解相關編程工具反編譯安裝制作程序源碼軟件補丁數據庫Visual Studiovc++visualbasicdreamweaver

首頁編程開發編程相關 → Base64編碼解碼小工具 1.0 綠色免費版

Base64編碼解碼小工具

Base64編碼解碼小工具1.0 綠色免費版

  • 大。10KB
  • 語言:中文
  • 平臺:WinXP, WinAll
  • 更新:2014-02-17 09:41
  • 等級:
  • 類型:編程相關
  • 網站:http://www.fine3x.com/
  • 授權:免費軟件
  • 廠商:
  • 產地:國產軟件
好用好玩 50%(0)
坑爹 坑爹 50%(0)
軟件介紹軟件截圖相關軟件軟件教程網友評論下載地址

這是一個Base64編碼、解碼小工具(可破解迅雷下載地址)。采用本站原創的VB6下Base64編碼解碼算法。

Base64說明

Base64是網絡上最常見的用于傳輸8Bit字節代碼的編碼方式之一,可用于在HTTP環境下傳遞較長的標識信息。在其他應用程序中,也常常需要把二進制數據編碼為適合放在URL(包括隱藏表單域)中的形式。此時,采用Base64編碼不僅比較簡短,同時也具有不可讀性,即所編碼的數據不會被人用肉眼所直接看到。

程序源碼:

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 As Long, 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

PC官方
安卓官方手機版
IOS官方手機版

Base64編碼解碼小工具截圖

下載地址

Base64編碼解碼小工具 1.0 綠色免費版

熱門評論
最新評論
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字數: 0/500 (您的評論需要經過審核才能顯示)

編輯推薦

報錯

請簡要描述您遇到的錯誤,我們將盡快予以修正。

轉帖到論壇
輪壇轉帖HTML方式

輪壇轉帖UBB方式

主站蜘蛛池模板: 国产在线观看精品 | 巨大欧美黑人xxxxbbbb | 制服丝袜中文字幕第一页 | 国产女人视频免费观看 | 多人伦交性欧美精品欧 | 欧美日韩国产人成在线观看 | 色综合日韩 | 伊人激情久久综合中文字幕 | 最近2019免费中文字幕视频三 | 国产啪精品视频网免费 | 黑人又大又粗又长又深受不了 | 午夜性影院爽爽爽爽爽爽 | 亚洲第一看片 | 黄色福利视频网站 | 亚洲国产激情在线一区 | 日韩v片| 一卡二卡在线 | 成年人在线免费播放 | 国产精品欧美一区二区三区 | 高h猛烈做哭bl壮汉受欧美 | 亚洲欧美日韩中文无线码 | 羞羞视频在线观看 | 午夜看片未满十八勿进 | 午夜视频在线观看完整高清在线 | 国产一区二区三区在线观看精品 | 久久综合成人 | 高清国产精品入口麻豆 | 天堂资源 | 最好看免费中文字幕2019 | 国产亚洲情侣一区二区无 | 欧美笫一页 | 免费两性的视频网站 | 欧美成人激情在线 | 伊人天天躁夜夜躁狠狠 | xx欧美 | 国产成人亚洲综合小说区 | 中文字幕成人免费高清在线 | 五月天激情婷婷大综合 | 亚洲精品第五页中文字幕 | 男女一级毛片免费播放 | 日韩欧美一区黑人vs日本人 |