/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3191

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 75 66 | 66 36 37 40 67 72 61 6e |From: uf|f67@gran|
|00000010| 61 74 2e 63 73 2e 74 75 | 2d 62 65 72 6c 69 6e 2e |at.cs.tu|-berlin.|
|00000020| 64 65 20 28 41 75 65 72 | 20 75 2e 20 4e 69 63 6b |de (Auer| u. Nick|
|00000030| 65 6c 73 65 6e 29 0a 4e | 65 77 73 67 72 6f 75 70 |elsen).N|ewsgroup|
|00000040| 73 3a 20 61 6c 74 2e 73 | 6f 75 72 63 65 73 0a 53 |s: alt.s|ources.S|
|00000050| 75 62 6a 65 63 74 3a 20 | 6c 6f 63 6b 74 74 79 20 |ubject: |locktty |
|00000060| 2d 20 6c 6f 63 6b 20 74 | 65 72 6d 69 6e 61 6c 2c |- lock t|erminal,|
|00000070| 20 50 61 72 74 20 30 31 | 2f 30 31 0a 4d 65 73 73 | Part 01|/01.Mess|
|00000080| 61 67 65 2d 49 44 3a 20 | 3c 55 46 46 36 37 2e 39 |age-ID: |<UFF67.9|
|00000090| 31 41 70 72 31 35 31 38 | 32 33 33 38 40 67 72 61 |1Apr1518|2338@gra|
|000000a0| 6e 61 74 2e 63 73 2e 74 | 75 2d 62 65 72 6c 69 6e |nat.cs.t|u-berlin|
|000000b0| 2e 64 65 3e 0a 44 61 74 | 65 3a 20 31 35 20 41 70 |.de>.Dat|e: 15 Ap|
|000000c0| 72 20 39 31 20 31 36 3a | 32 33 3a 33 38 20 47 4d |r 91 16:|23:38 GM|
|000000d0| 54 0a 0a 66 72 6f 6d 20 | 52 45 41 44 4d 45 3a 0a |T..from |README:.|
|000000e0| 0a 41 20 6c 6f 6e 67 20 | 74 69 6d 65 20 49 20 77 |.A long |time I w|
|000000f0| 61 73 20 6c 6f 6f 6b 69 | 6e 67 20 66 6f 72 20 61 |as looki|ng for a|
|00000100| 20 75 74 69 6c 69 74 79 | 20 74 6f 20 6c 6f 63 6b | utility| to lock|
|00000110| 20 74 68 65 20 73 63 72 | 65 65 6e 20 6f 66 20 61 | the scr|een of a|
|00000120| 6e 20 41 53 43 49 49 0a | 74 65 72 6d 69 6e 61 6c |n ASCII.|terminal|
|00000130| 2c 20 73 6f 6d 65 74 68 | 69 6e 67 20 6c 69 6b 65 |, someth|ing like|
|00000140| 20 6c 6f 63 6b 73 63 72 | 65 65 6e 20 6f 72 20 78 | lockscr|een or x|
|00000150| 6c 6f 63 6b 2c 20 62 75 | 74 20 64 69 64 6e 27 74 |lock, bu|t didn't|
|00000160| 20 66 69 6e 64 0a 61 6e | 79 74 68 69 6e 67 2e 0a | find.an|ything..|
|00000170| 0a 4f 4b 2c 20 68 65 72 | 65 20 69 73 20 22 6c 6f |.OK, her|e is "lo|
|00000180| 63 6b 74 74 79 22 2e 20 | 54 6f 20 6b 65 65 70 20 |cktty". |To keep |
|00000190| 69 74 20 70 6f 72 74 61 | 62 6c 65 20 65 76 65 6e |it porta|ble even|
|000001a0| 20 66 6f 72 20 73 79 73 | 74 65 6d 73 20 77 69 74 | for sys|tems wit|
|000001b0| 68 20 61 0a 73 68 61 64 | 6f 77 20 70 61 73 73 77 |h a.shad|ow passw|
|000001c0| 6f 72 64 20 66 69 6c 65 | 2c 20 49 20 6b 65 65 70 |ord file|, I keep|
|000001d0| 20 74 68 65 20 63 72 79 | 70 74 65 64 20 70 61 73 | the cry|pted pas|
|000001e0| 73 77 6f 72 64 20 69 6e | 20 61 20 66 69 6c 65 20 |sword in| a file |
|000001f0| 69 6e 20 74 68 65 0a 75 | 73 65 72 27 73 20 68 6f |in the.u|ser's ho|
|00000200| 6d 65 20 64 69 72 65 63 | 74 6f 72 79 2e 20 49 66 |me direc|tory. If|
|00000210| 20 74 68 65 20 66 69 6c | 65 20 64 6f 65 73 20 6e | the fil|e does n|
|00000220| 6f 74 20 65 78 69 73 74 | 2c 20 74 68 65 20 75 73 |ot exist|, the us|
|00000230| 65 72 20 69 73 0a 70 72 | 6f 6d 70 74 65 64 20 66 |er is.pr|ompted f|
|00000240| 6f 72 20 61 20 70 61 73 | 73 77 6f 72 64 2e 0a 0a |or a pas|sword...|
|00000250| 54 68 65 20 70 61 73 73 | 77 6f 72 64 20 66 69 6c |The pass|word fil|
|00000260| 65 20 63 61 6e 20 62 65 | 20 63 68 61 6e 67 65 64 |e can be| changed|
|00000270| 20 62 79 20 75 73 69 6e | 67 20 74 68 65 20 2d 70 | by usin|g the -p|
|00000280| 20 6f 70 74 69 6f 6e 2e | 0a 0a 54 68 65 20 70 72 | option.|..The pr|
|00000290| 6f 67 72 61 6d 20 69 73 | 20 77 69 74 68 6f 75 74 |ogram is| without|
|000002a0| 20 61 6e 79 20 63 68 61 | 6e 67 65 73 20 73 75 63 | any cha|nges suc|
|000002b0| 63 65 73 73 66 75 6c 6c | 79 20 74 65 73 74 65 64 |cessfull|y tested|
|000002c0| 20 6f 6e 0a 20 20 2d 20 | 53 75 6e 4f 53 20 34 2e | on.  - |SunOS 4.|
|000002d0| 31 2c 0a 20 20 2d 20 49 | 6e 74 65 72 61 63 74 69 |1,.  - I|nteracti|
|000002e0| 76 65 20 69 78 2f 33 38 | 36 20 32 2e 30 2e 32 2c |ve ix/38|6 2.0.2,|
|000002f0| 20 0a 20 20 2d 20 55 6c | 74 72 69 78 20 57 6f 72 | .  - Ul|trix Wor|
|00000300| 6b 73 79 73 74 65 6d 20 | 56 32 2e 31 20 28 52 65 |ksystem |V2.1 (Re|
|00000310| 76 2e 20 31 34 29 2c 20 | 0a 20 20 2d 20 48 50 2d |v. 14), |.  - HP-|
|00000320| 55 58 20 37 2e 30 30 2e | 0a 0a 4a 75 73 74 20 74 |UX 7.00.|..Just t|
|00000330| 79 70 65 20 22 6d 61 6b | 65 22 2e 0a 0a 50 6c 65 |ype "mak|e"...Ple|
|00000340| 61 73 65 20 73 65 6e 64 | 20 63 6f 72 72 65 63 74 |ase send| correct|
|00000350| 69 6f 6e 73 2c 20 69 6d | 70 72 6f 76 65 6d 65 6e |ions, im|provemen|
|00000360| 74 73 2c 20 61 6e 64 20 | 66 6c 61 6d 65 73 20 74 |ts, and |flames t|
|00000370| 6f 0a 09 6e 69 63 6b 65 | 6c 40 77 31 30 34 7a 72 |o..nicke|l@w104zr|
|00000380| 7a 2e 7a 72 7a 2e 74 75 | 2d 62 65 72 6c 69 6e 2e |z.zrz.tu|-berlin.|
|00000390| 64 65 0a 0a 23 21 2f 62 | 69 6e 2f 73 68 0a 23 20 |de..#!/b|in/sh.# |
|000003a0| 54 68 69 73 20 69 73 20 | 61 20 73 68 65 6c 6c 20 |This is |a shell |
|000003b0| 61 72 63 68 69 76 65 20 | 28 70 72 6f 64 75 63 65 |archive |(produce|
|000003c0| 64 20 62 79 20 73 68 61 | 72 20 33 2e 34 39 29 0a |d by sha|r 3.49).|
|000003d0| 23 20 54 6f 20 65 78 74 | 72 61 63 74 20 74 68 65 |# To ext|ract the|
|000003e0| 20 66 69 6c 65 73 20 66 | 72 6f 6d 20 74 68 69 73 | files f|rom this|
|000003f0| 20 61 72 63 68 69 76 65 | 2c 20 73 61 76 65 20 69 | archive|, save i|
|00000400| 74 20 74 6f 20 61 20 66 | 69 6c 65 2c 20 72 65 6d |t to a f|ile, rem|
|00000410| 6f 76 65 0a 23 20 65 76 | 65 72 79 74 68 69 6e 67 |ove.# ev|erything|
|00000420| 20 61 62 6f 76 65 20 74 | 68 65 20 22 21 2f 62 69 | above t|he "!/bi|
|00000430| 6e 2f 73 68 22 20 6c 69 | 6e 65 20 61 62 6f 76 65 |n/sh" li|ne above|
|00000440| 2c 20 61 6e 64 20 74 79 | 70 65 20 22 73 68 20 66 |, and ty|pe "sh f|
|00000450| 69 6c 65 5f 6e 61 6d 65 | 22 2e 0a 23 0a 23 20 6d |ile_name|"..#.# m|
|00000460| 61 64 65 20 30 34 2f 31 | 35 2f 31 39 39 31 20 31 |ade 04/1|5/1991 1|
|00000470| 36 3a 31 35 20 55 54 43 | 20 62 79 20 61 30 35 32 |6:15 UTC| by a052|
|00000480| 38 40 67 72 61 79 33 0a | 23 20 53 6f 75 72 63 65 |8@gray3.|# Source|
|00000490| 20 64 69 72 65 63 74 6f | 72 79 20 2f 75 73 72 2f | directo|ry /usr/|
|000004a0| 61 30 35 32 38 2f 67 61 | 67 61 0a 23 0a 23 20 65 |a0528/ga|ga.#.# e|
|000004b0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 73 20 77 69 |xisting |files wi|
|000004c0| 6c 6c 20 4e 4f 54 20 62 | 65 20 6f 76 65 72 77 72 |ll NOT b|e overwr|
|000004d0| 69 74 74 65 6e 20 75 6e | 6c 65 73 73 20 2d 63 20 |itten un|less -c |
|000004e0| 69 73 20 73 70 65 63 69 | 66 69 65 64 0a 23 0a 23 |is speci|fied.#.#|
|000004f0| 20 54 68 69 73 20 73 68 | 61 72 20 63 6f 6e 74 61 | This sh|ar conta|
|00000500| 69 6e 73 3a 0a 23 20 6c | 65 6e 67 74 68 20 20 6d |ins:.# l|ength  m|
|00000510| 6f 64 65 20 20 20 20 20 | 20 20 6e 61 6d 65 0a 23 |ode     |  name.#|
|00000520| 20 2d 2d 2d 2d 2d 2d 20 | 2d 2d 2d 2d 2d 2d 2d 2d | ------ |--------|
|00000530| 2d 2d 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |-- -----|--------|
|00000540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0a 23 20 |--------|-----.# |
|00000560| 20 20 20 32 30 39 20 2d | 72 77 2d 72 2d 2d 72 2d |   209 -|rw-r--r-|
|00000570| 2d 20 4d 61 6b 65 66 69 | 6c 65 0a 23 20 20 20 20 |- Makefi|le.#    |
|00000580| 36 39 30 20 2d 72 77 2d | 72 2d 2d 72 2d 2d 20 52 |690 -rw-|r--r-- R|
|00000590| 45 41 44 4d 45 0a 23 20 | 20 20 31 33 37 31 20 2d |EADME.# |  1371 -|
|000005a0| 72 77 2d 72 2d 2d 72 2d | 2d 20 6c 6f 63 6b 74 74 |rw-r--r-|- locktt|
|000005b0| 79 2e 31 0a 23 20 20 20 | 35 36 36 33 20 2d 72 77 |y.1.#   |5663 -rw|
|000005c0| 2d 72 2d 2d 72 2d 2d 20 | 6c 6f 63 6b 74 74 79 2e |-r--r-- |locktty.|
|000005d0| 63 0a 23 0a 23 20 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |c.#.# ==|========|
|000005e0| 3d 3d 3d 20 4d 61 6b 65 | 66 69 6c 65 20 3d 3d 3d |=== Make|file ===|
|000005f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0a 69 66 20 74 |========|===.if t|
|00000600| 65 73 74 20 2d 66 20 27 | 4d 61 6b 65 66 69 6c 65 |est -f '|Makefile|
|00000610| 27 20 2d 61 20 58 22 24 | 31 22 20 21 3d 20 58 22 |' -a X"$|1" != X"|
|00000620| 2d 63 22 3b 20 74 68 65 | 6e 0a 09 65 63 68 6f 20 |-c"; the|n..echo |
|00000630| 27 78 20 2d 20 73 6b 69 | 70 70 69 6e 67 20 4d 61 |'x - ski|pping Ma|
|00000640| 6b 65 66 69 6c 65 20 28 | 46 69 6c 65 20 61 6c 72 |kefile (|File alr|
|00000650| 65 61 64 79 20 65 78 69 | 73 74 73 29 27 0a 65 6c |eady exi|sts)'.el|
|00000660| 73 65 0a 65 63 68 6f 20 | 27 78 20 2d 20 65 78 74 |se.echo |'x - ext|
|00000670| 72 61 63 74 69 6e 67 20 | 4d 61 6b 65 66 69 6c 65 |racting |Makefile|
|00000680| 20 28 54 65 78 74 29 27 | 0a 73 65 64 20 27 73 2f | (Text)'|.sed 's/|
|00000690| 5e 58 2f 2f 27 20 3c 3c | 20 27 53 48 41 52 5f 45 |^X//' <<| 'SHAR_E|
|000006a0| 4f 46 27 20 3e 20 27 4d | 61 6b 65 66 69 6c 65 27 |OF' > 'M|akefile'|
|000006b0| 20 26 26 0a 43 43 20 3d | 20 63 63 0a 4c 49 42 53 | &&.CC =| cc.LIBS|
|000006c0| 20 3d 20 2d 6c 63 75 72 | 73 65 73 20 2d 6c 74 65 | = -lcur|ses -lte|
|000006d0| 72 6d 63 61 70 0a 53 48 | 45 4c 4c 20 3d 20 2f 62 |rmcap.SH|ELL = /b|
|000006e0| 69 6e 2f 73 68 0a 43 46 | 4c 41 47 53 20 3d 20 2d |in/sh.CF|LAGS = -|
|000006f0| 4f 0a 53 4f 55 52 43 45 | 20 3d 20 6c 6f 63 6b 74 |O.SOURCE| = lockt|
|00000700| 74 79 2e 63 0a 54 41 52 | 47 45 54 20 3d 20 6c 6f |ty.c.TAR|GET = lo|
|00000710| 63 6b 74 74 79 0a 58 0a | 24 28 54 41 52 47 45 54 |cktty.X.|$(TARGET|
|00000720| 29 20 3a 20 24 28 53 4f | 55 52 43 45 29 0a 58 09 |) : $(SO|URCE).X.|
|00000730| 24 28 43 43 29 20 24 28 | 43 46 4c 41 47 53 29 20 |$(CC) $(|CFLAGS) |
|00000740| 2d 6f 20 24 28 54 41 52 | 47 45 54 29 20 24 28 53 |-o $(TAR|GET) $(S|
|00000750| 4f 55 52 43 45 29 20 24 | 28 4c 49 42 53 29 0a 58 |OURCE) $|(LIBS).X|
|00000760| 0a 63 6c 65 61 6e 20 3a | 20 0a 58 09 72 6d 20 2d |.clean :| .X.rm -|
|00000770| 66 20 2a 2e 6f 20 63 6f | 72 65 20 2a 7e 20 24 28 |f *.o co|re *~ $(|
|00000780| 54 41 52 47 45 54 29 0a | 58 0a 53 48 41 52 5f 45 |TARGET).|X.SHAR_E|
|00000790| 4f 46 0a 63 68 6d 6f 64 | 20 30 36 34 34 20 4d 61 |OF.chmod| 0644 Ma|
|000007a0| 6b 65 66 69 6c 65 20 7c | 7c 0a 65 63 68 6f 20 27 |kefile |||.echo '|
|000007b0| 72 65 73 74 6f 72 65 20 | 6f 66 20 4d 61 6b 65 66 |restore |of Makef|
|000007c0| 69 6c 65 20 66 61 69 6c | 65 64 27 0a 57 63 5f 63 |ile fail|ed'.Wc_c|
|000007d0| 3d 22 60 77 63 20 2d 63 | 20 3c 20 27 4d 61 6b 65 |="`wc -c| < 'Make|
|000007e0| 66 69 6c 65 27 60 22 0a | 74 65 73 74 20 32 30 39 |file'`".|test 209|
|000007f0| 20 2d 65 71 20 22 24 57 | 63 5f 63 22 20 7c 7c 0a | -eq "$W|c_c" ||.|
|00000800| 09 65 63 68 6f 20 27 4d | 61 6b 65 66 69 6c 65 3a |.echo 'M|akefile:|
|00000810| 20 6f 72 69 67 69 6e 61 | 6c 20 73 69 7a 65 20 32 | origina|l size 2|
|00000820| 30 39 2c 20 63 75 72 72 | 65 6e 74 20 73 69 7a 65 |09, curr|ent size|
|00000830| 27 20 22 24 57 63 5f 63 | 22 0a 66 69 0a 23 20 3d |' "$Wc_c|".fi.# =|
|00000840| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 20 52 45 41 |========|==== REA|
|00000850| 44 4d 45 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |DME ====|========|
|00000860| 3d 3d 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 52 |==.if te|st -f 'R|
|00000870| 45 41 44 4d 45 27 20 2d | 61 20 58 22 24 31 22 20 |EADME' -|a X"$1" |
|00000880| 21 3d 20 58 22 2d 63 22 | 3b 20 74 68 65 6e 0a 09 |!= X"-c"|; then..|
|00000890| 65 63 68 6f 20 27 78 20 | 2d 20 73 6b 69 70 70 69 |echo 'x |- skippi|
|000008a0| 6e 67 20 52 45 41 44 4d | 45 20 28 46 69 6c 65 20 |ng READM|E (File |
|000008b0| 61 6c 72 65 61 64 79 20 | 65 78 69 73 74 73 29 27 |already |exists)'|
|000008c0| 0a 65 6c 73 65 0a 65 63 | 68 6f 20 27 78 20 2d 20 |.else.ec|ho 'x - |
|000008d0| 65 78 74 72 61 63 74 69 | 6e 67 20 52 45 41 44 4d |extracti|ng READM|
|000008e0| 45 20 28 54 65 78 74 29 | 27 0a 73 65 64 20 27 73 |E (Text)|'.sed 's|
|000008f0| 2f 5e 58 2f 2f 27 20 3c | 3c 20 27 53 48 41 52 5f |/^X//' <|< 'SHAR_|
|00000900| 45 4f 46 27 20 3e 20 27 | 52 45 41 44 4d 45 27 20 |EOF' > '|README' |
|00000910| 26 26 0a 41 20 6c 6f 6e | 67 20 74 69 6d 65 20 49 |&&.A lon|g time I|
|00000920| 20 77 61 73 20 6c 6f 6f | 6b 69 6e 67 20 66 6f 72 | was loo|king for|
|00000930| 20 61 20 75 74 69 6c 69 | 74 79 20 74 6f 20 6c 6f | a utili|ty to lo|
|00000940| 63 6b 20 74 68 65 20 73 | 63 72 65 65 6e 20 6f 66 |ck the s|creen of|
|00000950| 20 61 6e 20 41 53 43 49 | 49 0a 74 65 72 6d 69 6e | an ASCI|I.termin|
|00000960| 61 6c 2c 20 73 6f 6d 65 | 74 68 69 6e 67 20 6c 69 |al, some|thing li|
|00000970| 6b 65 20 6c 6f 63 6b 73 | 63 72 65 65 6e 20 6f 72 |ke locks|creen or|
|00000980| 20 78 6c 6f 63 6b 2c 20 | 62 75 74 20 64 69 64 6e | xlock, |but didn|
|00000990| 27 74 20 66 69 6e 64 0a | 61 6e 79 74 68 69 6e 67 |'t find.|anything|
|000009a0| 2e 0a 58 0a 4f 4b 2c 20 | 68 65 72 65 20 69 73 20 |..X.OK, |here is |
|000009b0| 22 6c 6f 63 6b 74 74 79 | 22 2e 20 54 6f 20 6b 65 |"locktty|". To ke|
|000009c0| 65 70 20 69 74 20 70 6f | 72 74 61 62 6c 65 20 65 |ep it po|rtable e|
|000009d0| 76 65 6e 20 66 6f 72 20 | 73 79 73 74 65 6d 73 20 |ven for |systems |
|000009e0| 77 69 74 68 20 61 0a 73 | 68 61 64 6f 77 20 70 61 |with a.s|hadow pa|
|000009f0| 73 73 77 6f 72 64 20 66 | 69 6c 65 2c 20 49 20 6b |ssword f|ile, I k|
|00000a00| 65 65 70 20 74 68 65 20 | 63 72 79 70 74 65 64 20 |eep the |crypted |
|00000a10| 70 61 73 73 77 6f 72 64 | 20 69 6e 20 61 20 66 69 |password| in a fi|
|00000a20| 6c 65 20 69 6e 20 74 68 | 65 0a 75 73 65 72 27 73 |le in th|e.user's|
|00000a30| 20 68 6f 6d 65 20 64 69 | 72 65 63 74 6f 72 79 2e | home di|rectory.|
|00000a40| 20 49 66 20 74 68 65 20 | 66 69 6c 65 20 64 6f 65 | If the |file doe|
|00000a50| 73 20 6e 6f 74 20 65 78 | 69 73 74 2c 20 74 68 65 |s not ex|ist, the|
|00000a60| 20 75 73 65 72 20 69 73 | 0a 70 72 6f 6d 70 74 65 | user is|.prompte|
|00000a70| 64 20 66 6f 72 20 61 20 | 70 61 73 73 77 6f 72 64 |d for a |password|
|00000a80| 2e 0a 58 0a 54 68 65 20 | 70 61 73 73 77 6f 72 64 |..X.The |password|
|00000a90| 20 66 69 6c 65 20 63 61 | 6e 20 62 65 20 63 68 61 | file ca|n be cha|
|00000aa0| 6e 67 65 64 20 62 79 20 | 75 73 69 6e 67 20 74 68 |nged by |using th|
|00000ab0| 65 20 2d 70 20 6f 70 74 | 69 6f 6e 2e 0a 58 0a 54 |e -p opt|ion..X.T|
|00000ac0| 68 65 20 70 72 6f 67 72 | 61 6d 20 69 73 20 77 69 |he progr|am is wi|
|00000ad0| 74 68 6f 75 74 20 61 6e | 79 20 63 68 61 6e 67 65 |thout an|y change|
|00000ae0| 73 20 73 75 63 63 65 73 | 73 66 75 6c 6c 79 20 74 |s succes|sfully t|
|00000af0| 65 73 74 65 64 20 6f 6e | 0a 58 20 20 2d 20 53 75 |ested on|.X  - Su|
|00000b00| 6e 4f 53 20 34 2e 31 2c | 0a 58 20 20 2d 20 49 6e |nOS 4.1,|.X  - In|
|00000b10| 74 65 72 61 63 74 69 76 | 65 20 69 78 2f 33 38 36 |teractiv|e ix/386|
|00000b20| 20 32 2e 30 2e 32 2c 20 | 0a 58 20 20 2d 20 55 6c | 2.0.2, |.X  - Ul|
|00000b30| 74 72 69 78 20 57 6f 72 | 6b 73 79 73 74 65 6d 20 |trix Wor|ksystem |
|00000b40| 56 32 2e 31 20 28 52 65 | 76 2e 20 31 34 29 2c 20 |V2.1 (Re|v. 14), |
|00000b50| 0a 58 20 20 2d 20 48 50 | 2d 55 58 20 37 2e 30 30 |.X  - HP|-UX 7.00|
|00000b60| 2e 0a 58 0a 4a 75 73 74 | 20 74 79 70 65 20 22 6d |..X.Just| type "m|
|00000b70| 61 6b 65 22 2e 0a 58 0a | 50 6c 65 61 73 65 20 73 |ake"..X.|Please s|
|00000b80| 65 6e 64 20 63 6f 72 72 | 65 63 74 69 6f 6e 73 2c |end corr|ections,|
|00000b90| 20 69 6d 70 72 6f 76 65 | 6d 65 6e 74 73 2c 20 61 | improve|ments, a|
|00000ba0| 6e 64 20 66 6c 61 6d 65 | 73 20 74 6f 0a 58 09 6e |nd flame|s to.X.n|
|00000bb0| 69 63 6b 65 6c 40 77 31 | 30 34 7a 72 7a 2e 7a 72 |ickel@w1|04zrz.zr|
|00000bc0| 7a 2e 74 75 2d 62 65 72 | 6c 69 6e 2e 64 65 0a 53 |z.tu-ber|lin.de.S|
|00000bd0| 48 41 52 5f 45 4f 46 0a | 63 68 6d 6f 64 20 30 36 |HAR_EOF.|chmod 06|
|00000be0| 34 34 20 52 45 41 44 4d | 45 20 7c 7c 0a 65 63 68 |44 READM|E ||.ech|
|00000bf0| 6f 20 27 72 65 73 74 6f | 72 65 20 6f 66 20 52 45 |o 'resto|re of RE|
|00000c00| 41 44 4d 45 20 66 61 69 | 6c 65 64 27 0a 57 63 5f |ADME fai|led'.Wc_|
|00000c10| 63 3d 22 60 77 63 20 2d | 63 20 3c 20 27 52 45 41 |c="`wc -|c < 'REA|
|00000c20| 44 4d 45 27 60 22 0a 74 | 65 73 74 20 36 39 30 20 |DME'`".t|est 690 |
|00000c30| 2d 65 71 20 22 24 57 63 | 5f 63 22 20 7c 7c 0a 09 |-eq "$Wc|_c" ||..|
|00000c40| 65 63 68 6f 20 27 52 45 | 41 44 4d 45 3a 20 6f 72 |echo 'RE|ADME: or|
|00000c50| 69 67 69 6e 61 6c 20 73 | 69 7a 65 20 36 39 30 2c |iginal s|ize 690,|
|00000c60| 20 63 75 72 72 65 6e 74 | 20 73 69 7a 65 27 20 22 | current| size' "|
|00000c70| 24 57 63 5f 63 22 0a 66 | 69 0a 23 20 3d 3d 3d 3d |$Wc_c".f|i.# ====|
|00000c80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 20 6c 6f 63 6b 74 74 |========|= locktt|
|00000c90| 79 2e 31 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |y.1 ====|========|
|00000ca0| 3d 3d 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 6c |==.if te|st -f 'l|
|00000cb0| 6f 63 6b 74 74 79 2e 31 | 27 20 2d 61 20 58 22 24 |ocktty.1|' -a X"$|
|00000cc0| 31 22 20 21 3d 20 58 22 | 2d 63 22 3b 20 74 68 65 |1" != X"|-c"; the|
|00000cd0| 6e 0a 09 65 63 68 6f 20 | 27 78 20 2d 20 73 6b 69 |n..echo |'x - ski|
|00000ce0| 70 70 69 6e 67 20 6c 6f | 63 6b 74 74 79 2e 31 20 |pping lo|cktty.1 |
|00000cf0| 28 46 69 6c 65 20 61 6c | 72 65 61 64 79 20 65 78 |(File al|ready ex|
|00000d00| 69 73 74 73 29 27 0a 65 | 6c 73 65 0a 65 63 68 6f |ists)'.e|lse.echo|
|00000d10| 20 27 78 20 2d 20 65 78 | 74 72 61 63 74 69 6e 67 | 'x - ex|tracting|
|00000d20| 20 6c 6f 63 6b 74 74 79 | 2e 31 20 28 54 65 78 74 | locktty|.1 (Text|
|00000d30| 29 27 0a 73 65 64 20 27 | 73 2f 5e 58 2f 2f 27 20 |)'.sed '|s/^X//' |
|00000d40| 3c 3c 20 27 53 48 41 52 | 5f 45 4f 46 27 20 3e 20 |<< 'SHAR|_EOF' > |
|00000d50| 27 6c 6f 63 6b 74 74 79 | 2e 31 27 20 26 26 0a 2e |'locktty|.1' &&..|
|00000d60| 54 48 20 4c 4f 43 4b 54 | 54 59 20 31 4c 20 22 4c |TH LOCKT|TY 1L "L|
|00000d70| 4f 43 4b 54 54 59 20 31 | 2e 30 22 20 22 22 0a 2e |OCKTTY 1|.0" ""..|
|00000d80| 53 48 20 4e 41 4d 45 0a | 6c 6f 63 6b 74 74 79 20 |SH NAME.|locktty |
|00000d90| 2d 20 6c 6f 63 6b 20 74 | 65 72 6d 69 6e 61 6c 0a |- lock t|erminal.|
|00000da0| 2e 53 48 20 53 59 4e 4f | 50 53 49 53 0a 2e 42 20 |.SH SYNO|PSIS..B |
|00000db0| 6c 6f 63 6b 74 74 79 0a | 5b 0a 2e 42 20 2d 70 0a |locktty.|[..B -p.|
|00000dc0| 5d 0a 2e 50 50 0a 2e 53 | 48 20 44 45 53 43 52 49 |]..PP..S|H DESCRI|
|00000dd0| 50 54 49 4f 4e 0a 2e 49 | 20 4c 6f 63 6b 74 74 79 |PTION..I| Locktty|
|00000de0| 5c 5e 0a 70 75 74 73 20 | 74 68 65 20 74 65 72 6d |\^.puts |the term|
|00000df0| 69 6e 61 6c 20 69 6e 74 | 6f 20 72 61 77 20 6d 6f |inal int|o raw mo|
|00000e00| 64 65 2c 20 63 6c 65 61 | 72 73 20 74 68 65 20 73 |de, clea|rs the s|
|00000e10| 63 72 65 65 6e 2c 20 61 | 6e 64 0a 70 72 6f 6d 70 |creen, a|nd.promp|
|00000e20| 74 73 20 74 68 65 20 75 | 73 65 72 20 66 6f 72 20 |ts the u|ser for |
|00000e30| 61 20 70 61 73 73 77 6f | 72 64 2e 20 45 6e 74 65 |a passwo|rd. Ente|
|00000e40| 72 65 64 20 70 61 73 73 | 77 6f 72 64 73 20 61 72 |red pass|words ar|
|00000e50| 65 20 63 72 79 70 74 65 | 64 20 61 6e 64 0a 63 68 |e crypte|d and.ch|
|00000e60| 65 63 6b 65 64 20 61 67 | 61 69 6e 73 74 20 61 20 |ecked ag|ainst a |
|00000e70| 63 72 79 70 74 65 64 20 | 70 61 73 73 77 6f 72 64 |crypted |password|
|00000e80| 20 69 6e 20 61 20 66 69 | 6c 65 20 69 6e 20 74 68 | in a fi|le in th|
|00000e90| 65 20 75 73 65 72 73 27 | 20 68 6f 6d 65 0a 64 69 |e users'| home.di|
|00000ea0| 72 65 63 74 6f 72 79 20 | 28 7e 2f 2e 6c 6f 63 6b |rectory |(~/.lock|
|00000eb0| 70 61 73 73 77 64 29 2e | 20 49 66 20 74 68 65 20 |passwd).| If the |
|00000ec0| 63 6f 72 72 65 63 74 20 | 70 61 73 73 77 6f 72 64 |correct |password|
|00000ed0| 20 69 73 20 67 69 76 65 | 6e 2c 20 74 68 65 0a 74 | is give|n, the.t|
|00000ee0| 65 72 6d 69 6e 61 6c 20 | 69 73 20 73 65 74 20 69 |erminal |is set i|
|00000ef0| 6e 74 6f 20 6e 6f 72 6d | 61 6c 20 73 74 61 74 65 |nto norm|al state|
|00000f00| 20 61 67 61 69 6e 2e 20 | 49 66 20 6e 6f 74 2c 20 | again. |If not, |
|00000f10| 61 20 6d 65 73 73 61 67 | 65 20 69 73 20 67 69 76 |a messag|e is giv|
|00000f20| 65 6e 2c 0a 61 6e 64 20 | 61 66 74 65 72 20 73 6f |en,.and |after so|
|00000f30| 6d 65 20 74 69 6d 65 20 | 61 20 6e 65 77 20 70 61 |me time |a new pa|
|00000f40| 73 73 77 6f 72 64 20 69 | 73 20 72 65 61 64 2e 0a |ssword i|s read..|
|00000f50| 2e 50 50 0a 49 66 20 74 | 68 65 20 66 69 6c 65 20 |.PP.If t|he file |
|00000f60| 7e 2f 2e 6c 6f 63 6b 70 | 61 73 73 77 64 20 64 6f |~/.lockp|asswd do|
|00000f70| 65 73 20 6e 6f 74 20 65 | 78 69 73 74 2c 20 74 68 |es not e|xist, th|
|00000f80| 65 20 75 73 65 72 20 69 | 73 20 70 72 6f 6d 70 74 |e user i|s prompt|
|00000f90| 65 64 20 66 6f 72 0a 61 | 20 70 61 73 73 77 6f 72 |ed for.a| passwor|
|00000fa0| 64 20 74 77 69 63 65 20 | 62 65 66 6f 72 65 20 74 |d twice |before t|
|00000fb0| 68 65 20 73 63 72 65 65 | 6e 20 69 73 20 6c 6f 63 |he scree|n is loc|
|00000fc0| 6b 65 64 2e 20 54 68 69 | 73 20 70 61 73 73 77 6f |ked. Thi|s passwo|
|00000fd0| 72 64 20 69 73 0a 63 72 | 79 70 74 65 64 20 61 6e |rd is.cr|ypted an|
|00000fe0| 64 20 73 74 6f 72 65 64 | 20 69 6e 20 7e 2f 2e 6c |d stored| in ~/.l|
|00000ff0| 6f 63 6b 70 61 73 73 77 | 64 2e 0a 2e 50 50 0a 54 |ockpassw|d...PP.T|
|00001000| 68 65 20 65 6e 63 72 79 | 70 74 65 64 20 70 61 73 |he encry|pted pas|
|00001010| 73 77 6f 72 64 20 69 6e | 20 7e 2f 2e 6c 6f 63 6b |sword in| ~/.lock|
|00001020| 70 61 73 73 77 64 20 63 | 61 6e 20 62 65 20 63 68 |passwd c|an be ch|
|00001030| 61 6e 67 65 64 20 62 79 | 20 69 6e 76 6f 6b 69 6e |anged by| invokin|
|00001040| 67 0a 2e 49 20 6c 6f 63 | 6b 74 74 79 20 0a 77 69 |g..I loc|ktty .wi|
|00001050| 74 68 20 74 68 65 20 0a | 2e 42 20 2d 70 20 0a 6f |th the .|.B -p .o|
|00001060| 70 74 69 6f 6e 2e 0a 2e | 53 48 20 44 49 41 47 4e |ption...|SH DIAGN|
|00001070| 4f 53 54 49 43 53 0a 2e | 54 50 0a 7e 2f 2e 6c 6f |OSTICS..|TP.~/.lo|
|00001080| 63 6b 70 61 73 73 77 64 | 20 69 6e 20 77 72 6f 6e |ckpasswd| in wron|
|00001090| 67 20 66 6f 72 6d 61 74 | 0a 7e 2f 2e 6c 6f 63 6b |g format|.~/.lock|
|000010a0| 70 61 73 73 77 64 20 64 | 6f 65 73 20 6e 6f 74 20 |passwd d|oes not |
|000010b0| 61 70 70 65 61 72 20 74 | 6f 20 62 65 20 61 20 76 |appear t|o be a v|
|000010c0| 61 6c 69 64 20 70 61 73 | 73 77 6f 72 64 20 63 72 |alid pas|sword cr|
|000010d0| 79 70 74 2e 0a 2e 53 48 | 20 46 49 4c 45 53 0a 24 |ypt...SH| FILES.$|
|000010e0| 48 4f 4d 45 2f 2e 6c 6f | 63 6b 70 61 73 73 77 64 |HOME/.lo|ckpasswd|
|000010f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 65 6e 63 |        |     enc|
|00001100| 72 79 70 74 65 64 20 70 | 61 73 73 77 6f 72 64 0a |rypted p|assword.|
|00001110| 2e 53 48 20 42 55 47 53 | 0a 49 20 68 61 76 65 6e |.SH BUGS|.I haven|
|00001120| 27 74 20 66 6f 75 6e 64 | 20 61 20 70 6f 72 74 61 |'t found| a porta|
|00001130| 62 6c 65 20 77 61 79 20 | 74 6f 20 66 6c 75 73 68 |ble way |to flush|
|00001140| 20 69 6e 70 75 74 20 62 | 65 66 6f 72 65 20 72 65 | input b|efore re|
|00001150| 61 64 69 6e 67 20 61 20 | 6e 65 77 0a 70 61 73 73 |ading a |new.pass|
|00001160| 77 6f 72 64 2e 0a 2e 62 | 72 0a 54 68 65 20 65 78 |word...b|r.The ex|
|00001170| 65 63 75 74 61 62 6c 65 | 20 69 73 20 68 75 67 65 |ecutable| is huge|
|00001180| 20 63 6f 6d 70 61 72 65 | 64 20 74 6f 20 74 68 65 | compare|d to the|
|00001190| 20 73 6f 75 72 63 65 2c | 20 62 75 74 20 49 20 63 | source,| but I c|
|000011a0| 6f 75 6c 64 6e 27 74 20 | 72 65 73 69 73 74 0a 75 |ouldn't |resist.u|
|000011b0| 73 69 6e 67 20 74 68 65 | 20 63 75 72 73 65 73 20 |sing the| curses |
|000011c0| 6c 69 62 72 61 72 79 2e | 0a 2e 62 72 0a 2e 49 20 |library.|..br..I |
|000011d0| 4c 6f 63 6b 74 74 79 0a | 70 72 65 74 65 6e 64 73 |Locktty.|pretends|
|000011e0| 20 74 6f 20 63 68 65 63 | 6b 20 74 68 65 20 76 61 | to chec|k the va|
|000011f0| 6c 69 64 69 74 79 20 6f | 66 20 7e 2f 2e 6c 6f 63 |lidity o|f ~/.loc|
|00001200| 6b 70 61 73 73 77 64 2c | 20 62 75 74 20 63 68 65 |kpasswd,| but che|
|00001210| 63 6b 73 20 6f 6e 6c 79 | 20 74 68 65 0a 6c 65 6e |cks only| the.len|
|00001220| 67 74 68 20 61 6e 64 20 | 74 68 65 20 63 68 61 72 |gth and |the char|
|00001230| 61 63 74 65 72 20 73 65 | 74 2e 0a 2e 53 48 20 41 |acter se|t...SH A|
|00001240| 55 54 48 4f 52 0a 4a 75 | 65 72 67 65 6e 20 4e 69 |UTHOR.Ju|ergen Ni|
|00001250| 63 6b 65 6c 73 65 6e 2c | 20 54 65 63 68 6e 69 73 |ckelsen,| Technis|
|00001260| 63 68 65 20 55 6e 69 76 | 65 72 73 69 74 61 65 74 |che Univ|ersitaet|
|00001270| 20 42 65 72 6c 69 6e 2c | 20 47 65 72 6d 61 6e 79 | Berlin,| Germany|
|00001280| 0a 2e 62 72 0a 6e 69 63 | 6b 65 6c 40 77 31 30 34 |..br.nic|kel@w104|
|00001290| 7a 72 7a 2e 7a 72 7a 2e | 74 75 2d 62 65 72 6c 69 |zrz.zrz.|tu-berli|
|000012a0| 6e 2e 64 65 0a 2e 53 48 | 20 43 4f 50 59 52 49 47 |n.de..SH| COPYRIG|
|000012b0| 48 54 53 0a 4e 6f 6e 65 | 2e 0a 53 48 41 52 5f 45 |HTS.None|..SHAR_E|
|000012c0| 4f 46 0a 63 68 6d 6f 64 | 20 30 36 34 34 20 6c 6f |OF.chmod| 0644 lo|
|000012d0| 63 6b 74 74 79 2e 31 20 | 7c 7c 0a 65 63 68 6f 20 |cktty.1 |||.echo |
|000012e0| 27 72 65 73 74 6f 72 65 | 20 6f 66 20 6c 6f 63 6b |'restore| of lock|
|000012f0| 74 74 79 2e 31 20 66 61 | 69 6c 65 64 27 0a 57 63 |tty.1 fa|iled'.Wc|
|00001300| 5f 63 3d 22 60 77 63 20 | 2d 63 20 3c 20 27 6c 6f |_c="`wc |-c < 'lo|
|00001310| 63 6b 74 74 79 2e 31 27 | 60 22 0a 74 65 73 74 20 |cktty.1'|`".test |
|00001320| 31 33 37 31 20 2d 65 71 | 20 22 24 57 63 5f 63 22 |1371 -eq| "$Wc_c"|
|00001330| 20 7c 7c 0a 09 65 63 68 | 6f 20 27 6c 6f 63 6b 74 | ||..ech|o 'lockt|
|00001340| 74 79 2e 31 3a 20 6f 72 | 69 67 69 6e 61 6c 20 73 |ty.1: or|iginal s|
|00001350| 69 7a 65 20 31 33 37 31 | 2c 20 63 75 72 72 65 6e |ize 1371|, curren|
|00001360| 74 20 73 69 7a 65 27 20 | 22 24 57 63 5f 63 22 0a |t size' |"$Wc_c".|
|00001370| 66 69 0a 23 20 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |fi.# ===|========|
|00001380| 3d 3d 20 6c 6f 63 6b 74 | 74 79 2e 63 20 3d 3d 3d |== lockt|ty.c ===|
|00001390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0a 69 66 20 74 |========|===.if t|
|000013a0| 65 73 74 20 2d 66 20 27 | 6c 6f 63 6b 74 74 79 2e |est -f '|locktty.|
|000013b0| 63 27 20 2d 61 20 58 22 | 24 31 22 20 21 3d 20 58 |c' -a X"|$1" != X|
|000013c0| 22 2d 63 22 3b 20 74 68 | 65 6e 0a 09 65 63 68 6f |"-c"; th|en..echo|
|000013d0| 20 27 78 20 2d 20 73 6b | 69 70 70 69 6e 67 20 6c | 'x - sk|ipping l|
|000013e0| 6f 63 6b 74 74 79 2e 63 | 20 28 46 69 6c 65 20 61 |ocktty.c| (File a|
|000013f0| 6c 72 65 61 64 79 20 65 | 78 69 73 74 73 29 27 0a |lready e|xists)'.|
|00001400| 65 6c 73 65 0a 65 63 68 | 6f 20 27 78 20 2d 20 65 |else.ech|o 'x - e|
|00001410| 78 74 72 61 63 74 69 6e | 67 20 6c 6f 63 6b 74 74 |xtractin|g locktt|
|00001420| 79 2e 63 20 28 54 65 78 | 74 29 27 0a 73 65 64 20 |y.c (Tex|t)'.sed |
|00001430| 27 73 2f 5e 58 2f 2f 27 | 20 3c 3c 20 27 53 48 41 |'s/^X//'| << 'SHA|
|00001440| 52 5f 45 4f 46 27 20 3e | 20 27 6c 6f 63 6b 74 74 |R_EOF' >| 'locktt|
|00001450| 79 2e 63 27 20 26 26 0a | 2f 2a 20 6c 6f 63 6b 74 |y.c' &&.|/* lockt|
|00001460| 74 79 20 2d 20 6c 6f 63 | 6b 20 74 65 72 6d 69 6e |ty - loc|k termin|
|00001470| 61 6c 20 0a 58 20 2a 0a | 58 20 2a 20 63 6f 6d 70 |al .X *.|X * comp|
|00001480| 69 6c 65 20 77 69 74 68 | 20 63 63 20 2d 6f 20 6c |ile with| cc -o l|
|00001490| 6f 63 6b 74 74 79 20 6c | 6f 63 6b 74 74 79 2e 63 |ocktty l|ocktty.c|
|000014a0| 20 2d 6c 63 75 72 73 65 | 73 20 2d 6c 74 65 72 6d | -lcurse|s -lterm|
|000014b0| 63 61 70 0a 58 20 2a 20 | 55 73 61 67 65 3a 20 6c |cap.X * |Usage: l|
|000014c0| 6f 63 6b 74 74 79 20 5b | 20 2d 70 20 5d 0a 58 20 |ocktty [| -p ].X |
|000014d0| 2a 0a 58 20 2a 20 6c 6f | 63 6b 74 74 79 20 70 75 |*.X * lo|cktty pu|
|000014e0| 74 73 20 74 68 65 20 74 | 65 72 6d 69 6e 61 6c 20 |ts the t|erminal |
|000014f0| 69 6e 74 6f 20 72 61 77 | 20 6d 6f 64 65 2c 20 63 |into raw| mode, c|
|00001500| 6c 65 61 72 73 20 74 68 | 65 20 73 63 72 65 65 6e |lears th|e screen|
|00001510| 2c 20 61 6e 64 0a 58 20 | 2a 20 70 72 6f 6d 70 74 |, and.X |* prompt|
|00001520| 73 20 74 68 65 20 75 73 | 65 72 20 66 6f 72 20 61 |s the us|er for a|
|00001530| 20 70 61 73 73 77 6f 72 | 64 2e 20 45 6e 74 65 72 | passwor|d. Enter|
|00001540| 65 64 20 70 61 73 73 77 | 6f 72 64 73 20 61 72 65 |ed passw|ords are|
|00001550| 20 63 72 79 70 74 65 64 | 20 61 6e 64 0a 58 20 2a | crypted| and.X *|
|00001560| 20 63 68 65 63 6b 65 64 | 20 61 67 61 69 6e 73 74 | checked| against|
|00001570| 20 61 20 63 72 79 70 74 | 65 64 20 70 61 73 73 77 | a crypt|ed passw|
|00001580| 6f 72 64 20 69 6e 20 61 | 20 66 69 6c 65 20 69 6e |ord in a| file in|
|00001590| 20 74 68 65 20 75 73 65 | 72 73 27 20 68 6f 6d 65 | the use|rs' home|
|000015a0| 0a 58 20 2a 20 64 69 72 | 65 63 74 6f 72 79 20 28 |.X * dir|ectory (|
|000015b0| 7e 2f 2e 6c 6f 63 6b 70 | 61 73 73 77 64 29 2e 20 |~/.lockp|asswd). |
|000015c0| 49 66 20 74 68 65 20 63 | 6f 72 72 65 63 74 20 70 |If the c|orrect p|
|000015d0| 61 73 73 77 6f 72 64 20 | 69 73 20 67 69 76 65 6e |assword |is given|
|000015e0| 2c 20 74 68 65 0a 58 20 | 2a 20 74 65 72 6d 69 6e |, the.X |* termin|
|000015f0| 61 6c 20 69 73 20 73 65 | 74 20 69 6e 74 6f 20 6e |al is se|t into n|
|00001600| 6f 72 6d 61 6c 20 73 74 | 61 74 65 20 61 67 61 69 |ormal st|ate agai|
|00001610| 6e 2e 20 49 66 20 6e 6f | 74 2c 20 61 20 6d 65 73 |n. If no|t, a mes|
|00001620| 73 67 61 65 20 69 73 0a | 58 20 2a 20 67 69 76 65 |sgae is.|X * give|
|00001630| 6e 2c 20 61 6e 64 20 61 | 66 74 65 72 20 73 6f 6d |n, and a|fter som|
|00001640| 65 20 74 69 6d 65 20 61 | 20 6e 65 77 20 70 61 73 |e time a| new pas|
|00001650| 73 77 6f 72 64 20 69 73 | 20 72 65 61 64 2e 0a 58 |sword is| read..X|
|00001660| 20 2a 20 49 66 20 74 68 | 65 20 66 69 6c 65 20 7e | * If th|e file ~|
|00001670| 2f 2e 6c 6f 63 6b 70 61 | 73 73 77 64 20 64 6f 65 |/.lockpa|sswd doe|
|00001680| 73 20 6e 6f 74 20 65 78 | 69 73 74 2c 20 74 68 65 |s not ex|ist, the|
|00001690| 20 75 73 65 72 20 69 73 | 20 70 72 6f 6d 70 74 65 | user is| prompte|
|000016a0| 64 20 66 6f 72 0a 58 20 | 2a 20 61 20 70 61 73 73 |d for.X |* a pass|
|000016b0| 77 6f 72 64 20 74 77 69 | 63 65 20 62 65 66 6f 72 |word twi|ce befor|
|000016c0| 65 20 74 68 65 20 73 63 | 72 65 65 6e 20 69 73 20 |e the sc|reen is |
|000016d0| 6c 6f 63 6b 65 64 2e 20 | 54 68 69 73 20 70 61 73 |locked. |This pas|
|000016e0| 73 77 6f 72 64 20 69 73 | 0a 58 20 2a 20 63 72 79 |sword is|.X * cry|
|000016f0| 70 74 65 64 20 61 6e 64 | 20 73 74 6f 72 65 64 20 |pted and| stored |
|00001700| 69 6e 20 7e 2f 2e 6c 6f | 63 6b 70 61 73 73 77 64 |in ~/.lo|ckpasswd|
|00001710| 2e 0a 58 20 2a 20 54 68 | 65 20 65 6e 63 72 79 70 |..X * Th|e encryp|
|00001720| 74 65 64 20 70 61 73 73 | 77 6f 72 64 20 69 6e 20 |ted pass|word in |
|00001730| 7e 2f 2e 6c 6f 63 6b 70 | 61 73 73 77 64 20 63 61 |~/.lockp|asswd ca|
|00001740| 6e 20 62 65 20 63 68 61 | 6e 67 65 64 20 62 79 20 |n be cha|nged by |
|00001750| 69 6e 76 6f 6b 69 6e 67 | 0a 58 20 2a 20 6c 6f 63 |invoking|.X * loc|
|00001760| 6b 74 74 79 20 77 69 74 | 68 20 74 68 65 20 2d 70 |ktty wit|h the -p|
|00001770| 20 6f 70 74 69 6f 6e 2e | 0a 58 20 2a 0a 58 20 2a | option.|.X *.X *|
|00001780| 20 50 6c 65 61 73 65 20 | 73 65 6e 64 20 63 6f 72 | Please |send cor|
|00001790| 72 65 63 74 69 6f 6e 73 | 2c 20 69 6d 70 72 6f 76 |rections|, improv|
|000017a0| 65 6d 65 6e 74 73 2c 20 | 61 6e 64 20 66 6c 61 6d |ements, |and flam|
|000017b0| 65 73 20 74 6f 0a 58 20 | 2a 09 6e 69 63 6b 65 6c |es to.X |*.nickel|
|000017c0| 40 77 31 30 34 7a 72 7a | 2e 7a 72 7a 2e 74 75 2d |@w104zrz|.zrz.tu-|
|000017d0| 62 65 72 6c 69 6e 2e 64 | 65 20 28 4a 75 65 72 67 |berlin.d|e (Juerg|
|000017e0| 65 6e 20 4e 69 63 6b 65 | 6c 73 65 6e 29 0a 58 20 |en Nicke|lsen).X |
|000017f0| 2a 2f 0a 58 0a 23 69 6e | 63 6c 75 64 65 20 3c 63 |*/.X.#in|clude <c|
|00001800| 75 72 73 65 73 2e 68 3e | 0a 23 69 6e 63 6c 75 64 |urses.h>|.#includ|
|00001810| 65 20 3c 73 69 67 6e 61 | 6c 2e 68 3e 0a 23 69 6e |e <signa|l.h>.#in|
|00001820| 63 6c 75 64 65 20 3c 73 | 74 64 69 6f 2e 68 3e 0a |clude <s|tdio.h>.|
|00001830| 23 69 6e 63 6c 75 64 65 | 20 3c 65 72 72 6e 6f 2e |#include| <errno.|
|00001840| 68 3e 0a 23 69 6e 63 6c | 75 64 65 20 3c 66 63 6e |h>.#incl|ude <fcn|
|00001850| 74 6c 2e 68 3e 0a 23 69 | 6e 63 6c 75 64 65 20 3c |tl.h>.#i|nclude <|
|00001860| 73 74 72 69 6e 67 2e 68 | 3e 0a 58 0a 23 64 65 66 |string.h|>.X.#def|
|00001870| 69 6e 65 20 74 72 75 65 | 09 31 0a 23 64 65 66 69 |ine true|.1.#defi|
|00001880| 6e 65 20 66 61 6c 73 65 | 09 30 0a 58 0a 23 64 65 |ne false|.0.X.#de|
|00001890| 66 69 6e 65 20 53 49 5a | 45 09 31 30 32 34 09 09 |fine SIZ|E.1024..|
|000018a0| 2f 2a 20 6d 61 78 69 6d | 75 6d 20 73 69 7a 65 20 |/* maxim|um size |
|000018b0| 66 6f 72 20 70 61 73 73 | 77 6f 72 64 20 2a 2f 0a |for pass|word */.|
|000018c0| 23 64 65 66 69 6e 65 20 | 50 46 49 4c 45 09 22 2e |#define |PFILE.".|
|000018d0| 6c 6f 63 6b 70 61 73 73 | 77 64 22 09 2f 2a 20 6e |lockpass|wd"./* n|
|000018e0| 61 6d 65 20 6f 66 20 70 | 61 73 73 77 6f 72 64 20 |ame of p|assword |
|000018f0| 66 69 6c 65 20 2a 2f 0a | 23 64 65 66 69 6e 65 20 |file */.|#define |
|00001900| 4d 41 58 50 41 54 48 4c | 45 4e 09 34 30 39 36 09 |MAXPATHL|EN.4096.|
|00001910| 2f 2a 20 74 68 69 73 20 | 73 68 6f 75 6c 64 20 65 |/* this |should e|
|00001920| 78 63 65 65 64 20 74 68 | 65 20 72 65 61 6c 20 76 |xceed th|e real v|
|00001930| 61 6c 75 65 0a 58 09 09 | 09 09 20 2a 20 6f 6e 20 |alue.X..|.. * on |
|00001940| 6e 65 61 72 6c 79 20 61 | 6c 6c 20 6d 61 63 68 69 |nearly a|ll machi|
|00001950| 6e 65 73 20 2a 2f 0a 23 | 64 65 66 69 6e 65 20 43 |nes */.#|define C|
|00001960| 4c 45 4e 09 31 34 09 09 | 2f 2a 20 65 6e 6f 75 67 |LEN.14..|/* enoug|
|00001970| 68 20 66 6f 72 20 74 68 | 65 20 63 72 79 70 74 65 |h for th|e crypte|
|00001980| 64 20 70 77 64 27 73 20 | 2a 2f 0a 23 64 65 66 69 |d pwd's |*/.#defi|
|00001990| 6e 65 20 4c 4f 43 4b 50 | 09 22 55 6e 6c 6f 63 6b |ne LOCKP|."Unlock|
|000019a0| 3a 20 22 09 2f 2a 20 70 | 72 6f 6d 70 74 20 69 6e |: "./* p|rompt in|
|000019b0| 20 22 6c 6f 63 6b 22 20 | 6d 6f 64 65 20 2a 2f 0a | "lock" |mode */.|
|000019c0| 23 64 65 66 69 6e 65 20 | 53 41 4c 54 43 09 5c 0a |#define |SALTC.\.|
|000019d0| 58 09 22 61 62 63 64 65 | 66 67 68 69 6a 6b 6c 6d |X."abcde|fghijklm|
|000019e0| 6e 6f 70 71 72 73 74 75 | 76 77 78 79 7a 41 42 43 |nopqrstu|vwxyzABC|
|000019f0| 44 45 46 47 48 49 4a 4b | 4c 4d 4e 4f 50 51 52 53 |DEFGHIJK|LMNOPQRS|
|00001a00| 54 55 56 57 58 59 5a 30 | 31 32 33 34 35 36 37 38 |TUVWXYZ0|12345678|
|00001a10| 39 2e 2f 22 0a 58 09 09 | 09 09 2f 2a 20 63 68 61 |9./".X..|../* cha|
|00001a20| 72 61 63 74 65 72 73 20 | 74 68 61 74 20 6d 61 79 |racters |that may|
|00001a30| 20 61 70 70 65 61 72 20 | 69 6e 20 74 68 65 20 73 | appear |in the s|
|00001a40| 61 6c 74 20 2a 2f 0a 63 | 68 61 72 0a 58 20 20 20 |alt */.c|har.X   |
|00001a50| 20 2a 70 72 6f 67 6e 61 | 6d 65 2c 09 09 09 2f 2a | *progna|me,.../*|
|00001a60| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 65 | the nam|e of the|
|00001a70| 20 67 61 6d 65 20 2a 2f | 0a 58 20 20 20 20 6e 65 | game */|.X    ne|
|00001a80| 77 63 5b 43 4c 45 4e 20 | 2b 20 31 5d 2c 09 09 2f |wc[CLEN |+ 1],../|
|00001a90| 2a 20 65 6e 74 65 72 65 | 64 20 70 77 64 20 28 63 |* entere|d pwd (c|
|00001aa0| 72 79 70 74 65 64 29 20 | 2a 2f 0a 58 20 20 20 20 |rypted) |*/.X    |
|00001ab0| 6f 6c 64 63 5b 43 4c 45 | 4e 20 2b 20 31 5d 2c 09 |oldc[CLE|N + 1],.|
|00001ac0| 09 2f 2a 20 6f 6c 64 20 | 70 77 64 20 28 63 72 79 |./* old |pwd (cry|
|00001ad0| 70 74 65 64 29 20 2a 2f | 0a 58 20 20 20 20 70 66 |pted) */|.X    pf|
|00001ae0| 69 6c 6e 61 6d 5b 4d 41 | 58 50 41 54 48 4c 45 4e |ilnam[MA|XPATHLEN|
|00001af0| 5d 20 3b 09 2f 2a 20 6e | 61 6d 65 20 6f 66 20 70 |] ;./* n|ame of p|
|00001b00| 61 73 73 77 6f 72 64 20 | 66 69 6c 65 20 2a 2f 0a |assword |file */.|
|00001b10| 58 0a 58 0a 6d 61 69 6e | 28 61 72 67 63 2c 20 61 |X.X.main|(argc, a|
|00001b20| 72 67 76 29 0a 69 6e 74 | 20 61 72 67 63 20 3b 0a |rgv).int| argc ;.|
|00001b30| 63 68 61 72 20 2a 2a 61 | 72 67 76 20 3b 0a 7b 0a |char **a|rgv ;.{.|
|00001b40| 58 20 20 20 20 63 68 61 | 72 20 0a 58 09 74 6d 70 |X    cha|r .X.tmp|
|00001b50| 6c 5b 53 49 5a 45 2b 31 | 5d 2c 09 09 2f 2a 20 73 |l[SIZE+1|],../* s|
|00001b60| 70 61 63 65 20 66 6f 72 | 20 72 65 61 64 69 6e 67 |pace for| reading|
|00001b70| 20 66 72 6f 6d 20 74 65 | 72 6d 69 6e 61 6c 20 2a | from te|rminal *|
|00001b80| 2f 0a 58 09 2a 73 6c 70 | 20 3b 09 09 09 2f 2a 20 |/.X.*slp| ;.../* |
|00001b90| 70 6f 69 6e 74 65 72 20 | 74 6f 20 73 6c 61 73 68 |pointer |to slash|
|00001ba0| 20 69 6e 20 70 72 6f 67 | 6e 61 6d 65 20 2a 2f 0a | in prog|name */.|
|00001bb0| 58 20 20 20 20 69 6e 74 | 20 70 77 64 66 69 6c 65 |X    int| pwdfile|
|00001bc0| 20 3b 09 09 2f 2a 20 72 | 65 61 64 20 68 61 6e 64 | ;../* r|ead hand|
|00001bd0| 6c 65 20 66 6f 72 20 70 | 61 73 73 77 6f 72 64 20 |le for p|assword |
|00001be0| 66 69 6c 65 20 2a 2f 0a | 58 0a 58 20 20 20 20 2f |file */.|X.X    /|
|00001bf0| 2a 20 64 65 74 65 72 6d | 69 6e 65 20 6e 61 6d 65 |* determ|ine name|
|00001c00| 20 6f 66 20 70 72 6f 67 | 72 61 6d 20 2a 2f 0a 58 | of prog|ram */.X|
|00001c10| 20 20 20 20 70 72 6f 67 | 6e 61 6d 65 20 3d 20 2a |    prog|name = *|
|00001c20| 61 72 67 76 20 3b 0a 58 | 20 20 20 20 69 66 20 28 |argv ;.X|    if (|
|00001c30| 73 6c 70 20 3d 20 73 74 | 72 72 63 68 72 28 70 72 |slp = st|rrchr(pr|
|00001c40| 6f 67 6e 61 6d 65 2c 20 | 27 2f 27 29 29 20 7b 0a |ogname, |'/')) {.|
|00001c50| 58 09 70 72 6f 67 6e 61 | 6d 65 20 3d 20 73 6c 70 |X.progna|me = slp|
|00001c60| 20 2b 20 31 20 3b 0a 58 | 20 20 20 20 7d 0a 58 0a | + 1 ;.X|    }.X.|
|00001c70| 58 20 20 20 20 2f 2a 20 | 62 75 69 6c 64 20 6e 61 |X    /* |build na|
|00001c80| 6d 65 20 6f 66 20 70 61 | 73 73 77 6f 72 64 20 66 |me of pa|ssword f|
|00001c90| 69 6c 65 20 2a 2f 0a 58 | 20 20 20 20 73 74 72 63 |ile */.X|    strc|
|00001ca0| 70 79 28 70 66 69 6c 6e | 61 6d 2c 20 67 65 74 65 |py(pfiln|am, gete|
|00001cb0| 6e 76 28 22 48 4f 4d 45 | 22 29 29 20 3b 0a 58 20 |nv("HOME|")) ;.X |
|00001cc0| 20 20 20 73 74 72 63 61 | 74 28 70 66 69 6c 6e 61 |   strca|t(pfilna|
|00001cd0| 6d 2c 20 22 2f 22 29 20 | 3b 0a 58 20 20 20 20 73 |m, "/") |;.X    s|
|00001ce0| 74 72 63 61 74 28 70 66 | 69 6c 6e 61 6d 2c 20 50 |trcat(pf|ilnam, P|
|00001cf0| 46 49 4c 45 29 20 3b 0a | 58 0a 58 20 20 20 20 70 |FILE) ;.|X.X    p|
|00001d00| 72 65 70 74 65 72 6d 28 | 29 20 3b 09 09 2f 2a 20 |repterm(|) ;../* |
|00001d10| 70 72 65 70 61 72 65 20 | 74 65 72 6d 69 6e 61 6c |prepare |terminal|
|00001d20| 20 2a 2f 0a 58 0a 58 20 | 20 20 20 69 66 20 28 61 | */.X.X |   if (a|
|00001d30| 72 67 63 20 3e 20 31 29 | 20 7b 09 09 2f 2a 20 63 |rgc > 1)| {../* c|
|00001d40| 68 65 63 6b 20 61 72 67 | 75 6d 65 6e 74 73 20 2a |heck arg|uments *|
|00001d50| 2f 0a 58 09 69 66 20 28 | 73 74 72 63 6d 70 28 61 |/.X.if (|strcmp(a|
|00001d60| 72 67 76 5b 31 5d 2c 20 | 22 2d 70 22 29 20 7c 7c |rgv[1], |"-p") |||
|00001d70| 20 61 72 67 63 20 21 3d | 20 32 29 20 7b 0a 58 09 | argc !=| 2) {.X.|
|00001d80| 20 20 20 20 72 65 73 65 | 74 28 29 20 3b 0a 58 09 |    rese|t() ;.X.|
|00001d90| 20 20 20 20 75 73 61 67 | 65 28 29 20 3b 0a 58 09 |    usag|e() ;.X.|
|00001da0| 20 20 20 20 65 78 69 74 | 28 31 29 20 3b 0a 58 09 |    exit|(1) ;.X.|
|00001db0| 7d 20 65 6c 73 65 20 7b | 0a 58 09 20 20 20 20 6e |} else {|.X.    n|
|00001dc0| 65 77 70 77 64 66 69 6c | 65 28 29 20 3b 09 2f 2a |ewpwdfil|e() ;./*|
|00001dd0| 20 2d 70 3a 20 6e 65 77 | 20 70 61 73 73 77 6f 72 | -p: new| passwor|
|00001de0| 64 20 2a 2f 0a 58 09 7d | 0a 58 20 20 20 20 7d 0a |d */.X.}|.X    }.|
|00001df0| 58 0a 58 20 20 20 20 2f | 2a 20 4f 70 65 6e 20 70 |X.X    /|* Open p|
|00001e00| 61 73 73 77 6f 72 64 20 | 66 69 6c 65 2e 20 49 66 |assword |file. If|
|00001e10| 20 69 74 20 64 6f 65 73 | 20 6e 6f 74 20 65 78 69 | it does| not exi|
|00001e20| 73 74 2c 20 63 72 65 61 | 74 65 20 69 74 20 66 69 |st, crea|te it fi|
|00001e30| 72 73 74 2e 20 2a 2f 0a | 58 20 20 20 20 64 6f 20 |rst. */.|X    do |
|00001e40| 7b 0a 58 09 69 66 20 28 | 28 70 77 64 66 69 6c 65 |{.X.if (|(pwdfile|
|00001e50| 20 3d 20 6f 70 65 6e 28 | 70 66 69 6c 6e 61 6d 2c | = open(|pfilnam,|
|00001e60| 20 4f 5f 52 44 4f 4e 4c | 59 29 29 20 3d 3d 20 2d | O_RDONL|Y)) == -|
|00001e70| 31 29 20 7b 0a 58 09 20 | 20 20 20 69 66 20 28 65 |1) {.X. |   if (e|
|00001e80| 72 72 6e 6f 20 3d 3d 20 | 45 4e 4f 45 4e 54 29 20 |rrno == |ENOENT) |
|00001e90| 7b 0a 58 09 09 70 75 74 | 73 28 22 4e 6f 20 70 61 |{.X..put|s("No pa|
|00001ea0| 73 73 77 6f 72 64 20 66 | 69 6c 65 2e 5c 72 22 29 |ssword f|ile.\r")|
|00001eb0| 20 3b 0a 58 09 09 6e 65 | 77 70 77 64 66 69 6c 65 | ;.X..ne|wpwdfile|
|00001ec0| 28 29 20 3b 0a 58 09 20 | 20 20 20 7d 20 65 6c 73 |() ;.X. |   } els|
|00001ed0| 65 20 7b 0a 58 09 09 70 | 65 72 72 6f 72 28 70 66 |e {.X..p|error(pf|
|00001ee0| 69 6c 6e 61 6d 29 20 3b | 0a 58 09 09 72 65 73 65 |ilnam) ;|.X..rese|
|00001ef0| 74 28 29 20 3b 0a 58 09 | 09 65 78 69 74 28 65 72 |t() ;.X.|.exit(er|
|00001f00| 72 6e 6f 29 20 3b 0a 58 | 09 20 20 20 20 7d 0a 58 |rno) ;.X|.    }.X|
|00001f10| 09 7d 0a 58 20 20 20 20 | 7d 20 77 68 69 6c 65 20 |.}.X    |} while |
|00001f20| 28 70 77 64 66 69 6c 65 | 20 3d 3d 20 2d 31 29 20 |(pwdfile| == -1) |
|00001f30| 3b 0a 58 20 20 20 20 0a | 58 20 20 20 20 2f 2a 20 |;.X    .|X    /* |
|00001f40| 72 65 61 64 20 61 6e 64 | 20 63 68 65 63 6b 20 6f |read and| check o|
|00001f50| 6c 64 20 63 72 79 70 74 | 20 2a 2f 0a 58 20 20 20 |ld crypt| */.X   |
|00001f60| 20 69 66 20 28 72 65 61 | 64 28 70 77 64 66 69 6c | if (rea|d(pwdfil|
|00001f70| 65 2c 20 6f 6c 64 63 2c | 20 43 4c 45 4e 29 20 21 |e, oldc,| CLEN) !|
|00001f80| 3d 20 43 4c 45 4e 20 7c | 7c 20 63 68 65 63 6b 6f |= CLEN ||| checko|
|00001f90| 6c 64 63 28 29 29 20 7b | 0a 58 09 66 70 75 74 73 |ldc()) {|.X.fputs|
|00001fa0| 28 22 7e 2f 22 2c 20 73 | 74 64 6f 75 74 29 20 3b |("~/", s|tdout) ;|
|00001fb0| 0a 58 09 66 70 75 74 73 | 28 50 46 49 4c 45 2c 20 |.X.fputs|(PFILE, |
|00001fc0| 73 74 64 6f 75 74 29 20 | 3b 0a 58 09 70 75 74 73 |stdout) |;.X.puts|
|00001fd0| 28 22 20 69 6e 20 77 72 | 6f 6e 67 20 66 6f 72 6d |(" in wr|ong form|
|00001fe0| 61 74 5c 72 22 29 20 3b | 0a 58 09 72 65 73 65 74 |at\r") ;|.X.reset|
|00001ff0| 28 29 20 3b 0a 58 09 65 | 78 69 74 28 33 29 20 3b |() ;.X.e|xit(3) ;|
|00002000| 0a 58 20 20 20 20 7d 0a | 58 0a 58 20 20 20 20 2f |.X    }.|X.X    /|
|00002010| 2a 20 63 6c 65 61 72 20 | 73 63 72 65 65 6e 20 61 |* clear |screen a|
|00002020| 6e 64 20 72 65 61 64 20 | 70 61 73 73 77 6f 72 64 |nd read |password|
|00002030| 20 2a 2f 0a 58 20 20 20 | 20 64 6f 20 7b 0a 58 09 | */.X   | do {.X.|
|00002040| 63 6c 65 61 72 28 29 20 | 3b 0a 58 09 72 65 66 72 |clear() |;.X.refr|
|00002050| 65 73 68 28 29 20 3b 0a | 58 09 66 70 75 74 73 28 |esh() ;.|X.fputs(|
|00002060| 4c 4f 43 4b 50 2c 20 73 | 74 64 6f 75 74 29 20 3b |LOCKP, s|tdout) ;|
|00002070| 0a 58 0a 58 09 72 65 61 | 64 70 61 73 73 28 74 6d |.X.X.rea|dpass(tm|
|00002080| 70 6c 2c 20 66 61 6c 73 | 65 29 20 3b 0a 58 09 73 |pl, fals|e) ;.X.s|
|00002090| 74 72 63 70 79 28 6e 65 | 77 63 2c 20 63 72 79 70 |trcpy(ne|wc, cryp|
|000020a0| 74 28 74 6d 70 6c 2c 20 | 6f 6c 64 63 29 29 20 3b |t(tmpl, |oldc)) ;|
|000020b0| 0a 58 20 20 20 20 7d 20 | 77 68 69 6c 65 20 28 73 |.X    } |while (s|
|000020c0| 74 72 63 6d 70 28 6e 65 | 77 63 2c 20 6f 6c 64 63 |trcmp(ne|wc, oldc|
|000020d0| 29 20 26 26 20 28 70 75 | 74 73 28 22 5c 72 5c 6e |) && (pu|ts("\r\n|
|000020e0| 4e 6f 20 77 61 79 2e 5c | 72 22 29 2c 20 73 6c 65 |No way.\|r"), sle|
|000020f0| 65 70 28 33 29 2c 20 31 | 29 29 20 3b 0a 58 0a 58 |ep(3), 1|)) ;.X.X|
|00002100| 20 20 20 20 2f 2a 20 72 | 65 61 64 79 20 2a 2f 0a |    /* r|eady */.|
|00002110| 58 20 20 20 20 72 65 73 | 65 74 28 29 20 3b 0a 58 |X    res|et() ;.X|
|00002120| 20 20 20 20 65 78 69 74 | 28 30 29 20 3b 0a 7d 0a |    exit|(0) ;.}.|
|00002130| 58 0a 58 0a 2f 2a 20 72 | 65 61 64 20 61 20 6c 69 |X.X./* r|ead a li|
|00002140| 6e 65 20 69 6e 20 72 61 | 77 20 6d 6f 64 65 2c 20 |ne in ra|w mode, |
|00002150| 74 65 72 6d 69 6e 61 74 | 65 64 20 62 79 20 6e 65 |terminat|ed by ne|
|00002160| 77 6c 69 6e 65 20 6f 72 | 20 63 61 72 72 69 61 67 |wline or| carriag|
|00002170| 65 20 72 65 74 75 72 6e | 0a 58 20 2a 20 6f 72 20 |e return|.X * or |
|00002180| 65 78 63 65 65 64 69 6e | 67 20 53 49 5a 45 2e 20 |exceedin|g SIZE. |
|00002190| 43 61 6e 20 67 65 74 20 | 69 6e 74 65 72 72 75 70 |Can get |interrup|
|000021a0| 74 65 64 20 62 79 20 43 | 74 72 6c 2d 43 20 69 66 |ted by C|trl-C if|
|000021b0| 20 69 6e 74 72 20 21 3d | 20 30 2e 20 2a 2f 0a 72 | intr !=| 0. */.r|
|000021c0| 65 61 64 70 61 73 73 28 | 70 2c 20 69 6e 74 72 29 |eadpass(|p, intr)|
|000021d0| 0a 63 68 61 72 20 2a 70 | 20 3b 0a 69 6e 74 20 69 |.char *p| ;.int i|
|000021e0| 6e 74 72 20 3b 0a 7b 0a | 58 20 20 20 20 69 6e 74 |ntr ;.{.|X    int|
|000021f0| 20 6e 20 3b 0a 58 20 20 | 20 20 63 68 61 72 20 63 | n ;.X  |  char c|
|00002200| 20 3d 20 27 20 27 20 3b | 0a 58 0a 58 20 20 20 20 | = ' ' ;|.X.X    |
|00002210| 66 6f 72 20 28 6e 20 3d | 20 30 3b 20 6e 20 3c 20 |for (n =| 0; n < |
|00002220| 53 49 5a 45 20 26 26 20 | 63 20 21 3d 20 27 5c 72 |SIZE && |c != '\r|
|00002230| 27 20 26 26 20 63 20 21 | 3d 20 27 5c 6e 27 3b 20 |' && c !|= '\n'; |
|00002240| 6e 2b 2b 29 20 7b 0a 58 | 09 63 20 3d 20 70 5b 6e |n++) {.X|.c = p[n|
|00002250| 5d 20 3d 20 67 65 74 63 | 68 61 72 28 29 20 3b 0a |] = getc|har() ;.|
|00002260| 58 09 69 66 20 28 69 6e | 74 72 20 26 26 20 63 20 |X.if (in|tr && c |
|00002270| 3d 3d 20 27 5c 30 30 33 | 27 29 20 7b 0a 58 09 20 |== '\003|') {.X. |
|00002280| 20 20 20 72 65 73 65 74 | 28 29 20 3b 0a 58 09 20 |   reset|() ;.X. |
|00002290| 20 20 20 65 78 69 74 28 | 31 29 20 3b 0a 58 09 7d |   exit(|1) ;.X.}|
|000022a0| 0a 58 20 20 20 20 7d 0a | 58 20 20 20 20 70 5b 6e |.X    }.|X    p[n|
|000022b0| 5d 20 3d 20 27 5c 30 27 | 20 3b 0a 7d 0a 58 0a 58 |] = '\0'| ;.}.X.X|
|000022c0| 0a 2f 2a 20 70 72 65 70 | 61 72 65 20 74 65 72 6d |./* prep|are term|
|000022d0| 69 6e 61 6c 3a 20 6f 70 | 65 6e 20 73 74 64 69 6e |inal: op|en stdin|
|000022e0| 20 61 6e 64 20 73 74 64 | 6f 75 74 20 74 6f 20 2f | and std|out to /|
|000022f0| 64 65 76 2f 74 74 79 2c | 20 64 6f 6e 27 74 20 65 |dev/tty,| don't e|
|00002300| 63 68 6f 20 2a 2f 0a 2f | 2a 20 63 68 61 72 61 63 |cho */./|* charac|
|00002310| 74 65 72 73 20 61 6e 64 | 20 6d 61 6b 65 20 73 75 |ters and| make su|
|00002320| 72 65 20 77 65 20 67 65 | 74 20 6e 6f 20 73 69 67 |re we ge|t no sig|
|00002330| 6e 61 6c 20 28 72 61 77 | 20 6d 6f 64 65 20 2b 20 |nal (raw| mode + |
|00002340| 73 6f 6d 65 20 68 65 6c | 70 29 2e 20 2a 2f 0a 70 |some hel|p). */.p|
|00002350| 72 65 70 74 65 72 6d 28 | 29 0a 7b 0a 58 20 20 20 |repterm(|).{.X   |
|00002360| 20 69 6e 74 20 69 6e 20 | 3b 0a 58 0a 58 20 20 20 | int in |;.X.X   |
|00002370| 20 2f 2a 20 77 65 20 77 | 61 6e 74 20 74 6f 20 72 | /* we w|ant to r|
|00002380| 65 61 64 20 74 68 65 20 | 70 61 73 73 77 6f 72 64 |ead the |password|
|00002390| 20 4f 4e 4c 59 20 66 72 | 6f 6d 20 61 20 74 65 72 | ONLY fr|om a ter|
|000023a0| 6d 69 6e 61 6c 20 2a 2f | 0a 58 20 20 20 20 69 66 |minal */|.X    if|
|000023b0| 20 28 28 69 6e 20 3d 20 | 6f 70 65 6e 28 22 2f 64 | ((in = |open("/d|
|000023c0| 65 76 2f 74 74 79 22 2c | 20 4f 5f 52 44 57 52 29 |ev/tty",| O_RDWR)|
|000023d0| 29 20 3d 3d 20 2d 31 29 | 20 7b 0a 58 09 70 65 72 |) == -1)| {.X.per|
|000023e0| 72 6f 72 28 22 2f 64 65 | 76 2f 74 74 79 22 29 20 |ror("/de|v/tty") |
|000023f0| 3b 0a 58 09 65 78 69 74 | 28 31 29 20 3b 0a 58 20 |;.X.exit|(1) ;.X |
|00002400| 20 20 20 7d 0a 58 20 20 | 20 20 63 6c 6f 73 65 28 |   }.X  |  close(|
|00002410| 30 29 20 3b 0a 58 20 20 | 20 20 64 75 70 28 69 6e |0) ;.X  |  dup(in|
|00002420| 29 20 3b 0a 58 20 20 20 | 20 63 6c 6f 73 65 28 31 |) ;.X   | close(1|
|00002430| 29 20 3b 0a 58 20 20 20 | 20 64 75 70 28 69 6e 29 |) ;.X   | dup(in)|
|00002440| 20 3b 0a 58 20 20 20 20 | 63 6c 6f 73 65 28 32 29 | ;.X    |close(2)|
|00002450| 20 3b 0a 58 20 20 20 20 | 64 75 70 28 69 6e 29 20 | ;.X    |dup(in) |
|00002460| 3b 0a 58 0a 58 20 20 20 | 20 2f 2a 20 6d 61 6b 65 |;.X.X   | /* make|
|00002470| 20 73 75 72 65 20 77 65 | 20 77 6f 6e 27 74 20 67 | sure we| won't g|
|00002480| 65 74 20 69 6e 74 65 72 | 72 75 70 74 65 64 20 2a |et inter|rupted *|
|00002490| 2f 0a 58 20 20 20 20 69 | 6e 69 74 73 63 72 28 29 |/.X    i|nitscr()|
|000024a0| 20 3b 0a 58 20 20 20 20 | 72 61 77 28 29 20 3b 0a | ;.X    |raw() ;.|
|000024b0| 58 20 20 20 20 2f 2a 20 | 74 68 65 20 62 72 65 61 |X    /* |the brea|
|000024c0| 6b 20 6b 65 79 20 6f 6e | 20 49 53 43 27 73 20 61 |k key on| ISC's a|
|000024d0| 74 33 38 36 20 63 6f 6e | 73 6f 6c 65 20 67 65 6e |t386 con|sole gen|
|000024e0| 65 72 61 74 65 73 20 61 | 20 53 49 47 49 4e 54 20 |erates a| SIGINT |
|000024f0| 65 76 65 6e 20 69 6e 0a | 58 20 20 20 20 20 2a 20 |even in.|X     * |
|00002500| 72 61 77 20 6d 6f 64 65 | 20 2a 2f 0a 58 20 20 20 |raw mode| */.X   |
|00002510| 20 73 69 67 6e 61 6c 28 | 53 49 47 49 4e 54 2c 20 | signal(|SIGINT, |
|00002520| 53 49 47 5f 49 47 4e 29 | 20 3b 0a 58 0a 58 20 20 |SIG_IGN)| ;.X.X  |
|00002530| 20 20 2f 2a 20 64 6f 6e | 27 74 20 65 63 68 6f 20 |  /* don|'t echo |
|00002540| 6b 65 79 73 74 72 6f 6b | 65 73 20 2a 2f 0a 58 20 |keystrok|es */.X |
|00002550| 20 20 20 6e 6f 65 63 68 | 6f 28 29 20 3b 0a 7d 0a |   noech|o() ;.}.|
|00002560| 58 0a 58 0a 2f 2a 20 70 | 75 74 20 74 65 72 6d 69 |X.X./* p|ut termi|
|00002570| 6e 61 6c 20 69 6e 74 6f | 20 61 20 73 74 61 74 65 |nal into| a state|
|00002580| 20 74 68 65 20 75 73 65 | 72 20 69 73 20 73 75 70 | the use|r is sup|
|00002590| 70 6f 73 65 64 20 74 6f | 20 77 61 6e 74 20 61 66 |posed to| want af|
|000025a0| 74 65 72 20 74 68 65 20 | 2a 2f 0a 2f 2a 20 74 65 |ter the |*/./* te|
|000025b0| 72 6d 69 6e 61 74 69 6f | 6e 20 6f 66 20 74 68 65 |rminatio|n of the|
|000025c0| 20 70 72 6f 67 72 61 6d | 2e 20 2a 2f 0a 72 65 73 | program|. */.res|
|000025d0| 65 74 28 29 0a 7b 0a 58 | 20 20 20 20 63 6c 65 61 |et().{.X|    clea|
|000025e0| 72 28 29 20 3b 0a 58 20 | 20 20 20 6e 6f 72 61 77 |r() ;.X |   noraw|
|000025f0| 28 29 20 3b 0a 58 20 20 | 20 20 65 63 68 6f 28 29 |() ;.X  |  echo()|
|00002600| 20 3b 0a 58 20 20 20 20 | 65 6e 64 77 69 6e 28 29 | ;.X    |endwin()|
|00002610| 20 3b 0a 58 20 20 20 20 | 70 75 74 63 68 61 72 28 | ;.X    |putchar(|
|00002620| 27 5c 72 27 29 20 3b 0a | 58 0a 7d 0a 58 0a 58 0a |'\r') ;.|X.}.X.X.|
|00002630| 2f 2a 20 63 72 65 61 74 | 65 20 61 20 6e 65 77 20 |/* creat|e a new |
|00002640| 70 61 73 73 77 6f 72 64 | 20 66 69 6c 65 20 2a 2f |password| file */|
|00002650| 0a 6e 65 77 70 77 64 66 | 69 6c 65 28 29 0a 7b 0a |.newpwdf|ile().{.|
|00002660| 58 20 20 20 20 63 68 61 | 72 20 74 6d 70 6c 5b 53 |X    cha|r tmpl[S|
|00002670| 49 5a 45 2b 31 5d 2c 20 | 73 61 6c 74 5b 33 5d 20 |IZE+1], |salt[3] |
|00002680| 3b 0a 58 20 20 20 20 69 | 6e 74 20 6f 75 74 20 3b |;.X    i|nt out ;|
|00002690| 0a 58 0a 58 20 20 20 20 | 2f 2a 20 6d 61 6b 65 20 |.X.X    |/* make |
|000026a0| 73 61 6c 74 20 66 6f 72 | 20 63 72 79 70 74 20 2a |salt for| crypt *|
|000026b0| 2f 0a 58 20 20 20 20 73 | 72 61 6e 64 28 74 69 6d |/.X    s|rand(tim|
|000026c0| 65 28 4e 55 4c 4c 29 29 | 20 3b 0a 58 20 20 20 20 |e(NULL))| ;.X    |
|000026d0| 73 61 6c 74 5b 30 5d 20 | 3d 20 53 41 4c 54 43 5b |salt[0] |= SALTC[|
|000026e0| 72 61 6e 64 28 29 20 25 | 20 73 74 72 6c 65 6e 28 |rand() %| strlen(|
|000026f0| 53 41 4c 54 43 29 5d 20 | 3b 0a 58 20 20 20 20 73 |SALTC)] |;.X    s|
|00002700| 61 6c 74 5b 31 5d 20 3d | 20 53 41 4c 54 43 5b 72 |alt[1] =| SALTC[r|
|00002710| 61 6e 64 28 29 20 25 20 | 73 74 72 6c 65 6e 28 53 |and() % |strlen(S|
|00002720| 41 4c 54 43 29 5d 20 3b | 0a 58 20 20 20 20 73 61 |ALTC)] ;|.X    sa|
|00002730| 6c 74 5b 33 5d 20 3d 20 | 27 5c 30 27 20 3b 0a 58 |lt[3] = |'\0' ;.X|
|00002740| 0a 58 20 20 20 20 2f 2a | 20 72 65 61 64 20 61 6e |.X    /*| read an|
|00002750| 64 20 76 65 72 69 66 79 | 20 70 61 73 73 77 6f 72 |d verify| passwor|
|00002760| 64 20 2a 2f 0a 58 20 20 | 20 20 66 70 75 74 73 28 |d */.X  |  fputs(|
|00002770| 22 45 6e 74 65 72 20 70 | 61 73 73 77 6f 72 64 3a |"Enter p|assword:|
|00002780| 20 20 22 2c 20 73 74 64 | 6f 75 74 29 20 3b 0a 58 |  ", std|out) ;.X|
|00002790| 20 20 20 20 72 65 61 64 | 70 61 73 73 28 74 6d 70 |    read|pass(tmp|
|000027a0| 6c 2c 20 74 72 75 65 29 | 20 3b 0a 58 20 20 20 20 |l, true)| ;.X    |
|000027b0| 73 74 72 63 70 79 28 6f | 6c 64 63 2c 20 63 72 79 |strcpy(o|ldc, cry|
|000027c0| 70 74 28 74 6d 70 6c 2c | 20 73 61 6c 74 29 29 20 |pt(tmpl,| salt)) |
|000027d0| 3b 0a 58 20 20 20 20 66 | 70 75 74 73 28 22 5c 72 |;.X    f|puts("\r|
|000027e0| 5c 6e 52 65 74 79 70 65 | 20 70 61 73 73 77 6f 72 |\nRetype| passwor|
|000027f0| 64 3a 20 22 2c 20 73 74 | 64 6f 75 74 29 20 3b 0a |d: ", st|dout) ;.|
|00002800| 58 20 20 20 20 72 65 61 | 64 70 61 73 73 28 74 6d |X    rea|dpass(tm|
|00002810| 70 6c 2c 20 74 72 75 65 | 29 20 3b 0a 58 20 20 20 |pl, true|) ;.X   |
|00002820| 20 73 74 72 63 70 79 28 | 6e 65 77 63 2c 20 63 72 | strcpy(|newc, cr|
|00002830| 79 70 74 28 74 6d 70 6c | 2c 20 73 61 6c 74 29 29 |ypt(tmpl|, salt))|
|00002840| 20 3b 0a 58 20 20 20 20 | 6e 65 77 63 5b 43 4c 45 | ;.X    |newc[CLE|
|00002850| 4e 5d 20 3d 20 27 5c 30 | 27 20 3b 0a 58 0a 58 20 |N] = '\0|' ;.X.X |
|00002860| 20 20 20 69 66 20 28 73 | 74 72 63 6d 70 28 6f 6c |   if (s|trcmp(ol|
|00002870| 64 63 2c 20 6e 65 77 63 | 29 29 20 7b 0a 58 09 70 |dc, newc|)) {.X.p|
|00002880| 75 74 73 28 22 5c 72 5c | 6e 4e 6f 20 6d 61 74 63 |uts("\r\|nNo matc|
|00002890| 68 2e 5c 72 22 29 20 3b | 0a 58 09 72 65 73 65 74 |h.\r") ;|.X.reset|
|000028a0| 28 29 20 3b 0a 58 09 65 | 78 69 74 28 32 29 20 3b |() ;.X.e|xit(2) ;|
|000028b0| 0a 58 20 20 20 20 7d 0a | 58 0a 58 20 20 20 20 2f |.X    }.|X.X    /|
|000028c0| 2a 20 63 72 65 61 74 65 | 20 70 61 73 73 77 6f 72 |* create| passwor|
|000028d0| 64 20 66 69 6c 65 20 2a | 2f 0a 58 20 20 20 20 69 |d file *|/.X    i|
|000028e0| 66 20 28 28 6f 75 74 20 | 3d 20 6f 70 65 6e 28 70 |f ((out |= open(p|
|000028f0| 66 69 6c 6e 61 6d 2c 20 | 4f 5f 57 52 4f 4e 4c 59 |filnam, |O_WRONLY|
|00002900| 20 7c 20 4f 5f 43 52 45 | 41 54 2c 20 30 36 30 30 | | O_CRE|AT, 0600|
|00002910| 29 29 20 3d 3d 20 2d 31 | 29 20 7b 0a 58 09 72 65 |)) == -1|) {.X.re|
|00002920| 73 65 74 28 29 20 3b 0a | 58 09 70 65 72 72 6f 72 |set() ;.|X.perror|
|00002930| 28 70 66 69 6c 6e 61 6d | 29 20 3b 0a 58 09 65 78 |(pfilnam|) ;.X.ex|
|00002940| 69 74 28 65 72 72 6e 6f | 29 20 3b 0a 58 20 20 20 |it(errno|) ;.X   |
|00002950| 20 7d 0a 58 0a 58 20 20 | 20 20 2f 2a 20 77 72 69 | }.X.X  |  /* wri|
|00002960| 74 65 20 63 72 79 70 74 | 20 2a 2f 0a 58 20 20 20 |te crypt| */.X   |
|00002970| 20 77 72 69 74 65 28 6f | 75 74 2c 20 6e 65 77 63 | write(o|ut, newc|
|00002980| 2c 20 43 4c 45 4e 29 20 | 3b 0a 58 20 20 20 20 63 |, CLEN) |;.X    c|
|00002990| 6c 6f 73 65 28 6f 75 74 | 29 20 3b 0a 7d 0a 58 0a |lose(out|) ;.}.X.|
|000029a0| 58 0a 75 73 61 67 65 28 | 29 0a 7b 0a 58 20 20 20 |X.usage(|).{.X   |
|000029b0| 20 66 70 75 74 73 28 22 | 55 73 61 67 65 3a 20 22 | fputs("|Usage: "|
|000029c0| 2c 20 73 74 64 6f 75 74 | 29 20 3b 0a 58 20 20 20 |, stdout|) ;.X   |
|000029d0| 20 66 70 75 74 73 28 70 | 72 6f 67 6e 61 6d 65 2c | fputs(p|rogname,|
|000029e0| 20 73 74 64 6f 75 74 29 | 20 3b 0a 58 20 20 20 20 | stdout)| ;.X    |
|000029f0| 70 75 74 73 28 22 20 5b | 20 2d 70 20 5d 5c 72 22 |puts(" [| -p ]\r"|
|00002a00| 29 20 3b 0a 7d 0a 58 0a | 58 0a 2f 2a 20 72 65 74 |) ;.}.X.|X./* ret|
|00002a10| 75 72 6e 73 20 74 72 75 | 65 20 69 66 20 6f 6c 64 |urns tru|e if old|
|00002a20| 63 20 64 6f 65 73 20 6e | 6f 74 20 6c 6f 6f 6b 20 |c does n|ot look |
|00002a30| 6c 69 6b 65 20 61 20 76 | 61 6c 69 64 20 63 72 79 |like a v|alid cry|
|00002a40| 70 74 20 2a 2f 0a 63 68 | 65 63 6b 6f 6c 64 63 28 |pt */.ch|eckoldc(|
|00002a50| 29 0a 7b 0a 58 20 20 20 | 20 69 6e 74 20 69 20 3b |).{.X   | int i ;|
|00002a60| 0a 58 0a 58 20 20 20 20 | 2f 2a 20 63 68 65 63 6b |.X.X    |/* check|
|00002a70| 20 66 6f 72 20 69 6c 6c | 65 67 61 6c 20 63 68 61 | for ill|egal cha|
|00002a80| 72 61 63 74 65 72 73 20 | 2a 2f 0a 58 20 20 20 20 |racters |*/.X    |
|00002a90| 66 6f 72 20 28 69 20 3d | 20 30 3b 20 69 20 3c 20 |for (i =| 0; i < |
|00002aa0| 43 4c 45 4e 20 2d 20 31 | 3b 20 69 2b 2b 29 20 7b |CLEN - 1|; i++) {|
|00002ab0| 0a 58 09 69 66 20 28 21 | 73 74 72 63 68 72 28 53 |.X.if (!|strchr(S|
|00002ac0| 41 4c 54 43 2c 20 6f 6c | 64 63 5b 69 5d 29 29 20 |ALTC, ol|dc[i])) |
|00002ad0| 7b 0a 58 09 20 20 20 20 | 72 65 74 75 72 6e 20 74 |{.X.    |return t|
|00002ae0| 72 75 65 20 3b 0a 58 09 | 7d 0a 58 20 20 20 20 7d |rue ;.X.|}.X    }|
|00002af0| 0a 58 0a 58 20 20 20 20 | 2f 2a 20 63 68 65 63 6b |.X.X    |/* check|
|00002b00| 20 66 6f 72 20 74 65 72 | 6d 69 6e 61 74 69 6e 67 | for ter|minating|
|00002b10| 20 6e 75 6c 6c 20 63 68 | 61 72 61 63 74 65 72 20 | null ch|aracter |
|00002b20| 2a 2f 0a 58 20 20 20 20 | 72 65 74 75 72 6e 20 6f |*/.X    |return o|
|00002b30| 6c 64 63 5b 69 5d 20 3b | 0a 7d 0a 53 48 41 52 5f |ldc[i] ;|.}.SHAR_|
|00002b40| 45 4f 46 0a 63 68 6d 6f | 64 20 30 36 34 34 20 6c |EOF.chmo|d 0644 l|
|00002b50| 6f 63 6b 74 74 79 2e 63 | 20 7c 7c 0a 65 63 68 6f |ocktty.c| ||.echo|
|00002b60| 20 27 72 65 73 74 6f 72 | 65 20 6f 66 20 6c 6f 63 | 'restor|e of loc|
|00002b70| 6b 74 74 79 2e 63 20 66 | 61 69 6c 65 64 27 0a 57 |ktty.c f|ailed'.W|
|00002b80| 63 5f 63 3d 22 60 77 63 | 20 2d 63 20 3c 20 27 6c |c_c="`wc| -c < 'l|
|00002b90| 6f 63 6b 74 74 79 2e 63 | 27 60 22 0a 74 65 73 74 |ocktty.c|'`".test|
|00002ba0| 20 35 36 36 33 20 2d 65 | 71 20 22 24 57 63 5f 63 | 5663 -e|q "$Wc_c|
|00002bb0| 22 20 7c 7c 0a 09 65 63 | 68 6f 20 27 6c 6f 63 6b |" ||..ec|ho 'lock|
|00002bc0| 74 74 79 2e 63 3a 20 6f | 72 69 67 69 6e 61 6c 20 |tty.c: o|riginal |
|00002bd0| 73 69 7a 65 20 35 36 36 | 33 2c 20 63 75 72 72 65 |size 566|3, curre|
|00002be0| 6e 74 20 73 69 7a 65 27 | 20 22 24 57 63 5f 63 22 |nt size'| "$Wc_c"|
|00002bf0| 0a 66 69 0a 65 78 69 74 | 20 30 0a                |.fi.exit| 0.     |
+--------+-------------------------+-------------------------+--------+--------+