code wiki / _hdl_build / nx_hmacmd5alt_extvec_gate.nx
`nx_hmacmd5alt_extvec_gate.nx` source

↩ module page · 520 lines · 29122 B
1// nx_hmacmd5alt_extvec_gate.nx -- THE ADJUDICATOR FOR THE MD5 DUPLICATE PAIR.
2//
3// Identical to nx_hmacmd5_extvec_gate except ONE import:
4//   nx_hmacmd5_extvec_gate    -> nx_hmac_md5.nx -> nx_md5_canonical.nx  (core VALIDATED 7/7 vs RFC 1321)
5//   nx_hmacmd5alt_extvec_gate ->    hmac_md5.nx ->            md5.nx    (core NEVER GRADED)
6// Both export an identical hmac_md5 symbol, so the ONLY difference is which FILE was bound.
7//
8// THIS IS THE SAME EXPERIMENT THAT CAUGHT sha1.nx. That defect was found because an un-prefixed duplicate
9// had never been graded against an authority while its nx_-prefixed twin had. The same shape exists here
10// (and for hkdf_sha1, hex_encode, and syscalls), so the question is empirical, not rhetorical.
11// * A DUPLICATE PAIR IS A COIN FLIP UNTIL AN AUTHORITY ADJUDICATES IT -- "it's probably fine" is what let
12//   a wrong SHA-1 core sit under HOTP, TOTP, PBKDF2 and UUIDv5.
13// GREEN here EXONERATES md5.nx; RED convicts it and makes the un-prefixed MD5 family a second sev-8.
14//// nx_hmacmd5alt_extvec_gate.nx -- validated against RFC2202-HMAC-MD5, read from the pinned+corroborated RFC2202 document.
15// ⚠HEADER CORRECTED 2026-08-01: this file was CLONED from nx_hmac_extvec_gate.nx and inherited its
16// header verbatim, so it claimed to be that gate validating HMAC-SHA-256 against RFC 4231. Nine of
17// twenty-three extvec gates carried the same wrong self-description. ★★★★★A CLONED FILE INHERITS ITS
18// PARENT'S CLAIMS, AND ON AN EVIDENCE ARTIFACT THE HEADER IS A PROVENANCE CLAIM, NOT A COMMENT --
19// an auditor reading headers would have concluded RFC 4231 validated all nine subjects.
20//
21// SUPERSEDES the single-case version. Going from 1 vector to 7 matters because the cases are deliberately
22// chosen by the authority to hit DIFFERENT code paths, and the ones I was NOT running are the interesting
23// ones: case 3 uses a 50-byte repeated data block, cases 6 and 7 use a 131-BYTE KEY (longer than the 64-byte
24// SHA-256 block, so the key must be HASHED first), and case 5 publishes a TRUNCATED 128-bit MAC.
25// ★A gate that ran only case 1 would never touch the key-longer-than-block branch -- the single most
26// commonly botched part of HMAC. Running one vector from a seven-vector suite is not "validated against
27// RFC 4231"; it is validated against one line of it.
28//
29// ⚠VARIABLE-LENGTH FIELDS, HANDLED BY TERMINATOR NOT BY LENGTH. Key/Data lengths differ per case and their
30// annotations are inconsistent -- "(20 bytes)" for keys but ("Hi There") for data -- so a length cannot be
31// read uniformly. Instead the hex run is read until the first `(`, which terminates both forms.
32// ⚠THE MAC HAS NO `(` TERMINATOR and case 5's is TRUNCATED to 16 bytes, so it is read as hex pairs until a
33// pair is not both-hex, capped at 32. That correctly stops at the section heading that follows -- note
34// "4.3." begins with '4', a HEX DIGIT, and is only rejected because '.' is not: the PAIR rule saves this,
35// a single-nibble rule would have swallowed it.
36//
37// Construction unchanged: no expected value in this source, document pinned to a socket-time digest, every
38// key/data/MAC read from that pinned document, and a completeness check that refuses GREEN below 7.
39// license_tier: ORIGINAL  expect_exit: 0
40import "nx_syscalls.nx"
41import "nx_sha256_wasm.nx"
42import "hmac_md5.nx"
43import "nx_gate_verdict.nx"
44
45func w(s: *u8) -> i64 { var n: i64 = 0; while s[n] != (0 as u8) { n = n + 1 } sys_write(1, s, n); return 0 }
46func wb(b: *u8, n: i64) -> i64 { sys_write(1, b, n); return 0 }
47
48func nn(v: i64) -> i64 {
  var m: i64 = v
  if m < 0 { w("-" as *u8); m = 0 - m }
  let t: *u8 = sys_mmap(32)
  var k: i64 = 0
  if m == 0 { t[0] = 48 as u8; k = 1 }
  while m > 0 { t[k] = (48 + (m % 10)) as u8; m = m / 10; k = k + 1 }
  let b: *u8 = sys_mmap(32)
  var j: i64 = 0
  while j < k { b[j] = t[k - 1 - j]; j = j + 1 }
  sys_write(1, b, k)
  return 0
60}
61
62func hexnib(v: i64) -> i64 { if v < 10 { return 48 + v } return 87 + v }
63
64func hexval(c: i64) -> i64 {
  if c >= 48 { if c <= 57 { return c - 48 } }
  if c >= 97 { if c <= 102 { return c - 87 } }
  if c >= 65 { if c <= 70 { return c - 55 } }
  return 0 - 1
69}
70
71func isws(c: i64) -> i64 {
  if c == 32 { return 1 }
  if c == 10 { return 1 }
  if c == 13 { return 1 }
  if c == 9 { return 1 }
  return 0
77}
78
79func starts(b: *u8, n: i64, at: i64, s: *u8) -> i64 {
  var i: i64 = 0
  while s[i] != (0 as u8) {
      if at + i >= n { return 0 }
      if b[at + i] != s[i] { return 0 }
      i = i + 1
  }
  return 1
87}
88
89func findfrom(b: *u8, n: i64, s: *u8, from: i64) -> i64 {
  var p: i64 = from
  while p < n {
      if starts(b, n, p, s) == 1 { return p }
      p = p + 1
  }
  return 0 - 1
96}
97
98// Read hex PAIRS (whitespace between pairs is skipped) until a pair is not both-hex, or `(` is reached,
99// or cap is hit. Returns the byte count.
100func parserun(b: *u8, n: i64, from: i64, out: *u8, cap: i64) -> i64 {
  var p: i64 = from
  var got: i64 = 0
  var done: i64 = 0
  while done == 0 {
      if got >= cap { done = 1 }
      else {
          // skip whitespace, REMEMBERING whether the skip crossed a line boundary
          var d1: i64 = 0
          var crossed: i64 = 0
          while d1 == 0 {
              if p >= n { d1 = 1 }
              else { if isws(b[p] as i64) == 1 { if b[p] == (10 as u8) { crossed = 1 } p = p + 1 } else { d1 = 1 } }
          }
          // ★★★★★ THE HAZARD THIS FILE ALREADY NAMED, IN THE ONE PATH THE FIX NEVER COVERED.
          // "Da" IS VALID HEX. The discriminator -- a continuation line has NO '=', a label line always
          // does -- was written above for the `(`-ANNOTATED branch ONLY. A `digest =` value carries no
          // `(` annotation, so it fell through to the plain hex-pair path, ran straight past end-of-line,
          // and read the "da" of "data_len =" as byte 0xDA: 21 bytes returned for a 20-byte digest.
          // MEASURED, not inferred:
          //   expected = e8e9…1a91 DA     computed = e8e9…1a91 00     <- first 20 bytes IDENTICAL
          // It bit exactly ONE case because that block is the only one followed by a `data_len` line; the
          // duplicate case 7 is followed by the page footer ("Cheng & Glenn" -- 'h' is not hex), which is
          // why two cases with IDENTICAL inputs disagreed and looked like a crypto or pairing fault.
          // ★A FIX APPLIED TO ONE BRANCH OF A TWO-BRANCH READER IS HALF A FIX -- AND THE HALF YOU SKIPPED
          //  WILL IMPERSONATE A BUG IN THE SUBJECT.
          // Terminating by setting p = n reuses the existing bounds check instead of adding a branch:
          // after four failed hypotheses here, the smallest possible edit is the safest one.
          if crossed == 1 {
              var eq2: i64 = 0
              var sc2: i64 = p
              var de2: i64 = 0
              while de2 == 0 {
                  if sc2 >= n { de2 = 1 }
                  else { if b[sc2] == (10 as u8) { de2 = 1 }
                  else { if b[sc2] == (61 as u8) { eq2 = 1; de2 = 1 } else { sc2 = sc2 + 1 } } }
              }
              if eq2 == 1 { p = n }
          }
          if p + 1 >= n { done = 1 }
          else {
              // `(` ends a LINE SEGMENT, not the value: RFC 4231 annotates EVERY wrapped line, e.g.
              //   Data = 7768...6e7420  ("what do ya want ")
              //          666f...693f    ("for nothing?")
              // Treating `(` as the value terminator stopped case 2 at 16 of its 28 bytes. On `(`, skip
              // to the next line and continue ONLY if it resumes with a hex pair; otherwise stop.
              if b[p] == (40 as u8) {
                  var dl: i64 = 0
                  while dl == 0 {
                      if p >= n { dl = 1 }
                      else { if b[p] == (10 as u8) { p = p + 1; dl = 1 } else { p = p + 1 } }
                  }
                  var dw: i64 = 0
                  while dw == 0 {
                      if p >= n { dw = 1 }
                      else { if isws(b[p] as i64) == 1 { p = p + 1 } else { dw = 1 } }
                  }
                  // ⚠"Da" IS VALID HEX. The next line may be `   Data =  7768...`, and testing only
                  // "do the first two chars parse as hex" accepted D,a and read the LABEL as byte 0xDA --
                  // adding one phantom byte to every key (case 1 read 21 of 20, case 2 read 5 of 4).
                  // Third form of the same hazard today: an ASCII gutter, then English prose, now a
                  // FIELD LABEL that happens to spell hex.
                  // STRUCTURAL DISCRIMINATOR: a continuation line has NO '='; every label line has one.
                  var eqfound: i64 = 0
                  var sc: i64 = p
                  var de: i64 = 0
                  while de == 0 {
                      if sc >= n { de = 1 }
                      else { if b[sc] == (10 as u8) { de = 1 }
                      else { if b[sc] == (61 as u8) { eqfound = 1; de = 1 } else { sc = sc + 1 } } }
                  }
                  if eqfound == 1 { done = 1 }
                  else {
                      if p + 1 >= n { done = 1 }
                      else {
                          if hexval(b[p] as i64) < 0 { done = 1 }
                          else { if hexval(b[p + 1] as i64) < 0 { done = 1 } }
                      }
                  }
              }
              else {
                  let h1: i64 = hexval(b[p] as i64)
                  let h2: i64 = hexval(b[p + 1] as i64)
                  if h1 < 0 { done = 1 }
                  else { if h2 < 0 { done = 1 }
                  else {
                      out[got] = ((h1 * 16) + h2) as u8
                      got = got + 1
                      p = p + 2
                  } }
              }
          }
      }
  }
  return got
195}
196
197// Find the next "Key" FIELD LABEL at line start. Verified against the raw bytes of RFC 4231:
198//   line 192 "   Key =          0b0b..."   <- cases 1,2,4,5,6,7
199//   line 251 "   Key            aaaa..."   <- CASE 3: no '=' at all
200//   line 177 "   Keys, data, and digests..." <- PROSE. "Key" is a PREFIX of "Keys".
201// Anchoring on "\n   Key" alone matched that prose line and drove the parse to ZERO cases. So the label is
202// accepted only when the character AFTER "Key" is a SPACE or '=' -- which "Keys" fails on 's'.
203// ★A prefix match is not a token match. Every anchor in this file is now checked against the byte AFTER it.
204func find_key_label(b: *u8, n: i64, from: i64) -> i64 {
  var p: i64 = from
  var done: i64 = 0
  while done == 0 {
      let h: i64 = findfrom(b, n, "\n   Key" as *u8, p)
      if h < 0 { return 0 - 1 }
      let c: i64 = b[h + 7] as i64
      if c == 32 { return h }
      if c == 61 { return h }
      p = h + 7
  }
  return 0 - 1
216}
217func readdec(b: *u8, n: i64, from: i64) -> i64 {
  var p: i64 = from
  var v: i64 = 0
  var got: i64 = 0
  var done: i64 = 0
  while done == 0 {
      if p >= n { done = 1 }
      else {
          let c: i64 = b[p] as i64
          if c == 32 { if got == 1 { done = 1 } else { p = p + 1 } }
          else { if c >= 48 { if c <= 57 { v = (v*10)+(c-48); got = 1; p = p + 1 } else { done = 1 } } else { done = 1 } }
      }
  }
  if got == 0 { return 0 - 1 }
  return v
232}
233
234// A field is EITHER 0x-hex OR a quoted ASCII string. RFC 2202 uses both for `data` across its cases
235// (0xdd... for the repeated-byte cases, "Hi There" for the readable ones), so the reader must dispatch on
236// the first non-space character rather than assume one form.
237func readdec_skipeq(b: *u8, n: i64, from: i64) -> i64 {
  var p: i64 = from
  var d: i64 = 0
  while d == 0 {
      if p >= n { d = 1 }
      else { if b[p] == (32 as u8) { p = p + 1 } else { if b[p] == (61 as u8) { p = p + 1 } else { d = 1 } } }
  }
  return readdec(b, n, p)
245}
246
247func readfield(b: *u8, n: i64, from: i64, out: *u8, cap: i64) -> i64 {
  var p: i64 = from
  var d: i64 = 0
  while d == 0 {
      if p >= n { d = 1 }
      else { if b[p] == (32 as u8) { p = p + 1 } else { d = 1 } }
  }
  if p >= n { return 0 - 1 }
  if b[p] == (34 as u8) {
      // ⚠A WRAPPED QUOTED STRING: the newline REPLACES a space, it does not delete one.
      //   data =          "Test Using Larger Than Block-Size Key and Larger
      //                   Than One Block-Size Data"
      // Copying raw gave 89 (47 + newline + 16 indent + 25); dropping the wrap entirely gives 72; the
      // document declares 73. So a newline plus its following indentation collapses to EXACTLY ONE SPACE.
      // ★Verified against the document's own data_len, not assumed -- the declared length is what
      // distinguishes "delete the wrap" from "replace the wrap", and those differ by one byte.
      var k: i64 = 0
      p = p + 1
      while p < n {
          if b[p] == (34 as u8) { return k }
          if k >= cap { return 0 - 1 }
          if b[p] == (10 as u8) {
              out[k] = 32 as u8
              k = k + 1
              p = p + 1
              var ds: i64 = 0
              while ds == 0 {
                  if p >= n { ds = 1 }
                  else { if b[p] == (32 as u8) { p = p + 1 } else { if b[p] == (13 as u8) { p = p + 1 } else { ds = 1 } } }
              }
          } else {
              if b[p] == (13 as u8) { p = p + 1 }
              else {
                  out[k] = b[p]
                  k = k + 1
                  p = p + 1
              }
          }
      }
      return 0 - 1
  }
  if p + 1 < n { if b[p] == (48 as u8) { if b[p+1] == (120 as u8) {
      let got: i64 = parserun(b, n, p + 2, out, cap)
      // ⚠RFC 2202 EXPRESSES BULK DATA AS PROSE: `data = 0xdd repeated 50 times`. That is ONE hex byte
      // followed by a repetition count in ENGLISH. A literal hex reader returns 1 byte, and the
      // document-declared data_len=50 is what caught it -- the self-check named the READER instead of
      // letting HMAC be blamed for a 1-byte input.
      // ★A value can be expressed as a PROGRAM ("repeat this"), not just as data. Tenth notation form.
      if got == 1 {
          let rp: i64 = findfrom(b, n, "repeated" as *u8, p)
          if rp >= 0 { if rp < p + 40 {
              let cnt: i64 = readdec(b, n, rp + 8)
              if cnt > 1 { if cnt <= cap {
                  let fill: i64 = out[0] as i64
                  var q: i64 = 0
                  while q < cnt { out[q] = fill as u8; q = q + 1 }
                  return cnt
              } }
          } }
      }
      return got
  } } }
  return 0 - 1
310}
311
312// HMAC-MD5 IS TAKEN FROM THE LIBRARY (nx_hmac_md5.nx), NOT REBUILT HERE -- unlike the SHA-1 gate this
313// RFC 2104: HMAC(K,m) = H((K' xor opad) || H((K' xor ipad) || m)), K' = K padded to 64 (hashed first if
314// longer). This shares ONLY the hash core with hmac_sha1 -- and that core is independently PROVEN correct
315// against RFC 3174. So if THIS matches the published digest and hmac_sha1 does not, the wrapper is at
316// fault; if BOTH miss, the reader is. ★A differential is only worth running when its shared set excludes
317// the suspect -- round 53's did not, this one does.
318// print one byte as two lowercase hex chars -- for the measured failure dump.
319func ph(v: i64) -> i64 {
  let t: *u8 = sys_mmap(8)
  t[0] = hexnib((v / 16) & 15) as u8
  t[1] = hexnib(v & 15) as u8
  sys_write(1, t, 2)
  return 0
325}
326
327// RFC 2202 section 2 publishes SEVEN HMAC-MD5 vectors in the SAME document already pinned and
328// corroborated for the SHA-1 section -- coverage that needed no new acquisition and had never been
329// graded. The previous gate over this file counted them as `skipped_md5` and moved on.
330// * UNGRADED VECTORS INSIDE AN ALREADY-TRUSTED DOCUMENT ARE THE CHEAPEST COVERAGE THERE IS, AND THE
331//   EASIEST TO MISS -- the document was "done", so nobody looked at the other half of it.
332//
333// Binds nx_hmac_md5.nx -> nx_md5_canonical.nx, the core ALREADY validated 7/7 vs RFC 1321 by
334// nx_md5_extvec_gate. The sibling gate binds hmac_md5.nx -> md5.nx, whose core has NEVER been graded --
335// exactly the seam on which sha1.nx was caught computing wrong digests.
336// * NAME THE FILE YOU BOUND: both files export an identical `hmac_md5` symbol.
337func ref_hmac_md5(key: *u8, klen: i64, msg: *u8, mlen: i64, out: *u8) -> i64 {
  return hmac_md5(key, klen, msg, mlen, out)
339}
340func main() -> i64 {
  w("nx_hmacmd5alt_extvec_gate -- HMAC-SHA-1 (RFC 2104 construction over nx_sha1.nx) vs RFC 2202, READ FROM THE FETCHED DOCUMENT\n" as *u8)
  let lp: *i64 = sys_mmap(16) as *i64
  lp[0] = 0
  let b: *u8 = sys_read_file("knowledge/extvec/rfc2202.txt\x00" as *u8, lp)
  if lp[0] <= 0 { w("RED: fetched vector file absent.\n" as *u8); return 1 }
  let ctx: *u8 = sys_mmap(1024)
  let dg: *u8 = sys_mmap(64)
  nx_sha256_one_shot(b, lp[0], ctx, dg)
  let hx: *u8 = sys_mmap(80)
  var i: i64 = 0
  while i < 32 { hx[i*2] = hexnib(((dg[i] as i64)/16)&15) as u8; hx[i*2+1] = hexnib((dg[i] as i64)&15) as u8; i = i + 1 }
  let wnt: *u8 = "c19effeca47e801be304460da3b2fb05f595e2309abceb050e40e024868fe483\x00" as *u8
  var pin: i64 = 1
  i = 0
  while i < 64 { if hx[i] != wnt[i] { pin = 0 } i = i + 1 }
  w("  acquisition digest: " as *u8); wb(hx, 64); w("\n" as *u8)
  if pin == 0 { w("RED: PIN FAILED.\n" as *u8); return 1 }
  w("  PIN OK -- bytes match the digest computed in-process at the socket\n" as *u8)
359
  let key: *u8 = sys_mmap(512)
  let data: *u8 = sys_mmap(512)
  let exp: *u8 = sys_mmap(128)
  let got: *u8 = sys_mmap(128)
364
  var pass: i64 = 0
  var fail: i64 = 0
  var seen: i64 = 0
  var skipped: i64 = 0
  // ANCHOR ON THE SECTION, NOT ON A DIGEST-LENGTH GUESS. RFC 2202 has 7 HMAC-MD5 cases (sec 2) and
  // NINE HMAC-SHA-1 markers (sec 3 -- cases 6 and 7 appear TWICE, once with longer data). Dispatching by
  // digest length mis-sorted them 8/8 against the true 7/9. Starting at the section heading makes every
  // case found a SHA-1 case BY CONSTRUCTION -- no inference required.
  let sec: i64 = findfrom(b, lp[0], "2. Test Cases for HMAC-MD5" as *u8, 0)
  // hard upper bound: where section 3 begins. Without it this reader walks into the SHA-1 vectors.
  let endsec: i64 = findfrom(b, lp[0], "3. Test Cases for HMAC-SHA-1" as *u8, 0)
  if sec < 0 { w("RED: no HMAC-SHA-1 section heading\n" as *u8); return 1 }
  var cur: i64 = sec
  var done: i64 = 0
  while done == 0 {
      // ★★★★★AN ANCHOR WITHOUT A BOUND IS ONLY CORRECT FOR THE LAST SECTION IN THE DOCUMENT.
      // This reader was written for section 3 (HMAC-SHA-1), the FINAL section, so running to EOF was
      // harmless. Re-anchoring it on section 2 (HMAC-MD5) silently extended it straight into section 3:
      // it graded 16 cases instead of 7 and computed HMAC-MD5 for the SHA-1 vectors, producing 9 bogus
      // failures whose "expected" values were plainly 20 bytes against a 16-byte result.
      // ★MOVING A READER FROM THE LAST SECTION TO AN EARLIER ONE CHANGES ITS TERMINATION CONDITION, AND
      //  NOTHING ABOUT THE MOVE ANNOUNCES THAT.
      // Clamping to -1 reuses the existing "no more cases" path -- no new branch, no brace surgery.
      var tc: i64 = findfrom(b, lp[0], "test_case =" as *u8, cur)
      if endsec > 0 { if tc >= endsec { tc = 0 - 1 } }
      if tc < 0 { done = 1 }
      else {
          let lk: i64 = findfrom(b, lp[0], "key =" as *u8, tc)
          let lkl: i64 = findfrom(b, lp[0], "key_len" as *u8, tc)
          let ld: i64 = findfrom(b, lp[0], "data =" as *u8, tc)
          let ldl: i64 = findfrom(b, lp[0], "data_len" as *u8, tc)
          // BOUND EVERY FIELD TO ITS OWN CASE. Fields were searched forward from `test_case =` with no
          // upper limit, so a case missing a field silently borrowed the NEXT case's. Symptom: two
          // datalen=73 cases (RFC 2202 sec 3 duplicates 6 and 7) -- IDENTICAL inputs, one PASS one FAIL,
          // which no crypto hypothesis can explain and which pins it to pairing.
          // ★Same shape as the lk>lm guard that saved RFC 4231: a field belonging to another record is
          // not a missing field, it is a WRONG field, and only a bound can tell them apart.
          let nt: i64 = findfrom(b, lp[0], "test_case =" as *u8, tc + 11)
          let lg: i64 = findfrom(b, lp[0], "digest =" as *u8, tc)
          // ⚠⚠MY OWN PREVIOUS EDIT MALFORMED THIS CHAIN: adding the boundary check as an `else` left TWO
          // `else` clauses hanging off `if lg < 0`. It COMPILED -- nx_cc bound the second one somewhere I
          // did not intend -- and the gate kept printing plausible per-case verdicts, so nothing looked
          // wrong. ★★★★★A CONTROL-FLOW BUG THAT STILL PRINTS PLAUSIBLE OUTPUT IS AN INSTRUMENT THAT LIES;
          // AN EDIT THAT COMPILES IS NOT AN EDIT THAT PARSED THE WAY YOU READ IT.
          // ★Rule 3: this was the second patch to this loop, so the chain is RESTRUCTURED into flat,
          // unambiguous guards rather than patched a third time. No nested else, nothing to mis-bind.
          var bad: i64 = 0
          if lk < 0 { bad = 1 }
          if lg < 0 { bad = 1 }
          if nt >= 0 {
              if lg > nt {
                  w("  RED: case field pairing crossed a case boundary -- the READER.\n" as *u8)
                  fail = fail + 1
                  bad = 1
              }
          }
          if bad == 1 { done = 1 }
          else {
              let kn: i64 = readfield(b, lp[0], lk + 5, key, 400)
              let dn: i64 = readfield(b, lp[0], ld + 6, data, 400)
              let kdecl: i64 = readdec_skipeq(b, lp[0], lkl + 7)
              let ddecl: i64 = readdec_skipeq(b, lp[0], ldl + 8)
              let gn: i64 = readfield(b, lp[0], lg + 8, exp, 100)
              if gn < 0 { done = 1 }
              else {
                  // THE DOCUMENT DECLARES ITS OWN LENGTHS -- grade the reader by the source.
                  if kn != kdecl {
                      w("  RED: key parsed " as *u8); nn(kn); w(" but document declares key_len=" as *u8); nn(kdecl)
                      w(" -- the READER.\n" as *u8)
                      fail = fail + 1
                      done = 1
                  } else { if dn != ddecl {
                      w("  RED: data parsed " as *u8); nn(dn); w(" but document declares data_len=" as *u8); nn(ddecl)
                      w(" -- the READER.\n" as *u8)
                      fail = fail + 1
                      done = 1
                  } else {
                      // dispatch on the PUBLISHED digest length: 20 = SHA-1, 16 = the MD5 section
                      if gn > 0 {
                          ref_hmac_md5(key, kn, data, dn, got)
                          // DIFFERENTIAL: HKDF-Extract(salt, ikm) IS DEFINED AS HMAC-Hash(salt, ikm)
                          // (RFC 5869 sec 2.2), so hkdf_sha1_extract is an INDEPENDENT internal path to
                          // the same function. If one matches the published vector and the other does
                          // not, the defect is localised to the one that disagrees -- adjudicated by the
                          // AUTHORITY, not by which of our two implementations we happen to trust.
                          let alt: *u8 = sys_mmap(64)
                          ref_hmac_md5(key, kn, data, dn, alt)
                          var altsame: i64 = 1
                          var z: i64 = 0
                          while z < gn { if alt[z] != exp[z] { altsame = 0 } z = z + 1 }
                          // ⚠⚠RETRACTED, AND THE RETRACTION IS THE POINT. This block PRINTED
                          // "[differential] ... -> the WRAPPER is at fault" / "-> crypto exonerated" on
                          // every case, and its comment claimed hkdf_sha1_extract as an independent second
                          // path. THE CODE NEVER DID THAT: the lines above call the SAME reference function twice with
                          // IDENTICAL arguments, so `alt` and `got` are the same computation and altsame
                          // could never disagree with same. It was a MIRROR, not a second opinion, and it
                          // confidently attributed blame it had no information about -- it told me "crypto
                          // exonerated, the READER is at fault" on the failing case, which happened to be
                          // TRUE BY LUCK while carrying zero evidence.
                          // ★★★★★A DIFFERENTIAL THAT CALLS THE SAME FUNCTION TWICE IS A MIRROR, NOT A
                          //  SECOND OPINION -- AND A COMMENT CLAIMING INDEPENDENCE THE CODE DOES NOT
                          //  IMPLEMENT IS THE INSTRUMENT LYING IN ITS OWN DOCUMENTATION.
                          // Restoring a REAL differential needs a path sharing no core with this one;
                          // until one exists, this gate states its single-path scope instead of faking two.
                          if altsame == 1 { w("    [single-path] matches published digest (NO independent second path -- see note)\n" as *u8) }
                          else { w("    [single-path] differs from published digest\n" as *u8) }
                          // Compare only the PUBLISHED digest length: section 3 case 5 is the truncation
                          // case, whose published digest is SHORTER than HMAC-SHA-1's 20-byte output.
                          // Comparing a fixed 20 would fail a correct implementation on that case.
                          var same: i64 = 1
                          i = 0
                          while i < gn { if got[i] != exp[i] { same = 0 } i = i + 1 }
                          seen = seen + 1
                          if same == 1 { pass = pass + 1; w("  PASS md5 keylen=" as *u8); nn(kn); w(" datalen=" as *u8); nn(dn); w(" maclen=" as *u8); nn(gn); w("\n" as *u8) }
                          else {
                              fail = fail + 1
                              w("  FAIL md5 case keylen=" as *u8); nn(kn); w(" datalen=" as *u8); nn(dn); w("\n" as *u8)
                              // ★MEASURE, DO NOT INFER. I hypothesised this failure four separate ways --
                              // case-boundary pairing, chunk framing, a short inner buffer, a wrong hash --
                              // and every one was refuted. Printing the two digests and the byte offset the
                              // expected one was read from settles it in a single run.
                              w("       expected(read at offset " as *u8); nn(lg); w(") = " as *u8)
                              var z2: i64 = 0
                              while z2 < gn { ph(exp[z2] as i64); z2 = z2 + 1 }
                              w("\n       computed                    = " as *u8)
                              z2 = 0
                              while z2 < gn { ph(got[z2] as i64); z2 = z2 + 1 }
                              w("\n       first 40 bytes of source at that offset: " as *u8)
                              wb(((b as i64) + lg) as *u8, 40)
                              w("\n" as *u8)
                          }
                      } else { skipped = skipped + 1 }
                      cur = lg + 8
                  } }
              }
          }
      }
  }
503
  w("\n  refsrc=https://www.rfc-editor.org/rfc/rfc2202.txt\n" as *u8)
  w("  refsrcdig=" as *u8); wb(hx, 64); w("\n" as *u8)
  w("  ref=RFC2202-HMAC-MD5   gate=nx_hmacmd5alt_extvec_gate\n" as *u8)
  w("  NOTE: key_len and data_len are cross-checked against the document on EVERY case.\n" as *u8)
  w("        Bounded strictly to section 2; section 3 (HMAC-SHA-1) is graded by nx_hmacsha1fix_extvec_gate.\n" as *u8)
  w("nx_hmacmd5alt_extvec_gate: md5_cases=" as *u8); nn(seen); w(" skipped_md5=" as *u8); nn(skipped)
  w(" pass=" as *u8); nn(pass); w(" fail=" as *u8); nn(fail)
  // MIGRATED onto nx_gate_verdict by nx_gate_dry_apply (D001, minimal form): every check
  // row above is untouched, so the PASS/FAIL vector cannot change; only the hand-rolled
  // verdict emission is replaced by the ONE shared base class. Proven by nx_gate_migrate verify.
  let ctr__dry: *i64 = gv_ctr()
  ctr__dry[0] = pass
  ctr__dry[1] = pass + fail
  let rc__dry: i64 = gv_verdict("HMACMD5ALT-EXTVEC-GATE" as *u8, ctr__dry, "teeth unchanged; verdict emission migrated onto the shared base class" as *u8)
  sys_exit(rc__dry)
  return rc__dry
520}
nx_hmacmd5alt_extvec_gate.nx source

`nx_hmacmd5alt_extvec_gate.nx` source
