一个我自己拼凑的Base64编码/解码模块

已于 2022-11-25 14:11:47 修改
阅读量2.2k 收藏 1
点赞数
分类专栏： 编程基础 文章标签： integer byte string output function input
于 2009-07-08 22:59:00 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jessezappy/article/details/4332692
版权

说是拼凑，因为核心代码是我下载来的，不是我自己写的。我只是把核心代码整改下外观，方便调用而已，惭愧。

'Attribute VB_Name = "base64EN_DE"
Option Explicit

''
Public Function Encade64FileTOFile(SfileN As String, TfileN As String) As Boolean
        Dim ni As Long, nj As Long
        Dim nFileno1   As Integer
        'Dim tmpdir As String
        Dim nFileno2   As Integer
        Dim bByte   As Byte
        Dim sInp   As String
        Dim nFilelen   As Long
        Dim A(3)   As Byte
        Dim B(4)   As Byte
        Dim delayX As Integer
        'Dim EnStr As String
        '----------------------------------------
On Error GoTo Errchk
             '-----------------------------
             nFileno1 = FreeFile
             Open TfileN For Output As #nFileno1
             Close #nFileno1
             '------------------
            '------------------------------------------
            nFileno1 = FreeFile
            Open SfileN For Binary As #nFileno1
            nFileno2 = FreeFile
            Open TfileN For Binary As #nFileno2
        '---------------------------------
        nFilelen = LOF(nFileno1)
        If nFilelen = 0 Then GoTo Fail
            If nFilelen <= 3 Then
                If nFilelen Mod 3 = 1 Then
                      Get #nFileno1, , A(1)
                      B(1) = (Int(A(1) / 4) + 65)
                      B(2) = ((A(1) Mod 4) * 16 + 65)
                      B(3) = (61)
                      B(4) = (61)
                 Else
                      If nFilelen Mod 3 = 2 Then
                            Get #nFileno1, , A(1)
                            Get #nFileno1, , A(2)
                            B(1) = (Int(A(1) / 4) + 65)
                            B(2) = ((A(1) Mod 4) * 16 + Int(A(2) / 16) + 65)
                            B(3) = ((A(2) Mod 16) * 4 + 65 + 1)
                            B(4) = (61)
                      Else
                            Get #nFileno1, , A(1)
                            Get #nFileno1, , A(2)
                            Get #nFileno1, , A(3)
                            B(1) = (Int(A(1) / 4) + 65)
                            B(2) = ((A(1) Mod 4) * 16 + Int(A(2) / 16) + 65)
                            B(3) = ((A(2) Mod 16) * 4 + Int(A(3) / 64) + 65)
                            B(4) = (A(3) Mod 64 + 65)
                      End If
                End If
                For ni = 1 To 4 Step 1
                      If B(ni) > 90 And B(ni) <= 116 Then
                            B(ni) = B(ni) + 6
                      Else
                            If B(ni) > 116 And B(ni) <= 126 Then
                                B(ni) = B(ni) - 69
                            Else
                                If B(ni) = 127 Then B(ni) = 43
                                If B(ni) = 128 Then B(ni) = 47
                            End If
                      End If
                Next ni
                Put #nFileno2, , B(1)
                Put #nFileno2, , B(2)
                Put #nFileno2, , B(3)
                Put #nFileno2, , B(4)
        Else
                nj = Int(nFilelen / 3) * 3
                Do While Loc(nFileno1) < nj
                      For ni = 1 To 3 Step 1
                        Get #nFileno1, , (A(ni))
                      Next ni
                      B(1) = (Int(A(1) / 4) + 65)
                      B(2) = ((A(1) Mod 4) * 16 + Int(A(2) / 16) + 65)
                      B(3) = ((A(2) Mod 16) * 4 + Int(A(3) / 64) + 65)
                      B(4) = (A(3) Mod 64 + 65)
                      For ni = 1 To 4 Step 1
                         If B(ni) > 90 And B(ni) <= 116 Then
                            B(ni) = B(ni) + 6
                         Else
                            If B(ni) > 116 And B(ni) <= 126 Then
                                B(ni) = B(ni) - 69
                            Else
                                If B(ni) = 127 Then B(ni) = 43
                                If B(ni) = 128 Then B(ni) = 47
                            End If
                         End If
                      Next ni
                      Put #nFileno2, , B(1)
                      Put #nFileno2, , B(2)
                      Put #nFileno2, , B(3)
                      Put #nFileno2, , B(4)
                      If Int((Loc(nFileno2) + 2) / 78) = (Loc(nFileno2) + 2) / 78 Then
                            Put #nFileno2, , vbCrLf
                      End If
                      
                      delayX = delayX + 1
                      If delayX > 500 Then
                        DoEvents
                        delayX = 0
                      End If
                Loop
                If nFilelen Mod 3 = 1 Then
                      Get #nFileno1, , A(1)
                      B(1) = (Int(A(1) / 4) + 65)
                      B(2) = ((A(1) Mod 4) * 16 + 65)
                      If nFilelen = 4 Then B(2) = B(2) + 3
                      B(3) = (61)
                      B(4) = (61)
                      For ni = 1 To 4 Step 1
                            If B(ni) > 90 And B(ni) <= 116 Then
                                B(ni) = B(ni) + 6
                            Else
                                  If B(ni) > 116 And B(ni) <= 126 Then
                                      B(ni) = B(ni) - 69
                                  Else
                                        If B(ni) = 127 Then B(ni) = 43
                                        If B(ni) = 128 Then B(ni) = 47
                                  End If
                            End If
                      Next ni
                      Put #nFileno2, , B(1)
                      Put #nFileno2, , B(2)
                      Put #nFileno2, , B(3)
                      Put #nFileno2, , B(4)
                      If Int((Loc(nFileno2) + 2) / 78) = (Loc(nFileno2) + 2) / 78 Then
                            Put #nFileno2, , vbCrLf
                      End If
            Else
                      If nFilelen Mod 3 = 2 Then
                            Get #nFileno1, , A(1)
                            Get #nFileno1, , A(2)
                            B(1) = (Int(A(1) / 4) + 65)
                            B(2) = ((A(1) Mod 4) * 16 + Int(A(2) / 16) + 65)
                            B(3) = ((A(2) Mod 16) * 4 + 65)
                            If nFilelen = 8 Then B(3) = B(3) + 1
                            B(4) = (61)
                            For ni = 1 To 4 Step 1
                                  If B(ni) > 90 And B(ni) <= 116 Then
                                      B(ni) = B(ni) + 6
                                  Else
                                      If B(ni) > 116 And B(ni) <= 126 Then
                                          B(ni) = B(ni) - 69
                                      Else
                                          If B(ni) = 127 Then B(ni) = 43
                                          If B(ni) = 128 Then B(ni) = 47
                                      End If
                                  End If
                            Next ni
                            Put #nFileno2, , B(1)
                            Put #nFileno2, , B(2)
                            Put #nFileno2, , B(3)
                            Put #nFileno2, , B(4)
                            If Int((Loc(nFileno2) + 2) / 78) = (Loc(nFileno2) + 2) / 78 Then
                                  Put #nFileno2, , vbCrLf
                            End If
                      End If
            End If
        End If
        'MsgBox Str(nFilelen), vbOKOnly
      'MsgBox  Str(Loc(nFileno1)),  vbOKOnly
        Close #nFileno1
        Close #nFileno2
    '--------------------------------------
       ' nFileno1 = FreeFile
       ' Open tmpdir + "BBASE64.TMP" For Input As #nFileno1
       '     Input #nFileno1, EnStr
       ' Close #nFileno1
       ' Encode64 = EnStr
       Encade64FileTOFile = True
