Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


Delphi Password protection tutorial Update 22 dec
Goto page Previous  1, 2, 3  Next
 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming
View previous topic :: View next topic  
Author Message
DeltaFlyer
Grandmaster Cheater
Reputation: 0

Joined: 22 Jul 2006
Posts: 666

PostPosted: Wed Aug 22, 2007 7:35 pm    Post subject: Reply with quote

muffinman177 wrote:
That's what I did, after every letter it says incorrect password. Like as soon as you type in "S" for Simon, it'll say incorrect.


Put the code into the procedure that handles a button's onClick event instead of an edit box's onChange event.

_________________

Wow.... still working at 827... what's INCA thinking?
zomg l33t hax at this place (IE only). Over 150 people have used it, what are YOU waiting for?
Back to top
View user's profile Send private message
cicak
Expert Cheater
Reputation: 0

Joined: 02 Apr 2007
Posts: 159
Location: Cheat Engine

PostPosted: Fri Dec 14, 2007 2:28 pm    Post subject: Reply with quote

bump. thanks for the nice tut.
but how do i make more than one passwords?
i tried
Code:
if edit1.text = 'haha','huhu' then

but it gave me error lol..
[Error] Unit1.pas(35): 'THEN' expected but ',' found

_________________


Last edited by cicak on Fri Dec 14, 2007 5:02 pm; edited 2 times in total
Back to top
View user's profile Send private message
DeletedUser14087
I post too much
Reputation: 2

Joined: 21 Jun 2006
Posts: 3069

PostPosted: Fri Dec 14, 2007 2:38 pm    Post subject: Reply with quote

what's written in the text is case sencetive

make it for example

if edit.text = (('simon') or ('Simon')) then
MessageBox(0,'Valid','Win',0);

but this is so basic crackme's, when you debug it you can easly see the text.

Here's another trick.

if edit.text = 'Hey'+length(edit.text) then

hex the length of edit text
Back to top
View user's profile Send private message
Reak
I post too much
Reputation: 0

Joined: 15 May 2007
Posts: 3496

PostPosted: Sat Dec 15, 2007 7:04 am    Post subject: Reply with quote

Something what is not THAT easy to crack is, if you put your password in a invisible Edit field (even the msg).

if Edit1.Text = Password.Text
then ShowMessage(Correct.Text)
else ShowMessage(Incorrect.Text);
Back to top
View user's profile Send private message
McElf
Newbie cheater
Reputation: 0

Joined: 09 Aug 2007
Posts: 17

PostPosted: Tue Dec 18, 2007 9:49 am    Post subject: Reply with quote

now we have to add encryption and hex protection! Razz
Back to top
View user's profile Send private message
DeletedUser14087
I post too much
Reputation: 2

Joined: 21 Jun 2006
Posts: 3069

PostPosted: Tue Dec 18, 2007 12:59 pm    Post subject: Reply with quote

McElf wrote:
now we have to add encryption and hex protection! Razz


hex is not a protection.

and when you say "we" who's "we" ?
Back to top
View user's profile Send private message
McElf
Newbie cheater
Reputation: 0

Joined: 09 Aug 2007
Posts: 17

PostPosted: Thu Dec 20, 2007 9:35 pm    Post subject: Reply with quote

Kaspersky wrote:
McElf wrote:
now we have to add encryption and hex protection! Razz


hex is not a protection.

and when you say "we" who's "we" ?


no i mean for 'hex protection' protection from hex editing (scrambling with upx mite work...) Rolling Eyes
Back to top
View user's profile Send private message
tarochanpan
Master Cheater
Reputation: 0

Joined: 25 Jan 2007
Posts: 285
Location: up your arse XD

PostPosted: Fri Dec 21, 2007 8:25 pm    Post subject: Reply with quote

cicak wrote:
bump. thanks for the nice tut.
but how do i make more than one passwords?
i tried
Code:
if edit1.text = 'haha','huhu' then

but it gave me error lol..
[Error] Unit1.pas(35): 'THEN' expected but ',' found


If you want to use multiple edit boxes use this

Code:

var s: string;
begin
s := Edit1.Text+Edit2.Text+Edit3.Text;
if (s) = 'hellofredyou' then
begin
ShellExecute(Handle, 'open','www.google.com', nil, nil, SW_SHOWNORMAL) ;

