/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / misc / eexec.shar

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 6d 65 | 72 6c 79 6e 40 69 77 61 |From: me|rlyn@iwa|
|00000010| 72 70 2e 69 6e 74 65 6c | 2e 63 6f 6d 20 28 52 61 |rp.intel|.com (Ra|
|00000020| 6e 64 61 6c 20 53 63 68 | 77 61 72 74 7a 29 0a 4e |ndal Sch|wartz).N|
|00000030| 65 77 73 67 72 6f 75 70 | 73 3a 20 63 6f 6d 70 2e |ewsgroup|s: comp.|
|00000040| 6c 61 6e 67 2e 70 6f 73 | 74 73 63 72 69 70 74 0a |lang.pos|tscript.|
|00000050| 53 75 62 6a 65 63 74 3a | 20 47 4e 55 20 45 6d 61 |Subject:| GNU Ema|
|00000060| 63 73 20 65 65 78 65 63 | 20 65 6e 63 6f 64 65 2f |cs eexec| encode/|
|00000070| 64 65 63 6f 64 65 20 72 | 6f 75 74 69 6e 65 73 20 |decode r|outines |
|00000080| 61 74 74 61 63 68 65 64 | 0a 4d 65 73 73 61 67 65 |attached|.Message|
|00000090| 2d 49 44 3a 20 3c 34 36 | 37 36 40 6f 6d 65 70 64 |-ID: <46|76@omepd|
|000000a0| 2e 55 55 43 50 3e 0a 44 | 61 74 65 3a 20 32 30 20 |.UUCP>.D|ate: 20 |
|000000b0| 4a 75 6c 20 38 39 20 31 | 34 3a 33 34 3a 34 36 20 |Jul 89 1|4:34:46 |
|000000c0| 47 4d 54 0a 52 65 70 6c | 79 2d 54 6f 3a 20 6d 65 |GMT.Repl|y-To: me|
|000000d0| 72 6c 79 6e 40 69 77 61 | 72 70 2e 69 6e 74 65 6c |rlyn@iwa|rp.intel|
|000000e0| 2e 63 6f 6d 20 28 52 61 | 6e 64 61 6c 20 53 63 68 |.com (Ra|ndal Sch|
|000000f0| 77 61 72 74 7a 29 0a 4f | 72 67 61 6e 69 7a 61 74 |wartz).O|rganizat|
|00000100| 69 6f 6e 3a 20 53 74 6f | 6e 65 68 65 6e 67 65 3b |ion: Sto|nehenge;|
|00000110| 20 6e 65 74 61 63 63 65 | 73 73 20 76 69 61 20 49 | netacce|ss via I|
|00000120| 6e 74 65 6c 2c 20 48 69 | 6c 6c 73 62 6f 72 6f 2c |ntel, Hi|llsboro,|
|00000130| 20 4f 72 65 67 6f 6e 2c | 20 55 53 41 0a 4c 69 6e | Oregon,| USA.Lin|
|00000140| 65 73 3a 20 31 35 30 0a | 0a 49 20 68 61 76 65 20 |es: 150.|.I have |
|00000150| 62 65 65 6e 20 72 61 74 | 68 65 72 20 73 74 65 72 |been rat|her ster|
|00000160| 6e 6c 79 20 77 61 72 6e | 65 64 20 61 67 61 69 6e |nly warn|ed again|
|00000170| 73 74 20 64 69 73 74 72 | 69 62 75 74 69 6e 67 20 |st distr|ibuting |
|00000180| 74 68 65 20 64 65 63 72 | 79 70 74 65 64 0a 76 65 |the decr|ypted.ve|
|00000190| 72 73 69 6f 6e 20 6f 66 | 20 74 68 65 20 63 68 65 |rsion of| the che|
|000001a0| 73 73 20 66 6f 6e 74 20 | 66 72 6f 6d 20 61 20 77 |ss font |from a w|
|000001b0| 65 65 6b 20 61 67 6f 2e | 20 20 48 6f 77 65 76 65 |eek ago.|  Howeve|
|000001c0| 72 2c 20 74 68 65 20 73 | 61 6d 65 20 77 6f 72 64 |r, the s|ame word|
|000001d0| 73 0a 64 69 64 20 6e 6f | 74 20 73 65 65 6d 20 74 |s.did no|t seem t|
|000001e0| 6f 20 61 70 70 6c 79 20 | 74 6f 20 6d 79 20 47 4e |o apply |to my GN|
|000001f0| 55 20 45 6d 61 63 73 20 | 65 65 78 65 63 20 65 6e |U Emacs |eexec en|
|00000200| 63 6f 64 65 2f 64 65 63 | 6f 64 65 20 72 6f 75 74 |code/dec|ode rout|
|00000210| 69 6e 65 73 2e 20 20 49 | 0a 72 65 63 65 69 76 65 |ines.  I|.receive|
|00000220| 64 20 61 62 6f 75 74 20 | 31 30 30 20 72 65 71 75 |d about |100 requ|
|00000230| 65 73 74 73 20 66 6f 72 | 20 69 74 2c 20 73 6f 20 |ests for| it, so |
|00000240| 68 65 72 65 20 69 74 20 | 69 73 2e 20 20 28 48 69 |here it |is.  (Hi|
|00000250| 6e 74 3a 20 73 74 6f 70 | 0a 73 65 6e 64 69 6e 67 |nt: stop|.sending|
|00000260| 20 72 65 71 75 65 73 74 | 73 21 29 0a 0a 54 68 69 | request|s!)..Thi|
|00000270| 73 20 69 73 20 61 6e 20 | 75 70 64 61 74 65 20 6f |s is an |update o|
|00000280| 66 20 74 68 65 20 63 6f | 64 65 20 49 20 70 6f 73 |f the co|de I pos|
|00000290| 74 65 64 20 61 20 66 65 | 77 20 6d 6f 6e 74 68 73 |ted a fe|w months|
|000002a0| 20 61 67 6f 20 74 6f 20 | 63 6f 6d 70 2e 65 6d 61 | ago to |comp.ema|
|000002b0| 63 73 0a 61 6e 64 20 63 | 6f 6d 70 2e 6c 61 6e 67 |cs.and c|omp.lang|
|000002c0| 2e 70 6f 73 74 73 63 72 | 69 70 74 2e 20 20 54 68 |.postscr|ipt.  Th|
|000002d0| 65 20 63 6f 64 65 20 77 | 6f 72 6b 73 20 6f 6e 20 |e code w|orks on |
|000002e0| 47 4e 55 20 45 6d 61 63 | 73 20 76 65 72 73 69 6f |GNU Emac|s versio|
|000002f0| 6e 20 31 38 2e 35 34 2c | 0a 61 6e 64 20 73 68 6f |n 18.54,|.and sho|
|00000300| 75 6c 64 20 70 72 6f 62 | 61 62 6c 79 20 77 6f 72 |uld prob|ably wor|
|00000310| 6b 20 61 6c 6c 20 74 68 | 65 20 77 61 79 20 62 61 |k all th|e way ba|
|00000320| 63 6b 20 74 6f 20 31 38 | 2e 66 6f 72 74 79 2d 73 |ck to 18|.forty-s|
|00000330| 6f 6d 65 74 68 69 6e 67 | 2c 20 62 75 74 20 49 0a |omething|, but I.|
|00000340| 63 61 6e 27 74 20 62 65 | 20 73 75 72 65 2e 20 20 |can't be| sure.  |
|00000350| 49 74 27 73 20 73 6c 6f | 6f 6f 6f 6f 6f 77 77 77 |It's slo|ooooowww|
|00000360| 77 2e 2e 2e 20 62 75 74 | 20 69 74 20 77 61 73 20 |w... but| it was |
|00000370| 61 20 71 75 69 63 6b 20 | 68 61 63 6b 20 61 6e 79 |a quick |hack any|
|00000380| 77 61 79 2e 0a 54 68 69 | 73 20 69 73 20 6d 6f 72 |way..Thi|s is mor|
|00000390| 65 20 70 72 6f 70 65 72 | 6c 79 20 64 6f 6e 65 20 |e proper|ly done |
|000003a0| 69 6e 20 43 20 6f 72 20 | 28 67 61 63 6b 21 29 20 |in C or |(gack!) |
|000003b0| 50 6f 73 74 73 63 72 69 | 70 74 2e 0a 0a 54 6f 20 |Postscri|pt...To |
|000003c0| 72 65 70 65 61 74 20 77 | 68 61 74 20 49 20 73 61 |repeat w|hat I sa|
|000003d0| 69 64 20 62 65 66 6f 72 | 65 2c 20 61 6e 64 20 6d |id befor|e, and m|
|000003e0| 61 6b 65 20 69 74 20 70 | 65 72 66 65 63 74 6c 79 |ake it p|erfectly|
|000003f0| 20 63 6c 65 61 72 3a 20 | 49 20 44 49 44 20 4e 4f | clear: |I DID NO|
|00000400| 54 0a 43 52 41 43 4b 20 | 54 48 45 20 41 4c 47 4f |T.CRACK |THE ALGO|
|00000410| 52 49 54 48 4d 2e 20 20 | 49 20 75 73 65 64 20 61 |RITHM.  |I used a|
|00000420| 6e 20 61 72 74 69 63 6c | 65 20 70 6f 73 74 65 64 |n articl|e posted|
|00000430| 20 69 6e 20 63 6f 6d 70 | 2e 6c 61 6e 67 2e 70 6f | in comp|.lang.po|
|00000440| 73 74 73 63 72 69 70 74 | 0a 61 62 6f 75 74 20 73 |stscript|.about s|
|00000450| 69 78 20 6d 6f 6e 74 68 | 73 20 61 67 6f 20 66 72 |ix month|s ago fr|
|00000460| 6f 6d 20 73 6f 6d 65 6f | 6e 65 20 69 6e 20 45 75 |om someo|ne in Eu|
|00000470| 72 6f 70 65 2e 20 20 49 | 20 77 61 73 20 63 75 72 |rope.  I| was cur|
|00000480| 69 6f 75 73 20 74 6f 20 | 73 65 65 20 69 66 0a 74 |ious to |see if.t|
|00000490| 68 65 20 6e 75 6d 62 65 | 72 73 20 77 65 72 65 20 |he numbe|rs were |
|000004a0| 61 63 63 75 72 61 74 65 | 2c 20 61 6e 64 20 69 6d |accurate|, and im|
|000004b0| 70 6c 65 6d 65 6e 74 65 | 64 20 74 68 65 6d 20 61 |plemente|d them a|
|000004c0| 73 20 61 20 71 75 69 63 | 6b 20 68 61 63 6b 20 75 |s a quic|k hack u|
|000004d0| 73 69 6e 67 0a 74 68 65 | 20 63 6c 6f 73 65 73 74 |sing.the| closest|
|000004e0| 20 72 6f 6c 6c 2d 79 6f | 75 72 2d 6f 77 6e 20 74 | roll-yo|ur-own t|
|000004f0| 6f 6f 6c 20 49 20 68 61 | 64 20 61 72 6f 75 6e 64 |ool I ha|d around|
|00000500| 3a 20 47 4e 55 20 45 6d | 61 63 73 20 45 6c 69 73 |: GNU Em|acs Elis|
|00000510| 70 2e 20 20 4d 79 20 6f | 6e 6c 79 0a 63 6c 61 69 |p.  My o|nly.clai|
|00000520| 6d 20 74 6f 20 66 61 6d | 65 20 69 73 20 2a 74 68 |m to fam|e is *th|
|00000530| 69 73 2a 20 2a 70 61 72 | 74 69 63 75 6c 61 72 2a |is* *par|ticular*|
|00000540| 20 2a 69 6d 70 6c 65 6d | 65 6e 74 61 74 69 6f 6e | *implem|entation|
|00000550| 2a 2e 20 20 49 20 64 6f | 20 6e 6f 74 20 6b 6e 6f |*.  I do| not kno|
|00000560| 77 0a 61 6e 79 74 68 69 | 6e 67 20 28 6e 6f 72 20 |w.anythi|ng (nor |
|00000570| 64 6f 20 49 20 68 61 76 | 65 20 74 68 65 20 74 69 |do I hav|e the ti|
|00000580| 6d 65 20 6f 72 20 6d 6f | 74 69 76 61 74 69 6f 6e |me or mo|tivation|
|00000590| 20 74 6f 20 66 69 6e 64 | 20 6f 75 74 29 20 61 62 | to find| out) ab|
|000005a0| 6f 75 74 20 61 6e 79 0a | 6f 74 68 65 72 20 22 73 |out any.|other "s|
|000005b0| 65 63 72 65 74 73 22 20 | 72 65 67 61 72 64 69 6e |ecrets" |regardin|
|000005c0| 67 20 50 6f 73 74 73 63 | 72 69 70 74 2c 20 73 6f |g Postsc|ript, so|
|000005d0| 20 64 6f 6e 27 74 20 61 | 73 6b 2e 0a 0a 23 21 20 | don't a|sk...#! |
|000005e0| 2f 62 69 6e 2f 73 68 0a | 23 20 54 68 69 73 20 69 |/bin/sh.|# This i|
|000005f0| 73 20 61 20 73 68 65 6c | 6c 20 61 72 63 68 69 76 |s a shel|l archiv|
|00000600| 65 2e 20 20 52 65 6d 6f | 76 65 20 61 6e 79 74 68 |e.  Remo|ve anyth|
|00000610| 69 6e 67 20 62 65 66 6f | 72 65 20 74 68 69 73 20 |ing befo|re this |
|00000620| 6c 69 6e 65 2c 20 74 68 | 65 6e 20 75 6e 70 61 63 |line, th|en unpac|
|00000630| 6b 0a 23 20 69 74 20 62 | 79 20 73 61 76 69 6e 67 |k.# it b|y saving|
|00000640| 20 69 74 20 69 6e 74 6f | 20 61 20 66 69 6c 65 20 | it into| a file |
|00000650| 61 6e 64 20 74 79 70 69 | 6e 67 20 22 73 68 20 66 |and typi|ng "sh f|
|00000660| 69 6c 65 22 2e 20 20 54 | 6f 20 6f 76 65 72 77 72 |ile".  T|o overwr|
|00000670| 69 74 65 20 65 78 69 73 | 74 69 6e 67 0a 23 20 66 |ite exis|ting.# f|
|00000680| 69 6c 65 73 2c 20 74 79 | 70 65 20 22 73 68 20 66 |iles, ty|pe "sh f|
|00000690| 69 6c 65 20 2d 63 22 2e | 20 20 59 6f 75 20 63 61 |ile -c".|  You ca|
|000006a0| 6e 20 61 6c 73 6f 20 66 | 65 65 64 20 74 68 69 73 |n also f|eed this|
|000006b0| 20 61 73 20 73 74 61 6e | 64 61 72 64 20 69 6e 70 | as stan|dard inp|
|000006c0| 75 74 20 76 69 61 0a 23 | 20 75 6e 73 68 61 72 2c |ut via.#| unshar,|
|000006d0| 20 6f 72 20 62 79 20 74 | 79 70 69 6e 67 20 22 73 | or by t|yping "s|
|000006e0| 68 20 3c 66 69 6c 65 22 | 2c 20 65 2e 67 2e 2e 20 |h <file"|, e.g.. |
|000006f0| 20 49 66 20 74 68 69 73 | 20 61 72 63 68 69 76 65 | If this| archive|
|00000700| 20 69 73 20 63 6f 6d 70 | 6c 65 74 65 2c 20 79 6f | is comp|lete, yo|
|00000710| 75 0a 23 20 77 69 6c 6c | 20 73 65 65 20 74 68 65 |u.# will| see the|
|00000720| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 6d 65 73 73 61 | followi|ng messa|
|00000730| 67 65 20 61 74 20 74 68 | 65 20 65 6e 64 3a 0a 23 |ge at th|e end:.#|
|00000740| 09 09 22 45 6e 64 20 6f | 66 20 73 68 65 6c 6c 20 |.."End o|f shell |
|00000750| 61 72 63 68 69 76 65 2e | 22 0a 23 20 43 6f 6e 74 |archive.|".# Cont|
|00000760| 65 6e 74 73 3a 20 20 65 | 65 78 65 63 2e 65 6c 0a |ents:  e|exec.el.|
|00000770| 23 20 57 72 61 70 70 65 | 64 20 62 79 20 6d 65 72 |# Wrappe|d by mer|
|00000780| 6c 79 6e 40 69 77 61 72 | 70 6c 33 20 6f 6e 20 54 |lyn@iwar|pl3 on T|
|00000790| 68 75 20 4a 75 6c 20 32 | 30 20 30 39 3a 31 32 3a |hu Jul 2|0 09:12:|
|000007a0| 34 38 20 31 39 38 39 0a | 50 41 54 48 3d 2f 62 69 |48 1989.|PATH=/bi|
|000007b0| 6e 3a 2f 75 73 72 2f 62 | 69 6e 3a 2f 75 73 72 2f |n:/usr/b|in:/usr/|
|000007c0| 75 63 62 20 3b 20 65 78 | 70 6f 72 74 20 50 41 54 |ucb ; ex|port PAT|
|000007d0| 48 0a 69 66 20 74 65 73 | 74 20 2d 66 20 27 65 65 |H.if tes|t -f 'ee|
|000007e0| 78 65 63 2e 65 6c 27 20 | 2d 61 20 22 24 7b 31 7d |xec.el' |-a "${1}|
|000007f0| 22 20 21 3d 20 22 2d 63 | 22 20 3b 20 74 68 65 6e |" != "-c|" ; then|
|00000800| 20 0a 20 20 65 63 68 6f | 20 73 68 61 72 3a 20 57 | .  echo| shar: W|
|00000810| 69 6c 6c 20 6e 6f 74 20 | 63 6c 6f 62 62 65 72 20 |ill not |clobber |
|00000820| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 5c 22 |existing| file \"|
|00000830| 27 65 65 78 65 63 2e 65 | 6c 27 5c 22 0a 65 6c 73 |'eexec.e|l'\".els|
|00000840| 65 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 45 78 74 |e.echo s|har: Ext|
|00000850| 72 61 63 74 69 6e 67 20 | 5c 22 27 65 65 78 65 63 |racting |\"'eexec|
|00000860| 2e 65 6c 27 5c 22 20 5c | 28 33 37 30 37 20 63 68 |.el'\" \|(3707 ch|
|00000870| 61 72 61 63 74 65 72 73 | 5c 29 0a 73 65 64 20 22 |aracters|\).sed "|
|00000880| 73 2f 5e 58 2f 2f 22 20 | 3e 27 65 65 78 65 63 2e |s/^X//" |>'eexec.|
|00000890| 65 6c 27 20 3c 3c 27 45 | 4e 44 5f 4f 46 5f 46 49 |el' <<'E|ND_OF_FI|
|000008a0| 4c 45 27 0a 58 3b 3b 3b | 20 50 6f 73 74 73 63 72 |LE'.X;;;| Postscr|
|000008b0| 69 70 74 20 65 65 78 65 | 63 20 73 75 70 70 6f 72 |ipt eexe|c suppor|
|000008c0| 74 20 72 6f 75 74 69 6e | 65 73 0a 58 3b 3b 3b 20 |t routin|es.X;;; |
|000008d0| 4c 61 73 74 45 64 69 74 | 44 61 74 65 20 22 46 72 |LastEdit|Date "Fr|
|000008e0| 69 20 4d 61 79 20 31 39 | 20 30 38 3a 35 37 3a 33 |i May 19| 08:57:3|
|000008f0| 31 20 31 39 38 39 22 0a | 58 3b 3b 3b 20 43 6f 70 |1 1989".|X;;; Cop|
|00000900| 79 72 69 67 68 74 20 28 | 63 29 20 31 39 38 39 20 |yright (|c) 1989 |
|00000910| 62 79 20 52 61 6e 64 61 | 6c 20 4c 2e 20 53 63 68 |by Randa|l L. Sch|
|00000920| 77 61 72 74 7a 2e 20 41 | 6c 6c 20 52 69 67 68 74 |wartz. A|ll Right|
|00000930| 73 20 52 65 73 65 72 76 | 65 64 2e 0a 58 3b 3b 3b |s Reserv|ed..X;;;|
|00000940| 20 54 68 69 73 20 63 6f | 64 65 20 6d 61 79 20 62 | This co|de may b|
|00000950| 65 20 66 72 65 65 6c 79 | 20 64 69 73 74 72 69 62 |e freely| distrib|
|00000960| 75 74 65 64 20 61 63 63 | 6f 72 64 69 6e 67 20 74 |uted acc|ording t|
|00000970| 6f 20 74 68 65 20 47 4e | 55 20 50 75 62 6c 69 63 |o the GN|U Public|
|00000980| 20 4c 69 63 65 6e 73 65 | 0a 58 0a 58 28 64 65 66 | License|.X.X(def|
|00000990| 63 6f 6e 73 74 20 68 65 | 78 2d 73 74 72 69 6e 67 |const he|x-string|
|000009a0| 2d 74 6f 2d 69 6e 74 2d | 74 61 62 6c 65 0a 58 20 |-to-int-|table.X |
|000009b0| 20 28 6c 65 74 20 28 28 | 68 74 20 28 6d 61 6b 65 | (let ((|ht (make|
|000009c0| 2d 76 65 63 74 6f 72 20 | 32 35 36 20 6e 69 6c 29 |-vector |256 nil)|
|000009d0| 29 29 09 3b 20 6e 69 6c | 20 67 69 76 65 73 20 65 |)).; nil| gives e|
|000009e0| 72 72 6f 72 20 61 74 20 | 2b 20 69 66 20 6f 75 74 |rror at |+ if out|
|000009f0| 2d 6f 66 2d 72 61 6e 67 | 65 0a 58 20 20 20 20 28 |-of-rang|e.X    (|
|00000a00| 6d 61 70 63 61 72 20 28 | 66 75 6e 63 74 69 6f 6e |mapcar (|function|
|00000a10| 20 28 6c 61 6d 62 64 61 | 20 28 70 61 69 72 29 20 | (lambda| (pair) |
|00000a20| 28 61 73 65 74 20 68 74 | 20 28 6e 74 68 20 30 20 |(aset ht| (nth 0 |
|00000a30| 70 61 69 72 29 20 28 6e | 74 68 20 31 20 70 61 69 |pair) (n|th 1 pai|
|00000a40| 72 29 29 29 29 0a 58 09 | 20 20 20 20 27 28 28 3f |r)))).X.|    '((?|
|00000a50| 30 20 30 29 20 28 3f 31 | 20 31 29 20 28 3f 32 20 |0 0) (?1| 1) (?2 |
|00000a60| 32 29 20 28 3f 33 20 33 | 29 20 28 3f 34 20 34 29 |2) (?3 3|) (?4 4)|
|00000a70| 0a 58 09 20 20 20 20 20 | 20 28 3f 35 20 35 29 20 |.X.     | (?5 5) |
|00000a80| 28 3f 36 20 36 29 20 28 | 3f 37 20 37 29 20 28 3f |(?6 6) (|?7 7) (?|
|00000a90| 38 20 38 29 20 28 3f 39 | 20 39 29 0a 58 09 20 20 |8 8) (?9| 9).X.  |
|00000aa0| 20 20 20 20 28 3f 61 20 | 31 30 29 20 28 3f 62 20 |    (?a |10) (?b |
|00000ab0| 31 31 29 20 28 3f 63 20 | 31 32 29 20 28 3f 64 20 |11) (?c |12) (?d |
|00000ac0| 31 33 29 20 28 3f 65 20 | 31 34 29 20 28 3f 66 20 |13) (?e |14) (?f |
|00000ad0| 31 35 29 0a 58 09 20 20 | 20 20 20 20 28 3f 41 20 |15).X.  |    (?A |
|00000ae0| 31 30 29 20 28 3f 42 20 | 31 31 29 20 28 3f 43 20 |10) (?B |11) (?C |
|00000af0| 31 32 29 20 28 3f 44 20 | 31 33 29 20 28 3f 45 20 |12) (?D |13) (?E |
|00000b00| 31 34 29 20 28 3f 46 20 | 31 35 29 29 29 0a 58 20 |14) (?F |15))).X |
|00000b10| 20 20 20 68 74 29 0a 58 | 20 20 22 54 61 62 6c 65 |   ht).X|  "Table|
|00000b20| 20 75 73 65 64 20 62 79 | 20 68 65 78 2d 73 74 72 | used by| hex-str|
|00000b30| 69 6e 67 2d 74 6f 2d 69 | 6e 74 2e 22 29 0a 58 0a |ing-to-i|nt.").X.|
|00000b40| 58 28 64 65 66 75 6e 20 | 68 65 78 2d 73 74 72 69 |X(defun |hex-stri|
|00000b50| 6e 67 2d 74 6f 2d 69 6e | 74 20 28 73 74 72 29 0a |ng-to-in|t (str).|
|00000b60| 58 20 20 22 43 6f 6e 76 | 65 72 74 20 53 54 52 49 |X  "Conv|ert STRI|
|00000b70| 4e 47 20 74 6f 20 61 6e | 20 69 6e 74 65 67 65 72 |NG to an| integer|
|00000b80| 20 62 79 20 70 61 72 73 | 69 6e 67 20 69 74 20 61 | by pars|ing it a|
|00000b90| 73 20 61 20 68 65 78 61 | 64 65 63 69 6d 61 6c 20 |s a hexa|decimal |
|00000ba0| 6e 75 6d 62 65 72 2e 22 | 0a 58 20 20 28 6c 65 74 |number."|.X  (let|
|00000bb0| 20 28 28 72 65 73 75 6c | 74 20 30 29 29 0a 58 20 | ((resul|t 0)).X |
|00000bc0| 20 20 20 28 6d 61 70 63 | 61 72 0a 58 20 20 20 20 |   (mapc|ar.X    |
|00000bd0| 20 28 66 75 6e 63 74 69 | 6f 6e 20 28 6c 61 6d 62 | (functi|on (lamb|
|00000be0| 64 61 20 28 63 68 29 0a | 58 09 09 20 28 73 65 74 |da (ch).|X.. (set|
|00000bf0| 71 20 72 65 73 75 6c 74 | 20 28 2b 20 28 6c 73 68 |q result| (+ (lsh|
|00000c00| 20 72 65 73 75 6c 74 20 | 34 29 0a 58 09 09 09 09 | result |4).X....|
|00000c10| 20 28 61 72 65 66 20 68 | 65 78 2d 73 74 72 69 6e | (aref h|ex-strin|
|00000c20| 67 2d 74 6f 2d 69 6e 74 | 2d 74 61 62 6c 65 20 63 |g-to-int|-table c|
|00000c30| 68 29 29 29 29 29 0a 58 | 20 20 20 20 20 73 74 72 |h))))).X|     str|
|00000c40| 29 0a 58 20 20 20 20 72 | 65 73 75 6c 74 29 29 0a |).X    r|esult)).|
|00000c50| 58 0a 58 28 64 65 66 75 | 6e 20 62 79 74 65 2d 74 |X.X(defu|n byte-t|
|00000c60| 6f 2d 68 65 78 2d 73 74 | 72 69 6e 67 20 28 62 79 |o-hex-st|ring (by|
|00000c70| 74 65 29 0a 58 20 20 22 | 43 6f 6e 76 65 72 74 20 |te).X  "|Convert |
|00000c80| 42 59 54 45 20 74 6f 20 | 61 20 74 77 6f 2d 63 68 |BYTE to |a two-ch|
|00000c90| 61 72 61 72 61 63 74 65 | 72 20 73 74 72 69 6e 67 |araracte|r string|
|00000ca0| 20 62 79 20 70 72 69 6e | 74 69 6e 67 20 69 74 20 | by prin|ting it |
|00000cb0| 69 6e 20 68 65 78 61 64 | 65 63 69 6d 61 6c 2e 22 |in hexad|ecimal."|
|00000cc0| 0a 58 20 20 28 66 6f 72 | 6d 61 74 20 22 25 30 32 |.X  (for|mat "%02|
|00000cd0| 78 22 20 62 79 74 65 29 | 29 0a 58 0a 58 28 64 65 |x" byte)|).X.X(de|
|00000ce0| 66 63 6f 6e 73 74 20 65 | 65 78 65 63 2d 63 6f 6e |fconst e|exec-con|
|00000cf0| 73 74 2d 69 6e 69 74 20 | 28 68 65 78 2d 73 74 72 |st-init |(hex-str|
|00000d00| 69 6e 67 2d 74 6f 2d 69 | 6e 74 20 22 64 39 37 31 |ing-to-i|nt "d971|
|00000d10| 22 29 0a 58 20 20 22 55 | 73 65 64 20 62 79 20 65 |").X  "U|sed by e|
|00000d20| 65 78 65 63 2d 65 6e 64 | 65 63 6f 64 65 2e 20 20 |exec-end|ecode.  |
|00000d30| 49 6e 69 74 69 61 6c 20 | 76 61 6c 75 65 20 66 6f |Initial |value fo|
|00000d40| 72 20 73 74 61 74 65 20 | 6d 61 63 68 69 6e 65 2e |r state |machine.|
|00000d50| 22 29 0a 58 0a 58 28 64 | 65 66 63 6f 6e 73 74 20 |").X.X(d|efconst |
|00000d60| 65 65 78 65 63 2d 63 6f | 6e 73 74 2d 6d 75 6c 74 |eexec-co|nst-mult|
|00000d70| 20 28 68 65 78 2d 73 74 | 72 69 6e 67 2d 74 6f 2d | (hex-st|ring-to-|
|00000d80| 69 6e 74 20 22 63 65 36 | 64 22 29 0a 58 20 20 22 |int "ce6|d").X  "|
|00000d90| 55 73 65 64 20 62 79 20 | 65 65 78 65 63 2d 65 6e |Used by |eexec-en|
|00000da0| 64 65 63 6f 64 65 2e 20 | 20 4d 75 6c 74 69 70 6c |decode. | Multipl|
|00000db0| 69 65 72 20 76 61 6c 75 | 65 20 66 6f 72 20 73 74 |ier valu|e for st|
|00000dc0| 61 74 65 20 6d 61 63 68 | 69 6e 65 2e 22 29 0a 58 |ate mach|ine.").X|
|00000dd0| 0a 58 28 64 65 66 63 6f | 6e 73 74 20 65 65 78 65 |.X(defco|nst eexe|
|00000de0| 63 2d 63 6f 6e 73 74 2d | 61 64 64 20 28 68 65 78 |c-const-|add (hex|
|00000df0| 2d 73 74 72 69 6e 67 2d | 74 6f 2d 69 6e 74 20 22 |-string-|to-int "|
|00000e00| 35 38 62 66 22 29 0a 58 | 20 20 22 55 73 65 64 20 |58bf").X|  "Used |
|00000e10| 62 79 20 65 65 78 65 63 | 2d 65 6e 64 65 63 6f 64 |by eexec|-endecod|
|00000e20| 65 2e 20 20 41 64 64 65 | 72 20 76 61 6c 75 65 20 |e.  Adde|r value |
|00000e30| 66 6f 72 20 73 74 61 74 | 65 20 6d 61 63 68 69 6e |for stat|e machin|
|00000e40| 65 2e 22 29 0a 58 0a 58 | 28 64 65 66 63 6f 6e 73 |e.").X.X|(defcons|
|00000e50| 74 20 65 65 78 65 63 2d | 63 6f 6e 73 74 2d 73 65 |t eexec-|const-se|
|00000e60| 65 64 20 28 63 6f 6e 63 | 61 74 20 28 6d 61 70 63 |ed (conc|at (mapc|
|00000e70| 61 72 20 27 68 65 78 2d | 73 74 72 69 6e 67 2d 74 |ar 'hex-|string-t|
|00000e80| 6f 2d 69 6e 74 0a 58 09 | 09 09 09 09 20 20 20 27 |o-int.X.|....   '|
|00000e90| 28 22 31 37 22 20 22 65 | 63 22 20 22 39 63 22 20 |("17" "e|c" "9c" |
|00000ea0| 22 66 33 22 29 29 29 0a | 58 20 20 22 55 73 65 64 |"f3"))).|X  "Used|
|00000eb0| 20 62 79 20 65 65 78 65 | 63 2d 65 6e 63 6f 64 65 | by eexe|c-encode|
|00000ec0| 2e 20 20 41 20 6b 6e 6f | 77 6e 20 67 6f 6f 64 20 |.  A kno|wn good |
|00000ed0| 73 65 65 64 20 66 72 6f | 6d 20 75 61 72 74 70 61 |seed fro|m uartpa|
|00000ee0| 74 63 68 2e 70 73 2e 22 | 29 0a 58 0a 58 28 64 65 |tch.ps."|).X.X(de|
|00000ef0| 66 75 6e 20 65 65 78 65 | 63 2d 64 65 63 6f 64 65 |fun eexe|c-decode|
|00000f00| 20 28 29 0a 58 20 20 22 | 44 65 63 6f 64 65 20 74 | ().X  "|Decode t|
|00000f10| 68 65 20 66 69 72 73 74 | 20 65 65 78 65 63 20 73 |he first| eexec s|
|00000f20| 74 72 69 6e 67 20 69 6e | 20 74 68 65 20 63 75 72 |tring in| the cur|
|00000f30| 72 65 6e 74 20 28 70 6f | 73 73 69 62 6c 79 20 6e |rent (po|ssibly n|
|00000f40| 61 72 72 6f 77 65 64 29 | 20 62 75 66 66 65 72 2e |arrowed)| buffer.|
|00000f50| 0a 58 52 65 73 75 6c 74 | 20 69 73 20 64 69 73 70 |.XResult| is disp|
|00000f60| 6c 61 79 65 64 20 69 6e | 20 61 20 74 65 6d 70 20 |layed in| a temp |
|00000f70| 62 75 66 66 65 72 2e 22 | 0a 58 20 20 28 69 6e 74 |buffer."|.X  (int|
|00000f80| 65 72 61 63 74 69 76 65 | 29 0a 58 20 20 28 77 69 |eractive|).X  (wi|
|00000f90| 74 68 2d 6f 75 74 70 75 | 74 2d 74 6f 2d 74 65 6d |th-outpu|t-to-tem|
|00000fa0| 70 2d 62 75 66 66 65 72 | 20 22 2a 65 65 78 65 63 |p-buffer| "*eexec|
|00000fb0| 2d 64 65 63 6f 64 65 2d | 6f 75 74 70 75 74 2a 22 |-decode-|output*"|
|00000fc0| 0a 58 20 20 20 20 28 67 | 6f 74 6f 2d 63 68 61 72 |.X    (g|oto-char|
|00000fd0| 20 28 70 6f 69 6e 74 2d | 6d 69 6e 29 29 0a 58 20 | (point-|min)).X |
|00000fe0| 20 20 20 28 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |   (sear|ch-forwa|
|00000ff0| 72 64 20 22 65 65 78 65 | 63 22 29 0a 58 20 20 20 |rd "eexe|c").X   |
|00001000| 20 28 6c 65 74 20 28 73 | 74 72 29 0a 58 20 20 20 | (let (s|tr).X   |
|00001010| 20 20 20 28 77 68 69 6c | 65 20 28 72 65 2d 73 65 |   (whil|e (re-se|
|00001020| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5b 20 |arch-for|ward "[ |
|00001030| 5c 74 5c 6e 5d 2a 5c 5c | 28 5b 30 2d 39 61 2d 66 |\t\n]*\\|([0-9a-f|
|00001040| 41 2d 46 5d 5b 30 2d 39 | 61 2d 66 41 2d 46 5d 5c |A-F][0-9|a-fA-F]\|
|00001050| 5c 29 22 20 6e 69 6c 20 | 74 29 0a 58 09 28 73 65 |\)" nil |t).X.(se|
|00001060| 74 71 20 73 74 72 20 28 | 63 6f 6e 73 20 28 62 75 |tq str (|cons (bu|
|00001070| 66 66 65 72 2d 73 75 62 | 73 74 72 69 6e 67 20 28 |ffer-sub|string (|
|00001080| 6d 61 74 63 68 2d 62 65 | 67 69 6e 6e 69 6e 67 20 |match-be|ginning |
|00001090| 31 29 0a 58 09 09 09 09 | 09 20 20 28 6d 61 74 63 |1).X....|.  (matc|
|000010a0| 68 2d 65 6e 64 20 31 29 | 29 0a 58 09 09 09 73 74 |h-end 1)|).X...st|
|000010b0| 72 29 29 29 0a 58 20 20 | 20 20 20 20 28 73 65 74 |r))).X  |    (set|
|000010c0| 71 20 73 74 72 20 28 6e | 72 65 76 65 72 73 65 20 |q str (n|reverse |
|000010d0| 73 74 72 29 29 0a 58 20 | 20 20 20 20 20 28 73 65 |str)).X |     (se|
|000010e0| 74 71 20 73 74 72 20 28 | 65 65 78 65 63 2d 65 6e |tq str (|eexec-en|
|000010f0| 64 65 63 6f 64 65 20 28 | 63 6f 6e 63 61 74 20 28 |decode (|concat (|
|00001100| 6d 61 70 63 61 72 20 27 | 68 65 78 2d 73 74 72 69 |mapcar '|hex-stri|
|00001110| 6e 67 2d 74 6f 2d 69 6e | 74 20 73 74 72 29 29 29 |ng-to-in|t str)))|
|00001120| 29 0a 58 20 20 20 20 20 | 20 28 70 72 69 6e 63 20 |).X     | (princ |
|00001130| 22 53 65 65 64 3a 20 22 | 29 0a 58 20 20 20 20 20 |"Seed: "|).X     |
|00001140| 20 28 70 72 69 6e 63 20 | 28 61 70 70 6c 79 20 27 | (princ |(apply '|
|00001150| 63 6f 6e 63 61 74 20 28 | 6d 61 70 63 61 72 20 27 |concat (|mapcar '|
|00001160| 62 79 74 65 2d 74 6f 2d | 68 65 78 2d 73 74 72 69 |byte-to-|hex-stri|
|00001170| 6e 67 20 28 73 75 62 73 | 74 72 69 6e 67 20 73 74 |ng (subs|tring st|
|00001180| 72 20 30 20 34 29 29 29 | 29 0a 58 20 20 20 20 20 |r 0 4)))|).X     |
|00001190| 20 28 70 72 69 6e 63 20 | 22 5c 6e 54 65 78 74 3a | (princ |"\nText:|
|000011a0| 5c 6e 22 29 0a 58 20 20 | 20 20 20 20 28 70 72 69 |\n").X  |    (pri|
|000011b0| 6e 63 20 28 73 75 62 73 | 74 72 69 6e 67 20 73 74 |nc (subs|tring st|
|000011c0| 72 20 34 29 29 29 29 29 | 0a 58 0a 58 28 64 65 66 |r 4)))))|.X.X(def|
|000011d0| 75 6e 20 65 65 78 65 63 | 2d 65 6e 63 6f 64 65 20 |un eexec|-encode |
|000011e0| 28 73 74 61 72 74 20 65 | 6e 64 20 26 6f 70 74 69 |(start e|nd &opti|
|000011f0| 6f 6e 61 6c 20 73 65 65 | 64 29 0a 58 20 20 22 45 |onal see|d).X  "E|
|00001200| 6e 63 6f 64 65 20 74 65 | 78 74 20 66 72 6f 6d 20 |ncode te|xt from |
|00001210| 53 54 41 52 54 20 74 6f | 20 45 4e 44 20 28 72 65 |START to| END (re|
|00001220| 67 69 6f 6e 20 69 66 20 | 69 6e 74 65 72 61 63 74 |gion if |interact|
|00001230| 69 76 65 29 2e 0a 58 52 | 65 73 75 6c 74 20 69 73 |ive)..XR|esult is|
|00001240| 20 64 69 73 70 6c 61 79 | 65 64 20 69 6e 20 61 20 | display|ed in a |
|00001250| 74 65 6d 70 20 62 75 66 | 66 65 72 2e 20 20 49 66 |temp buf|fer.  If|
|00001260| 20 6f 70 74 69 6f 6e 61 | 6c 20 53 45 45 44 20 69 | optiona|l SEED i|
|00001270| 73 20 70 61 73 73 65 64 | 20 61 73 20 61 0a 58 66 |s passed| as a.Xf|
|00001280| 6f 75 72 2d 63 68 61 72 | 61 63 74 65 72 20 73 74 |our-char|acter st|
|00001290| 72 69 6e 67 2c 20 75 73 | 65 20 69 74 20 66 6f 72 |ring, us|e it for|
|000012a0| 20 69 6e 69 74 69 61 6c | 20 73 74 61 74 65 2c 20 | initial| state, |
|000012b0| 65 6c 73 65 20 75 73 65 | 20 74 68 65 20 6b 6e 6f |else use| the kno|
|000012c0| 77 6e 0a 58 67 6f 6f 64 | 20 73 65 65 64 20 28 74 |wn.Xgood| seed (t|
|000012d0| 68 65 20 63 75 72 72 65 | 6e 74 20 76 61 6c 75 65 |he curre|nt value|
|000012e0| 20 6f 66 20 65 65 78 65 | 63 2d 63 6f 6e 73 74 2d | of eexe|c-const-|
|000012f0| 73 65 65 64 29 2e 22 0a | 58 20 20 28 69 6e 74 65 |seed).".|X  (inte|
|00001300| 72 61 63 74 69 76 65 20 | 22 72 22 29 0a 58 20 20 |ractive |"r").X  |
|00001310| 28 77 69 74 68 2d 6f 75 | 74 70 75 74 2d 74 6f 2d |(with-ou|tput-to-|
|00001320| 74 65 6d 70 2d 62 75 66 | 66 65 72 20 22 2a 65 65 |temp-buf|fer "*ee|
|00001330| 78 65 63 2d 65 6e 63 6f | 64 65 2d 6f 75 74 70 75 |xec-enco|de-outpu|
|00001340| 74 2a 22 0a 58 20 20 20 | 20 28 6c 65 74 20 28 28 |t*".X   | (let ((|
|00001350| 69 20 30 29 29 0a 58 20 | 20 20 20 20 20 28 70 72 |i 0)).X |     (pr|
|00001360| 69 6e 63 20 22 63 75 72 | 72 65 6e 74 66 69 6c 65 |inc "cur|rentfile|
|00001370| 20 65 65 78 65 63 5c 6e | 22 29 0a 58 20 20 20 20 | eexec\n|").X    |
|00001380| 20 20 28 6d 61 70 63 61 | 72 20 28 66 75 6e 63 74 |  (mapca|r (funct|
|00001390| 69 6f 6e 0a 58 09 20 20 | 20 20 20 20 20 28 6c 61 |ion.X.  |     (la|
|000013a0| 6d 62 64 61 20 28 63 68 | 29 0a 58 09 09 20 28 70 |mbda (ch|).X.. (p|
|000013b0| 72 69 6e 63 20 28 62 79 | 74 65 2d 74 6f 2d 68 65 |rinc (by|te-to-he|
|000013c0| 78 2d 73 74 72 69 6e 67 | 20 63 68 29 29 0a 58 09 |x-string| ch)).X.|
|000013d0| 09 20 28 69 66 20 28 3c | 20 28 73 65 74 71 20 69 |. (if (<| (setq i|
|000013e0| 20 28 31 2b 20 69 29 29 | 20 33 32 29 20 6e 69 6c | (1+ i))| 32) nil|
|000013f0| 0a 58 09 09 20 20 20 28 | 70 72 69 6e 63 20 22 5c |.X..   (|princ "\|
|00001400| 6e 22 29 0a 58 09 09 20 | 20 20 28 73 65 74 71 20 |n").X.. |  (setq |
|00001410| 69 20 30 29 29 29 29 0a | 58 09 20 20 20 20 20 20 |i 0)))).|X.      |
|00001420| 28 65 65 78 65 63 2d 65 | 6e 64 65 63 6f 64 65 0a |(eexec-e|ndecode.|
|00001430| 58 09 20 20 20 20 20 20 | 20 28 63 6f 6e 63 61 74 |X.      | (concat|
|00001440| 20 28 6f 72 20 28 61 6e | 64 20 28 73 74 72 69 6e | (or (an|d (strin|
|00001450| 67 70 20 73 65 65 64 29 | 0a 58 09 09 09 09 28 3d |gp seed)|.X....(=|
|00001460| 20 28 6c 65 6e 67 74 68 | 20 73 65 65 64 29 20 34 | (length| seed) 4|
|00001470| 29 0a 58 09 09 09 09 73 | 65 65 64 29 0a 58 09 09 |).X....s|eed).X..|
|00001480| 09 20 20 20 65 65 78 65 | 63 2d 63 6f 6e 73 74 2d |.   eexe|c-const-|
|00001490| 73 65 65 64 29 0a 58 09 | 09 20 20 20 20 20 20 20 |seed).X.|.       |
|000014a0| 28 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e |(buffer-|substrin|
|000014b0| 67 20 73 74 61 72 74 20 | 65 6e 64 29 29 0a 58 09 |g start |end)).X.|
|000014c0| 20 20 20 20 20 20 20 74 | 29 29 0a 58 20 20 20 20 |       t|)).X    |
|000014d0| 20 20 28 69 66 20 28 3e | 20 69 20 30 29 20 28 70 |  (if (>| i 0) (p|
|000014e0| 72 69 6e 63 20 22 5c 6e | 22 29 29 29 29 29 0a 58 |rinc "\n|"))))).X|
|000014f0| 0a 58 28 64 65 66 75 6e | 20 65 65 78 65 63 2d 65 |.X(defun| eexec-e|
|00001500| 6e 64 65 63 6f 64 65 20 | 28 73 74 72 20 26 6f 70 |ndecode |(str &op|
|00001510| 74 69 6f 6e 61 6c 20 65 | 6e 63 6f 64 65 29 0a 58 |tional e|ncode).X|
|00001520| 20 20 22 44 65 63 6f 64 | 65 20 53 54 52 20 28 6f |  "Decod|e STR (o|
|00001530| 72 20 65 6e 63 6f 64 65 | 20 69 66 20 6f 70 74 69 |r encode| if opti|
|00001540| 6f 6e 61 6c 20 45 4e 43 | 4f 44 45 20 69 73 20 6e |onal ENC|ODE is n|
|00001550| 6f 6e 2d 6e 69 6c 29 2c | 20 72 65 74 75 72 6e 69 |on-nil),| returni|
|00001560| 6e 67 20 72 65 73 75 6c | 74 2e 0a 58 49 66 20 64 |ng resul|t..XIf d|
|00001570| 65 63 6f 64 69 6e 67 2c | 20 79 6f 75 20 77 69 6c |ecoding,| you wil|
|00001580| 6c 20 70 72 6f 62 61 62 | 6c 79 20 77 61 6e 74 20 |l probab|ly want |
|00001590| 74 6f 20 74 6f 73 73 20 | 74 68 65 20 66 69 72 73 |to toss |the firs|
|000015a0| 74 20 66 6f 75 72 20 62 | 79 74 65 73 2c 0a 58 62 |t four b|ytes,.Xb|
|000015b0| 75 74 20 74 68 65 79 20 | 61 72 65 20 72 65 74 75 |ut they |are retu|
|000015c0| 72 6e 65 64 20 61 6e 79 | 77 61 79 20 73 6f 20 74 |rned any|way so t|
|000015d0| 68 61 74 20 79 6f 75 20 | 6d 61 79 20 72 65 65 6e |hat you |may reen|
|000015e0| 63 6f 64 65 20 61 20 64 | 65 63 6f 64 65 64 20 73 |code a d|ecoded s|
|000015f0| 74 72 69 6e 67 0a 58 66 | 6f 72 20 76 65 72 69 66 |tring.Xf|or verif|
|00001600| 69 63 61 74 69 6f 6e 2e | 22 0a 58 20 20 28 6c 65 |ication.|".X  (le|
|00001610| 74 20 28 28 73 74 61 74 | 65 20 65 65 78 65 63 2d |t ((stat|e eexec-|
|00001620| 63 6f 6e 73 74 2d 69 6e | 69 74 29 20 6f 75 74 62 |const-in|it) outb|
|00001630| 79 74 65 29 0a 58 20 20 | 20 20 28 63 6f 6e 63 61 |yte).X  |  (conca|
|00001640| 74 0a 58 20 20 20 20 20 | 28 6d 61 70 63 61 72 0a |t.X     |(mapcar.|
|00001650| 58 20 20 20 20 20 20 28 | 66 75 6e 63 74 69 6f 6e |X      (|function|
|00001660| 0a 58 20 20 20 20 20 20 | 20 28 6c 61 6d 62 64 61 |.X      | (lambda|
|00001670| 20 28 69 6e 62 79 74 65 | 29 0a 58 09 20 28 73 65 | (inbyte|).X. (se|
|00001680| 74 71 20 6f 75 74 62 79 | 74 65 20 28 6c 6f 67 78 |tq outby|te (logx|
|00001690| 6f 72 20 69 6e 62 79 74 | 65 20 28 6c 6f 67 61 6e |or inbyt|e (logan|
|000016a0| 64 20 28 6c 73 68 20 73 | 74 61 74 65 20 2d 38 29 |d (lsh s|tate -8)|
|000016b0| 29 29 0a 58 09 20 20 20 | 20 20 20 20 73 74 61 74 |)).X.   |    stat|
|000016c0| 65 20 28 6c 6f 67 61 6e | 64 20 36 35 35 33 35 20 |e (logan|d 65535 |
|000016d0| 28 2b 20 73 74 61 74 65 | 20 28 69 66 20 65 6e 63 |(+ state| (if enc|
|000016e0| 6f 64 65 20 6f 75 74 62 | 79 74 65 20 69 6e 62 79 |ode outb|yte inby|
|000016f0| 74 65 29 29 29 0a 58 09 | 20 20 20 20 20 20 20 73 |te))).X.|       s|
|00001700| 74 61 74 65 20 28 6c 6f | 67 61 6e 64 20 36 35 35 |tate (lo|gand 655|
|00001710| 33 35 20 28 2a 20 73 74 | 61 74 65 20 65 65 78 65 |35 (* st|ate eexe|
|00001720| 63 2d 63 6f 6e 73 74 2d | 6d 75 6c 74 29 29 0a 58 |c-const-|mult)).X|
|00001730| 09 20 20 20 20 20 20 20 | 73 74 61 74 65 20 28 6c |.       |state (l|
|00001740| 6f 67 61 6e 64 20 36 35 | 35 33 35 20 28 2b 20 73 |ogand 65|535 (+ s|
|00001750| 74 61 74 65 20 65 65 78 | 65 63 2d 63 6f 6e 73 74 |tate eex|ec-const|
|00001760| 2d 61 64 64 29 29 29 0a | 58 09 20 6f 75 74 62 79 |-add))).|X. outby|
|00001770| 74 65 29 29 0a 58 20 20 | 20 20 20 20 73 74 72 29 |te)).X  |    str)|
|00001780| 29 29 29 0a 45 4e 44 5f | 4f 46 5f 46 49 4c 45 0a |))).END_|OF_FILE.|
|00001790| 69 66 20 74 65 73 74 20 | 33 37 30 37 20 2d 6e 65 |if test |3707 -ne|
|000017a0| 20 60 77 63 20 2d 63 20 | 3c 27 65 65 78 65 63 2e | `wc -c |<'eexec.|
|000017b0| 65 6c 27 60 3b 20 74 68 | 65 6e 0a 20 20 20 20 65 |el'`; th|en.    e|
|000017c0| 63 68 6f 20 73 68 61 72 | 3a 20 5c 22 27 65 65 78 |cho shar|: \"'eex|
|000017d0| 65 63 2e 65 6c 27 5c 22 | 20 75 6e 70 61 63 6b 65 |ec.el'\"| unpacke|
|000017e0| 64 20 77 69 74 68 20 77 | 72 6f 6e 67 20 73 69 7a |d with w|rong siz|
|000017f0| 65 21 0a 66 69 0a 23 20 | 65 6e 64 20 6f 66 20 27 |e!.fi.# |end of '|
|00001800| 65 65 78 65 63 2e 65 6c | 27 0a 66 69 0a 65 63 68 |eexec.el|'.fi.ech|
|00001810| 6f 20 73 68 61 72 3a 20 | 45 6e 64 20 6f 66 20 73 |o shar: |End of s|
|00001820| 68 65 6c 6c 20 61 72 63 | 68 69 76 65 2e 0a 65 78 |hell arc|hive..ex|
|00001830| 69 74 20 30 0a 2d 2d 20 | 0a 2f 3d 3d 20 52 61 6e |it 0.-- |./== Ran|
|00001840| 64 61 6c 20 4c 2e 20 53 | 63 68 77 61 72 74 7a 2c |dal L. S|chwartz,|
|00001850| 20 53 74 6f 6e 65 68 65 | 6e 67 65 20 43 6f 6e 73 | Stonehe|nge Cons|
|00001860| 75 6c 74 69 6e 67 20 53 | 65 72 76 69 63 65 73 20 |ulting S|ervices |
|00001870| 28 35 30 33 29 37 37 37 | 2d 30 30 39 35 20 3d 3d |(503)777|-0095 ==|
|00001880| 3d 3d 5c 0a 7c 20 6f 6e | 20 63 6f 6e 74 72 61 63 |==\.| on| contrac|
|00001890| 74 20 74 6f 20 49 6e 74 | 65 6c 2c 20 48 69 6c 6c |t to Int|el, Hill|
|000018a0| 73 62 6f 72 6f 2c 20 4f | 72 65 67 6f 6e 2c 20 55 |sboro, O|regon, U|
|000018b0| 53 41 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |SA      |        |
|000018c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 7c 0a 7c |        |     |.||
|000018d0| 20 6d 65 72 6c 79 6e 40 | 69 77 61 72 70 2e 69 6e | merlyn@|iwarp.in|
|000018e0| 74 65 6c 2e 63 6f 6d 20 | 2e 2e 2e 21 75 75 6e 65 |tel.com |...!uune|
|000018f0| 74 21 69 77 61 72 70 2e | 69 6e 74 65 6c 2e 63 6f |t!iwarp.|intel.co|
|00001900| 6d 21 6d 65 72 6c 79 6e | 09 20 20 20 20 20 20 20 |m!merlyn|.       |
|00001910| 20 20 7c 0a 5c 3d 3d 20 | 43 75 74 65 20 51 75 6f |  |.\== |Cute Quo|
|00001920| 74 65 3a 20 22 57 65 6c | 63 6f 6d 65 20 74 6f 20 |te: "Wel|come to |
|00001930| 4f 72 65 67 6f 6e 2e 2e | 2e 20 48 6f 6d 65 20 6f |Oregon..|. Home o|
|00001940| 66 20 74 68 65 20 43 61 | 6c 69 66 6f 72 6e 69 61 |f the Ca|lifornia|
|00001950| 20 52 61 69 73 69 6e 73 | 21 22 20 3d 3d 2f 0a    | Raisins|!" ==/. |
+--------+-------------------------+-------------------------+--------+--------+