EndEn64:
        Exit Function
Errchk:
        MsgBox "发生错误，编码失败！" & err.Number & "." & err.Description & "." & err.Source, vbCritical, "错误"
        Encade64FileTOFile = False
        Close #nFileno1
        Close #nFileno2
        Resume EndEn64
Fail:
        MsgBox "源文件尺寸为零，无法继续转换！", vbCritical, "错误"
'        MsgBox "发生错误，编码失败！" & err.Number & "." & err.Description & "." & err.Source, vbCritical, "错误"
        Encade64FileTOFile = False
        Close #nFileno1
        Close #nFileno2
        'Encode64 = ""

End Function
''

Public Function Decode64_filetofile(SfileN As String, TfileN As String) As Boolean
        Dim nFileno1   As Integer
        Dim nFileno2   As Integer
        Dim bByte   As Byte
        Dim sInp1   As Byte
        Dim sInp2   As Byte
        Dim nFilelen   As Long
        Dim A(3)   As Byte
        Dim B(4)   As Byte
        Dim ni As Integer
        Dim tmpdir As String
        Dim EnStr As String ', nj As Integer
        Dim delayX As Integer
        'Dim Infomation   As String '11
        'Infomation = "From:  <  shengmj@kali.com.cn>  " + Chr(13) + Chr(10) + "To:  <  shengmj@kali.com.cn>  " + Chr(13) + Chr(10) + "Cc:  " + Chr(13) + Chr(10) + "Subject:  Test" + Chr(13) + Chr(10) + "Date:  Wed,21  Feb  2001  20:00:00" + Chr(13) + Chr(10)
