ENCRYPTJ - Encrypt specified LOGON password

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