Commit 7ba091ca authored by Guenter Knauf's avatar Guenter Knauf
Browse files

Added a cont to specify base64 line wrap.

parent ce8a35c3

lib/mk-ca-bundle.vbs

+6 −4
Original line number Diff line number Diff line
@@ -26,7 +26,7 @@ 
'* Hacked by Guenter Knauf

'***************************************************************************

Option Explicit

Const myVersion = "0.3.6"

Const myVersion = "0.3.7"



Const myUrl = "http://mxr.mozilla.org/mozilla/source/security/nss/lib/ckfw/builtins/certdata.txt?raw=1"
@@ -36,6 +36,7 @@ Const myCdSavF = FALSE ' Flag: save downloaded data to file certdata.txt 
Const myCaBakF = TRUE        ' Flag: backup existing ca-bundle certificate

Const myAskLiF = TRUE        ' Flag: display certdata.txt license agreement

Const myAskTiF = TRUE        ' Flag: ask to include certificate text info

Const myWrapLe = 76          ' Default length of base64 output lines



'******************* Nothing to configure below! *******************

Dim objShell, objNetwork, objFSO, objHttp
@@ -239,7 +240,8 @@ End Function 


Function Base64Encode(inData)

  Const Base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"

  Dim cOut, sOut, I

  Dim cOut, sOut, lWrap, I

  lWrap = Int(myWrapLe * 3 / 4)



  'For each group of 3 bytes

  For I = 1 To Len(inData) Step 3
@@ -265,9 +267,9 @@ Function Base64Encode(inData) 
    'Add the part To OutPut string

    sOut = sOut + pOut



    'Add a new line For Each 76 chars In dest (76*3/4 = 57)

    'Add a new line For Each myWrapLe chars In dest

    If (I < Len(inData) - 2) Then

      If (I + 2) Mod 57 = 0 Then sOut = sOut & vbLf

      If (I + 2) Mod lWrap = 0 Then sOut = sOut & vbLf

    End If

  Next

  Select Case Len(inData) Mod 3