Previous Thread
Next Thread
Print Thread
Rate Thread
#17846 02/28/03 05:15 AM
Joined: Dec 2002
Posts: 89
Junior Member
OP Offline
Junior Member
Joined: Dec 2002
Posts: 89
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.


I am beyond God, I am human. I am the razorblade on the communion vein.
#17847 02/28/03 06:01 AM
Joined: Feb 2002
Posts: 7,203
Likes: 11
Community Owner
Offline
Community Owner
Joined: Feb 2002
Posts: 7,203
Likes: 11
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).


Donate to UGN Security here.
UGN Security, Back of the Web, and VNC Web Services Owner
#17848 02/28/03 06:30 AM
Joined: Dec 2002
Posts: 89
Junior Member
OP Offline
Junior Member
Joined: Dec 2002
Posts: 89
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.


I am beyond God, I am human. I am the razorblade on the communion vein.
#17849 02/28/03 10:37 AM
Joined: Mar 2002
Posts: 1,273
DollarDNS Owner
Offline
DollarDNS Owner
Joined: Mar 2002
Posts: 1,273
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


Domain Registration, Hosting, Management
http://www.dollardns.net
#17850 03/02/03 01:25 PM
Joined: Dec 2002
Posts: 89
Junior Member
OP Offline
Junior Member
Joined: Dec 2002
Posts: 89
thanks but i'll try something i understand fisrt...then i'll get back to this.


I am beyond God, I am human. I am the razorblade on the communion vein.
#17851 03/03/03 08:01 AM
Joined: Dec 2002
Posts: 89
Junior Member
OP Offline
Junior Member
Joined: Dec 2002
Posts: 89
syntax error sr. expected end of satement "/1)"<--
heh, kewl


I am beyond God, I am human. I am the razorblade on the communion vein.
#17852 03/03/03 08:47 AM
Joined: Mar 2002
Posts: 1,273
DollarDNS Owner
Offline
DollarDNS Owner
Joined: Mar 2002
Posts: 1,273
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)


Domain Registration, Hosting, Management
http://www.dollardns.net
#17853 03/03/03 01:48 PM
Joined: Dec 2002
Posts: 89
Junior Member
OP Offline
Junior Member
Joined: Dec 2002
Posts: 89
i use VB 6.0. promise. but hey i fixed it just like your last example.=)

thanks again sr


I am beyond God, I am human. I am the razorblade on the communion vein.
#17854 04/16/03 12:07 PM
Joined: Mar 2002
Posts: 23
Likes: 1
UGN Newbie
Offline
UGN Newbie
Joined: Mar 2002
Posts: 23
Likes: 1
Use your first id�a. Best one.


If you think you know something completely, you probably don't know enough.

Link Copied to Clipboard
Member Spotlight
Posts: 43
Joined: November 2002
Forum Statistics
Forums41
Topics33,840
Posts68,858
Average Daily Posts1
Members2,176
Most Online3,253
Jan 13th, 2020
Latest Postings
Where and how do you torrent?
by danni75 - 03/01/24 05:58 AM
Animation,
by JohanKaariainen - 08/15/19 01:18 AM
Blackbeard.....
by Gremelin - 10/03/18 07:02 PM
my old account still exists!
by Crime - 08/10/18 02:47 PM
Okay WTF?
by HenryMiring - 09/27/17 01:45 AM
The History Thread...
by Gremelin - 08/11/17 12:11 PM
My friend NEEDS your HELP!
by Lena01 - 07/21/17 12:06 AM
I'm having fun with this guy.
by gabithompson730 - 07/20/17 01:50 AM
I want to upgrade my phone
by gabithompson730 - 07/20/17 01:49 AM
Doom 3
by Cyrez - 09/11/14 08:58 PM
Amazon Gift Card Generator/KeyGen?te
by Gecko666 - 08/22/14 09:21 AM
AIM scene 99-03
by lavos - 09/02/13 08:06 AM
Planetside 2
by Crime - 03/04/13 07:10 AM
Beta Testers Wanted
by Crime - 03/04/13 06:55 AM
Hello Everyone
by Gremelin - 02/12/12 06:01 PM
Tracfone ESN Generator
by Zanvin Green - 01/18/12 01:31 PM
Python 3 issue
by Testing - 12/17/11 09:28 PM
tracfone airtime
by Drache86 - 07/30/11 03:37 AM
Backdoors and the Infinite
by ZeroCoolStar - 07/10/11 03:52 AM
HackThisZIne #12 Releaseed!
by Pipat2 - 04/28/11 09:20 PM
gang wars? l33t-wars?
by Gremelin - 04/28/11 05:56 AM
Consolidate Forums
by diggin2deep - 04/21/11 10:02 AM
LAN Hacking Noob
by Gremelin - 03/12/11 12:42 AM
Top Posters
UGN Security 41,392
Gremelin 7,203
§intå× 3,255
SilentRage 1,273
Ice 1,146
pergesu 1,136
Infinite 1,041
jonconley 955
Girlie 908
unreal 860
Top Likes Received
Ghost 2
unreal 1
Crime 1
Ice 1
Dartur 1
Powered by UBB.threads™ PHP Forum Software 7.7.5