On Error GoTo err
        '------------------------------------

         nFileno1 = FreeFile
         Open TfileN For Output As #nFileno1
         Close #nFileno1
         '------------------
        '------------------------------------
'         nFileno1 = FreeFile
'         Open SfileN For Binary Lock Read Write As #nFileno1
'         Put #nFileno1, , InstrS
'         Close #nFileno1
        '-----------------------------------
        nFileno1 = FreeFile
        Open SfileN For Binary Lock Read Write As #nFileno1
        nFileno2 = FreeFile
        Open TfileN For Binary Lock Read Write As #nFileno2
        nFilelen = LOF(nFileno1)
        Do While Loc(nFileno1) < nFilelen
                If Int((Loc(nFileno1) + 2) / 78) = ((Loc(nFileno1) + 2) / 78) Then
                      Get #nFileno1, , B(1)
                      Get #nFileno1, , B(1)
                End If
                For ni = 1 To 4 Step 1
                      Get #nFileno1, , B(ni)
                      If B(ni) = 43 Then
                            B(ni) = 127
                            GoTo NINEXT
                      End If
                      If B(ni) = 47 Then
                            B(ni) = 128
                            GoTo NINEXT
                      End If
                      If B(ni) > 47 And B(ni) <= 57 Then
                          B(ni) = B(ni) + 69
                          GoTo NINEXT
                      End If
                      If B(ni) > 96 And B(ni) <= 122 Then
                            B(ni) = B(ni) - 6
                            GoTo NINEXT
                      End If
NINEXT:
                Next ni
                If B(3) = 61 Then
                      A(1) = ((B(1) - 65) Mod 64) * 4 + Int((B(2) - 65) / 16)
                      Put #nFileno2, , A(1)
                      GoTo Endtranslat
                End If
                If B(4) = 61 Then
                      A(1) = ((B(1) - 65) Mod 64) * 4 + Int((B(2) - 65) / 16)
                      A(2) = ((B(2) - 65) Mod 16) * 16 + Int((B(3) - 65) / 4)
                      Put #nFileno2, , A(1)
                      Put #nFileno2, , A(2)
                      GoTo Endtranslat
                End If
                A(1) = ((B(1) - 65) Mod 64) * 4 + Int((B(2) - 65) / 16)
                A(2) = ((B(2) - 65) Mod 16) * 16 + Int((B(3) - 65) / 4)
                A(3) = ((B(3) - 65) Mod 4) * 64 + (B(4) - 65)
                Put #nFileno2, , A(1)
                Put #nFileno2, , A(2)
                Put #nFileno2, , A(3)
Endtranslat:
                      delayX = delayX + 1
                      If delayX > 500 Then
                        DoEvents
                        delayX = 0
                      End If
    Loop
        
        Close #nFileno1
        Close #nFileno2
                '---------------------------
       ' -----------------
       '-------------------------------------------
        '---------------------------
 
        
         Decode64_filetofile = True
         
endF:        Exit Function
err:
    Decode64_filetofile = False
    Close #nFileno1
    Close #nFileno2
    MsgBox "发生错误，解码失败！" & err.Number & "." & err.Description & "." & err.Source, vbCritical, "错误"
Resume endF
End Function



