password program 1

[tanker0016]

I would like to know how to make a password program...if anyone can help then I thank you for your time that was taken from your day.

Tanker0016

 

[MrVB50au]

tanker0016,

What and how will you use the password program?

Would it be within your own application?

If so, it's simple... Let us know where you're using it and we maybe able to help.

 

[tanker0016]

It should just be a password program that runs on its own not in another program if it is at all possible... Thanks for you help and time! FYI: I am running Microsoft Visual Basic 6.0.

Tanker0016

 

[MrVB50au]

OK, If you're running version 5 or 6 there's really not much difference. I have both.

Create a Form1

Place a TextBox1 on it and set its property:

TextBox1
PasswordChar = *

Run the app' and when you type something, it will show *

OK?

 

[bigfigkid]

I have read about 'fingerprinting' an application to run on a particular computer. How is this done ? Just a bit curious...

 

[SemperFiDownUnda]

I'm unclear what you want.
Do you want a program to validate passwords for other applications? A program to log you into some resource.

A "password program" by its self does nothing....kind of like going to a key cutter and saying "Make me a key" it won't fit anything and is useless by itself. Or a better example is asking for a lock mechanism without a key. You don't have any item that it is used on so what good is it.

 

[MrVB50au]

SemperFiDownUnda,

Hahaha... that's what I thought too

 

[darmo]

If your looking for code to see the actual password behind the astricks in say something like the dialup dialog box then go to this site and scroll down to PassSniff.zip

http://www.mvps.org/vb/samples.htm

Lots all other great vb code examples also.

Any of the vb code sites also have code doing the same thing.

 

[BlackburnKL]

You might want to check Thread222-495768 also. BlackburnKL

 

[jkevergreen]

Static intBadLogins As Integer
Static intBadLoginsPass As Integer
Dim Find As String '//Find Administrator ID
Dim Pass As String '//Find Administrator Password

On Error GoTo ErrorNoLan

Find = txtUserID.Text
If Find = "" Then
MsgBox "Please Enter Your Login ID"
txtUserID.SetFocus
Exit Sub
Else '//in find method use field name within table
mrstLogin.Find "UserID = " _
& "'" & Find & "'"
If mrstLogin.EOF Then
intBadLogins = intBadLogins + 1
If intBadLogins = 3 Then
MsgBox " Opps--- three tries and you're out!"
intBadLogins = 0
txtUserID.Text = ""
txtPassword.Text = ""
'frmCalStandards.Show
Call CloseMe
Unload frmLogin '//Only 3 tries then your outa here
frmISO.Show
Unload frmCalStandards
Exit Sub
Else
MsgBox "The Current Logon ID is incorrect. Please" _
& "Try Again ...", vbOKOnly
txtUserID.Text = ""
txtPassword.Text = ""
txtUserID.SetFocus
mrstLogin.MoveFirst
Exit Sub
End If
End If
End If

Pass = txtPassword.Text
If Pass = "" Then
MsgBox "Please Enter Your Logon Password"
txtPassword.SetFocus
Exit Sub
Else '//in find method use field name within table
mrstLogin.Find "Password = " _
& "'" & Pass & "'"
If mrstLogin.EOF Then
intBadLoginsPass = intBadLoginsPass + 1
If intBadLoginsPass = 3 Then
MsgBox " Opps--- three tries and you're out!"
intBadLoginsPass = 0
txtUserID.Text = ""
txtPassword.Text = ""
frmCalStandards.Show
Call CloseMe
Unload frmLogin '//Only 3 tries then your outa here
Exit Sub
Else
MsgBox "The Current Password is incorrect. Please" _
& "Try Again ...", vbOKOnly
txtPassword.Text = ""
txtPassword.SetFocus
mrstLogin.MoveFirst
Exit Sub
End If
End If
End If

 

[strongm]

From a security point of view, it is generally considered bad practice on a failed login to tell the use whether it was specifically the password or specifically the user ID that was at fault.

 

[SemperFiDownUnda]

If you know the userid you are half way to accessing their system. We just are so used to userid being public knowledge that we don't realise the full ramifications.

I've worked in areas where our login IDs where secure as well as the password, mixed case using numbers and symbols.

I'm still wondering what he/she actually wants and the purpose.