creating passwords

[Donkere.prins]

I need some help trying to develop a code to do this:

upon pressing of a button, a random series of both letters, numbers, and symbols is entered into a specific field.

There are specifics, however.

Must be 8 digits
must use 2 capital letters, 2 lowercase letters, 2 symbols and 2 digits from 0-9.
All symbols are fair game except for the @.

Is this something that's even possible, or would there just be way too much involved here.

Thank you all for any assistance you may be able to provide.

Joe

 

[KenHigg]

You should be able to do this with a series of rnd() functions...

 

[Donkere.prins]

hmm...so it IS possible, I suppose that's a start..LOL..maybe I should have prefaced my orginal request by stating that I don't know a whole lot about vb code. I know how to make my button in access, and I know how to get to the vb editor to put in the code, but that's about it, so I'm not really sure what a rnd() command is... I suppose it gives me a starting place to start searching, thank you.

 

[Donkere.prins]

Okay, checked out information on the rnd() function, but apparently it only works for integers. I understood that much anyhow, the rest was kind of a blur of language I don't anything about.

 

[KenHigg]

Here's a start:

Dim tempinteger As Integer

Do Until tempinteger > 64 And tempinteger < 91
    tempinteger = Int((Rnd()) * 100)
Loop

Me!Text0 = Chr(tempinteger)

>64 and <91 give you number that map to ascii characters. Here are the rest:

http://www.asciitable.com/

Hope this helps
Ken

 

[KenHigg]

ok - so here's a real klunky way to do it:

Private Sub Command2_Click()

Dim tempinteger As Integer

'First uppercase
Do Until tempinteger > 64 And tempinteger < 91
    tempinteger = Int((Rnd()) * 100)
Loop

Me!Text0 = Chr(tempinteger)

tempinteger = 0

'Second Uppercase
Do Until tempinteger > 64 And tempinteger < 91
    tempinteger = Int((Rnd()) * 100)
Loop

Me!Text0 = Me!Text0 & Chr(tempinteger)

tempinteger = 0

'First lowercase
Do Until tempinteger > 96 And tempinteger < 123
    tempinteger = Int((Rnd()) * 100)
Loop

Me!Text0 = Me!Text0 & Chr(tempinteger)

tempinteger = 0

'Second lowercase
Do Until tempinteger > 96 And tempinteger < 123
    tempinteger = Int((Rnd()) * 100)
Loop

Me!Text0 = Me!Text0 & Chr(tempinteger)

tempinteger = 0

'First symbol
Do Until tempinteger > 32 And tempinteger < 48
    tempinteger = Int((Rnd()) * 100)
Loop

Me!Text0 = Me!Text0 & Chr(tempinteger)

tempinteger = 0

'Second lowercase
Do Until tempinteger > 32 And tempinteger < 48
    tempinteger = Int((Rnd()) * 100)
Loop

Me!Text0 = Me!Text0 & Chr(tempinteger)

tempinteger = 0

'First number
Do Until tempinteger > 47 And tempinteger < 58
    tempinteger = Int((Rnd()) * 100)
Loop

Me!Text0 = Me!Text0 & Chr(tempinteger)

tempinteger = 0

'Second number
Do Until tempinteger > 47 And tempinteger < 58
    tempinteger = Int((Rnd()) * 100)
Loop

Me!Text0 = Me!Text0 & Chr(tempinteger)

End Sub

 

[Bungle]

Here's one I did earlier

Private Sub cmdNewPwd_Click()
'******************************************************************
'* Generate an 8 character pseudo random password in the format
'* [A-Z][a-z][special char][0-9][special char][A-Z][a-z][0-9]
'* This gives 24,174,030,400 combinations to guess at.
'******************************************************************
Dim i As Integer
Dim dblSeed As Double
Dim iSlot As Integer
Dim sSigns As String
Dim sPwd As String

dblSeed = Timer * CDbl(Date)

sPwd = ""
sSigns = "<>\/!$%^&*()+{}[]@~#:;?"

Randomize dblSeed
sPwd = Chr(Int((90 - 65) * Rnd + 65)) 'A-Z
dblSeed = dblSeed * CDbl(Date)
Randomize dblSeed
sPwd = sPwd & Chr(Int((122 - 97) * Rnd + 97)) 'a-z
dblSeed = dblSeed * CDbl(Date)
Randomize dblSeed
sPwd = sPwd & Mid(sSigns, Int((22 * Rnd) + 1), 1) 'select a sign from string sSigns
dblSeed = dblSeed * CDbl(Date)
Randomize dblSeed
sPwd = sPwd & Chr(Int((57 - 48) * Rnd + 48)) '0-9
dblSeed = dblSeed * CDbl(Date) * Right(sPwd, 1)
Randomize dblSeed
sPwd = sPwd & Mid(sSigns, Int((22 * Rnd) + 1), 1) 'select a sign from string sSigns
dblSeed = dblSeed * CDbl(Date)
Randomize dblSeed
sPwd = sPwd & Chr(Int((90 - 65) * Rnd + 65)) 'A-Z
dblSeed = dblSeed * CDbl(Date)
Randomize dblSeed
sPwd = sPwd & Chr(Int((122 - 97) * Rnd + 97)) 'a-z
dblSeed = dblSeed * CDbl(Date)
Randomize dblSeed
sPwd = sPwd & Chr(Int((57 - 48) * Rnd + 48)) '0-9

tPwd = sPwd

End Sub