you're welcome, Bill :) thank you
Warm Regards,
Crystal
*
(: have an awesome day :)
*
________________________________
From: Bill Mosca
Crystal
Thanks for sharing. That's a starting place. We still need special characters, and it can't start with a number.
And I bet it has to have at least 1 of at least 3 groups, i.e. Upper case, lower case, numbers, special characters.
I have code that checks to see if a password complies with that, but I don't have code that generates the password.
Bill
--- Crystal wrote:
>
> no need, I have one ...
>
> '~~~~~~~~~~~~~~~~~~~~~~~~~
>
> Function GetRandomString( _
> pNumChars As Integer _
> , Optional pStartWithLetter As Boolean = False _
> ) As String
> '120629 Crystal
>
> 'return a random string
>
> 'SAMPLE USEAGE: GetRandomString(10,True)
>
> Dim sStr As String _
> , iPos As Integer
>
> sStr = GetRandomAlpha(Not pStartWithLetter)
>
> For iPos = 2 To pNumChars
> sStr = sStr & GetRandomAlpha(True)
> Next iPos
>
> GetRandomString = sStr
>
> End Function
>
>
> '~~~~~~~~~~~~~~~~~~~~~~~~~
> Function GetRandomAlpha( _
> Optional pBooIncludeNumbers = False _
> ) As String
> '110906 Crystal
>
> 'return a random character
>
> Dim nASCII As Integer _
> , nMaxNumber As Integer
>
> If pBooIncludeNumbers Then
> nMaxNumber = 36
> Else
> nMaxNumber = 26
> End If
>
> Randomize
> nASCII = Int((nMaxNumber * Rnd) + 1)
>
> If nASCII <= 26 Then
> nASCII = 64 + nASCII
> Else
> nASCII = 47 + (nASCII - 26)
> End If
> GetRandomAlpha = Chr(nASCII)
>
> End Function
> '~~~~~~~~~~~~~~~~~~~~~~~~~
>
>
>
> Warm Regards,
> Crystal
>
> *
> (: have an awesome day :)
> *
>
>
> ________________________________
> From: Bill Mosca <wrmosca@...>
> To: MS_Access_Professionals@yahoogroups.com
> Sent: Friday, June 29, 2012 9:43 AM
> Subject: [MS_AccessPros] Re: Function to generate a list of mixed characters
>
> D'Oh!
>
> bill
>
> --- In MS_Access_Professionals@yahoogroups.com, John Viescas <JohnV@> wrote:
> >
> > Just remember YOU volunteered first, Bill. <s>
> >
> >
> >
> > John
> >
> >
> >
> > From: MS_Access_Professionals@yahoogroups.com
> > [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Bill Mosca
> > Sent: Friday, June 29, 2012 4:28 PM
> > To: MS_Access_Professionals@yahoogroups.com
> > Subject: [MS_AccessPros] Re: Function to generate a list of mixed characters
> >
> >
> >
> >
> >
> > I wouldn't bother writing a function to do that. It would be cumbersome.
> > Instead, get the freeware KeePass. It will do it for you.
> >
> > But if you really want a function to do it, one of us will be glad to write it
> > for you.
> >
> > Regards,
> > Bill Mosca, Founder - MS_Access_Professionals
> > http://www.thatlldoit.com
> > Microsoft Office Access MVP
> > https://mvp.support.microsoft.com/profile/Bill.Mosca
> >
> > --- In MS_Access_Professionals@yahoogroups.com
> > <mailto:MS_Access_Professionals%40yahoogroups.com> , "saigonf7q5"
> > <saigonf7q5@> wrote:
> > >
> > > Some applications that I use need to change passwords often and regulary when
> > logon. The password is restricted to 8 (no more no less) mixed characters
> > included leters, numbers and special characters such as #, $... but can not
> > begin with number. Often time, I have hard times to think of or to create a new
> > password.
> > >
> > > I know there is a function to generate a list of random numbers. I have been
> > wondering if there's a way or function to generate a list of character as I just
> > described above, so it can be used as a list of choice of passwords.
> > >
> >
> >
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
>
>
> [Non-text portions of this message have been removed]
>
------------------------------------
Yahoo! Groups Links
[Non-text portions of this message have been removed]
Tidak ada komentar:
Posting Komentar