| View previous topic :: View next topic |
| Author |
Message |
Kimo
Grandmaster Cheater Supreme
 Reputation: 0
Joined: 20 Jan 2007
Posts: 1284
Location: irc://p2p-irc.net/cef
|
 Posted: Tue Aug 28, 2007 10:50 am Post subject: [VB6 TUT]Password And Username Protection |
 |
|
Have u ever hated somebody ? that someone who download ur program and make fun of it etc etc... Solution :
First make 2 command buttons and 2 text boxes.
Name the first command Button " Validate " or something like "enter" to see if the user and pass are correct.
1rst command button's code :
| Code: | Private Sub Command1_Click()
Dim User$, Pw$
User = "UserName"
Pw = "Password"
If Text1.Text = User And Text2.Text = Pw Then
MsgBox " Correct Login "
Unload Form1
Form2.Show
Else
MsgBox " Wrong userName And Or Password"
End
End If
End Sub |
Name the 2nd command button "Close" wich will close the login form
2nd commands button's code :
| Code: | Private Sub Command2_Click()
End
End Sub |
First textbox name it "enter username here"
2nd textbox name it " enter password here"
Depends on the first code ...
That's it .
Last edited by Kimo on Tue Aug 28, 2007 2:39 pm; edited 1 time in total |
|
| Back to top |
|
 |
zart
Master Cheater
 Reputation: 0
Joined: 20 Aug 2007
Posts: 351
Location: russia
|
| Posted: Tue Aug 28, 2007 10:58 am Post subject: |
|
|
Nice method but just to note. If you check the crackmes section - you'll notice that this can be found in only a few seconds just by searching strings in olly.
Though it will keep true newbies out!
_________________
0x7A 0x61 0x72 0x74
TEAM RESURRECTiON |
|
| Back to top |
|
|
AtheistCrusader
Grandmaster Cheater
![]() Reputation: 6
Joined: 23 Sep 2006
Posts: 681
|
| Posted: Tue Aug 28, 2007 3:09 pm Post subject: Re: [VB6 TUT]Password And Username Protection |
|
|
| abba wrote: |
| Code: | Private Sub Command2_Click()
End
End Sub |
|
end is the worse command ...
use unload form1 |
|
| Back to top |
|
|
tylermoore
Expert Cheater
 Reputation: 0
Joined: 28 Aug 2007
Posts: 187
Location: ottawa
|
| Posted: Wed Aug 29, 2007 3:56 pm Post subject: |
|
|
good for newb but persoanlly it not the greatest way. but nice job heres my way
| Quote: | procedure TForm1.Button1Click(Sender: TObject);
var x: string;
begin
if length(edit1.text)=6 then
begin
x:=uppercase(edit1.text);
if (edit1.text[1]='2') and (edit1.text[2]='9') and (edit1.Text[3]='4') and (edit1.Text[4]='2') and (edit1.text[5]='6') and (edit1.Text[6]='3') then
begin
hide;
Menu:=tMenu.create(self);
Menu.show;
end;
end;
end;
|
the code is basic but pretty good. its easily defined and its easy to use.
_________________
|
|
| Back to top |
|
|
zart
Master Cheater
Reputation: 0
Joined: 20 Aug 2007
Posts: 351
Location: russia
|
| Posted: Wed Aug 29, 2007 3:58 pm Post subject: |
|
|
| tylermoore wrote: | good for newb but persoanlly it not the greatest way. but nice job heres my way
| Quote: | procedure TForm1.Button1Click(Sender: TObject);
var x: string;
begin
if length(edit1.text)=6 then
begin
x:=uppercase(edit1.text);
if (edit1.text[1]='2') and (edit1.text[2]='9') and (edit1.Text[3]='4') and (edit1.Text[4]='2') and (edit1.text[5]='6') and (edit1.Text[6]='3') then
begin
hide;
Menu:=tMenu.create(self);
Menu.show;
end;
end;
end;
|
the code is basic but pretty good. its easily defined and its easy to use. |
You do know he was using visual basic - not delphi, right?
_________________
0x7A 0x61 0x72 0x74
TEAM RESURRECTiON |
|
| Back to top |
|
|
Pseudo Xero
I post too much
![]() Reputation: 0
Joined: 16 Feb 2007
Posts: 2607
|
| Posted: Wed Aug 29, 2007 4:01 pm Post subject: Re: [VB6 TUT]Password And Username Protection |
|
|
| masterkert3 wrote: | | abba wrote: |
| Code: | Private Sub Command2_Click()
End
End Sub |
|
end is the worse command ...
use unload form1 |
No.
Using end completely ends the program. The unload command doesn't. |
|
| Back to top |
|
|
Pretty-Butterfly
How do I cheat?
![]() Reputation: 0
Joined: 30 Aug 2007
Posts: 7
Location: Pretty Butterfly villa
|
| Posted: Thu Aug 30, 2007 5:52 am Post subject: |
|
|
| Thanks i always wanted to put a password on my botting trainer for rs2 no point tho ... |
|
| Back to top |
|
|
Trow
Grandmaster Cheater
 Reputation: 2
Joined: 17 Aug 2006
Posts: 957
|
| Posted: Thu Aug 30, 2007 8:21 am Post subject: Re: [VB6 TUT]Password And Username Protection |
|
|
| Xenephobe wrote: | | masterkert3 wrote: | | abba wrote: |
| Code: | Private Sub Command2_Click()
End
End Sub |
|
end is the worse command ...
use unload form1 |
No.
Using end completely ends the program. The unload command doesn't. |
wasnt the classic one like this:
| Code: | Do While Not ActiveForm Is Nothing
Unload ActiveForm
Loop
End
|
_________________
Get kidnapped often. |
|
| Back to top |
|
|
ups2000ups
I post too much
![]() Reputation: 0
Joined: 31 Jul 2006
Posts: 2471
|
| Posted: Thu Aug 30, 2007 9:22 pm Post subject: |
|
|
| zart wrote: | | tylermoore wrote: | good for newb but persoanlly it not the greatest way. but nice job heres my way
| Quote: | procedure TForm1.Button1Click(Sender: TObject);
var x: string;
begin
if length(edit1.text)=6 then
begin
x:=uppercase(edit1.text);
if (edit1.text[1]='2') and (edit1.text[2]='9') and (edit1.Text[3]='4') and (edit1.Text[4]='2') and (edit1.text[5]='6') and (edit1.Text[6]='3') then
begin
hide;
Menu:=tMenu.create(self);
Menu.show;
end;
end;
end;
|
the code is basic but pretty good. its easily defined and its easy to use. |
You do know he was using visual basic - not delphi, right? |
should that be any different to get the pass lol ?
_________________
dont complain about my english...
1*1 = 2? |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
