/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_ext.dms / in.adf / LibsDev.lha / userlibsrc / RIEncryptLib.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 6e 63 72 79 70 74 | 20 4c 69 62 72 61 72 79 |;Encrypt| Library|
|00000010| 20 62 79 20 53 74 65 70 | 68 65 6e 20 4d 63 4e 61 | by Step|hen McNa|
|00000020| 6d 61 72 61 00 3b 28 63 | 29 31 39 39 34 20 52 65 |mara.;(c|)1994 Re|
|00000030| 66 6c 65 63 74 69 76 65 | 20 49 6d 61 67 65 73 00 |flective| Images.|
|00000040| 00 3b 23 72 69 65 6e 63 | 72 79 70 74 6c 69 62 3d |.;#rienc|ryptlib=|
|00000050| 35 35 20 20 3b 20 50 75 | 74 20 74 68 69 73 20 69 |55  ; Pu|t this i|
|00000060| 6e 20 79 6f 75 72 20 4c | 69 62 6e 75 6d 73 20 66 |n your L|ibnums f|
|00000070| 69 6c 65 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |ile.    |        |
|00000080| 20 20 20 20 20 20 3b 20 | 49 74 27 6c 6c 20 70 72 |      ; |It'll pr|
|00000090| 6f 62 61 62 6c 79 20 63 | 68 61 6e 67 65 20 74 68 |obably c|hange th|
|000000a0| 6f 75 67 68 21 00 00 21 | 6c 69 62 68 65 61 64 65 |ough!..!|libheade|
|000000b0| 72 20 7b 23 72 69 65 6e | 63 72 79 70 74 6c 69 62 |r {#rien|cryptlib|
|000000c0| 2c 30 2c 30 2c 30 2c 30 | 7d 00 00 21 61 73 74 61 |,0,0,0,0|}..!asta|
|000000d0| 74 65 6d 65 6e 74 00 21 | 61 72 67 73 20 7b 23 6c |tement.!|args {#l|
|000000e0| 6f 6e 67 2c 23 6c 6f 6e | 67 7d 00 21 6c 69 62 73 |ong,#lon|g}.!libs|
|000000f0| 00 21 73 75 62 73 20 7b | 5f 65 6e 63 72 79 70 74 |.!subs {|_encrypt|
|00000100| 32 2c 30 2c 30 7d 00 21 | 61 72 67 73 20 7b 23 6c |2,0,0}.!|args {#l|
|00000110| 6f 6e 67 2c 23 6c 6f 6e | 67 2c 23 77 6f 72 64 2c |ong,#lon|g,#word,|
|00000120| 23 77 6f 72 64 2c 23 77 | 6f 72 64 7d 00 21 6c 69 |#word,#w|ord}.!li|
|00000130| 62 73 00 21 73 75 62 73 | 20 7b 5f 65 6e 63 72 79 |bs.!subs| {_encry|
|00000140| 70 74 2c 30 2c 30 7d 00 | 21 6e 61 6d 65 20 7b 22 |pt,0,0}.|!name {"|
|00000150| 45 6e 63 72 79 70 74 22 | 2c 22 6d 65 6d 61 64 72 |Encrypt"|,"memadr|
|00000160| 2c 6c 65 6e 67 74 68 2c | 77 68 65 65 6c 31 2c 77 |,length,|wheel1,w|
|00000170| 68 65 65 6c 32 2c 77 68 | 65 65 6c 33 22 7d 00 00 |heel2,wh|eel3"}..|
|00000180| 21 61 73 74 61 74 65 6d | 65 6e 74 00 21 61 72 67 |!astatem|ent.!arg|
|00000190| 73 20 7b 23 6c 6f 6e 67 | 2c 23 6c 6f 6e 67 2c 23 |s {#long|,#long,#|
|000001a0| 77 6f 72 64 2c 23 77 6f | 72 64 2c 23 77 6f 72 64 |word,#wo|rd,#word|
|000001b0| 7d 00 21 6c 69 62 73 00 | 21 73 75 62 73 20 7b 5f |}.!libs.|!subs {_|
|000001c0| 64 65 63 72 79 70 74 2c | 30 2c 30 7d 00 21 6e 61 |decrypt,|0,0}.!na|
|000001d0| 6d 65 20 7b 22 44 65 63 | 72 79 70 74 22 2c 22 6d |me {"Dec|rypt","m|
|000001e0| 65 6d 61 64 72 2c 6c 65 | 6e 67 74 68 2c 77 68 65 |emadr,le|ngth,whe|
|000001f0| 65 6c 31 2c 77 68 65 65 | 6c 32 2c 77 68 65 65 6c |el1,whee|l2,wheel|
|00000200| 33 22 7d 00 00 21 61 66 | 75 6e 63 74 69 6f 6e 20 |3"}..!af|unction |
|00000210| 7b 23 77 6f 72 64 7d 00 | 21 61 72 67 73 20 7b 23 |{#word}.|!args {#|
|00000220| 62 79 74 65 7d 00 21 6c | 69 62 73 00 21 73 75 62 |byte}.!l|ibs.!sub|
|00000230| 73 20 7b 5f 67 65 74 77 | 68 65 65 6c 2c 30 2c 30 |s {_getw|heel,0,0|
|00000240| 7d 00 21 6e 61 6d 65 20 | 7b 22 47 65 74 57 68 65 |}.!name |{"GetWhe|
|00000250| 65 6c 22 2c 22 77 68 65 | 65 6c 23 22 7d 00 00 21 |el","whe|el#"}..!|
|00000260| 6c 69 62 66 69 6e 00 00 | 5f 65 6e 63 72 79 70 74 |libfin..|_encrypt|
|00000270| 32 3a 00 20 20 80 82 2e | 6c 20 20 20 20 20 64 30 |2:.  ...|l     d0|
|00000280| 2d 64 31 2c 2d 28 61 37 | 29 00 00 20 20 80 7e 2e |-d1,-(a7|)..  .~.|
|00000290| 6c 20 20 20 20 20 20 23 | 32 35 36 2c 64 30 00 20 |l      #|256,d0. |
|000002a0| 20 80 38 20 20 20 20 20 | bc 07 00 20 20 80 38 20 | .8     |...  .8 |
|000002b0| 20 20 20 20 bc 07 00 20 | 20 80 7e 2e 62 20 20 20 |    ... | .~.b   |
|000002c0| 20 20 20 64 30 2c 64 32 | 00 00 20 20 80 7e 2e 6c |   d0,d2|..  .~.l|
|000002d0| 20 20 20 20 20 20 23 36 | 35 35 33 35 2c 64 30 00 |      #6|5535,d0.|
|000002e0| 20 20 80 38 20 20 20 20 | 20 bc 07 00 20 20 80 38 |  .8    | ...  .8|
|000002f0| 20 20 20 20 20 bc 07 00 | 20 20 80 7e 2e 62 20 20 |     ...|  .~.b  |
|00000300| 20 20 20 20 64 30 2c 64 | 33 00 00 20 20 80 7e 2e |    d0,d|3..  .~.|
|00000310| 6c 20 20 20 20 20 20 23 | 2d 31 2c 64 30 00 20 20 |l      #|-1,d0.  |
|00000320| 80 38 20 20 20 20 20 bc | 07 00 20 20 80 38 20 20 |.8     .|..  .8  |
|00000330| 20 20 20 bc 07 00 20 20 | 80 7e 2e 62 20 20 20 20 |   ...  |.~.b    |
|00000340| 20 20 64 30 2c 64 34 00 | 00 20 20 80 82 2e 6c 20 |  d0,d4.|.  ...l |
|00000350| 20 20 20 20 28 61 37 29 | 2b 2c 64 30 2d 64 31 00 |    (a7)|+,d0-d1.|
|00000360| 2e 5f 65 6e 63 72 79 70 | 74 3a 00 20 20 80 7e 2e |._encryp|t:.  .~.|
|00000370| 6c 20 20 20 20 20 20 64 | 30 2c 61 30 00 20 20 80 |l      d|0,a0.  .|
|00000380| 43 2e 6c 20 20 20 20 20 | 20 23 24 66 66 2c 64 32 |C.l     | #$ff,d2|
|00000390| 00 20 20 80 43 2e 6c 20 | 20 20 20 20 20 23 24 66 |.  .C.l |     #$f|
|000003a0| 66 2c 64 33 00 20 20 80 | 43 2e 6c 20 20 20 20 20 |f,d3.  .|C.l     |
|000003b0| 20 23 24 66 66 2c 64 34 | 00 00 20 20 80 aa 2e 6c | #$ff,d4|..  ...l|
|000003c0| 20 20 20 20 20 20 23 31 | 2c 64 31 00 27 6c 6f 6f |      #1|,d1.'loo|
|000003d0| 70 00 20 20 80 40 2e 62 | 20 20 20 20 20 20 23 31 |p.  .@.b|      #1|
|000003e0| 2c 64 32 00 20 20 80 46 | 20 20 20 20 20 20 20 20 |,d2.  .F|        |
|000003f0| 20 27 6f 6b 6f 6b 00 00 | 20 20 80 40 2e 62 20 20 | 'okok..|  .@.b  |
|00000400| 20 20 20 20 23 31 2c 64 | 33 00 20 20 80 46 20 20 |    #1,d|3.  .F  |
|00000410| 20 20 20 20 20 20 20 27 | 6f 6b 6f 6b 00 00 20 20 |       '|okok..  |
|00000420| 80 40 2e 62 20 20 20 20 | 20 20 23 31 2c 64 34 00 |.@.b    |  #1,d4.|
|00000430| 27 6f 6b 6f 6b 3a 00 20 | 20 80 7e 2e 62 20 20 20 |'okok:. | .~.b   |
|00000440| 20 20 20 28 61 30 29 2c | 64 30 00 20 20 80 3d 2e |   (a0),|d0.  .=.|
|00000450| 62 20 20 20 20 20 20 20 | 64 32 2c 64 30 00 20 20 |b       |d2,d0.  |
|00000460| 80 3d 2e 62 20 20 20 20 | 20 20 20 64 33 2c 64 30 |.=.b    |   d3,d0|
|00000470| 00 20 20 80 3d 2e 62 20 | 20 20 20 20 20 20 64 34 |.  .=.b |      d4|
|00000480| 2c 64 30 00 00 20 20 80 | 7e 2e 62 20 20 20 20 20 |,d0..  .|~.b     |
|00000490| 20 64 30 2c 28 61 30 29 | 2b 00 00 20 20 80 aa 2e | d0,(a0)|+..  ...|
|000004a0| 6c 20 20 20 20 20 20 23 | 31 2c 64 31 00 20 20 80 |l      #|1,d1.  .|
|000004b0| 51 20 20 20 20 20 20 20 | 20 20 27 6c 6f 6f 70 00 |Q       |  'loop.|
|000004c0| 00 20 20 80 7e 2e 62 20 | 20 20 20 20 20 64 32 2c |.  .~.b |     d2,|
|000004d0| 77 68 65 65 6c 73 00 20 | 20 80 7e 2e 62 20 20 20 |wheels. | .~.b   |
|000004e0| 20 20 20 64 33 2c 77 68 | 65 65 6c 73 2b 31 00 20 |   d3,wh|eels+1. |
|000004f0| 20 80 7e 2e 62 20 20 20 | 20 20 20 64 34 2c 77 68 | .~.b   |   d4,wh|
|00000500| 65 65 6c 73 2b 32 00 20 | 20 80 94 00 00 2e 5f 64 |eels+2. | ....._d|
|00000510| 65 63 72 79 70 74 00 20 | 20 80 7e 2e 6c 20 20 20 |ecrypt. | .~.l   |
|00000520| 20 20 20 64 30 2c 61 30 | 00 20 20 80 43 2e 6c 20 |   d0,a0|.  .C.l |
|00000530| 20 20 20 20 20 23 24 66 | 66 2c 64 32 00 20 20 80 |     #$f|f,d2.  .|
|00000540| 43 2e 6c 20 20 20 20 20 | 20 23 24 66 66 2c 64 33 |C.l     | #$ff,d3|
|00000550| 00 20 20 80 43 2e 6c 20 | 20 20 20 20 20 23 24 66 |.  .C.l |     #$f|
|00000560| 66 2c 64 34 00 00 20 20 | 80 aa 2e 6c 20 20 20 20 |f,d4..  |...l    |
|00000570| 20 20 23 31 2c 64 31 00 | 20 20 80 3d 2e 6c 20 20 |  #1,d1.|  .=.l  |
|00000580| 20 20 20 20 20 64 31 2c | 61 30 00 27 6c 6f 6f 70 |     d1,|a0.'loop|
|00000590| 00 20 20 80 7e 2e 62 20 | 20 20 20 20 20 28 61 30 |.  .~.b |     (a0|
|000005a0| 29 2c 64 30 00 20 20 80 | a7 2e 62 20 20 20 20 20 |),d0.  .|..b     |
|000005b0| 20 20 64 32 2c 64 30 00 | 20 20 80 a7 2e 62 20 20 |  d2,d0.|  ...b  |
|000005c0| 20 20 20 20 20 64 33 2c | 64 30 00 20 20 80 a7 2e |     d3,|d0.  ...|
|000005d0| 62 20 20 20 20 20 20 20 | 64 34 2c 64 30 00 00 20 |b       |d4,d0.. |
|000005e0| 20 80 7e 2e 62 20 20 20 | 20 20 20 64 30 2c 28 61 | .~.b   |   d0,(a|
|000005f0| 30 29 00 20 20 80 aa 2e | 6c 20 20 20 20 20 20 23 |0).  ...|l      #|
|00000600| 31 2c 61 30 00 00 20 20 | 80 aa 2e 62 20 20 20 20 |1,a0..  |...b    |
|00000610| 20 20 23 31 2c 64 32 00 | 20 20 80 46 20 20 20 20 |  #1,d2.|  .F    |
|00000620| 20 20 20 20 20 27 6f 6b | 6f 6b 00 00 20 20 80 aa |     'ok|ok..  ..|
|00000630| 2e 62 20 20 20 20 20 20 | 23 31 2c 64 33 00 20 20 |.b      |#1,d3.  |
|00000640| 80 46 20 20 20 20 20 20 | 20 20 20 27 6f 6b 6f 6b |.F      |   'okok|
|00000650| 00 00 20 20 80 aa 2e 62 | 20 20 20 20 20 20 23 31 |..  ...b|      #1|
|00000660| 2c 64 34 00 27 6f 6b 6f | 6b 3a 00 20 20 80 aa 2e |,d4.'oko|k:.  ...|
|00000670| 6c 20 20 20 20 20 20 23 | 31 2c 64 31 00 20 20 80 |l      #|1,d1.  .|
|00000680| 51 20 20 20 20 20 20 20 | 20 20 27 6c 6f 6f 70 00 |Q       |  'loop.|
|00000690| 00 20 20 80 7e 2e 62 20 | 20 20 20 20 20 64 32 2c |.  .~.b |     d2,|
|000006a0| 77 68 65 65 6c 73 00 20 | 20 80 7e 2e 62 20 20 20 |wheels. | .~.b   |
|000006b0| 20 20 20 64 33 2c 77 68 | 65 65 6c 73 2b 31 00 20 |   d3,wh|eels+1. |
|000006c0| 20 80 7e 2e 62 20 20 20 | 20 20 20 64 34 2c 77 68 | .~.b   |   d4,wh|
|000006d0| 65 65 6c 73 2b 32 00 20 | 20 80 94 00 00 2e 5f 67 |eels+2. | ....._g|
|000006e0| 65 74 77 68 65 65 6c 3a | 00 20 20 80 7e 2e 62 20 |etwheel:|.  .~.b |
|000006f0| 20 20 20 20 20 64 30 2c | 64 31 00 20 20 80 81 2e |     d0,|d1.  ...|
|00000700| 6c 20 20 20 20 20 23 30 | 2c 64 30 00 00 20 20 80 |l     #0|,d0..  .|
|00000710| 5d 2e 62 20 20 20 20 20 | 20 23 31 2c 64 31 00 20 |].b     | #1,d1. |
|00000720| 20 80 50 20 20 20 20 20 | 20 20 20 20 27 6e 31 00 | .P     |    'n1.|
|00000730| 20 20 80 7e 2e 62 20 20 | 20 20 20 20 77 68 65 65 |  .~.b  |    whee|
|00000740| 6c 73 2c 64 30 00 20 20 | 80 94 00 27 6e 31 3a 00 |ls,d0.  |...'n1:.|
|00000750| 20 20 80 5d 2e 62 20 20 | 20 20 20 20 23 32 2c 64 |  .].b  |    #2,d|
|00000760| 31 00 20 20 80 50 20 20 | 20 20 20 20 20 20 20 27 |1.  .P  |       '|
|00000770| 6e 32 00 20 20 80 7e 2e | 62 20 20 20 20 20 20 77 |n2.  .~.|b      w|
|00000780| 68 65 65 6c 73 2b 31 2c | 64 30 00 20 20 80 94 00 |heels+1,|d0.  ...|
|00000790| 27 6e 32 3a 00 20 20 80 | 5d 2e 62 20 20 20 20 20 |'n2:.  .|].b     |
|000007a0| 20 23 33 2c 64 31 00 20 | 20 80 50 20 20 20 20 20 | #3,d1. | .P     |
|000007b0| 20 20 20 20 27 65 6e 64 | 74 68 69 73 00 20 20 80 |    'end|this.  .|
|000007c0| 7e 2e 62 20 20 20 20 20 | 20 77 68 65 65 6c 73 2b |~.b     | wheels+|
|000007d0| 32 2c 64 30 00 20 20 80 | 94 00 27 65 6e 64 74 68 |2,d0.  .|..'endth|
|000007e0| 69 73 3a 00 20 20 80 81 | 2e 6c 20 20 20 20 20 23 |is:.  ..|.l     #|
|000007f0| 2d 31 2c 64 30 00 20 20 | 80 94 00 00 77 68 65 65 |-1,d0.  |....whee|
|00000800| 6c 73 3a 00 20 20 80 28 | 2e 62 20 20 20 20 20 20 |ls:.  .(|.b      |
|00000810| 20 33 2c 30 00 20 20 80 | 27 00 20 20 80 25 2e 62 | 3,0.  .|'.  .%.b|
|00000820| 20 20 20 20 20 20 20 20 | 22 24 56 45 52 53 3a 56 |        |"$VERS:V|
|00000830| 65 72 73 69 6f 6e 20 30 | 2e 31 20 28 43 29 31 39 |ersion 0|.1 (C)19|
|00000840| 39 34 20 52 65 66 6c 65 | 63 74 69 76 65 20 49 6d |94 Refle|ctive Im|
|00000850| 61 67 65 73 22 2c 30 00 | 00                      |ages",0.|.       |
+--------+-------------------------+-------------------------+--------+--------+