srdnlen2026 quals started

2026-02-28 21:36:17 +01:00
parent b0af1d1750
commit 32704f2809
4 changed files with 373 additions and 0 deletions
--- a/2026/srdnlen_quals/forensic/chapter1/fc.wcm
+++ b/2026/srdnlen_quals/forensic/chapter1/fc.wcm
@@ -0,0 +1,140 @@
+Application (WP; "WordPerfect"; Default; "EN")
+
+v0 := 0
+v1 := 1
+v3 := 128
+v4 := 7
+v5 := 13
+
+k1 := v3 - v4 - 51
+k2 := k1 - v5 + v4 + v1
+k3 := k1 + v4 - 2
+k4 := k2 + v4 - 3
+
+doclen := 38
+docbodyLen := 38
+Declare docbody[38]
+docbody[1] := 206
+docbody[2] := 56
+docbody[3] := 8
+docbody[4] := 128
+docbody[5] := 209
+docbody[6] := 47
+docbody[7] := 2
+docbody[8] := 149
+docbody[9] := 202
+docbody[10] := 34
+docbody[11] := 95
+docbody[12] := 128
+docbody[13] := 226
+docbody[14] := 41
+docbody[15] := 92
+docbody[16] := 156
+docbody[17] := 142
+docbody[18] := 38
+docbody[19] := 51
+docbody[20] := 153
+docbody[21] := 137
+docbody[22] := 57
+docbody[23] := 51
+docbody[24] := 218
+docbody[25] := 211
+docbody[26] := 21
+docbody[27] := 88
+docbody[28] := 130
+docbody[29] := 201
+docbody[30] := 121
+docbody[31] := 30
+docbody[32] := 128
+docbody[33] := 137
+docbody[34] := 62
+docbody[35] := 93
+docbody[36] := 152
+docbody[37] := 142
+docbody[38] := 55
+
+rhLen := 24
+Declare rh[24]
+rh[1] := 80
+rh[2] := 113
+rh[3] := 171
+rh[4] := 195
+rh[5] := 17
+rh[6] := 89
+rh[7] := 222
+rh[8] := 175
+rh[9] := 32
+rh[10] := 97
+rh[11] := 153
+rh[12] := 187
+rh[13] := 68
+rh[14] := 2
+rh[15] := 204
+rh[16] := 127
+rh[17] := 136
+rh[18] := 19
+rh[19] := 85
+rh[20] := 224
+rh[21] := 250
+rh[22] := 60
+rh[23] := 109
+rh[24] := 144
+
+doB64 := v0
+If (doB64 = v1)
+    Type (NToC(k3 + v5 + v4 + v1 + v1))
+    Type (NToC(v3 - v4))
+    Type (NToC(v3 - v5 - v4))
+    Type (NToC(v3 - v5 - v4 - v1))
+    Type (NToC(v3 - v5 - v4))
+    Type (NToC(v3 - v5 - v5 + v1 + v1))
+    Type (NToC(v3 - v5 - v5 + v1 + v1))
+    Type (NToC(v5 + v5 + v4 - v1))
+EndIf
+
+Declare kArr[4]
+kArr[1] := k1
+kArr[2] := k2
+kArr[3] := k3
+kArr[4] := k4
+
+Type (NToC(k1 + v5 + v1))
+Type (NToC(v3 - v5 - v5 + v1 + v1))
+Type (NToC(v3 - v5 - v4 - v4))
+Type (NToC(v5 + v5 + v4 - v1))
+Type (NToC(v3 - v5 - v4 - v1))
+Type (NToC(v3 - v5 - v4 - v4))
+Type (NToC(v3 - v4))
+Type (NToC(v5 + v5 + v4 - v1))
+Type (NToC(k2 + k2 - v5 - v5 + v1))
+Type (NToC(v3 - v5))
+Type (NToC(v5 + v5 + v4 - v1))
+Type (NToC(k2 + k2 - v5 - v5 + v1))
+Type (NToC(v3 - v5 - v4 + v1 + v1))
+Type (NToC(v5 + v5 + v4 - v1))
+Type (NToC(v3 - v4 - v1 - v1))
+Type (NToC(v3 - v5 - v5 + v1 + v1))
+Type (NToC(k3 + v5 + v4 + v1 + v1))
+Type (NToC(v3 - v5 + v1))
+Type (NToC(v5 + v5 + v4 - v1))
+Type (NToC(k2 + k2 - v5 - v5 + v1))
+Type (NToC(v3 - v5))
+Type (NToC(v5 + v5 + v4 - v1))
+Type (NToC(v3 - v5 - v4))
+Type (NToC(v3 - v5 - v4 - v4))
+Type (NToC(k1 + v5 + v5 + v4 - v1))
+Type (NToC(v3 - v5 + v1))
+Type (NToC(13))
+
+ForNext (ii; v1; doclen; v1)
+    bb   := docbody[ii]
+    kb   := kArr[(ii - v1) % 4 + v1]
+    Type (NToC((bb + kb) - 2 * (bb & kb)))
+EndFor
+
+buf := ""
+ForNext (jj; v1; rhLen; v1)
+    kb    := kArr[(jj - v1) % 4 + v1]
+    rb    := rh[jj]
+    buf := buf + NToC((rb + kb) - 2 * (rb & kb))
+EndFor