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 


My First Crackme!!!
Goto page 1, 2  Next
 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming -> Crackmes
View previous topic :: View next topic  
Author Message
Stalkeer
Cheater
Reputation: 0

Joined: 24 Aug 2007
Posts: 26
PostPosted: Wed Sep 12, 2007 3:31 pm    Post subject: My First Crackme!!! Reply with quote
Hope its not to easy -_-
but its my first! Sad
Back to top
View user's profile Send private message
Stalkeer
Cheater
Reputation: 0

Joined: 24 Aug 2007
Posts: 26
PostPosted: Wed Sep 12, 2007 3:35 pm    Post subject: Reply with quote
Do i need to say what i made it in?
If i tell you then you can crack it faster? Confused
Back to top
View user's profile Send private message
Pseudo Xero
I post too much
Reputation: 0

Joined: 16 Feb 2007
Posts: 2607
PostPosted: Wed Sep 12, 2007 3:55 pm    Post subject: Reply with quote
This doesn't accept any password as far as I'm aware; I decompiled it and here's what I got.

Code:
Private Sub Command1_Click() '4043A0
  loc_004043C5: var_08 = &H4010B0
  loc_004043D1: and eax, 00000001h
  loc_004043D4: var_04 = arg_08
  loc_004043D7: and esi, FFFFFFFEh
  loc_004043DB: arg_08 = arg_08
  loc_004043E0: call ecx+04h(arg_08, edi, esi, ebx, fs:[00h], MSVBVM60.DLL.__vbaExceptHandler, ebp)
  loc_00404409: call edx+00000300h(arg_08)
  loc_0040441A: var_20 = IsSet(edx+00000300h(arg_08))
  loc_00404425: call ecx+000000A0h(var_20, "")
  loc_0040442F: If ecx+000000A0h(var_20, "") < ebx Then
  loc_0040443D:   call MSVBVM60.DLL.__vbaHresultCheckObj(ecx+000000A0h(var_20, ""), var_20, 0040269Ch, 000000A0h)
  loc_00404443: End If
  loc_0040444A: If 405024h = ebx Then
  loc_00404456:   CreateObject(00401B7Ch, 00405024h)
  loc_00404461: End If
  loc_00404464: call ecx+00000300h(405024h)
  loc_0040446F: var_24 = IsSet(ecx+00000300h(405024h))
  loc_0040447A: call eax+50h(ecx+00000300h(405024h), "")
  loc_00404481: If eax+50h(ecx+00000300h(405024h), "") < ebx Then
  loc_0040448C:   call MSVBVM60.DLL.__vbaHresultCheckObj(eax+50h(ecx+00000300h(405024h), ""), ecx+00000300h(405024h), 004026F8h, 00000050h)
  loc_00404492: End If
  loc_004044A5: neg esi
  loc_004044A7: sbb esi, esi
  loc_004044AD: inc esi
  loc_004044B1: neg esi
  loc_004044CF: If ("" = "") <> ebx Then
  loc_004044DB:   If 004053A4h = ebx Then
  loc_004044E7:     CreateObject(00402728h, 004053A4h)
  loc_004044ED:   End If
  loc_004044FA:   If 405010h = ebx Then
  loc_00404506:     CreateObject(00401DF0h, 00405010h)
  loc_0040450C:   End If
  loc_00404519:   call MSVBVM60.DLL.__vbaObjSetAddref("", 00405010h)
  loc_00404521:   call edi+10h(004053A4h, MSVBVM60.DLL.__vbaObjSetAddref("", 00405010h))
  loc_00404528:   If edi+10h(004053A4h, MSVBVM60.DLL.__vbaObjSetAddref("", 00405010h)) < ebx Then
  loc_00404533:     call MSVBVM60.DLL.__vbaHresultCheckObj(edi+10h(004053A4h, MSVBVM60.DLL.__vbaObjSetAddref("", 00405010h)), 004053A4h, 00402718h, 00000010h)
  loc_00404539:   End If
  loc_0040453C:   call MSVBVM60.DLL.__vbaFreeObj
  loc_00404548:   If 004053A4h = ebx Then
  loc_00404554:     CreateObject(00402728h, 004053A4h)
  loc_0040455A:   End If
  loc_00404567:   If 405024h = ebx Then
  loc_00404573:     CreateObject(00401B7Ch, 00405024h)
  loc_00404579:   End If
  loc_00404586:   call MSVBVM60.DLL.__vbaObjSetAddref("", 00405024h)
  loc_0040458E:   call edi+10h(004053A4h, MSVBVM60.DLL.__vbaObjSetAddref("", 00405024h))
  loc_00404595:   If edi+10h(004053A4h, MSVBVM60.DLL.__vbaObjSetAddref("", 00405024h)) < ebx Then
  loc_004045A0:     call MSVBVM60.DLL.__vbaHresultCheckObj(edi+10h(004053A4h, MSVBVM60.DLL.__vbaObjSetAddref("", 00405024h)), 004053A4h, 00402718h, 00000010h)
  loc_004045A6:   End If
  loc_004045A9:   call MSVBVM60.DLL.__vbaFreeObj
  loc_004045B5:   If 00405038h = ebx Then
  loc_004045C1:     CreateObject(004020ECh, 00405038h)
  loc_004045C7:   End If
  loc_004045D1:   var_00000084 = 10
  loc_004045D7:   var_74 = 10
  loc_004045EC:   var_7C = 80020004h
  loc_004045FD:   var_6C = 80020004h
  loc_0040461A:   call edi+000002B0h(00405038h)
  loc_00404626:   If edi+000002B0h(00405038h) < ebx Then
  loc_00404638:     call MSVBVM60.DLL.__vbaHresultCheckObj(edi+000002B0h(00405038h), 00405038h, 00402738h, 000002B0h)
  loc_0040463E:     GoTo loc_004046C6
  loc_00404643:   End If
  loc_00404653:   var_5C = 80020004h
  loc_00404659:   var_4C = 80020004h
  loc_0040466D:   var_7C = "CrackMe"
  loc_00404674:   var_00000084 = 8
  loc_00404682:   var_6C = "Sorry..."
  loc_00404689:   var_74 = 8
  loc_0040469F:   MsgBox("Sorry...", ebx, "CrackMe", 10, 10)
  loc_004046C0:   call End
  loc_004046C6: End If
  loc_004046CE: GoTo loc_40470C
  loc_0040470B: ret
  loc_0040470C: 'Referenced from 004046CE
  loc_0040470C: ret
  loc_00404713: call ecx+08h(arg_08)
  loc_00404729: retn 0004h
