This way you can change the access password whenever you want
I just threw this together for a program I'm making
Load up msinet.ocx
make: text1 (password), text2 (password feedback from the web), commandbutton1 (password verification), label1 (status), form2 (the next form)
----------------------------------
Private Sub Command1_Click()
Label1.Caption = "[ verifying pwd ]"
Dim pWd As String
pWd = Inet1.OpenURL("http://website.com/pwd.txt")
Do: DoEvents
Loop Until Inet1.StillExecuting = False
Text2.Text = pWd
If Text1.Text = "" + Text2.Text + "" = False Then GoTo unverified
verified:
Label1.Caption = "[ welcome... ]"
Form2.Show
GoTo verifiedx
unverified:
Label1.Caption = "[ INCORRECT ]"
End
verifiedx:
Unload Me
End Sub
---------------------------
^ simple code, but if your software leaks you can just change the access password in the URL and nobody can get in