Public Function Decode64(InstrS As String) As String
        Dim nFileno1   As Integer
        Dim nFileno2   As Integer
        Dim bByte   As Byte
        Dim sInp1   As Byte
        Dim sInp2   As Byte
        Dim nFilelen   As Long
        Dim A(3)   As Byte
        Dim B(4)   As Byte
        Dim ni As Integer
        Dim tmpdir As String
        Dim EnStr As String ', nj As Integer
        'Dim Infomation   As String '11
        'Infomation = "From:  <  shengmj@kali.com.cn>  " + Chr(13) + Chr(10) + "To:  <  shengmj@kali.com.cn>  " + Chr(13) + Chr(10) + "Cc:  " + Chr(13) + Chr(10) + "Subject:  Test" + Chr(13) + Chr(10) + "Date:  Wed,21  Feb  2001  20:00:00" + Chr(13) + Chr(10)
On Error GoTo err
        '------------------------------------
        tmpdir = Getwindir + "/TEMP/"
        '-----------------------------------------
        nFileno1 = FreeFile
         Open tmpdir + "aBASE64.TMP" For Output As #nFileno1
         Close #nFileno1

         '-----------------------------
         nFileno1 = FreeFile
         Open tmpdir + "bBASE64.TMP" For Output As #nFileno1
         Close #nFileno1
         '------------------
        '------------------------------------
         nFileno1 = FreeFile
         Open tmpdir + "aBASE64.TMP" For Binary Lock Read Write As #nFileno1
         Put #nFileno1, , InstrS
           ' Print #nFileno1, Text1.caption
         Close #nFileno1
        '-----------------------------------
        nFileno1 = FreeFile
        Open tmpdir + "aBASE64.TMP" For Binary Lock Read Write As #nFileno1
        nFileno2 = FreeFile
        Open tmpdir + "bBASE64.TMP" For Binary Lock Read Write As #nFileno2
        'Put  #nFileno2,  ,  Infomation
        nFilelen = LOF(nFileno1)
        Do While Loc(nFileno1) < nFilelen
                If Int((Loc(nFileno1) + 2) / 78) = ((Loc(nFileno1) + 2) / 78) Then
                      Get #nFileno1, , B(1)
                      Get #nFileno1, , B(1)
                End If
                For ni = 1 To 4 Step 1
                      Get #nFileno1, , B(ni)
                      If B(ni) = 43 Then
                            B(ni) = 127
                            GoTo NINEXT
                      End If
                      If B(ni) = 47 Then
                            B(ni) = 128
                            GoTo NINEXT
                      End If
                      If B(ni) > 47 And B(ni) <= 57 Then
                          B(ni) = B(ni) + 69
                          GoTo NINEXT
                      End If
                      If B(ni) > 96 And B(ni) <= 122 Then
                            B(ni) = B(ni) - 6
                            GoTo NINEXT
                      End If
NINEXT:
                Next ni
                If B(3) = 61 Then
                      A(1) = ((B(1) - 65) Mod 64) * 4 + Int((B(2) - 65) / 16)
                      Put #nFileno2, , A(1)
                      GoTo Endtranslat
                End If
                If B(4) = 61 Then
                      A(1) = ((B(1) - 65) Mod 64) * 4 + Int((B(2) - 65) / 16)
                      A(2) = ((B(2) - 65) Mod 16) * 16 + Int((B(3) - 65) / 4)
                      Put #nFileno2, , A(1)
                      Put #nFileno2, , A(2)
                      GoTo Endtranslat
                End If
                A(1) = ((B(1) - 65) Mod 64) * 4 + Int((B(2) - 65) / 16)
                A(2) = ((B(2) - 65) Mod 16) * 16 + Int((B(3) - 65) / 4)
                A(3) = ((B(3) - 65) Mod 4) * 64 + (B(4) - 65)
                Put #nFileno2, , A(1)
                Put #nFileno2, , A(2)
                Put #nFileno2, , A(3)
