/ APDL Public Domain 1 / APDL_PD1A.iso / program / trapdoor / Demo

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f2 74 72 61 | 70 5f 69 6e 69 74 0d 00 |.....tra|p_init..|
|00000010| 14 05 3a 0d 00 1e 1d f5 | 3a e8 20 22 53 74 72 69 |..:.....|:. "Stri|
|00000020| 6e 67 20 3a 22 61 24 3a | fd 20 61 24 3c 3e 22 22 |ng :"a$:|. a$<>""|
|00000030| 0d 00 28 18 65 6e 24 3d | a4 74 72 61 70 5f 65 6e |..(.en$=|.trap_en|
|00000040| 63 6f 64 65 28 61 24 29 | 0d 00 32 15 f1 20 22 45 |code(a$)|..2.. "E|
|00000050| 6e 63 6f 64 65 64 3a 20 | 22 2b 65 6e 24 0d 00 3c |ncoded: |"+en$..<|
|00000060| 05 e0 0d 00 46 05 3a 0d | 00 50 10 dd 20 f2 74 72 |....F.:.|.P.. .tr|
|00000070| 61 70 5f 69 6e 69 74 0d | 00 5a 0c de 20 71 25 20 |ap_init.|.Z.. q% |
|00000080| 31 30 30 0d 00 64 08 f2 | 61 73 73 0d 00 6e 05 e1 |100..d..|ass..n..|
|00000090| 0d 00 78 05 3a 0d 00 82 | 16 dd 20 a4 74 72 61 70 |..x.:...|.. .trap|
|000000a0| 5f 65 6e 63 6f 64 65 28 | 73 24 29 0d 00 8c 15 65 |_encode(|s$)....e|
|000000b0| 6f 72 25 3d a4 73 65 65 | 64 28 2d a4 63 72 63 29 |or%=.see|d(-.crc)|
|000000c0| 0d 00 96 10 e3 20 69 25 | 3d 31 20 b8 20 a9 73 24 |..... i%|=1 . .s$|
|000000d0| 0d 00 a0 1c 72 25 3d a4 | 73 65 65 64 28 2d a4 63 |....r%=.|seed(-.c|
|000000e0| 72 63 29 3a 72 25 3d a4 | 72 61 6e 64 0d 00 aa 14 |rc):r%=.|rand....|
|000000f0| 72 25 3d 72 25 20 80 20 | 28 72 25 3e 3e 31 36 29 |r%=r% . |(r%>>16)|
|00000100| 0d 00 b4 05 3a 0d 00 be | 13 63 25 3d 97 28 c1 73 |....:...|.c%=.(.s|
|00000110| 24 2c 69 25 2c 31 29 29 | 0d 00 c8 1f 73 68 25 3d |$,i%,1))|....sh%=|
|00000120| 72 25 20 80 20 32 35 35 | 3a 65 25 3d 28 72 25 3e |r% . 255|:e%=(r%>|
|00000130| 3e 39 29 20 80 20 31 0d | 00 d2 31 e7 20 65 25 3d |>9) . 1.|..1. e%=|
|00000140| 30 20 8c 20 63 25 3d 63 | 25 20 80 20 ac 28 31 3c |0 . c%=c|% . .(1<|
|00000150| 3c 73 68 25 29 20 8b 20 | 63 25 3d 63 25 20 84 20 |<sh%) . |c%=c% . |
|00000160| 28 31 3c 3c 73 68 25 29 | 0d 00 dc 1c 63 25 3d 63 |(1<<sh%)|....c%=c|
|00000170| 25 20 82 20 65 6f 72 25 | 3a 63 25 3d 63 25 20 80 |% . eor%|:c%=c% .|
|00000180| 20 32 35 35 0d 00 e6 34 | e7 20 63 25 3c 33 32 20 | 255...4|. c%<32 |
|00000190| 63 25 2b 3d 33 32 3a f4 | 20 72 65 6d 6f 76 65 20 |c%+=32:.| remove |
|000001a0| 6c 6f 77 65 73 74 20 62 | 69 74 73 20 73 6f 20 70 |lowest b|its so p|
|000001b0| 72 69 6e 74 61 62 6c 65 | 0d 00 f0 11 c1 73 24 2c |rintable|.....s$,|
|000001c0| 69 25 2c 31 29 3d bd 63 | 25 0d 00 fa 05 ed 0d 01 |i%,1)=.c|%.......|
|000001d0| 04 07 3d 73 24 0d 01 0e | 05 3a 0d 01 18 0a dd 20 |..=s$...|.:..... |
|000001e0| a4 63 72 63 0d 01 22 0a | 24 71 25 3d 73 24 0d 01 |.crc..".|$q%=s$..|
|000001f0| 2c 24 c8 99 20 22 4f 53 | 5f 43 52 43 22 2c 30 2c |,$.. "OS|_CRC",0,|
|00000200| 71 25 2c 71 25 2b a9 73 | 24 2c 31 20 b8 20 63 72 |q%,q%+.s|$,1 . cr|
|00000210| 63 25 0d 01 36 09 3d 63 | 72 63 25 0d 01 40 05 3a |c%..6.=c|rc%..@.:|
|00000220| 0d 01 4a 0a dd 20 f2 61 | 73 73 0d 01 54 10 de 20 |..J.. .a|ss..T.. |
|00000230| 63 6f 64 65 25 20 31 30 | 30 30 0d 01 5e 17 73 70 |code% 10|00..^.sp|
|00000240| 3d 31 33 3a 6c 69 6e 6b | 3d 31 34 3a 70 63 3d 31 |=13:link|=14:pc=1|
|00000250| 35 0d 01 68 15 e3 20 70 | 61 73 73 25 3d 30 20 b8 |5..h.. p|ass%=0 .|
|00000260| 20 32 20 88 20 32 0d 01 | 72 0c 50 25 3d 63 6f 64 | 2 . 2..|r.P%=cod|
|00000270| 65 25 0d 01 7c 0e 5b 4f | 50 54 20 70 61 73 73 25 |e%..|.[O|PT pass%|
|00000280| 0d 01 86 0b 2e 72 61 6e | 64 6f 6d 0d 01 90 21 20 |.....ran|dom...! |
|00000290| 53 54 4d 46 44 20 20 20 | 20 28 73 70 29 21 2c 7b |STMFD   | (sp)!,{|
|000002a0| 52 31 2d 52 31 32 2c 6c | 69 6e 6b 7d 0d 01 9a 13 |R1-R12,l|ink}....|
|000002b0| 20 43 4d 50 20 20 20 20 | 20 20 52 30 2c 23 30 0d | CMP    |  R0,#0.|
|000002c0| 01 a4 16 3b 20 53 54 52 | 4e 45 20 20 20 20 52 30 |...; STR|NE    R0|
|000002d0| 2c 73 65 65 64 0d 01 ae | 15 20 4c 44 52 20 20 20 |,seed...|. LDR   |
|000002e0| 20 20 20 52 30 2c 73 65 | 65 64 0d 01 b8 13 20 4c |   R0,se|ed.... L|
|000002f0| 44 52 20 20 20 20 20 20 | 52 31 2c 63 31 0d 01 c2 |DR      |R1,c1...|
|00000300| 13 20 4c 44 52 20 20 20 | 20 20 20 52 32 2c 63 32 |. LDR   |   R2,c2|
|00000310| 0d 01 cc 19 20 4d 4c 41 | 20 20 20 20 20 20 52 30 |.... MLA|      R0|
|00000320| 2c 52 31 2c 52 30 2c 52 | 32 0d 01 d6 19 20 4d 4c |,R1,R0,R|2.... ML|
|00000330| 41 20 20 20 20 20 20 52 | 33 2c 52 31 2c 52 30 2c |A      R|3,R1,R0,|
|00000340| 52 32 0d 01 e0 15 20 53 | 54 52 20 20 20 20 20 20 |R2.... S|TR      |
|00000350| 52 33 2c 73 65 65 64 0d | 01 ea 1c 20 82 20 20 20 |R3,seed.|... .   |
|00000360| 20 20 20 52 30 2c 52 30 | 2c 52 33 2c 52 4f 52 20 |   R0,R0|,R3,ROR |
|00000370| 23 31 36 0d 01 f4 20 20 | 4c 44 4d 46 44 20 20 20 |#16...  |LDMFD   |
|00000380| 20 28 73 70 29 21 2c 7b | 52 31 2d 52 31 32 2c 70 | (sp)!,{|R1-R12,p|
|00000390| 63 7d 5e 0d 01 fe 10 2e | 72 61 6e 64 6f 6d 5f 73 |c}^.....|random_s|
|000003a0| 65 65 64 0d 02 08 10 2e | 72 61 6e 64 6f 6d 5f 69 |eed.....|random_i|
|000003b0| 6e 69 74 0d 02 12 21 20 | 53 54 4d 46 44 20 20 20 |nit...! |STMFD   |
|000003c0| 20 28 73 70 29 21 2c 7b | 52 31 2d 52 31 32 2c 6c | (sp)!,{|R1-R12,l|
|000003d0| 69 6e 6b 7d 0d 02 1c 13 | 20 43 4d 50 20 20 20 20 |ink}....| CMP    |
|000003e0| 20 20 52 30 2c 23 31 0d | 02 26 23 3b 20 53 57 49 |  R0,#1.|.&#; SWI|
|000003f0| 45 51 20 20 20 20 4f 53 | 5f 52 65 61 64 4d 6f 6e |EQ    OS|_ReadMon|
|00000400| 6f 74 6f 6e 69 63 54 69 | 6d 65 0d 02 30 15 20 53 |otonicTi|me..0. S|
|00000410| 54 52 20 20 20 20 20 20 | 52 30 2c 73 65 65 64 0d |TR      |R0,seed.|
|00000420| 02 3a 20 20 4c 44 4d 46 | 44 20 20 20 20 28 73 70 |.:  LDMF|D    (sp|
|00000430| 29 21 2c 7b 52 31 2d 52 | 31 32 2c 70 63 7d 5e 0d |)!,{R1-R|12,pc}^.|
|00000440| 02 44 1a 2e 63 31 20 20 | 20 20 20 20 20 45 51 55 |.D..c1  |     EQU|
|00000450| 44 20 31 36 36 34 35 32 | 35 0d 02 4e 1c 2e 63 32 |D 166452|5..N..c2|
|00000460| 20 20 20 20 20 20 20 45 | 51 55 44 20 39 30 37 36 |       E|QUD 9076|
|00000470| 33 33 33 39 33 0d 02 58 | 14 2e 73 65 65 64 20 20 |33393..X|..seed  |
|00000480| 20 20 20 45 51 55 44 20 | 30 0d 02 62 05 5d 0d 02 |   EQUD |0..b.]..|
|00000490| 6c 05 ed 0d 02 76 19 41 | 25 3d 31 30 30 30 3a d6 |l....v.A|%=1000:.|
|000004a0| 20 72 61 6e 64 6f 6d 5f | 69 6e 69 74 0d 02 80 05 | random_|init....|
|000004b0| e1 0d 02 8a 05 3a 0d 02 | 94 0f dd 20 a4 73 65 65 |.....:..|... .see|
|000004c0| 64 28 41 25 29 0d 02 9e | 11 d6 20 72 61 6e 64 6f |d(A%)...|.. rando|
|000004d0| 6d 5f 73 65 65 64 0d 02 | a8 0e 3d ba 28 72 61 6e |m_seed..|..=.(ran|
|000004e0| 64 6f 6d 29 0d 02 b2 05 | 3a 0d 02 bc 0b dd 20 a4 |dom)....|:..... .|
|000004f0| 72 61 6e 64 0d 02 c6 0e | 3d ba 28 72 61 6e 64 6f |rand....|=.(rando|
|00000500| 6d 29 0d ff             |                         |m)..    |        |
+--------+-------------------------+-------------------------+--------+--------+