Ich hoffe ein besseres Crackme als letztes mal

DolphVS

New member
So hier ist mein nächstes Crackme, ich hoffe diesmal schwerer als das letzte.
 

ivegotmail

Member of Honour
habo
rulez
!!!

number
one
ivegotmail

2 von vielen möglichkeiten ;)
 

DolphVS

New member
So hier der Code
Code:
Option Explicit
Dim Asc1 As Integer
Dim Asc2 As Integer
Dim Asc3 As Integer
Dim AscIns As Integer

Private Sub cmdCheck_Click()
  Asc1 = Asc(txtLösung1.Text)     
  Asc2 = Asc(txtLösung2.Text)    
  Asc3 = Asc(txtLösung2.Text)
  AscIns = Asc1 + Asc2 + Asc3
  If AscIns = 332 Then
    lbl1.Caption = "Right!"
  Else
    End
  End If
End Sub

Gute arbeit!
Wie hast du es rausbekommen?
War´s schwer?
 

ivegotmail

Member of Honour
ne war nich schwer. hab die datei mit ollydbg untersucht und bin dann recht schnell auf die lösung gekommen.

btw war das eigentlich beabsichtigt das lösung3 egal ist und lösung2 2 mal berücksichtigt wurde oder war das ein tipfehler?
Code:
Asc2 = Asc(txtLösung2.Text)   
Asc3 = Asc(txtLösung2.Text)
 
Oben