Endtranslat:
    Loop
        
        Close #nFileno1
        Close #nFileno2
                '---------------------------
        nFileno1 = FreeFile
        Open tmpdir + "bBASE64.TMP" For Input Lock Read Write As #nFileno1
        Input #nFileno1, EnStr
        
        Close #nFileno1
       ' -----------------
         '-----------------------------清除临时文件。
         nFileno1 = FreeFile
         Open tmpdir + "bBASE64.TMP" For Output As #nFileno1
         Close #nFileno1
         '------------------
        Kill tmpdir + "bBASE64.TMP"
        '---------------------------
        '-------------------------------清除临时文件。
        nFileno1 = FreeFile
        Open tmpdir + "aBASE64.TMP" For Output As #nFileno1
        Close #nFileno1
       Kill tmpdir + "aBASE64.TMP"
       '-------------------------------------------
'       Dim i As Long, ReadBit As Byte
'       EnStr = ""
'       Seek #nFileno2, 1
'       For i = 1 To LOF(nFileno2)
'            Get #nFileno2, , ReadBit
'            EnStr = EnStr + Chr$(ReadBit)
'       Next i
'       Close #nFileno2
'?

'        nFileno1 = FreeFile
'        Open tmpdir + "bBASE64.TMP" For Input Lock Read Write As #nFileno1
'           Input #nFileno1, EnStr
'        Close #nFileno1

'
'        Decode64 = EnStr
        '---------------------------
       
        '---------------------------
 
        
         Decode64 = EnStr
         
endF:        Exit Function
err:
'Select Case err.Number
'    Case 6
    Decode64 = ""
    Close #nFileno1
    Close #nFileno2
            '-------------------------------清除临时文件。
        nFileno1 = FreeFile
        Open tmpdir + "aBASE64.TMP" For Output As #nFileno1
        Close #nFileno1
       Kill tmpdir + "aBASE64.TMP"
       '-------------------------------------------
                '-----------------------------清除临时文件。
         nFileno1 = FreeFile
         Open tmpdir + "bBASE64.TMP" For Output As #nFileno1
         Close #nFileno1
         '------------------
        Kill tmpdir + "bBASE64.TMP"
       
        '---------------------------
    
   ' Kill tmpdir + "aBASE64.TMP": Kill tmpdir + "bBASE64.TMP"
Resume endF
End Function

'--------------------------------------------------------------另一个编码程序
Public Function Base64EncodeStr(ByVal StrIn As String) As String
    Dim mAllByteIn() As Byte, mAllByteOut() As Byte
    Dim mInByte(2) As Byte, mOutByte(3) As Byte
    Dim myByte As Byte
    Dim i As Integer, LineLen As Integer, j As Integer, m As Integer, n As Integer
    n = 3: m = 0
    mAllByteIn() = StrConv(StrIn, vbFromUnicode)
    For i = 0 To UBound(mAllByteIn()) Step 3
        j = 0
        Do While j < 3
            mInByte(j) = mAllByteIn(i + j)
            j = j + 1
            If i + j > UBound(mAllByteIn()) Then Exit Do
        Loop
        Base64EncodeByte mInByte, mOutByte, j
        ReDim Preserve mAllByteOut(n)
        For j = 0 To 3
            mAllByteOut(n - 3 + j) = mOutByte(j)
        Next j
        n = n + 4
        m = m + 4
        If m > 70 Then
            m = 0
            n = n + 2
            ReDim Preserve mAllByteOut(n)
            mAllByteOut(n - 2) = &HD
            mAllByteOut(n - 1) = &HA
        End If
    Next i
    Base64EncodeStr = StrConv(mAllByteOut(), vbUnicode)
End Function

