|
Be careful using "Q" as the first character in a password. see http://dhart.no-ip.info/PowerofQ.html --- Douglas Hart - Sr. Consultant Certified IBM iSeries System Administrator mailto:dhart2@twcny.rr.com Web: http://dhart.no-ip.info > -----Original Message----- > From: midrange-l-admin@midrange.com > [mailto:midrange-l-admin@midrange.com]On Behalf Of Narayanan R Pillai > Sent: Wednesday, October 23, 2002 2:33 PM > To: midrange-l@midrange.com > Subject: Re: Need to generate passwords > > > Hi Steve, > > We used this procedure to generate "QRPLOBJ" (eg: Q0291B05E4 ) type names > for another function, do you think that will be enough for the auditors ? > > Narayanan R Pillai > Senior Technical Architect > American Medical & Life Insurance > <code> > > ****************************************************************** > **** Project name : Create "QRPLOBJ" File name **** > **** Program name : GETFILNAM **** > **** Program description : Creates a file name like those in **** > **** QRPLOBJ. **** > **** Author : Pillai **** > **** Date created : August 2000 **** > ****************************************************************** > D Time S 12 0 > D InString S 25 > D OutString S 50 > D HexDigits C Const('0123456789ABCDEF') > * Define all Procedures used in the Program > D CnvrtHex PR > D 25 > D 50 > D Ds > D Binary 9B 0 > D Character 4 OverLay(Binary) > > C *entry Plist > C parm FileName 10 > C Time Time > C Move Time Binary > C MoveL Character Instring > C CallP CnvrtHex(Instring:OutString) > C Eval FileName = 'Q'+ %Subst(OutString:1:9) > C Eval *inLR = *On > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * > * Procedures Section * > * ---------- ------- * > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * > > /Eject > /Title CnvrtHex : Obtain Hexa Conversions > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * > * CnvrtHex * > * -------- * > * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * > P CnvrtHex B > D CnvrtHex PI > D InString 25 > D OutString 50 > > D IntDS Ds > D IntNum 5I 0 Inz(0) > D IntChr 1 OverLay(IntNum:2) > > D HexDS Ds > D HexC1 1 > D HexC2 1 > > D Cntr S 2 0 Inz(1) > D Pos S 2 0 Inz(1) > D HexChr S 1 > > C Do 25 Pos > C Eval HexChr = %Subst(InString:Pos:1) > C If (HexChr < X'20') > C Eval %Subst(Instring:Pos:1) = X'AA' > C EndIf > C Eval IntChr = HexChr > C IntNum Div 16 X1 5 0 > C Mvr X2 5 0 > C Eval HexC1 = %Subst(HexDigits:X1+1:1) > C Eval HexC2 = %Subst(HexDigits:X2+1:1) > C Eval %SubSt(OutString:Cntr:2) = HexDS > C Eval Cntr = Cntr + 2 > C EndDo > > P CnvrtHex E > </code> > > > ----- Original Message ----- > From: "McKay, Steve" <Steve.McKay@SouthTrust.com> > To: <midrange-l@midrange.com> > Sent: Wednesday, October 23, 2002 2:07 PM > Subject: Need to generate passwords > > > List - > > Does anyone have a CL/RPG/COBOL solution to generate "random" passwords? > Auditing has a problem with me "assigning" an initial password (even if it > is set to "*EXPIRED") and wants to programatically generate a password for > each new user. > > Thanks, > > Steve > _______________________________________________ >
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.
midrange.com
