|
I am very much impressed with this... but, I have no knowledge about MI, any body please help me in coding this MI instructions... 0001.00 DCL DD USERID AUTO CHAR(10); 0002.00 DCL DD PASSWORD AUTO CHAR(10); 0003.00 DCL SYSPRT ?SUBSYS BASPCO POS(H'211'); 0004.00 DCL MSPPTR ?M; 0005.00 DCL SPCPTR ?UFCB BAS(?M) POS(H'1B1'); 0006.00 DCL SPCPTR ?BUFFER BAS(?UFCB) POS(H'11'); 0007.00 DCL DD BUFFER BAS(?BUFFER) CHAR(32767); 0008.00 SETSPPFP ?M, ?SUBSYS; 0009.00 CPYBLA USERID, BUFFER(1:10); 0010.00 CPYBLA PASSWORD, BUFFER(11:10); I did write this in source file member of type CLP. Is it right/wrong? how do I compile and run this? I appreciate your help. Thanks in advance. Thanks Shailu John Earl <johnearl@400security.com>@midrange.com on 06/06/2000 10:57:38 AM Please respond to MI400@midrange.com Sent by: owner-mi400@midrange.com To: MI400@midrange.com cc: Subject: Re: QSYUPTBL Gary Guthrie wrote: > Yeah, and those shops with programmers belonging to group profile > QPGMR... Yes, and any shop running at QSECURITY level 30. Or any shop where the QSTRUPPGM is not secured. Or any of the myriad other ways to assume QPGMR's identity. This is just one more in a long list of reasons to lock QPGMR down and not use it in your applications. jte > > > Gary Guthrie > REAL Solutions Technical Support > NEWS/400 Technical Editor > > Scott.Lindstrom@zenith.com wrote: > > > > At least (by default) only QSYSOPR, QPGMR, QSRV, and QSRVBAS are authorized > > to this command. Everyone else is excluded. > > > > Scott Lindstrom > > Zenith Electronics > > > > Gene, > > > > > In addition to storing passwords in ciphertext, OS/400 stores > > > passwords in plaintext, too. For example, after User A signs on, > > > User B can type the following and see User A's plaintext password > > > (provided User A and User B are signed on in the same subsystem): > > > > > > DMPSYSOBJ OFFSET(210 1B0 10) SPACE(0 14) > > > > An interesting twist on sniffing passwords. If a user has access to > > DMPSYSOBJ, it sure beats sniffing the IP packets for telnet sessions ! > > > > +--- > > | This is the MI Programmers Mailing List! > > | To submit a new message, send your mail to MI400@midrange.com. > > | To subscribe to this list send email to MI400-SUB@midrange.com. > > | To unsubscribe from this list send email to MI400-UNSUB@midrange.com. > > | Questions should be directed to the list owner/operator: dr2@cssas400.com > > +--- > +--- > | This is the MI Programmers Mailing List! > | To submit a new message, send your mail to MI400@midrange.com. > | To subscribe to this list send email to MI400-SUB@midrange.com. > | To unsubscribe from this list send email to MI400-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: dr2@cssas400.com > +--- -- John Earl johnearl@400security.com The PowerTech Group 206-575-0711 PowerLock Network Security www.400security.com -- +--- | This is the MI Programmers Mailing List! | To submit a new message, send your mail to MI400@midrange.com. | To subscribe to this list send email to MI400-SUB@midrange.com. | To unsubscribe from this list send email to MI400-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: dr2@cssas400.com +--- +--- | This is the MI Programmers Mailing List! | To submit a new message, send your mail to MI400@midrange.com. | To subscribe to this list send email to MI400-SUB@midrange.com. | To unsubscribe from this list send email to MI400-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: dr2@cssas400.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.