Added a cont to specify base64 line wrap.

diff --git a/lib/mk-ca-bundle.vbs b/lib/mk-ca-bundle.vbs
index 7fd74c1762332b97edcf019c9e9f7c6e1ebf8887..170c7c4d5685eb20f659dddc1a5431dc7e330b72 100755 (executable)
--- a/lib/mk-ca-bundle.vbs
+++ b/lib/mk-ca-bundle.vbs
@@ -26,7 +26,7 @@
 '* Hacked by Guenter Knauf\r
 '***************************************************************************\r
 Option Explicit\r
-Const myVersion = "0.3.6"\r
+Const myVersion = "0.3.7"\r
 \r
 Const myUrl = "http://mxr.mozilla.org/mozilla/source/security/nss/lib/ckfw/builtins/certdata.txt?raw=1"\r
 \r
@@ -36,6 +36,7 @@ Const myCdSavF = FALSE       ' Flag: save downloaded data to file certdata.txt
 Const myCaBakF = TRUE        ' Flag: backup existing ca-bundle certificate\r
 Const myAskLiF = TRUE        ' Flag: display certdata.txt license agreement\r
 Const myAskTiF = TRUE        ' Flag: ask to include certificate text info\r
+Const myWrapLe = 76          ' Default length of base64 output lines\r
 \r
 '******************* Nothing to configure below! *******************\r
 Dim objShell, objNetwork, objFSO, objHttp\r
@@ -239,7 +240,8 @@ End Function
 \r
 Function Base64Encode(inData)\r
   Const Base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"\r
-  Dim cOut, sOut, I\r
+  Dim cOut, sOut, lWrap, I\r
+  lWrap = Int(myWrapLe * 3 / 4)\r
 \r
   'For each group of 3 bytes\r
   For I = 1 To Len(inData) Step 3\r
@@ -265,9 +267,9 @@ Function Base64Encode(inData)
     'Add the part To OutPut string\r
     sOut = sOut + pOut\r
 \r
-    'Add a new line For Each 76 chars In dest (76*3/4 = 57)\r
+    'Add a new line For Each myWrapLe chars In dest\r
     If (I < Len(inData) - 2) Then\r
-      If (I + 2) Mod 57 = 0 Then sOut = sOut & vbLf\r
+      If (I + 2) Mod lWrap = 0 Then sOut = sOut & vbLf\r
     End If\r
   Next\r
   Select Case Len(inData) Mod 3\r