XOBWPWD ;ALB/MJK - HWSC :: Private Password APIs ; 09/13/10 4:00pm
Source file <XOBWPWD.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EDIT | ; -- edit PASSWORD from DD
|
|
CLR | ; -- clear to continue
|
|
SET(XOBH,XOBTALK) | ; -- set password in entry
|
|
DEL | ; -- make sure delete is desired
|
|
DIRUT | ; -- set abort flag
|
|
ASK() | ; -- setup to ask user for password
|
|
REASK(XOBH) | ; -- reask user for password
|
|
GET() | ; -- get user input and process for '^' and ''
|
|
ACCEPT(TO) | ; -- read user input character a time; force exit on '^'; echo '*' back
|
|
ENCRYP(XOBX) | ; -- Kernel encode
|
|
DECRYP(XOBH) | ; -- Kernel decode
|