Delphi

 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
User Name:
Password:
Remember me



Go Back   Tutorialized ForumsDesktop ProgrammingDelphi

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Rate Thread Display Modes
 
Unread Tutorialized Forums Sponsor:
  #1  
Old September 6th, 2007, 01:05 PM
tylermoore tylermoore is offline
Registered User
Tutorialized Newbie (0 - 499 posts)
 
Join Date: Jun 2007
Posts: 9 tylermoore User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: 1 h 1 m 36 sec
Reputation Power: 0
How to Make password

Hello, This is my first Delphi 7e tutorial so please don't comment saying it's bad.

Ok, first off we need to start a new project so open up delphi and you'll see an empty form.

Cutomize the size and everything. Small is more perferred in this.

Now in Delphi you'll see a selection of tool categories. Select "Standard". When you've selected find the button the says Edit.

When found click it then click your form. You'll see now a box where you can edit it.

Time to set the box up. At the side of delphi you'll see "Object Inspector" if not open it so that you can edit.

click Edit1 or whatever the Edit tool is called. Go to Object Inspector. Scroll down list till you see "Text".

In the box beside it erase it so that the Edit box will have nothing in it.

The Edit box is done now. Time to work on how to get it working.

Make a button(For now it's going to be called button).
Put the button anywhere on the form. Now go to object inspector.

When in object inspector find Caption and name it.

The button will allow you to use the password.

Now dubble click button and a window will pop up this is where you edit it.

Paste this in but make sure it looks like this below and this only. You can change and I'll show you how.

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;
form2:=tform2.create(self);
form2.show;
end;
end;
end;


This code below is how it detects if password is right.

(edit1.text[1]='2')

Edit1 is the edit box that you made. If your Edit box is not named Edit1 then make sure that you change the edit1 to whatever you named your edit box.

(edit1.text[1]='2')

The 1 in this tells what position the password is at for example.

The 2 is first so we will put [1]. The 4 is second so we will put [2].

(edit1.text[1]='2')

Now for the 2 this will be the number you want for the password. As you can see 2 is first you can change to anything you want but make sure it's a single letter or digit.

Now that you under stand how it works take this and secure your new file.
Also one more thing if your going to use the script then the password in it is 294263

Thank you for your support.

Reply With Quote
Reply

Viewing: Tutorialized ForumsDesktop ProgrammingDelphi > How to Make password


Developer Shed Advertisers and Affiliates


Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump


Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
  
 

Powered by: vBulletin Version 3.0.5
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

© 2003-2018 by Developer Shed. All rights reserved. DS Cluster - Follow our Sitemap