UGN Security Forums UGN Security: Knowledge Base Programming VB Password prog.

sitting here trying to figure how to make the program i just wrote to generate a new password every time it starts. the idea is that i will be able to get the new generated pass from a file somewhere.

1.how do i get the program to generate a pass new pass every time it runs? i know i could probably use a number generator but i also want other chars.
2. how do i get the program to store the new pass in a file.

i'm really new on this so save the flames to someone how needs them.

Why not just make a random password generator? I had neo write me one once, you could specify the character sets (english characters, extended characters, etc) for however long you needed it (could generate a random 150 character password if i wanted to).

thanks gizmo, i guess i have figured how to do the generator.
the thing is i want it to be logged in a file somwhere.

Private Sub Form_Load()
Dim Chars As String, PassLength As Long
Randomize

Chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
PassLength = 90

For X = 1 To PassLength
Password = Password & Mid(Chars, ((Rnd() * (Len(Chars) - 1)) \ 1) + 1, 1)
Next

Open App.Path & "\passwords.txt" For Append As #1
Print #1, Password
Close #1
End Sub

thanks but i'll try something i understand fisrt...then i'll get back to this.

syntax error sr. expected end of satement "/1)"<--
heh, kewl

Use Visual Basic 6.0. Copy the code straight into a new project all by itself. It works without error.

If whatever you're using (which can't be VB6.0) doesn't like my integer divide operator, then use this instead:

change this:

Password = Password & Mid(Chars, ((Rnd() * (Len(Chars) - 1)) \ 1) + 1, 1)

to this:

Password = Password & Mid(Chars, Int(Rnd() * (Len(Chars) - 1)) + 1, 1)

i use VB 6.0. promise. but hey i fixed it just like your last example.=)

thanks again sr

Use your first id�a. Best one.