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

Hi Bill,

I have uploaded a module to the Files > 2_AssistanceNeeded folder named modPasswords.bas. It can produce as many passwords as you need and is easy to use. The first two procedures are all you should need to actually use in code or the immediate window.

I have been using these procedures for applications to manage SQL Azure and SQL Server users.

Kind Regards,
Pat Wood

--- In MS_Access_Professionals@yahoogroups.com, "Bill Mosca" <wrmosca@...> wrote:
>
> 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]
> >
>