Ich hoffe ein besseres Crackme als letztes mal

[DolphVS]

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

 

[ivegotmail]

habo
rulez
!!!

number
one
ivegotmail

2 von vielen möglichkeiten

 

[sartre]

@DolphVS:

Jetzt da es gelöst ist, kannst Du uns allen doch den Source-Code posten !

 

[DolphVS]

So hier der 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]

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?

Asc2 = Asc(txtLösung2.Text)   
Asc3 = Asc(txtLösung2.Text)

 

[DolphVS]

Ist ein Tippfehler, danke für den Hinweis.