LU_ENUM_ALPHA_5.rexx

/* REXX */
parse arg len
SAY "LISTUSER RACF User Enumeration Tool"
SAY "VER 1"
/* License: GPLv3 */

ALPHA = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'
NUM = '0123456789'
DO I=1 to 26
 S1 = RIGHT(LEFT(ALPHA,I),1)
 DO J=1 to 10
  S2 = RIGHT(LEFT(NUM,J),1)
  DO K=1 to 10
   S3 = RIGHT(LEFT(NUM,K),1)
   DO L=1 to 10
    S4 = RIGHT(LEFT(NUM,L),1)
    DO M=1 to 10
     S5 = RIGHT(LEFT(NUM,M),1)
     DO N=1 to 10
      S6 = RIGHT(LEFT(NUM,N),1)
         L = OUTTRAP('LUO.')
         LU S1||S2||S3||S4||S5||S6
         L = OUTTRAP('OFF')
         if POS('USER=',LUO.1) > 0 THEN DO
          PARSE VAR LUO.1 USER .
          PARSE VAR LUO.3 ATTR .
          SAY USER ATTR
     END
    END
   END
  END
 END
END

LUEnum.rexx

/* REXX */
parse arg len
SAY "LISTUSER RACF User Enumeration Tool"
SAY "VER 1"
/* License: GPLv3 */

ALPHANUM = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789'
DO I=1 to 36
 S1 = RIGHT(LEFT(ALPHANUM,I),1)
 DO J=1 to 36
  S2 = RIGHT(LEFT(ALPHANUM,J),1)
  DO K=1 to 36
   S3 = RIGHT(LEFT(ALPHANUM,K),1)
   DO L=1 to 36
    S4 = RIGHT(LEFT(ALPHANUM,L),1)
    DO M=1 to 36
     S5 = RIGHT(LEFT(ALPHANUM,M),1)
     DO N=1 to 36
      S6 = RIGHT(LEFT(ALPHANUM,N),1)
      DO O=1 to 36
       S7 = RIGHT(LEFT(ALPHANUM,O),1)
       DO P=1 to 36
        S8 = RIGHT(LEFT(ALPHANUM,P),1)
         L = OUTTRAP('LUO.')
         LU S1||S2||S3||S4||S5||S6||S7||S8
         L = OUTTRAP('OFF')
         if POS('USER=',LUO.1) > 0 THEN DO
          PARSE VAR LUO.1 USER .
          PARSE VAR LUO.3 ATTR .
          SAY USER ATTR
       END
      END
     END
    END
   END
  END
 END
END