ACCESS FEED: [MS_AccessPros] Re: Function to generate a list of mixed characters

Jumat, 29 Juni 2012

[MS_AccessPros] Re: Function to generate a list of mixed characters

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

--- In MS_Access_Professionals@yahoogroups.com, Crystal <strive4peace2008@...> 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]
>