|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 8192 (0x2000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Remote_Passwords, seg_005cd3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
package Remote_Passwords is
-- The commands in this package can be used to add, change, delete,
-- and display entries in a remote passwords file. By default,
-- these commands access the remote passwords file for the current
-- session. The For_Session parameter in these commands allows you
-- to specify a non-default session; in this case, the operation
-- applies to the remote passwords file of the given session.
--
-- A remote passwords file is a text file that specifies
-- the username and password to be used when accessing a remote
-- host. This file may contain one or more entries of the following
-- form:
--
-- HOST_NAME USERNAME PASSWORD_VALUE
--
-- HOST_NAME must identify a machine to which the user has access.
-- USERNAME must be a valid username on the specified machine.
-- PASSWORD_VALUE must be one of the following:
--
-- "Ada-style_quoted_string"
-- <PROMPT>
-- <DES:hexadecimal_string>
-- ""
--
-- For example, a remote passwords file might contain entries such
-- as the following:
--
-- machine1 username1 password1
-- machine1 "username1" "password1"
-- machine2 guest ""
-- machine3 username3 <PROMPT>
-- machine4 operator <DES:29A1EB449C1A03F6>
--
-- In this example, the two entries for machine1 are equivalent.
-- The entry for machine2 provides for a guest user who has no
-- password; the entry for machine3 causes username3 to be prompted
-- for a password; the entry for machine4 indicates that the
-- password for operator has been encrypted using DES.
type Encryption_Method is (None, Hex, Des);
--
-- Represents the forms of encryption that can be applied to the
-- passwords entered into the remote passwords file. The Encryption
-- parameter in these commands allows you to specify the type of
-- encryption to be used when a password is added or changed. The
-- value None causes the clear text password to be entered without
-- encryption.
procedure Create
(New_File : String := ">>REMOTE PASSWORDS FILE<<";
Source_File : String := "";
Source_Password : String := "<PROMPT>";
Encryption : Encryption_Method := Remote_Passwords.Des;
Response : String := "<PROFILE>");
--
-- Creates a new remote passwords file using Source_File and
-- Source_Password to initialize the contents of the file. After
-- Source_File has been decrypted with Source_Password, New_File is
-- created and populated with encrypted source entries for the
-- current user as specified by the Encryption parameter. Any
-- source entries that cannot be decrypted by Source_Password are
-- omitted from New_File.
procedure Set_Default (Existing_File : String := "<IMAGE>";
For_Session : String := "";
Response : String := "<PROFILE>");
--
-- Establishes Existing_File as the default remote passwords
-- file for For_Session. This information is stored in the
-- Profile.Remote_Passwords switch of the session switch file
-- associated with For_Session. When no switch file exists, it
-- is created before storing the value.
procedure Add (New_Hostname : String := ">>REMOTE HOST<<";
New_Username : String := ">>REMOTE USER<<";
New_Password : String := "<PROMPT>";
Encryption : Encryption_Method := Remote_Passwords.Des;
For_Session : String := "";
Response : String := "<PROFILE>");
--
-- Adds an entry for New_Hostname to the remote passwords file of
-- the calling user. When an entry for New_Hostname already exists,
-- an error message is generated and the remote passwords file is
-- left unchanged.
procedure Change (Existing_Hostname : String := ">>REMOTE HOST<<";
New_Username : String := ">>REMOTE USER<<";
New_Password : String := "<PROMPT>";
Encryption : Encryption_Method
:= Remote_Passwords.Des;
For_Session : String := "";
Response : String := "<PROFILE>");
--
-- Changes the entry for Existing_Hostname in remote passwords file
-- of the calling user. When the entry for Existing_Hostname does
-- not exist, it is Add'ed.
procedure Delete (Existing_Hostname : String := ">>REMOTE HOST<<";
For_Session : String := "";
Response : String := "<PROFILE>");
--
-- Removes the entry for Existing_Hostname from the remote passwords
-- file of the calling user. When an entry for Existing_Hostname
-- does not exist, a warning message is generated.
procedure Show_Encryption
(Of_Password : String := "<PROMPT>";
Encryption : Encryption_Method := Remote_Passwords.Des);
--
-- Displays the encrypted form of Of_Password for the calling user
-- in the message window. The value displayed is identical to what
-- would be directly reflected in the remote passwords file if the
-- same password was used in the file manipulation operations that
-- are listed below.
procedure Update (Old_Password : String := "<PROMPT>";
For_Session : String := "";
Response : String := "<PROFILE>");
--
-- Updates the remote passwords file after the user's Rational
-- password has been changed.
---------------------------
-- Remote Passwords File --
---------------------------
function Get_Default (For_Session : String := "";
Response : String := "<WARN>") return String;
--
-- Returns a naming expression for the default remote passwords
-- file for For_Session. When errors occur while resolving this
-- file, the value "<>" is returned.
end Remote_Passwords;
nblk1=7
nid=0
hdr6=e
[0x00] rec0=17 rec1=00 rec2=01 rec3=004
[0x01] rec0=17 rec1=00 rec2=02 rec3=056
[0x02] rec0=12 rec1=00 rec2=03 rec3=03a
[0x03] rec0=13 rec1=00 rec2=04 rec3=060
[0x04] rec0=13 rec1=00 rec2=05 rec3=04a
[0x05] rec0=15 rec1=00 rec2=06 rec3=00c
[0x06] rec0=0f rec1=00 rec2=07 rec3=000
tail 0x21500f41281b551c8affb 0x42a00088462069e03