warleyalex's Ante DeDe crackme

Ante-dede function Revering ==========================================
Hi there,

This is my 1st. Crackme, it was compiled in Delphi3 (the best RAD).
It has a Anti-dede function on it.

Procedure Anti_Dede;
var
zHandle:THandle;
i:integer;
begin
zHandle:=FindWindow(nil,'Dede');
if zHandle<>0 then
begin
For i:=1 to 4500 do
SendMessage(zHandle,WM_CLOSE,0,0);
end;
end;

===============+==========================
I'm studing reversing with Delphi using the outstanding tool DeDe by DaFixer and the magnificent OllyDBG, so I decided to write this D3 app because i have a doubt:
How to find a Crypitted string in OllyDBG without using DeDe chr(64)+chr(65)+chr(64)+chr(65)?
It was classified by: VERY EASY because the procedure is no more that:

procedure TPasswordDlg.Button1Click(Sender: TObject);
begin
if password.text = senha then
showmessage ('Good') else
showmessage('Bad');
End;

Strings are encrypted of course if a lame function.
=========================================
The goals is to break "DeDe function" and find the password and
write a tutorial explaining this secret of OllyDBG finding unsuspects strings without brute force.
Everything is allowed. OK

Difficulty: 2 - Needs a little brain (or luck)
Platform: Windows
Language: Borland Delphi

Published: 31. Jan, 2007
Downloads: 479