Stop hackers!
Do you really hate when you make a textbox for a password, but some hacker comes and turns the *'s into regular words? Well then this is for you. My simple code will stop a hacker from doing that. (Very easy. No API's. Commented)
Original Author: Computer Controller
Assumptions
Before using this code, you should first have a textbox on your form.
Returns
Stops hackers
API Declarations
' No API's
Code
Dim TimeToEnd As Boolean
Private Sub Form_Load()
Form1.Show
Do ' Loop while form is on
DoEvents
If Text1.PasswordChar <> "*" Then Text1.PasswordChar = "*"
EndIf 'If the password is not in stars, then make it.
Loop Until TimeToEnd
End Sub
Private Sub Form_Unload(Cancel As Integer)
TimeToEnd = True
End Sub
' That's all!
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.