nx_cad_verify_gate.nx source
↩ module page · 90 lines · 5040 B
1// nx_cad_verify_gate.nx -- SOVEREIGN live verifier for nishifamily.com/cad/. Does a
2// real HTTPS GET through the Nishi TLS-1.3 client + real Mozilla CA chain (no curl/
3// wget) and asserts: CA store loads, TLS connects+validates, HTTP 200, and the served
4// body carries the page's markers ("Nishi CAD" + organ tag "nx_cad_page"). This is the
5// fetch-verify half of the live-publish loop, done as a Nishi gate. GREEN iff 6/6.
6// expect_exit: 0. license_tier: ORIGINAL
7import "nx_syscalls.nx"
8import "nx_x509_trust_store.nx"
9import "nx_trust_store_load_from_certdata.nx"
10import "nx_tls13_client_validate_certificate.nx"
11import "nx_tls13_client_session_run.nx"
12import "nx_https_url_for_fetch.nx"
13import "nx_https_url_connect.nx"
14import "nx_https_get.nx"
15import "nx_https_get_complete.nx"
16import "nx_http_response_parse.nx"
17
18func vg_w(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} sys_write(1,s,n); return 0 }
19func vg_num(v: i64) -> i64 { let bb: *u8=sys_mmap(28); var m: i64=v; if m<0{m=0-m;sys_write(1,"-" as *u8,1)}; let t: *u8=sys_mmap(28); 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}; var i: i64=0; while i<k{bb[i]=t[k-1-i];i=i+1}; sys_write(1,bb,k); return 0 }
20func vg_strlen(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} return n }
21func vg_contains(buf: *u8, lo: i64, hi: i64, needle: *u8) -> i64 {
22 let nl: i64=vg_strlen(needle); if nl==0 { return 0 }
23 var i: i64=lo
24 while i+nl<=hi { var j: i64=0; var ok: i64=1; while j<nl { if buf[i+j]!=needle[j] { ok=0; j=nl } else { j=j+1 } } if ok==1 { return 1 } i=i+1 }
25 return 0
26}
27func vg_row(id: i64, ok: i64, what: *u8) -> i64 {
28 vg_w(" R" as *u8); vg_num(id); vg_w(" " as *u8); vg_w(what); vg_w(": " as *u8)
29 if ok==1 { vg_w("YES PASS\n" as *u8) } else { vg_w("NO FAIL\n" as *u8) }
30 return ok
31}
32
33func main() -> i64 {
34 vg_w("=== CAD LIVE VERIFY GATE (sovereign HTTPS GET of nishifamily.com/cad/) ===\n" as *u8)
35 var pass: i64=0; let rows: i64=6
36
37 let r: i64 = nx_trust_store_load_from_certdata("data/mozilla_certdata.txt" as *u8, 300, 4194304)
38 var caok: i64=0; var nca: i64=0
39 if r > 0 { let store0: *TrustStore = r as *TrustStore; nca = trust_store_count(store0); if nca >= 50 { caok=1 } }
40 pass=pass+vg_row(1, caok, "Mozilla CA store loads (>=50 anchors)" as *u8)
41 if caok==0 { vg_w("CAD-VERIFY abort: no CA store\n" as *u8); sys_exit(1); return 1 }
42 let store: *TrustStore = r as *TrustStore
43
44 let url: *u8 = "https://nishifamily.com/cad/" as *u8
45 let url_p: *NxUrl = nx_url_new()
46 let target: *NxHttpsTarget = sys_mmap(64) as *NxHttpsTarget
47 target.url = url_p
48 target.port = 0
49 var urlok: i64=0
50 if nx_https_url_for_fetch(url, target) == NX_HTTPS_URL_OK { urlok=1 }
51
52 let fd_p: *i64 = sys_mmap(16) as *i64
53 var conn: i64=0
54 if urlok==1 { if nx_https_url_connect(target, url, sys_now_realtime_sec(), fd_p) == NX_HTTPS_CONNECT_OK { conn=1 } }
55 let fd: i64 = fd_p[0]
56
57 let cr: *u8 = sys_mmap(32); var i: i64=0; while i<32 { cr[i]=(0xC0+i) as u8; i=i+1 }
58 let priv: *u8 = sys_mmap(32); i=0; while i<32 { priv[i]=(0xA0+i) as u8; i=i+1 }
59 let val_ctx: *TlsValidationContext = sys_mmap(64) as *TlsValidationContext
60 val_ctx.store = store
61 val_ctx.sni_host = ((url as i64) + target.url.host_off) as *u8
62 val_ctx.sni_host_len = target.url.host_len
63 val_ctx.now_epoch = sys_now_realtime_sec()
64
65 var sr: i64=0
66 if conn==1 { sr = nx_tls13_client_session_run(fd, ((url as i64)+target.url.host_off) as *u8, target.url.host_len, cr, priv, val_ctx) }
67 pass=pass+vg_row(2, (sr>0) as i64, "TLS-1.3 session connects + cert validates" as *u8)
68
69 var gc: i64=0
70 let buf: *u8 = sys_mmap(2097152)
71 if sr>0 {
72 let session: *Tls13ClientSession = sr as *Tls13ClientSession
73 gc = nx_https_get_complete(session, fd, "/cad/" as *u8, 5, ((url as i64)+target.url.host_off) as *u8, target.url.host_len, buf, 2097152)
74 sys_close(fd)
75 }
76 pass=pass+vg_row(3, (gc>0) as i64, "HTTPS GET returns response bytes" as *u8)
77
78 var status: i64=0; var body_off: i64=0
79 if gc>0 { let pr: *i64 = sys_mmap(128) as *i64; if nx_http_response_parse(buf, gc, pr)==0 { status=pr[1]; body_off=pr[6] } }
80 pass=pass+vg_row(4, (status==200) as i64, "HTTP status 200" as *u8)
81
82 var m1: i64=0; var m2: i64=0
83 if gc>0 { if vg_contains(buf, body_off, gc, "Nishi CAD" as *u8)==1 { m1=1 } if vg_contains(buf, body_off, gc, "nx_cad_page" as *u8)==1 { m2=1 } }
84 pass=pass+vg_row(5, m1, "served body has 'Nishi CAD'" as *u8)
85 pass=pass+vg_row(6, m2, "served body authored by organ 'nx_cad_page'" as *u8)
86
87 vg_w("----\nCAD-VERIFY rows=" as *u8); vg_num(rows); vg_w(" pass=" as *u8); vg_num(pass); vg_w(" status=" as *u8); vg_num(status); vg_w(" bytes=" as *u8); vg_num(gc); vg_w("\n" as *u8)
88 if pass==rows { vg_w("CAD-VERIFY GREEN -- nishifamily.com/cad/ is LIVE and correct\n" as *u8); sys_exit(0); return 0 }
89 vg_w("CAD-VERIFY RED -- not fully verified live\n" as *u8); sys_exit(1); return 1
90}