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

↩ module page · 197 lines · 10525 B
1// nx_adnet_slot_gate.nx -- GATE for the universal ad slot lib (nx_adnet_slot). Proves: section derive,
2// FAIL-CLOSED host directive, rotation pick, honest labeled render, ESCAPE + first-party-only validation
3// (planted <script advertiser stays escaped; third-party img and javascript: click rows are DROPPED),
4// any-section fallback, first-party click 302 (unknown/invalid id -> /), and that the forbidden-byte
5// detectors FIRE on planted vectors (anti-false-green). Zero visitor identity anywhere.
6// expect_exit: 0  license_tier: ORIGINAL
7import "nx_syscalls.nx"
8import "nx_g_puts_lib.nx"
9import "_hdl_build/nx_adnet_slot.nx"
10
11func g_putn(v: i64) -> i64 { var m: i64 = v; if m < 0 { g_puts("-" as *u8); m = 0 - m } let t: *u8 = sys_mmap(24); 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 o: *u8 = sys_mmap(24); var i: i64 = 0; while i < k { o[i] = t[k - 1 - i]; i = i + 1 } sys_write(1, o, k); return 0 }
12
13func g_cat(dst: *u8, off: i64, s: *u8) -> i64 { var o: i64 = off; var i: i64 = 0; while s[i] != (0 as u8) { dst[o] = s[i]; o = o + 1; i = i + 1 } return o }
14func g_tab(dst: *u8, off: i64) -> i64 { dst[off] = 9 as u8; return off + 1 }
15func g_nl(dst: *u8, off: i64) -> i64 { dst[off] = 10 as u8; return off + 1 }
16
17// substring scan: 1 if needle (NUL-terminated) occurs in hay[0..n)
18func g_has(hay: *u8, n: i64, needle: *u8) -> i64 {
  var nl: i64 = 0
  while needle[nl] != (0 as u8) { nl = nl + 1 }
  if nl == 0 { return 0 }
  var i: i64 = 0
  while i + nl <= n {
      var j: i64 = 0
      var eq: i64 = 1
      while j < nl { if hay[i + j] != needle[j] { eq = 0; break } j = j + 1 }
      if eq == 1 { return 1 }
      i = i + 1
  }
  return 0
31}
32
33func g_row6(dst: *u8, off: i64, f0: *u8, f1: *u8, f2: *u8, f3: *u8, f4: *u8, f5: *u8) -> i64 {
  var o: i64 = off
  o = g_cat(dst, o, f0)
  o = g_tab(dst, o)
  o = g_cat(dst, o, f1)
  o = g_tab(dst, o)
  o = g_cat(dst, o, f2)
  o = g_tab(dst, o)
  o = g_cat(dst, o, f3)
  o = g_tab(dst, o)
  o = g_cat(dst, o, f4)
  o = g_tab(dst, o)
  o = g_cat(dst, o, f5)
  o = g_nl(dst, o)
  return o
48}
49
50func main() -> i64 {
  g_puts("=== nx_adnet_slot_gate ===\n" as *u8)
  var pass: i64 = 0
  var fail: i64 = 0
54
  // ---- build the test inventory (programmatic tabs/newlines; no escape dependence) ----
  let inv: *u8 = sys_mmap(8192)
  var n: i64 = 0
  n = g_cat(inv, n, "@host" as *u8)
  n = g_tab(inv, n)
  n = g_cat(inv, n, "nishifamily.com" as *u8)
  n = g_nl(inv, n)
  n = g_row6(inv, n, "h1" as *u8, "HomeCo" as *u8, "/adnet/h1.png" as *u8, "https://example.com/h1" as *u8, "home" as *u8, "1" as *u8)
  n = g_row6(inv, n, "h2" as *u8, "OtherCo" as *u8, "/adnet/h2.png" as *u8, "/torrent" as *u8, "home" as *u8, "1" as *u8)
  n = g_row6(inv, n, "v1" as *u8, "VidCo" as *u8, "/adnet/v1.png" as *u8, "https://example.com/v1" as *u8, "video" as *u8, "1" as *u8)
  n = g_row6(inv, n, "evil" as *u8, "<script>alert(1)</script>" as *u8, "/adnet/e.png" as *u8, "https://example.com/e" as *u8, "esc" as *u8, "1" as *u8)
  n = g_row6(inv, n, "bad1" as *u8, "EvilImg" as *u8, "https://evil.example/x.png" as *u8, "https://example.com/b" as *u8, "badimg" as *u8, "1" as *u8)
  n = g_row6(inv, n, "bad2" as *u8, "EvilClick" as *u8, "/adnet/b2.png" as *u8, "javascript:alert(1)" as *u8, "badclick" as *u8, "1" as *u8)
  n = g_row6(inv, n, "fb" as *u8, "FallbackCo" as *u8, "/adnet/fb.png" as *u8, "/library" as *u8, "any" as *u8, "1" as *u8)
69
  // ---- T1 section derive ----
  let sec: *u8 = sys_mmap(128)
  aslot_section_of("/" as *u8, 1, sec, 128)
  if ad_streq(sec, "home" as *u8) == 1 { pass = pass + 1 } else { fail = fail + 1; g_puts("T1a FAIL root section\n" as *u8) }
  aslot_section_of("/video/index.html" as *u8, 17, sec, 128)
  if ad_streq(sec, "video" as *u8) == 1 { pass = pass + 1 } else { fail = fail + 1; g_puts("T1b FAIL video section\n" as *u8) }
  aslot_section_of("/compare/llm" as *u8, 12, sec, 128)
  if ad_streq(sec, "compare" as *u8) == 1 { pass = pass + 1 } else { fail = fail + 1; g_puts("T1c FAIL compare section\n" as *u8) }
78
  // ---- T2 host directive FAIL-CLOSED ----
  let hok1: i64 = aslot_host_ok(inv, n, "nishifamily.com" as *u8)
  if hok1 == 1 { pass = pass + 1 } else { fail = fail + 1; g_puts("T2a FAIL enabled host\n" as *u8) }
  let hok2: i64 = aslot_host_ok(inv, n, "andelinwest.com" as *u8)
  if hok2 == 0 { pass = pass + 1 } else { fail = fail + 1; g_puts("T2b FAIL non-enabled host\n" as *u8) }
  let noinv: *u8 = sys_mmap(64)
  var nn: i64 = 0
  nn = g_row6(noinv, nn, "x" as *u8, "X" as *u8, "/x.png" as *u8, "/x" as *u8, "home" as *u8, "1" as *u8)
  let hok3: i64 = aslot_host_ok(noinv, nn, "nishifamily.com" as *u8)
  if hok3 == 0 { pass = pass + 1 } else { fail = fail + 1; g_puts("T2c FAIL no-directive fail-closed\n" as *u8) }
89
  // ---- T3 rotation pick + labeled render ----
  let out: *u8 = sys_mmap(8192)
  let idb: *u8 = sys_mmap(128)
  let w0: i64 = aslot_html(inv, n, "/" as *u8, 1, 0, out, 8192, idb)
  var t3: i64 = 1
  if w0 <= 0 { t3 = 0 }
  if g_has(out, w0, "/ad/click/h1" as *u8) == 0 { t3 = 0 }
  if g_has(out, w0, "BROUGHT TO YOU BY" as *u8) == 0 { t3 = 0 }
  if g_has(out, w0, "nx-ad-slot" as *u8) == 0 { t3 = 0 }
  if ad_streq(idb, "h1" as *u8) == 0 { t3 = 0 }
  if t3 == 1 { pass = pass + 1 } else { fail = fail + 1; g_puts("T3a FAIL rot0 render\n" as *u8) }
  let w1: i64 = aslot_html(inv, n, "/" as *u8, 1, 1, out, 8192, idb)
  var t3b: i64 = 1
  if w1 <= 0 { t3b = 0 }
  if g_has(out, w1, "/ad/click/h2" as *u8) == 0 { t3b = 0 }
  if ad_streq(idb, "h2" as *u8) == 0 { t3b = 0 }
  if t3b == 1 { pass = pass + 1 } else { fail = fail + 1; g_puts("T3b FAIL rot1 render\n" as *u8) }
  let w2: i64 = aslot_html(inv, n, "/video/index.html" as *u8, 17, 0, out, 8192, idb)
  var t3c: i64 = 1
  if w2 <= 0 { t3c = 0 }
  if g_has(out, w2, "/ad/click/v1" as *u8) == 0 { t3c = 0 }
  if t3c == 1 { pass = pass + 1 } else { fail = fail + 1; g_puts("T3c FAIL section-targeted render\n" as *u8) }
112
  // ---- T4 escape + validation kills ----
  let w3: i64 = aslot_html(inv, n, "/esc/x" as *u8, 6, 0, out, 8192, idb)
  var t4: i64 = 1
  if w3 <= 0 { t4 = 0 }
  if g_has(out, w3, "&lt;script" as *u8) == 0 { t4 = 0 }
  if g_has(out, w3, "<script" as *u8) == 1 { t4 = 0 }
  if t4 == 1 { pass = pass + 1 } else { fail = fail + 1; g_puts("T4a FAIL advertiser escape\n" as *u8) }
  let w4: i64 = aslot_html(inv, n, "/badimg/x" as *u8, 9, 0, out, 8192, idb)
  if w4 == 0 { pass = pass + 1 } else { fail = fail + 1; g_puts("T4b FAIL third-party img not dropped\n" as *u8) }
  let w5: i64 = aslot_html(inv, n, "/badclick/x" as *u8, 11, 0, out, 8192, idb)
  if w5 == 0 { pass = pass + 1 } else { fail = fail + 1; g_puts("T4c FAIL javascript click not dropped\n" as *u8) }
124
  // ---- T5 any-section fallback ----
  let w6: i64 = aslot_html(inv, n, "/nomatch/zone" as *u8, 13, 0, out, 8192, idb)
  var t5: i64 = 1
  if w6 <= 0 { t5 = 0 }
  if g_has(out, w6, "/ad/click/fb" as *u8) == 0 { t5 = 0 }
  if t5 == 1 { pass = pass + 1 } else { fail = fail + 1; g_puts("T5 FAIL any fallback\n" as *u8) }
131
  // ---- T6 click responder ----
  let cw0: i64 = aslot_click_resp(inv, n, "/ad/click/h1" as *u8, 12, out, 8192, idb)
  var t6: i64 = 1
  if cw0 <= 0 { t6 = 0 }
  if g_has(out, cw0, "302 Found" as *u8) == 0 { t6 = 0 }
  if g_has(out, cw0, "Location: https://example.com/h1" as *u8) == 0 { t6 = 0 }
  if ad_streq(idb, "h1" as *u8) == 0 { t6 = 0 }
  if t6 == 1 { pass = pass + 1 } else { fail = fail + 1; g_puts("T6a FAIL click resolve\n" as *u8) }
  let cw1: i64 = aslot_click_resp(inv, n, "/ad/click/zzz" as *u8, 13, out, 8192, idb)
  var t6b: i64 = 1
  if cw1 <= 0 { t6b = 0 }
  if g_has(out, cw1, "Location: /\r" as *u8) == 0 { t6b = 0 }
  if idb[0] != (0 as u8) { t6b = 0 }
  if t6b == 1 { pass = pass + 1 } else { fail = fail + 1; g_puts("T6b FAIL unknown id fallback\n" as *u8) }
  let cw2: i64 = aslot_click_resp(inv, n, "/ad/click/h1%22x" as *u8, 16, out, 8192, idb)
  var t6c: i64 = 1
  if cw2 <= 0 { t6c = 0 }
  if g_has(out, cw2, "Location: /\r" as *u8) == 0 { t6c = 0 }
  if t6c == 1 { pass = pass + 1 } else { fail = fail + 1; g_puts("T6c FAIL invalid id charset\n" as *u8) }
  let cw3: i64 = aslot_click_resp(inv, n, "/video/index.html" as *u8, 17, out, 8192, idb)
  if cw3 == 0 { pass = pass + 1 } else { fail = fail + 1; g_puts("T6d FAIL non-click path\n" as *u8) }
153
  // ---- T7 detectors FIRE on planted vectors (anti-false-green) ----
  var t7: i64 = 1
  let bad_url: *u8 = "/x\" onload=\"y" as *u8
  if aslot_url_chars_ok(bad_url) == 1 { t7 = 0 }
  if aslot_id_ok("a b" as *u8) == 1 { t7 = 0 }
  if aslot_img_ok("//evil.example/x.png" as *u8) == 1 { t7 = 0 }
  if aslot_click_ok("data:text/html;base64,x" as *u8) == 1 { t7 = 0 }
  if t7 == 1 { pass = pass + 1 } else { fail = fail + 1; g_puts("T7 FAIL detector did not fire\n" as *u8) }
162
  // ---- T8 zero visitor identity in emitted bytes ----
  let w8: i64 = aslot_html(inv, n, "/" as *u8, 1, 0, out, 8192, idb)
  var t8: i64 = 1
  if g_has(out, w8, "Set-Cookie" as *u8) == 1 { t8 = 0 }
  if g_has(out, w8, "document.cookie" as *u8) == 1 { t8 = 0 }
  if g_has(out, w8, "<script" as *u8) == 1 { t8 = 0 }
  if t8 == 1 { pass = pass + 1 } else { fail = fail + 1; g_puts("T8 FAIL identity/script leak\n" as *u8) }
170
  g_puts("pass=" as *u8)
  g_putn(pass)
  g_puts(" fail=" as *u8)
  g_putn(fail)
  g_puts("\n" as *u8)
176
  let log: *u8 = sys_mmap(512)
  var lo: i64 = 0
  lo = g_cat(log, lo, "ADNETSLOT authored=organ pass=" as *u8)
  let dg: *u8 = sys_mmap(24)
  var dv: i64 = pass
  var dk: i64 = 0
  if dv == 0 { dg[0] = 48 as u8; dk = 1 }
  while dv > 0 { dg[dk] = (48 + (dv % 10)) as u8; dv = dv / 10; dk = dk + 1 }
  var di: i64 = dk - 1
  while di >= 0 { log[lo] = dg[di]; lo = lo + 1; di = di - 1 }
  if fail == 0 { lo = g_cat(log, lo, " verdict=GREEN" as *u8) } else { lo = g_cat(log, lo, " verdict=RED" as *u8) }
  log[lo] = 10 as u8
  lo = lo + 1
  let fd: i64 = sys_openat_wr("knowledge/status/adnet_slot.log" as *u8, 0x1A4)
  if fd >= 0 { sys_write(fd, log, lo); sys_close(fd) }
192
  if fail == 0 { g_puts("=== ADNET-SLOT-GATE verdict=GREEN ===\n" as *u8); sys_exit(0); return 0 }
  g_puts("=== ADNET-SLOT-GATE verdict=RED ===\n" as *u8)
  sys_exit(1)
  return 1
197}
nx_adnet_slot_gate.nx source

`nx_adnet_slot_gate.nx` source
