Re: IP and QPADEVxxx devices...

CIS Midrange List <Midrange@ccei.com> on 07/13/99 11:33:35 AM

Please respond to MIDRANGE-L@midrange.com

To:   "'MIDRANGE-L@midrange.com'" <MIDRANGE-L@midrange.com>
cc:    (bcc: Arlene M Soderlund/NFCNA.COM)
Subject:  IP and QPADEVxxx devices...




If we know when an event happened on a QPADEVxxxx session is there a way to
track the IP address that was assigned to the QPADEVxxxx during that time
interval?  Using Client Access has left a hole in our security and anyone
trying random profile/password combinations can try them from a CA session
and not be tracked down.  Is this assignment - IP to QPADEV logged anywhere?

IDEAS?

Yes there is an API that will allow you to get the address of a QPADEVxxxx.

Here is the DCL and program, plus the position of the IPADDR you use.  I cannot
post the entire program because the company 'OWNS' my code.  But this should get
your imagination started.  You can log to a file, check against your internal
addresses and sign them off.  Notify qsysopr or some other msgf.




 DCL        VAR(&RECV) TYPE(*CHAR) LEN(1024)
 DCL        VAR(&IPADDR) TYPE(*CHAR) LEN(20)
 DCL        VAR(&BIN) TYPE(*CHAR) LEN(4) VALUE(X'00001024')
 DCL        VAR(&FMT) TYPE(*CHAR) LEN(8) VALUE('DEVD0600')
 DCL        VAR(&JOB) TYPE(*CHAR) LEN(10)
 DCL        VAR(&ERR) TYPE(*CHAR) LEN(7)

         CALL       PGM(QDCRDEVD) PARM(&RECV &BIN &FMT &JOB &ERR)
        CHGVAR     VAR(&IPADDR) VALUE(%SST(&RECV 878 15))










+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---