|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 6237 (0x185d)
Types: TextFile
Names: »V«
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
└─ ⟦fc9b38f02⟧ »DATA«
└─⟦9b46a407a⟧
└─⟦12c68c704⟧
└─⟦this⟧
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS
└─ ⟦91c658230⟧ »DATA«
└─⟦458657fb6⟧
└─⟦220843204⟧
└─⟦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.
pragma Subsystem (Os_Commands);
pragma Module_Name (4, 4300);
end Remote_Passwords;