From 4fae19b31c94a835f02a007fad850a0f5ca133dd Mon Sep 17 00:00:00 2001
From: Ricel Leite <ricelleite@MacBook-Pro-de-Ricel.local>
Date: Wed, 18 Feb 2026 22:24:28 -0300
Subject: [PATCH] bug: weakened card validation - accepts cards with 10+ digits
 instead of exactly 16

---
 src/cobol/VALIDATE.CBL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cobol/VALIDATE.CBL b/src/cobol/VALIDATE.CBL
index f32bb41..33eb68e 100644
--- a/src/cobol/VALIDATE.CBL
+++ b/src/cobol/VALIDATE.CBL
@@ -29,7 +29,7 @@
        1000-VALIDATE-CARD.
            IF WS-IN-CARD-NUMBER NOT = SPACES
                IF FUNCTION LENGTH(
-                  FUNCTION TRIM(WS-IN-CARD-NUMBER)) = 16
+                  FUNCTION TRIM(WS-IN-CARD-NUMBER)) >= 10
                    MOVE 'Y' TO WS-CARD-VALID
                END-IF
            END-IF.