⟦f433869a2⟧

E3 Source Code



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;
DataMuseum.dk

Rational R1000/400

⟦f433869a2⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
