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 


Crack This

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming -> Crackmes
View previous topic :: View next topic  
Author Message
Jorg hi
I post too much
Reputation: 7

Joined: 24 Dec 2007
Posts: 2276
Location: Minnesota

PostPosted: Sun Oct 12, 2008 6:12 pm    Post subject: Crack This Reply with quote

Crack This!

Post What You Saw after you cracked it!!!

http://www.mediafire.com/?uj2cn1tilmn

_________________
CEF will always stay alive.
Back to top
View user's profile Send private message
Symbol
I'm a spammer
Reputation: 0

Joined: 18 Apr 2007
Posts: 5096
Location: Israel.

PostPosted: Fri Oct 17, 2008 3:22 am    Post subject: Reply with quote

Code:
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Try
        Dim num2 As Integer
        ProjectData.ClearProjectError
        Dim num As Integer = 2
        Me.RR.Text = (Conversions.ToString(Me.Form1.Text.Length) & Me.Form1.Text.Substring(5) & Conversions.ToString(Me.Form1.GetHashCode) & Me.Form1.Text.Substring(4))
        Me.RR.Text = String.Concat(New String() { Me.RR.Text, Me.RR.Text, Me.RR.Text, Me.RR.Text, Me.RR.Text, Me.RR.Text, Me.RR.Text, "kdsahjfdshauiuuhjzhjzkdsahjzkdsahjfdsh" })
        Do While (Me.RR.Text = "19oofua8ew4fadsa41149443soofua8ew4fadsa19oofua8ew4fadsa41149443soofua8ew4fadsa19oofua8ew4fadsa41149443soofua8ew4fadsa19oofua8ew4fadsa41149443soofua8ew4fadsa19oofua8ew4fadsa41149443soofua8ew4fadsa19oofua8ew4fadsa41149443soofua8ew4fadsa19oofua8ew4fadsa41149443soofua8ew4fadsakdsahjfdshauiuuhjzhjzkdsahjzkdsahjfdsh")
            MessageBox.Show("CORR.textECT!")
            Me.Close
        Loop
        Me.Close
    Label_0127:
        Me.Close
        If (num2 <> 0) Then
            ProjectData.ClearProjectError
        End If
        Return
    Label_0131:
        num2 = -1
        Select Case num
            Case 0, 1
                goto Label_0167
            Case 2
                goto Label_0127
        End Select
    Catch obj1 As Object When (?)
        ProjectData.SetProjectError(DirectCast(obj1, Exception))
        goto Label_0131
    End Try
Label_0167:
    Throw ProjectData.CreateProjectError(-2146828237)
End Sub

Ugly.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming -> Crackmes All times are GMT - 6 Hours
Page 1 of 1

 
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