/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / t / tornado / TNdemo2 / Crypt

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 20 | 45 6e 63 72 79 70 74 0d |..... > |Encrypt.|
|00000010| 00 14 29 f4 20 54 6f 72 | 6e 61 64 6f 20 70 72 69 |..). Tor|nado pri|
|00000020| 6d 61 72 79 20 65 6e 63 | 72 79 70 74 69 6f 6e 20 |mary enc|ryption |
|00000030| 72 6f 75 74 69 6e 65 3f | 0d 00 1e 13 f4 20 62 79 |routine?|..... by|
|00000040| 20 4e 2e 20 44 6f 75 67 | 6c 61 73 0d 00 28 1d f4 | N. Doug|las..(..|
|00000050| 20 32 33 2d 30 35 2d 31 | 39 39 36 20 76 65 72 73 | 23-05-1|996 vers|
|00000060| 69 6f 6e 20 30 2e 30 31 | 0d 00 32 05 3a 0d 00 3c |ion 0.01|..2.:..<|
|00000070| 0d de 20 51 25 20 31 30 | 32 34 0d 00 46 12 e3 20 |.. Q% 10|24..F.. |
|00000080| 4e 25 3d 30 20 b8 20 32 | 20 88 20 32 0d 00 50 09 |N%=0 . 2| . 2..P.|
|00000090| 50 25 3d 51 25 0d 00 5a | 0b 5b 4f 50 54 20 4e 25 |P%=Q%..Z|.[OPT N%|
|000000a0| 0d 00 64 1b 2e 63 72 79 | 70 74 20 53 54 4d 46 44 |..d..cry|pt STMFD|
|000000b0| 20 52 31 33 21 2c 7b 52 | 31 34 7d 0d 00 6e 1a 5c | R13!,{R|14}..n.\|
|000000c0| 4f 6e 20 65 6e 74 72 79 | 3b 20 52 30 3d 66 69 6c |On entry|; R0=fil|
|000000d0| 65 20 70 74 72 0d 00 78 | 10 5c 52 31 3d 66 69 6c |e ptr..x|.\R1=fil|
|000000e0| 65 20 65 6e 64 0d 00 82 | 0b 5c 52 32 3d 69 6e 63 |e end...|.\R2=inc|
|000000f0| 0d 00 8c 13 4c 44 52 20 | 52 33 2c 70 61 73 73 77 |....LDR |R3,passw|
|00000100| 6f 72 64 0d 00 96 0e 4c | 44 52 20 52 34 2c 78 6f |ord....L|DR R4,xo|
|00000110| 72 0d 00 a0 0a 2e 6c 6f | 6f 70 31 0d 00 aa 15 4d |r.....lo|op1....M|
|00000120| 4f 56 53 20 52 33 2c 52 | 33 2c 4c 53 4c 20 23 31 |OVS R3,R|3,LSL #1|
|00000130| 0d 00 b4 10 82 43 53 20 | 52 33 2c 52 33 2c 52 34 |.....CS |R3,R3,R4|
|00000140| 0d 00 be 15 4d 4f 56 53 | 20 52 33 2c 52 33 2c 4c |....MOVS| R3,R3,L|
|00000150| 53 4c 20 23 31 0d 00 c8 | 10 82 43 53 20 52 33 2c |SL #1...|..CS R3,|
|00000160| 52 33 2c 52 34 0d 00 d2 | 15 4d 4f 56 53 20 52 33 |R3,R4...|.MOVS R3|
|00000170| 2c 52 33 2c 4c 53 4c 20 | 23 31 0d 00 dc 10 82 43 |,R3,LSL |#1.....C|
|00000180| 53 20 52 33 2c 52 33 2c | 52 34 0d 00 e6 15 4d 4f |S R3,R3,|R4....MO|
|00000190| 56 53 20 52 33 2c 52 33 | 2c 4c 53 4c 20 23 31 0d |VS R3,R3|,LSL #1.|
|000001a0| 00 f0 10 82 43 53 20 52 | 33 2c 52 33 2c 52 34 0d |....CS R|3,R3,R4.|
|000001b0| 00 fa 15 4d 4f 56 53 20 | 52 33 2c 52 33 2c 4c 53 |...MOVS |R3,R3,LS|
|000001c0| 4c 20 23 31 0d 01 04 10 | 82 43 53 20 52 33 2c 52 |L #1....|.CS R3,R|
|000001d0| 33 2c 52 34 0d 01 0e 15 | 4d 4f 56 53 20 52 33 2c |3,R4....|MOVS R3,|
|000001e0| 52 33 2c 4c 53 4c 20 23 | 31 0d 01 18 10 82 43 53 |R3,LSL #|1.....CS|
|000001f0| 20 52 33 2c 52 33 2c 52 | 34 0d 01 22 15 4d 4f 56 | R3,R3,R|4..".MOV|
|00000200| 53 20 52 33 2c 52 33 2c | 4c 53 4c 20 23 31 0d 01 |S R3,R3,|LSL #1..|
|00000210| 2c 10 82 43 53 20 52 33 | 2c 52 33 2c 52 34 0d 01 |,..CS R3|,R3,R4..|
|00000220| 36 15 4d 4f 56 53 20 52 | 33 2c 52 33 2c 4c 53 4c |6.MOVS R|3,R3,LSL|
|00000230| 20 23 31 0d 01 40 10 82 | 43 53 20 52 33 2c 52 33 | #1..@..|CS R3,R3|
|00000240| 2c 52 34 0d 01 4a 0f 4c | 44 52 20 52 35 2c 5b 52 |,R4..J.L|DR R5,[R|
|00000250| 30 5d 0d 01 54 0e 82 20 | 52 35 2c 52 35 2c 52 33 |0]..T.. |R5,R5,R3|
|00000260| 0d 01 5e 0f 53 54 52 20 | 52 35 2c 5b 52 30 5d 0d |..^.STR |R5,[R0].|
|00000270| 01 68 10 41 44 44 20 52 | 30 2c 52 30 2c 52 32 0d |.h.ADD R|0,R0,R2.|
|00000280| 01 72 0d 43 4d 50 20 52 | 30 2c 52 31 0d 01 7c 0d |.r.CMP R|0,R1..|.|
|00000290| 42 4c 45 20 6c 6f 6f 70 | 31 0d 01 86 14 4c 44 4d |BLE loop|1....LDM|
|000002a0| 46 44 20 52 31 33 21 2c | 7b 50 43 7d 5e 0d 01 90 |FD R13!,|{PC}^...|
|000002b0| 17 2e 78 6f 72 20 45 51 | 55 44 20 26 31 44 38 37 |..xor EQ|UD &1D87|
|000002c0| 32 42 34 31 0d 01 9a 1a | 2e 70 61 73 73 77 6f 72 |2B41....|.passwor|
|000002d0| 64 20 45 51 55 44 20 30 | 3a 45 51 55 44 30 0d 01 |d EQUD 0|:EQUD0..|
|000002e0| a4 05 5d 0d 01 ae 05 ed | 0d 01 b8 2b e8 20 22 46 |..].....|...+. "F|
|000002f0| 69 6c 65 20 74 6f 20 62 | 65 20 65 6e 63 72 79 70 |ile to b|e encryp|
|00000300| 74 65 64 2f 64 65 63 72 | 79 70 74 65 64 3a 20 22 |ted/decr|ypted: "|
|00000310| 3b 69 24 0d 01 c2 15 e8 | 20 22 46 69 6c 65 20 6f |;i$.....| "File o|
|00000320| 75 74 3a 20 22 3b 6f 24 | 0d 01 cc 18 e8 20 22 50 |ut: ";o$|..... "P|
|00000330| 61 73 73 77 6f 72 64 3a | 20 22 3b 70 61 73 73 24 |assword:| ";pass$|
|00000340| 0d 01 d6 1d 43 25 3d 28 | 28 a9 28 70 61 73 73 24 |....C%=(|(.(pass$|
|00000350| 29 2d 31 29 20 81 20 34 | 29 2a 34 2b 34 0d 01 e0 |)-1) . 4|)*4+4...|
|00000360| 21 f1 20 22 49 6e 63 72 | 65 6d 65 6e 74 20 61 74 |!. "Incr|ement at|
|00000370| 20 22 3b 43 25 3b 22 20 | 62 79 74 65 73 22 0d 01 | ";C%;" |bytes"..|
|00000380| ea 20 c8 99 20 22 4f 53 | 5f 46 69 6c 65 22 2c 35 |. .. "OS|_File",5|
|00000390| 2c 69 24 20 b8 20 2c 2c | 2c 2c 6c 65 6e 25 0d 01 |,i$ . ,,|,,len%..|
|000003a0| f4 10 de 20 64 61 74 61 | 25 20 6c 65 6e 25 0d 01 |... data|% len%..|
|000003b0| fe 1d c8 99 20 22 4f 53 | 5f 46 69 6c 65 22 2c 32 |.... "OS|_File",2|
|000003c0| 35 35 2c 69 24 2c 64 61 | 74 61 25 0d 02 08 11 e3 |55,i$,da|ta%.....|
|000003d0| 20 4e 25 3d 31 20 b8 20 | 43 25 2f 34 0d 02 12 15 | N%=1 . |C%/4....|
|000003e0| 41 25 3d 64 61 74 61 25 | 2b 28 4e 25 2d 31 29 2a |A%=data%|+(N%-1)*|
|000003f0| 34 0d 02 1c 11 42 25 3d | 64 61 74 61 25 2b 6c 65 |4....B%=|data%+le|
|00000400| 6e 25 0d 02 26 2c 24 70 | 61 73 73 77 6f 72 64 3d |n%..&,$p|assword=|
|00000410| c1 70 61 73 73 24 2c 31 | 2b 4e 25 2a 34 2d 34 2c |.pass$,1|+N%*4-4,|
|00000420| 34 29 2b bd 30 2b bd 30 | 2b bd 30 2b bd 30 0d 02 |4)+.0+.0|+.0+.0..|
|00000430| 30 39 f1 20 22 45 6e 63 | 72 79 70 74 69 6e 67 20 |09. "Enc|rypting |
|00000440| 77 69 74 68 20 22 2b 24 | 70 61 73 73 77 6f 72 64 |with "+$|password|
|00000450| 2b 22 20 40 20 2b 22 3b | 28 4e 25 2d 31 29 2a 34 |+" @ +";|(N%-1)*4|
|00000460| 3b 22 20 2e 2e 2e 22 0d | 02 3a 0b d6 20 63 72 79 |;" ...".|.:.. cry|
|00000470| 70 74 0d 02 44 05 ed 0d | 02 4e 2d c8 99 20 22 4f |pt..D...|.N-.. "O|
|00000480| 53 5f 46 69 6c 65 22 2c | 31 30 2c 6f 24 2c 26 46 |S_File",|10,o$,&F|
|00000490| 46 44 2c 2c 64 61 74 61 | 25 2c 64 61 74 61 25 2b |FD,,data|%,data%+|
|000004a0| 6c 65 6e 25 0d 02 58 05 | e0 0d ff                |len%..X.|...     |
+--------+-------------------------+-------------------------+--------+--------+