Hex Artifact Content
Not logged in

Artifact dd5f4425026987cfcd7b0762f7675bf63d357f9c:


0000: 5c 20 65 76 65 20 77 61 6e 74 73 20 74 6f 20 72  \ eve wants to r
0010: 65 76 6f 6b 65 20 68 65 72 20 6b 65 79 2e 2e 2e  evoke her key...
0020: 0a 0a 72 65 71 75 69 72 65 20 63 6c 69 65 6e 74  ..require client
0030: 2d 74 65 73 74 73 2e 66 73 0a 72 65 71 75 69 72  -tests.fs.requir
0040: 65 20 74 65 73 74 2d 6b 65 79 73 2e 66 73 0a 0a  e test-keys.fs..
0050: 69 27 6d 20 65 76 65 0a 70 6b 63 20 6b 65 79 73  i'm eve.pkc keys
0060: 69 7a 65 20 32 2a 20 73 61 76 65 2d 6d 65 6d 20  ize 2* save-mem 
0070: 64 23 68 61 73 68 6b 65 79 20 32 21 0a 0a 5c 20  d#hashkey 2!..\ 
0080: 74 68 61 74 27 73 20 45 76 65 27 73 20 73 65 63  that's Eve's sec
0090: 72 65 74 20 72 65 76 6f 6b 61 74 69 6f 6e 20 6b  ret revokation k
00a0: 65 79 0a 78 22 20 37 38 32 31 44 41 34 31 41 46  ey.x" 7821DA41AF
00b0: 42 42 38 46 37 33 35 36 45 32 45 42 37 30 35 39  BB8F7356E2EB7059
00c0: 42 45 37 30 33 32 31 44 37 41 44 43 44 41 44 38  BE70321D7ADCDAD8
00d0: 43 35 30 34 39 39 38 36 32 37 43 42 42 39 33 36  C504998627CBB936
00e0: 36 41 42 37 35 32 22 20 64 72 6f 70 0a 3e 72 65  6AB752" drop.>re
00f0: 76 6f 6b 65 20 72 65 76 6f 6b 65 2d 6b 65 79 0a  voke revoke-key.
0100: 72 65 76 6f 6b 65 3f 20 5b 49 46 5d 20 2e 22 20  revoke? [IF] ." 
0110: 52 65 76 6f 63 61 74 69 6f 6e 20 73 75 63 63 65  Revocation succe
0120: 65 64 65 64 22 20 5b 45 4c 53 45 5d 20 2e 22 20  eded" [ELSE] ." 
0130: 52 65 76 6f 6b 61 74 69 6f 6e 20 66 61 69 6c 65  Revokation faile
0140: 64 21 21 21 22 20 5b 54 48 45 4e 5d 20 63 72 0a  d!!!" [THEN] cr.
0150: 64 75 6d 70 0a 0a 69 27 6d 20 65 76 65 0a 5c 20  dump..i'm eve.\ 
0160: 74 68 61 74 27 73 20 6e 6f 74 20 71 75 69 74 65  that's not quite
0170: 20 45 76 65 27 73 20 73 65 63 72 65 74 20 72 65   Eve's secret re
0180: 76 6f 6b 61 74 69 6f 6e 20 6b 65 79 2c 20 63 61  vokation key, ca
0190: 6e 20 79 6f 75 20 73 70 6f 74 20 74 68 65 20 64  n you spot the d
01a0: 69 66 66 65 72 65 6e 63 65 3f 0a 78 22 20 37 38  ifference?.x" 78
01b0: 32 31 44 41 34 31 41 46 42 42 38 46 37 33 35 36  21DA41AFBB8F7356
01c0: 45 32 45 42 37 31 35 39 42 45 37 30 33 32 31 44  E2EB7159BE70321D
01d0: 37 41 44 43 44 41 44 38 43 35 30 34 39 39 38 36  7ADCDAD8C5049986
01e0: 32 37 43 42 42 39 33 36 36 41 42 37 35 32 22 20  27CBB9366AB752" 
01f0: 64 72 6f 70 0a 27 20 3e 72 65 76 6f 6b 65 20 63  drop.' >revoke c
0200: 61 74 63 68 20 27 20 21 21 6e 6f 74 2d 6d 79 2d  atch ' !!not-my-
0210: 72 65 76 73 6b 21 21 20 3e 62 6f 64 79 20 40 20  revsk!! >body @ 
0220: 3d 20 5b 49 46 5d 20 2e 22 20 43 68 65 63 6b 20  = [IF] ." Check 
0230: 66 61 69 6c 65 64 2c 20 61 73 20 65 78 70 65 63  failed, as expec
0240: 74 65 64 22 20 5b 45 4c 53 45 5d 20 2e 22 20 43  ted" [ELSE] ." C
0250: 68 65 63 6b 20 77 72 6f 6e 67 6c 79 20 6f 6b 21  heck wrongly ok!
0260: 21 21 22 20 5b 54 48 45 4e 5d 20 64 72 6f 70 20  !!" [THEN] drop 
0270: 63 72 0a 72 65 76 6f 6b 65 2d 6b 65 79 0a 72 65  cr.revoke-key.re
0280: 76 6f 6b 65 3f 20 5b 49 46 5d 20 2e 22 20 52 65  voke? [IF] ." Re
0290: 76 6f 63 61 74 69 6f 6e 20 63 68 65 63 6b 20 66  vocation check f
02a0: 61 6c 73 65 20 70 6f 73 69 74 69 76 65 21 21 21  alse positive!!!
02b0: 22 20 5b 45 4c 53 45 5d 20 2e 22 20 52 65 76 6f  " [ELSE] ." Revo
02c0: 6b 61 74 69 6f 6e 20 66 61 69 6c 65 64 2c 20 61  kation failed, a
02d0: 73 20 65 78 70 65 63 74 65 64 22 20 5b 54 48 45  s expected" [THE
02e0: 4e 5d 20 63 72 20 32 64 72 6f 70 0a 0a 73 63 72  N] cr 2drop..scr
02f0: 69 70 74 3f 20 5b 49 46 5d 20 62 79 65 20 5b 54  ipt? [IF] bye [T
0300: 48 45 4e 5d                                      HEN]