Set limits on parsed msglen

Author: terryburton

CHANGES

@@ -1,3 +1,9 @@
+XXXX-XX-XX
+
+* The QR Code, Aztec Code, Ultracode, PDF417, MicroPDF417, MaxiCode, Data Matrix, Han Xin Code, Code One and Codablock F encoders were amended to bound their parsed message length.
+* The DotCode encoder was amedned to cap the rows and columns options at 200.
+
+
 2026-05-06
 
 * The D3 AQR encoder was amended to invert the p0 parity module.

src/azteccode.ps.src

@@ -366,7 +366,7 @@ begin
     } if
 
     barcode length 20000 gt {
-        /bwipp.azteccodeinputTooLong (The input data is too long) //raiseerror exec
+        /bwipp.azteccodeInputTooLong (The input data is too long) //raiseerror exec
     } if
 
     eclevel 5 lt eclevel 95 gt or {
@@ -442,6 +442,11 @@ begin
     barcode fncvals //parseinput exec /msg exch def
     /msglen msg length def
 
+    % Absolute capacity is 32-layer full at eclevel=5 ecaddchars=3, numeric.
+    msglen 4729 gt {
+        /bwipp.azteccodeInputTooLong (The input data is too long) //raiseerror exec
+    } if
+
     (input.preprocess) //azteccode.after exec
 
     %

src/codablockf.ps.src

@@ -259,6 +259,11 @@ begin
     counttomark array astore /msg exch def pop
     /msglen msg length def
 
+    % Absolute capacity is 62 columns x 44 rows numeric.
+    msglen 5452 gt {
+        /bwipp.codablockfinputTooLong (The input data is too long) //raiseerror exec
+    } if
+
     %
     % Determine digit runlength and characters from given position
     %

src/codeone.ps.src

@@ -404,7 +404,7 @@ begin
     /barcode exch def
 
     barcode length 4000 gt {
-        /bwipp.codeoneinputTooLong (The input data is too long) //raiseerror exec
+        /bwipp.codeoneInputTooLong (The input data is too long) //raiseerror exec
     } if
 
     /_render
@@ -594,6 +594,11 @@ begin
             /msglen msg length def
         } if
 
+        % Absolute capacity is H format numeric.
+        msglen 3550 gt {
+            /bwipp.codeoneInputTooLong (The input data is too long) //raiseerror exec
+        } if
+
         (input.preprocess) //codeone.after exec
 
         (input.encoding.non_stype) //codeone.before exec

src/datamatrix.ps.src

@@ -423,7 +423,7 @@ begin
     } if
 
     barcode length 15000 gt {
-        /bwipp.datamatrixinputTooLong (The input data is too long) //raiseerror exec
+        /bwipp.datamatrixInputTooLong (The input data is too long) //raiseerror exec
     } if
 
     version (unset) ne rows 0 ne columns 0 ne or and {
@@ -570,6 +570,11 @@ begin
         } if
         /msglen msg length def
 
+        % Absolute capacity is 144x144 numeric.
+        msglen 3116 gt {
+            /bwipp.datamatrixInputTooLong (The input data is too long) //raiseerror exec
+        } if
+
         (input.preprocess) //datamatrix.after exec
 
         %

src/dotcode.ps.src

@@ -278,7 +278,7 @@ begin
 
     /barcode exch def
 
-    barcode length 4000 gt {
+    barcode length 2000 gt {
         /bwipp.dotcodeinputTooLong (The input data is too long) //raiseerror exec
     } if
 

src/gs1dotcode.ps.src

@@ -73,7 +73,7 @@ begin
 
     /barcode exch def
 
-    barcode length 4000 gt {
+    barcode length 2000 gt {
         /bwipp.gs1dotcodeinputTooLong (The input data is too long) //raiseerror exec
     } if
 

src/hanxin.ps.src

@@ -702,6 +702,11 @@ begin
         } if
     } if
 
+    % Absolute capacity is version 84 eclevel=L1 numeric.
+    msglen 7827 gt {
+        /bwipp.hanxinInputTooLong (The input data is too long) //raiseerror exec
+    } if
+
     %
     % Outside GS1 mode, FNC1 defined as having no encoding
     %

src/maxicode.ps.src

@@ -375,7 +375,7 @@ begin
 
     % 93 max alphanumeric; 4x for ^NNN parse expansion
     barcode length 1000 gt {
-        /bwipp.maxicodeinputTooLong (The input data is too long) //raiseerror exec
+        /bwipp.maxicodeInputTooLong (The input data is too long) //raiseerror exec
     } if
 
     mode -1 ne mode 2 lt mode 6 gt or and {
@@ -518,6 +518,11 @@ begin
 
     } if
 
+    % Absolute capacity is mode 4/6 numeric.
+    msglen 138 gt {
+        /bwipp.maxicodeInputTooLong (The input data is too long) //raiseerror exec
+    } if
+
     (input.preprocess) //maxicode.after exec
 
     (input.encoding) //maxicode.before exec

src/micropdf417.ps.src

@@ -790,6 +790,11 @@ begin
         } if
         /msglen msg length def
 
+        % Absolute capacity is 4x44 numeric.
+        msglen 366 gt {
+            /bwipp.micropdf417inputTooLong (The input data is too long) //raiseerror exec
+        } if
+
         (input.preprocess) //micropdf417.after exec
 
         (input.encoding) //micropdf417.before exec