_________________




Last edited by tarochanpan on Sat Dec 22, 2007 9:34 pm; edited 1 time in total
Back to top
View user's profile Send private message MSN Messenger
slippppppppp
Grandmaster Cheater
Reputation: 0

Joined: 08 Aug 2006
Posts: 929

PostPosted: Fri Dec 21, 2007 9:46 pm    Post subject: Reply with quote

if edit1.text = I - Length(PassWord) * 7 then begin
showmessage('WOOT');
Back to top
View user's profile Send private message AIM Address MSN Messenger
samuri25404
Grandmaster Cheater
Reputation: 7

Joined: 04 May 2007
Posts: 955
Location: Why do you care?

PostPosted: Fri Dec 21, 2007 11:18 pm    Post subject: Reply with quote

tarochanpan wrote:
cicak wrote:
bump. thanks for the nice tut.
but how do i make more than one passwords?
i tried
Code:
if edit1.text = 'haha','huhu' then

but it gave me error lol..
[Error] Unit1.pas(35): 'THEN' expected but ',' found


If you want to use multiple edit boxes use this

Code:

var s: string;
begin
s := Edit1.Text + Edit2.Text + Edit3.Text;
ShellExecute(Handle, 'open',pchar(s), nil, nil, SW_SHOWNORMAL) ;
end;


Lol, that's so wrong it's not even funny.

Try this:

Code:

if edit1.Text = 'haha' or 'huhu' then
begin
   //...
end;

_________________
Wiccaan wrote:

Oh jeez, watchout I'm a bias person! Locked.


Auto Assembly Tuts:
In Depth Tutorial on AA
Extended
Back to top
View user's profile Send private message
tarochanpan
Master Cheater
Reputation: 0

Joined: 25 Jan 2007
Posts: 285
Location: up your arse XD

PostPosted: Sat Dec 22, 2007 9:33 pm    Post subject: Reply with quote

sorry i was doing some coding on a google searcher didn't check over it

it should be

Code:
var s: string;
begin
s := Edit1.Text+Edit2.Text+Edit3.Text;
if (s) = 'hellofredyou' then
begin
ShellExecute(Handle, 'open','www.google.com', nil, nil, SW_SHOWNORMAL) ;

_________________


Back to top
View user's profile Send private message MSN Messenger
cicak
Expert Cheater
Reputation: 0

Joined: 02 Apr 2007
Posts: 159
Location: Cheat Engine

PostPosted: Sun Dec 23, 2007 3:07 am    Post subject: Reply with quote

kthxguys Very Happy
_________________
Back to top
View user's profile Send private message
DeletedUser14087
I post too much
Reputation: 2

Joined: 21 Jun 2006
Posts: 3069

PostPosted: Thu Dec 27, 2007 6:55 am    Post subject: Reply with quote

topic starter recheck your thread.
Back to top
View user's profile Send private message
malfunction
Grandmaster Cheater Supreme
Reputation: 0

Joined: 30 Jan 2007
Posts: 1015
Location: http://www.behindthecorner.com/

PostPosted: Fri Dec 28, 2007 7:28 am    Post subject: Reply with quote

Kaspersky wrote:
McElf wrote:
now we have to add encryption and hex protection! Razz


hex is not a protection.

and when you say "we" who's "we" ?

when some one says "we" he means that he/she is going to be watching as you do the work, often called: leeching

Thread starter, this is the crappiest password protection ever, it is so easy to crack. Using any RE (eg OllyDbg, hview etc.) program will give you the password in 5 secs.
No use using this unless you hex it or something

_________________
Back to top
View user's profile Send private message
tarochanpan
Master Cheater
Reputation: 0

Joined: 25 Jan 2007
Posts: 285
Location: up your arse XD

PostPosted: Wed Jan 02, 2008 8:33 pm    Post subject: Reply with quote

i was just showing everyione the simplest password protection you could do. I didn't say anything about being the best protection and no one could crack it!
_________________


Back to top
View user's profile Send private message MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming All times are GMT - 6 Hours
Goto page Previous  1, 2, 3  Next
Page 2 of 3

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites