bound_cipher_.bind 03/14/85 0819.4rew 03/13/85 1012.5 7677 /* Bindfile for boudn_cipher_ */ /* Standard encryption/decryption routines and password manipulation modules */ /* Modified: 14 December 1981 by G. Palter to retain read_password_$switch */ /* Modifed 1985-03-06 by E. Swenson to add check_password_ */ Objectname: bound_cipher_; Global: delete; No_Table; Order: encode, encipher_, read_password_, check_password_; Addname: decode, encode, decipher_, encipher_, read_password_, get_password_, check_password_; objectname: encode; synonym: decode; retain: encode, decode; objectname: encipher_; synonym: decipher_; retain: encipher_, decipher_; objectname: read_password_; synonym: get_password_; retain: read_password_, get_password_, switch; objectname: check_password_; retain: check_password_; /* end; */  check_password_ 08/05/87 0817.9re 08/04/87 1650.0 22680 @installation_parms >system_control_1 T-QUITquitHELPhelpT,TT44NV V#V??#cleanupPassword must be at least ^d characters long"^a" is reserved for special use during loginUnable to check password_min_length parameter in ^a.DDCn5P&@"PP@J@P@K@B@@D ;@P'@.@@@L(@sP@iR@fT@B@V@L@X@@@Z@\@^@`@b@d@f@N@$PP@@@-@@4N4L(@P@F@h@@@@~@@ $P P@N@@PP@L@@h@@j@"P@P@d@a@@$P P@ePPJ@u`@>@.@.@@L@J@L~@BP N@@@Y,,L(@@@P@L@@ @@=@"P@P@:@5@@$P P@$PP@@8 F`@) F`@$  F`@]  F`@ F`@@@200L(@@@P@L@@P@@"P@P@@@P@@$P P@$PP@@PK@ `@@.@@@@PP@A`P'@ PB@0@BP@@B@B(@C(@@@F@B@H@J@C@L@N@P@R@T@D@P@@?check_password_ symbol_table5 initiate_file_ioa_rsnnl pathname_"terminate_file_%%) error_table_bad_arg,02;r` cleanup.1A58CLEAN_UPD;O>u&&&$&+&4symbtreeMLMTP)PL/I 3!& *uMultics PL/I Compiler, Release 29, of July 28, 1986GJohnson.SysMaint.aoptimize map@4mMT1.M(\gqK-LW.m+MSc$6~F%l$NIX>special_ldd>install>MR12.1-1054>check_password_.pl1>ldd>include>access_mode_values.incl.pl1>spec>install>1056>installation_parms.incl.pl1>ldd>include>rcp_init_flags.incl.pl1>ldd>include>terminate_file.incl.pl1pl1info }check_password_B _ ]x[)S ~|E@.PZjkk@+Vj XV@P@eU*eTobj_map uuEj  encipher_ 11/04/82 2015.5rew 11/04/82 1852.0 8172 @ PP@ PPP(N  (N(N(N(NF  8N8 NNFP C(@@=P4@>P6@@8P*@9P,@:P.@;P0@<P2@N~~ $CP(N"P&P &P  encipher_L@  decipher_ I@ encipher_ symbol_table OsymbtreeIHK}IBYalm   $@4SBJMB4ALM Version 6.4 April 1981 Holmstedt.SysMaint.m list :Ky)I>dumps>old>recomp>encipher_.alm  @ obj_map OO,|S  encode 11/12/82 1432.3rew 11/12/82 1153.7 61128 @GGT$TTV TKey:TTVTTT-keyT,V #V4.code^a.codeVerify:?#decodeencodecleanupNo value specified for -key.Attempt to specify two keys.Key longer than ^d characters.Keys do not match. Please try again.Usage: ^a path1A {path2A ... path1N path2N}PP%@PP%@@ @@ PP%@(@ @@ @@@@@$PP@@@ @@"@$@&@@$PP@@@((@@@,*,(@8@@:@*@<@@>@@@~B@F@yD@6@$PP@@(@(@@@@N@@ @@"@@$@@&@@$PP@P F@:@ F`Uo@((@@@j(@8@@:@@<@G>@F@@@B@6@ $PP@@,@@N@((@@@I(@8@@:@@<@->@,@@&B@6@ $PP@@@ @@"@@$@@&@@$PP@@ N((@@@1  5@(@8@@:@@<@5@>@@@F@B@D@6@$PP@@P @@` @ @ @"@@@@@@V5@^a(@$PP8@@:@(@<@@>@@@B@D@5@F@6@P@@,@\@@@@N@b@ @@"@@$@@&@@$PP@P F@,@L@V5@@8@@@:@@<@@>@5@@@B@D@F@6@$P$P@@@V5@^a(@@8@@:@(@<@P>@@@B@}D@5@F@6@$PP@@@ @@@@@@@  .@@(@ @@@@j@@@  @,@@ @@@@ @@8 .@@@ P'@ P@V@@X@IZ@H\@T@P@ P@$P NP+^a^@j@@@@`@@6@@1@@ 6P@ P@@@@^@@`@@#@ @@@@$PP@@@@@@  @@@@@ @P'@.@@@ P@V@T@$P(P@ P@@@  @@V@T@@^^@ Pj@b@@d@^@f@@h@@j@@l@@n@@p@r@t@v@x@|@~@z@@`@ $P0P@ P@*^a^@j@@@@`@@@@@@ $P6P@ P@@@@^@@`@@@@@@@$PP@@@F@@ P@FN@ PF@@@@PF@@@  @u@ >@.@.@@^@ ^~@~ @@`  P,@.@@@@P'@ P P@e0@@@ P P@]0@@@@H@ P@@@@@@@@C@@@@@@$P&P@ P@^a@@@@@@@@@,@)@@ @@$PP@H@@@@@@@@@@(@ Pj@@@@@@@@@@@@@@@@@@@@@@$P*P@ P@0@+^a@ Pj@@@@@@@@@@ $P6P@ P@@@@@@@@@@@@@$PP@H@@G>HF@$PP@ @@@@@@@@@ @@@@@@@@@@@$P,P@ P @0@+^a@ P@@@@@@@@@@ $P6P@ P@@@@@@@@u@r@j@f@@$PP@H@(@ @@@@@@@ $P4P@ P@$PNPP@@ @0@$PP@c@U @@ @@ 4@@@ P@@,@)@@$P8P@ P@-6@@@@@@@@$P8P@ P @F@  (@'@@@?$$@@@@@@ @@@@ $PP@@@ @@@@ P @@ @@'@@@@@@@@@@ @@P@ P@@@@@@@@@@$P"P@&@@@@@@@@@@ @@P@ P@@@@@@@@@@$P P@ P @@@@@@@ $P.P@ P@@@@@$P2P@ P @@@@@$P2P@H@N@P@Pu@ >@.@.@@ @  ~@ @> N @z @$P P@ P@@@ @@PPP@h@e@@R@@P@@i@ @ `@` E@X @@`  @N@PP'@PP@0@@cAc@@@@ N @@ O0F@C@,@C@ E@E@D@PP@@@@P @@ @==-encode  symbol_table error_table_badoptbadstarentlongmoderr"$no_w_permission'+sameseg.0zero_length_seg37check_star_name_entry:?Acom_err_DDG suppress_nameDJNcu_ arg_countQRUarg_ptrQXZ decipher_]]` encipher_ccfexpand_pathname_iinget_equal_name_qquget_system_free_area_xx~hcs_initiate_countmake_seg set_bc_segstar_terminate_noname truncate_seg pathname_read_password_code Q`X`decoded` cipher_stars cleanup.1 star_clean_up build_key:&&&!&&&-&2&9&C&I&P&W&\&b&h&p&w&&&&&&&&&symbtreeIIyPL/I 7"' *7A`|AAMultics PL/I Compiler, Release 27d, of October 11, 1982Holmstedt.SysMaint.moptimize map0K2IqD>spec>on>11/12/82>encode.pl1pl1info ?encode/iZ<AO txgi<O_<!O 5xN<1O]x#f xc.<OtmxK P +kVj@ZZ+@+Vj VjPZPVj VjP+Z+ZPZj+PXV@Zj@@eU*eU*eU*eU*eU*eU*eU*eU*eobj_map :   read_password_ 08/26/83 0943.3re 08/26/83 0942.2 34560 etaiosqwertyuioplkjhgfdsazxcvbnm@V VT.~)ET T T#4TV??#cleanupprinter_onprinter_offYourPassword^aXWXWXWXWXWXW^a986986986986^a^a^a  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~NIP&@PP@"PP@P@P@bPP&@PP@"PP@P@P@@@PPB@ P@PD@UP&@ PP@"PP@P@P@@(@P (PP@PB@PPD@^a@D@@@@P@p@l@P@@ $PP@j@#[`P'@a@@onB@YD@C(@ P@B@H@@@J@D@L@C@N@IP@T@BR@CV@F@P@@HH@G@<@B@@@@@@I@@.@@(@(@@$PP@I@I@ I@*J@@x@B@@@@@@H@@I@@@$PP@I@$P NPI(@@@ B@@I@@@P@P P@H@u`J?@.@.@@@@H.@H@i@ `p`J  `@`J @t`J>@.@.@@@H@~@xNx@h@ `@eJih@t`i.@.@@>F@~xNxh@h@ P@P `@o P@Ph@ `@`i@on@@(@B@@@@@@@@@@@@@$PP@@@ @@@{@@}@@@r@[ @G@G@ N@0F.$.@C@G@@ E@G,@@@s00D@@@@@@@@@@@@V@N@K@@@@E@@$PP@@  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~*read_password_ symbol_tableI iox_ user_input user_output error_table_ long_record#&ioa_ ioa_switch)+.ioa_switch_nnl)15 iox_signal_88;control>@get_lineCFPR` get_password_UIg`Lswitch[P`S cleanup.1^UX&&&(&0&7&=&B&HsymbtreeIE5JBPL/I 5"' *;kGTbhGGMultics PL/I Compiler, Release 28b, of April 11, 1983Holmstedt.SysMaint.aoptimize map0+QvJB>special_ldd>on>08/26/83>read_password_.pl1pl1info Cread_password_oA !|#@B _xox/i aPZjkZ|ZZ@k++PV`Zt@eU*eU*eTpobj_map _08Hk