End Sub
Back to top
View user's profile Send private message
Pseudo Xero
I post too much
Reputation: 0

Joined: 16 Feb 2007
Posts: 2607
PostPosted: Wed Sep 12, 2007 3:59 pm    Post subject: Reply with quote
Talix wrote:
Yeah, I saw only a badboy message, no goodboys.

And he didn't use any "else" code in his If statements.
Back to top
View user's profile Send private message
Stalkeer
Cheater
Reputation: 0

Joined: 24 Aug 2007
Posts: 26
PostPosted: Wed Sep 12, 2007 4:00 pm    Post subject: Reply with quote
Oh.. so it wasnt easy?
My first 1 was good then?

And what do you mean it doesn't accept any password...?
Back to top
View user's profile Send private message
Pseudo Xero
I post too much
Reputation: 0

Joined: 16 Feb 2007
Posts: 2607
PostPosted: Wed Sep 12, 2007 4:01 pm    Post subject: Reply with quote
Stalkeer wrote:
Oh.. so it wasnt easy?
My first 1 was good then?

And what do you mean it doesn't accept any password...?

I'm pretty damn sure you made it have a badboy message for every password.
Back to top
View user's profile Send private message
Stalkeer
Cheater
Reputation: 0

Joined: 24 Aug 2007
Posts: 26
PostPosted: Wed Sep 12, 2007 4:02 pm    Post subject: Reply with quote
Nothing to Crack? Shocked
[Edit]There is 1 Password...
Back to top
View user's profile Send private message
Pseudo Xero
I post too much
Reputation: 0

Joined: 16 Feb 2007
Posts: 2607
PostPosted: Wed Sep 12, 2007 4:03 pm    Post subject: Reply with quote
Stalkeer wrote:
Nothing to Crack? Shocked
[Edit]There is 1 Password...

Laughing
Back to top
View user's profile Send private message
Stalkeer
Cheater
Reputation: 0

Joined: 24 Aug 2007
Posts: 26
PostPosted: Wed Sep 12, 2007 4:04 pm    Post subject: Reply with quote
Ok.. nothing to crack here then Crying or Very sad
should i tell the password then?
Back to top
View user's profile Send private message
Stalkeer
Cheater
Reputation: 0

Joined: 24 Aug 2007
Posts: 26
PostPosted: Wed Sep 12, 2007 4:07 pm    Post subject: Reply with quote
Password is: Command1@2
Back to top
View user's profile Send private message
Pseudo Xero
I post too much
Reputation: 0

Joined: 16 Feb 2007
Posts: 2607
PostPosted: Wed Sep 12, 2007 4:08 pm    Post subject: Reply with quote
Wow...
Back to top
View user's profile Send private message
Stalkeer
Cheater
Reputation: 0

Joined: 24 Aug 2007
Posts: 26
PostPosted: Wed Sep 12, 2007 4:09 pm    Post subject: Reply with quote
Shocked ?
Back to top
View user's profile Send private message
killersamurai
Expert Cheater
Reputation: 0

Joined: 10 Sep 2007
Posts: 197
Location: Colorado
PostPosted: Wed Sep 12, 2007 4:11 pm    Post subject: Reply with quote
edit: was too slow in posting :S. You can see the password at 40449A if you open it up in olly since that is where it is comparing.

Enter in Command1@2. Then it will show you another pass which is X10A6bm.
Back to top
View user's profile Send private message
zart
Master Cheater
Reputation: 0

Joined: 20 Aug 2007
Posts: 351
Location: russia
PostPosted: Wed Sep 12, 2007 4:22 pm    Post subject: Reply with quote
@killer

goodjob

@Stalkeer

Hey try not posting a solution until other people get a shot at it... This one was easy but it's pretty useless if you don't let people try and just post the answer. Some of us do work Wink We don't have time to check the forum everrryy 5 seconds
_________________
0x7A 0x61 0x72 0x74

TEAM RESURRECTiON
Back to top
View user's profile Send private message
oib111
I post too much
Reputation: 0

Joined: 02 Apr 2007
Posts: 2947
Location: you wanna know why?
PostPosted: Wed Sep 12, 2007 4:24 pm    Post subject: Reply with quote
killer i didnt know that you posted on cef
_________________


8D wrote:

cigs dont make people high, which weed does, which causes them to do bad stuff. like killing
Back to top
View user's profile Send private message AIM Address Yahoo Messenger MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming -> Crackmes All times are GMT - 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 
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 cannot download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites