Your Browser is not longer supported

Please use Google Chrome, Mozilla Firefox or Microsoft Edge to view the page correctly
Loading...

{{viewport.spaceProperty.prod}}

ENCRYPTJ - Encrypt specified LOGON password

&pagelevel(5)&pagelevel

This statement encrypts the specified LOGON password and outputs the result to SYSOUT.

Format

ENCRYPTJ / EJ                                                                                                                                             

lpassword

Operands

lpassword

LOGON password consisting of 1 to 8 bytes (see “Format conventions for passwords” (Passwords) for the format).

In BS2000, LOGON passwords of up to 32 characters can be declared. To be able to edit them with PASSWORD, they must be shortened to 8 characters at system level.

The software product SDF-P provides the predefined function HASH-STRING() which enables this conversion.

(TO-X-LIT(HASH-STRING('<long password>',8)))

Examples

  1. Encryption of a password that is 4 characters long.

    ENTER COMMAND NOW : 
    *encryptj c'susi'
    PASSWORD ENCRYPTED IS = X'6B0537211705D615'
    *end
    PASSWORD : NORMAL   END
    
  2. Encryption of a password that is 14 characters long.

    /A=(TO-X-LIT(HASH-STRING('longpassword',8)))
    /show-var a
    A = X'523E146036CED784'
    /start-password
    ENTER COMMAND NOW : 
    *encryptj x'523E146036CED784'
    PASSWORD ENCRYPTED IS = X'73FE57A922EA780D'
    *end
    PASSWORD : NORMAL   END