Any VB newbies? Want to password protect your software with a URL .txt - GoFuckYourself.com

187 · 06-23-2004, 10:03 PM

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

M_M · 06-23-2004, 11:05 PM

leave

bawdy · 06-23-2004, 11:23 PM

lol... use a http sniffer to find out whats been sent and recieved then set up a hostfile entry and replicate...

gin · 06-23-2004, 11:32 PM

until they change their hosts file to make website.com be theirwebsite.com and host their own pwd.txt and have full access.

M_M · 06-23-2004, 11:42 PM

make your app generate a random number and encode it with a private key..

send the number to the server, which also does the same encoding and sends back the encoded data.

compare to the local encoded data with what you get from the server.

only way to beat this would be messing with the executable or having the private key stolen.

zzgundamnzz · 06-23-2004, 11:58 PM

Weren't you dying or something?

Shouldn't you be seeing the world?

06-23-2004, 10:03 PM	#1
187 Confirmed User Join Date: Jun 2004 Location: ICQ: 59-10-33 Posts: 493	Any VB newbies? Want to password protect your software with a URL .txt 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 __________________ wtf? free traffic? ww.netr.nu is slick business you sheep Last edited by 187; 06-23-2004 at 10:05 PM..

06-23-2004, 11:58 PM	#6
zzgundamnzz Confirmed User Join Date: Apr 2002 Location: Los Angeles Posts: 6,102	Weren't you dying or something? Shouldn't you be seeing the world? __________________

06-23-2004, 11:05 PM	#2
M_M Confirmed User Join Date: May 2004 Posts: 1,167	leave

06-23-2004, 11:23 PM	#3
bawdy Confirmed User Join Date: Feb 2002 Posts: 1,424	lol... use a http sniffer to find out whats been sent and recieved then set up a hostfile entry and replicate...

06-23-2004, 11:32 PM	#4
gin Confirmed User Join Date: Sep 2003 Posts: 672	until they change their hosts file to make website.com be theirwebsite.com and host their own pwd.txt and have full access.

06-23-2004, 11:42 PM	#5
M_M Confirmed User Join Date: May 2004 Posts: 1,167	make your app generate a random number and encode it with a private key.. send the number to the server, which also does the same encoding and sends back the encoded data. compare to the local encoded data with what you get from the server. only way to beat this would be messing with the executable or having the private key stolen.