| View previous topic :: View next topic |
| Author |
Message |
coder sal
Master Cheater
 Reputation: 0
Joined: 11 May 2007
Posts: 304
|
 Posted: Sun May 18, 2008 10:13 am Post subject: CrackMe Source [VB6] |
 |
|
| Code: | Private Sub Timer1_Timer()
On Error GoTo havesex
If Text1.Text = "a" And Text2.Text = "452342342-24223123-22323211" Then
Form1.Caption = "Letter A cracked."
End If
If Text1.Text = "b" And Text2.Text = "1323243-3333-34444444444" Then
Form1.Caption = "Letter B cracked."
End If
If Text1.Text = "c" And Text2.Text = "452342342-24223123-22323211" Then
Form1.Caption = "Letter C cracked."
End If
If Text1.Text = "abc" And Text2.Text = "OOOOOOO-OOOOOOOO-OOOOOOOOOO" Then
MsgBox "All letters cracked, try to crack them individually!"
End
havesex:
End If
End Sub |
I wanted to make a crackme like that but then I thought it was going to be too easy to crack it... Anyway how would I encrypt this with VB6 code? |
|
| Back to top |
|
 |
sumnewdude
Expert Cheater
![]() Reputation: 0
Joined: 23 May 2007
Posts: 181
Location: Where you least expect me.
|
| Posted: Sun May 18, 2008 4:48 pm Post subject: |
|
|
umm you could seperate thim like this. . .
| Code: |
dim int as integer
dim a as string
dim g as string
g = b
a = 341231231-13112012-11212100
for int = 0 to 1
g = Chr(Asc(Mid(g,1,1))-1)
next
for int = 0 to len(a)
a = a & Chr(Asc(Mid(a,int,1))+1)
next
If Text1.Text = g And Text2.Text = a Then
Form1.Caption = "Letter A cracked."
End If
|
That should be pretty close to your "A" string the # are wrong though . . I don't know what is before"-" you can google it if you want.
Note: This is very basic but can become very useful. All they have to do to obtain the code is put a breakpoint somewhere. But for newb crackers it would slow them down/stop them. This is partly what I use when making my crackme's so I know how it works. if you have anymore questions feel free to ask.
_________________
.erutangis ruoy ni siht esu neht ,sdrawkcab siht daer ot hguone trams erew uoy fI |
|
| Back to top |
|
|
atom0s
Moderator
 Reputation: 205
Joined: 25 Jan 2006
Posts: 8588
Location: 127.0.0.1
|
| Posted: Sun May 18, 2008 8:26 pm Post subject: |
|
|
Using If Then for your compare renders the crackme useless such since you can just break on the _vbaStrCmp that it will create.
_________________
- Retired. |
|
| Back to top |
|
|
sumnewdude
Expert Cheater
![]() Reputation: 0
Joined: 23 May 2007
Posts: 181
Location: Where you least expect me.
|
| Posted: Mon May 19, 2008 5:37 am Post subject: |
|
|
| Wiccaan wrote: | | Using If Then for your compare renders the crackme useless such since you can just break on the _vbaStrCmp that it will create. |
hasn't stopped me before you still havn't gave me a solution to my last crackme that only uses if then and elseif 
_________________
.erutangis ruoy ni siht esu neht ,sdrawkcab siht daer ot hguone trams erew uoy fI |
|
| Back to top |
|
|
atom0s
Moderator
Reputation: 205
Joined: 25 Jan 2006
Posts: 8588
Location: 127.0.0.1
|
| Posted: Mon May 19, 2008 7:32 am Post subject: |
|
|
Because the 'objective' of the new one is done already by Lab:
http://forum.cheatengine.org/viewtopic.php?t=233455
'CrackMe', which Lab showed by patching the two conditional compares, it's done.
Not to mention the new one uses invalid characters. Not wasting my time digging through code to find things I can't type.
_________________
- Retired. |
|
| Back to top |
|
|
sumnewdude
Expert Cheater
![]() Reputation: 0
Joined: 23 May 2007
Posts: 181
Location: Where you least expect me.
|
| Posted: Mon May 19, 2008 9:20 pm Post subject: |
|
|
| Wiccaan wrote: | Because the 'objective' of the new one is done already by Lab:
http://forum.cheatengine.org/viewtopic.php?t=233455
'CrackMe', which Lab showed by patching the two conditional compares, it's done.
Not to mention the new one uses invalid characters. Not wasting my time digging through code to find things I can't type. |
Ok then when my new one comes out well will see then.
EDTI: Really wish I could use .NET to program would be a lot easyer. . .  oh well.
_________________
.erutangis ruoy ni siht esu neht ,sdrawkcab siht daer ot hguone trams erew uoy fI |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