Private Sub Base64EncodeByte(mInByte() As Byte, mOutByte() As Byte, Num As Integer)
    Dim tByte As Byte
    Dim i As Integer
    If Num = 1 Then
        mInByte(1) = 0
        mInByte(2) = 0
    ElseIf Num = 2 Then
        mInByte(2) = 0
    End If
    tByte = mInByte(0) And &HFC
    mOutByte(0) = tByte / 4
    tByte = ((mInByte(0) And &H3) * 16) + (mInByte(1) And &HF0) / 16
    mOutByte(1) = tByte
    tByte = ((mInByte(1) And &HF) * 4) + ((mInByte(2) And &HC0) / 64)
    mOutByte(2) = tByte
    tByte = (mInByte(2) And &H3F)
    mOutByte(3) = tByte
    For i = 0 To 3
        If mOutByte(i) >= 0 And mOutByte(i) <= 25 Then
            mOutByte(i) = mOutByte(i) + Asc("A")
        ElseIf mOutByte(i) >= 26 And mOutByte(i) <= 51 Then
            mOutByte(i) = mOutByte(i) - 26 + Asc("a")
        ElseIf mOutByte(i) >= 52 And mOutByte(i) <= 61 Then
            mOutByte(i) = mOutByte(i) - 52 + Asc("0")
        ElseIf mOutByte(i) = 62 Then
            mOutByte(i) = Asc("+")
        Else
            mOutByte(i) = Asc("/")
        End If
    Next i
    If Num = 1 Then
        mOutByte(2) = Asc("=")
        mOutByte(3) = Asc("=")
    ElseIf Num = 2 Then
        mOutByte(3) = Asc("=")
    End If
End Sub

此文仅作为为相关连接：http://topic.csdn.net/u/20090707/00/0b3b4c31-8cef-4bd2-817e-4a2a445e8b87.html?seed=1568730854 

提供素材之用，别无它意。

jessezappy
关注
专栏目录
base64 Blob 进行拼接 base64拼接 Blob拼接 (讯飞接口)
web修理工
06-05 2843
// 建立WebSocket socket(url) { let socket = new WebSocket(url); let au = []; socket.onopen = () => { socket.send(JSON.stringify(this.wxsData)); }; socket.onmessage = function(res) { if (res && re.
base64图片拼接头
weixin_45853783的博客
07-30 2050
自取 data:image/jpg;base64,
Base64编码避坑指南
最新发布
搬山境KL攻城狮的修炼手册
09-30 202
Base64编码避坑指南
vue/js 前端Img显示后端返回的base64图像字符拼接的两种方法
wori的专栏
04-08 2721
一、直接字符串拼接 <vxe-table-column field="site_photo" title="照片" align="left" show-overflow="tooltip" width="80px"> <template v-slot="{ row }"> <el-avatar fit="scale-down" :src="'data:image/jpg;base64,'+row.site_photo"&gt
一文掌握：图片转Base64编码的原理、实践（自定义图片本地缓存等）以及优化事项
JINGWHALE
05-31 5129
图片Base64编码将图片数据转换为ASCII字符串，便于网络传输和存储。实现步骤包括读取图片文件、转换为字节数组，再通过编码算法生成Base64字符串。应用场景广泛，如网页图片嵌入、数据加密传输等。自定义图片本地缓存可提升性能，减少网络请求。使用时需注意编码效率、内存占用，优化方法包括压缩图片、异步加载等。掌握Base64编码原理与技巧，能更高效地处理图片数据。
Android 进阶——常用的Base64编码算法和MD5 信息摘要算法详解
最美不过，心中有梦，身旁有你！
12-23 3461
常用的Base64编码算法和MD5 信息摘要算法详解
javase学习笔记，学习时间一个月，发布笔记进度1/3
m0_60726300的博客
04-10 1943
1. Java基本语法 1.1 语言概述 1.1.1 整体语言概述 1.1.2 Java语言概述 1.1.2.1 基础常识 软件：即一系列按照特定顺序组织的计算机数据和指令集合。分为系统软件和应用软件 系统软件：Windows，mac os，linux，unix，android，ios，… 应用软件：word，ppt，画图板 人机交互方式：图形化界面vs命令行方式 应用程序=算法+数据结构 1.1.2.2 计算机语言的发展迭代史 第一代：机器语言 第二代：汇编语言 第三代：高级语言 面向过程：C，P
libevent evhttp使用
深之JohnChen的专栏
11-29 4187
一、libevent evhttp使用 1、基本流程 http服务端使用到的借口函数及流程如下 1)、创建event_base和evhttp struct event_base *event_base_new(void); struct evhttp *evhttp_new(struct event_base *base); 2)、绑定地址和端口 int evhttp_bind_socket(st...
( 持续更新，目前含 200+ 工具类 ) DevUtils 是一个 Android 工具库, 主要根据不同功能模块，封装快捷使用的工具类及 API 方法调用。
afkT 的博客
09-24 5091
About DevUtils 是一个 Android 工具库, 主要根据不同功能模块，封装快捷使用的工具类及 API 方法调用。 该项目尽可能的便于开发人员，快捷、快速开发安全可靠的项目，以及内置部分常用的资源文件，如color.xml、(toast) layout.xml等 Gradle Step 1. Add the JitPack repository to your build fil...
渗透测试高级面试题
fzx_hsaj的博客
02-13 1万+
1 应用程序开发过程中，下面那些开发习惯可能导致安全漏洞？（） A 在程序代码中打印日志输出敏感信息方便调式 B 在使用数组前判断是否越界 C 在生成随机数前使用当前时间设置随机数种子 D 设置配置文件权限为rw-rw-rw- 答案：AD 解释： A 为日志包含敏感信息，容易泄露账号密码接口数据等信息，可能产生安全漏洞。 B 为数组大小问题，数组不越界，可防止溢出安全漏洞。因此是安全的。 C 用...
[享学Jackson] 二、jackson-core之流式API与JsonFactory、JsonGenerator、JsonParser
架构师：通透，才能写出好代码！
12-29 7129
`jackson-core`是三大核心模块之一，并且它是核心中的核心，它提供了对JSON数据的**完整支持**。 此模块提供了最具底层的Streaming JSON解析器/生成器，这组流式API属于Low-Level API，具有非常显著的特点： - 开销小，损耗小，性能极高 - 因为是Low-Level API，所以灵活度极高 - 又因为是Low-Level API，所以易错性高，可读性差 `jackson-core`模块提供了两种处理JSON的方式（整个Jackson一共3种）： 1. 流式API：读
PHP convert_uudecode()函数讲解
01-02
PHP convert_uuencode() 函数 实例 编码字符串： <?php $str = Hello world!; echo convert_uuencode($str); ?> 定义和用法 convert_uuencode() 函数使用 uuencode 算法对字符串进行编码。 注释： 该函数把所有字符串（包括二进制）编码为可打印的字符，确保其数据库存储及网络传输的安全。请记住，在重新使用数据前，请使用 convert_uudecode() 函数。 注释： uuencoded 数据比原数据大约增大 35%。 语法 convert_uuencode( _string_ )
FileSaver.js-master
04-14
FileSaver.js-master官方例子
highcharts坐标轴标签格式化回调函数formatter:function中引用series中的数据
编程路
10-26 8248
highcharts坐标轴标签格式化回调函数formatter:function中引用series中的数据
base64转blob类型如何显示在页面上
qq_44162778的博客
02-23 697
//urlData 传base64 //type 图片类型 传 “image/png” // 调用方法 图片放置的参数 = URL.createObjectURL(this.base64ToBlob(base64,“image/png”))； base64ToBlob(urlData, type) { let arr = urlData.split(’,’); let mime = arr[0].match(/????.*?);/)[1] || type; // 去掉url的头，并转化为byte let
如何分隔两个base64字符串？
weixin_34378969的博客
10-09 1395
 如何分隔两个base64字符串？  用逗号或者任意的不在base64字符串内的字符都可以。 All you have to do is to use a separator which is not a valid Basc64 character. Comma is not a base64 character so you can use. Base64 characters ...
在url上传输经过base64编码的参数遇到的坑
热门推荐
weixin_38312502的博客
08-06 6万+
背景：本人想在url上传输一个json串（get请求），该json串较长且不确定是否有特殊字符，所以我选择先使用base64编码先对参数进行编码，然后再拼接到url上 学习过程：本人之前只了解base64，但是从来没有使用过，所以经过翻阅资料，了解了base64的各种版本，参考博客： https://blog.csdn.net/zhou_kapenter/article/details/628...
Java服务端推送和web端推送——GoEasy免费推送服务
编程路
12-21 1万+
1. Java服务器端推送，web端接收推送信息 2. Web端推送，web端接收推送信息
使用c语言循环拼凑出一个五角星
05-05
以下是使用C语言循环拼凑出一个五角星的代码： ```c #include int main() { int i, j, n = 5; for(i = 1; i ; i++) { for(j = 1; j ; j++) { printf(" "); } for(j = 1; j * i - 1; j++) { printf("*"); ...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

jessezappy

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值