Password prog.

Posted by: Nagachaak

Password prog. - 02/28/03 07:15 AM

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.
Posted by: Gremelin

Re: Password prog. - 02/28/03 08:01 AM

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).
Posted by: Nagachaak

Re: Password prog. - 02/28/03 08:30 AM

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.
Posted by: SilentRage

Re: Password prog. - 02/28/03 12:37 PM

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
Posted by: Nagachaak

Re: Password prog. - 03/02/03 03:25 PM

thanks but i'll try something i understand fisrt...then i'll get back to this.
Posted by: Nagachaak

Re: Password prog. - 03/03/03 10:01 AM

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

Re: Password prog. - 03/03/03 10:47 AM

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)
Posted by: Nagachaak

Re: Password prog. - 03/03/03 03:48 PM

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

thanks again sr
Posted by: Dartur

Re: Password prog. - 04/16/03 03:07 PM

Use your first idéa. Best one.