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 Me :P

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming -> Crackmes
View previous topic :: View next topic  
Author Message
XxOsirisxX
Grandmaster Cheater Supreme
Reputation: 0

Joined: 30 Oct 2006
Posts: 1597

PostPosted: Wed Feb 13, 2008 7:39 pm    Post subject: Crack Me :P Reply with quote

This is my first "Crack Me", be good with him Razz

[Made on VB.Net]

_________________

Back to top
View user's profile Send private message
skam8
Master Cheater
Reputation: 1

Joined: 03 Oct 2006
Posts: 291
Location: Teh epic land of Canada

PostPosted: Wed Feb 13, 2008 9:05 pm    Post subject: Reply with quote

Edited for you bitch. Nice crackme tough.
_________________


Last edited by skam8 on Wed Feb 13, 2008 9:09 pm; edited 1 time in total
Back to top
View user's profile Send private message
XxOsirisxX
Grandmaster Cheater Supreme
Reputation: 0

Joined: 30 Oct 2006
Posts: 1597

PostPosted: Wed Feb 13, 2008 9:07 pm    Post subject: Reply with quote

rofl, i just told you that but you understand it wrong.. well.. good luck.
_________________

Back to top
View user's profile Send private message
atom0s
Moderator
Reputation: 198

Joined: 25 Jan 2006
Posts: 8516
Location: 127.0.0.1

PostPosted: Sun Feb 24, 2008 3:55 am    Post subject: Reply with quote

Because you made mention about your crackme in another topic, heres the solution.

Some suggestions about this, first, don't use .NET. Why?

Code:
Option Strict Off
Option Explicit On

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices
Imports System.Windows.Forms
Imports Microsoft.VisualBasic.CompilerServices

Namespace WindowsApplication1
    <DesignerGenerated()>  _
    Public Class Form1
        Inherits System.Windows.Forms.Form
        Private Shared __ENCList As System.Collections.ArrayList
        Private components As IContainer
        Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
        Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
        Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
        Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
        Friend WithEvents Button1 As System.Windows.Forms.Button
        Friend WithEvents Timer1 As System.Windows.Forms.Timer
        Friend WithEvents Timer2 As System.Windows.Forms.Timer
        Friend WithEvents Timer3 As System.Windows.Forms.Timer
        Friend WithEvents Timer4 As System.Windows.Forms.Timer
        Friend WithEvents Timer5 As System.Windows.Forms.Timer
        Friend WithEvents Timer6 As System.Windows.Forms.Timer
        Friend WithEvents Timer7 As System.Windows.Forms.Timer
        Friend WithEvents Timer8 As System.Windows.Forms.Timer
        Private crap As Byte
        Private Const SYNCHRONIZE As Integer = 1048576
        Private Const PROCESS_TERMINATE As Integer = 1
        Private Const WM_CLOSE As Integer = 16
        <DebuggerNonUserCode()>  _
        Public Sub New()
            MyBase.New()
            AddHandler MyBase.Load, New System.EventHandler(AddressOf Me.Form1_Load)
            WindowsApplication1.Form1.__ENCList.Add(New System.WeakReference(Me))
            InitializeComponent
        End Sub
        <DebuggerStepThrough()>  _
        Private Sub InitializeComponent()
            Me.components = New Container
            Dim componentResourceManager As New ComponentResourceManager(GetType(WindowsApplication1.Form1))
            PictureBox1 = New System.Windows.Forms.PictureBox
            TextBox1 = New System.Windows.Forms.TextBox
            TextBox2 = New System.Windows.Forms.TextBox
            TextBox3 = New System.Windows.Forms.TextBox
            Button1 = New System.Windows.Forms.Button
            Timer1 = New System.Windows.Forms.Timer(Me.components)
            Timer2 = New System.Windows.Forms.Timer(Me.components)
            Timer3 = New System.Windows.Forms.Timer(Me.components)
            Timer4 = New System.Windows.Forms.Timer(Me.components)
            Timer5 = New System.Windows.Forms.Timer(Me.components)
            Timer6 = New System.Windows.Forms.Timer(Me.components)
            Timer7 = New System.Windows.Forms.Timer(Me.components)
            Timer8 = New System.Windows.Forms.Timer(Me.components)
            PictureBox1.BeginInit
            MyBase.SuspendLayout
            PictureBox1.Image = CType(componentResourceManager.GetObject("PictureBox1.Image"),System.Drawing.Image)
            Dim point As New System.Drawing.Point(-6, 1)
            PictureBox1.Location = point
            PictureBox1.Name = "PictureBox1"
            Dim size As New System.Drawing.Size(403, 192)
            PictureBox1.Size = size
            PictureBox1.TabIndex = 0
            PictureBox1.TabStop = false
            TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, 0)
            point = New System.Drawing.Point(153, 99)
            TextBox1.Location = point
            TextBox1.MaxLength = 5
            TextBox1.Name = "TextBox1"
            TextBox1.PasswordChar = "•"
            size = New System.Drawing.Size(65, 20)
            TextBox1.Size = size
            TextBox1.TabIndex = 1
            point = New System.Drawing.Point(224, 99)
            TextBox2.Location = point
            TextBox2.MaxLength = 11
            TextBox2.Name = "TextBox2"
            TextBox2.PasswordChar = "•"
            size = New System.Drawing.Size(80, 20)
            TextBox2.Size = size
            TextBox2.TabIndex = 2
            point = New System.Drawing.Point(310, 99)
            TextBox3.Location = point
            TextBox3.MaxLength = 20
            TextBox3.Name = "TextBox3"
            TextBox3.PasswordChar = "•"
            size = New System.Drawing.Size(27, 20)
            TextBox3.Size = size
            TextBox3.TabIndex = 3
            Button1.Enabled = false
            point = New System.Drawing.Point(296, 149)
            Button1.Location = point
            Button1.Name = "Button1"
            size = New System.Drawing.Size(73, 24)
            Button1.Size = size
            Button1.TabIndex = 4
            Button1.[Text] = "Next"
            Button1.UseVisualStyleBackColor = true
            MyBase.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
            MyBase.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            size = New System.Drawing.Size(381, 178)
            MyBase.ClientSize = size
            MyBase.Controls.Add(Button1)
            MyBase.Controls.Add(TextBox3)
            MyBase.Controls.Add(TextBox2)
            MyBase.Controls.Add(TextBox1)
            MyBase.Controls.Add(PictureBox1)
            MyBase.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
            MyBase.Icon = CType(componentResourceManager.GetObject("$this.Icon"),System.Drawing.Icon)
            MyBase.MaximizeBox = false
            MyBase.Name = "Form1"
            MyBase.Opacity = 0.85
            MyBase.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
            MyBase.[Text] = "Crack Me"
            PictureBox1.EndInit
            MyBase.ResumeLayout(false)
            MyBase.PerformLayout
        End Sub
        Shared Sub New()
            WindowsApplication1.Form1.__ENCList = New System.Collections.ArrayList
        End Sub
        <DebuggerNonUserCode()>  _
        Protected Overloads Sub Dispose(ByVal disposing As Boolean)
            If (IIf((disposing) AndAlso (Not Me.components Is Nothing), true, false)) Then
                Me.components.Dispose
            End If
            MyBase.Dispose(disposing)
        End Sub
        <DllImport("user32", EntryPoint:="FindWindowA", ExactSpelling:=true, CharSet:=CharSet.[Ansi])>  _
        Private Shared Function FindWindow(<MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpClassName As String, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpWindowName As String) As Integer
        End Function
        <DllImport("user32")>  _
        Private Shared Function GetWindowThreadProcessId(ByVal hwnd As Integer, ByRef lpdwProcessId As Integer) As Integer
        End Function
        <DllImport("kernel32")>  _
        Private Shared Function OpenProcess(ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
        End Function
        <DllImport("kernel32")>  _
        Private Shared Function CloseHandle(ByVal hObject As Integer) As Integer
        End Function
        <DllImport("kernel32")>  _
        Private Shared Function TerminateProcess(ByVal hProcess As Integer, ByVal uExitCode As Integer) As Integer
        End Function
        <DllImport("user32", EntryPoint:="PostMessageA", ExactSpelling:=true, CharSet:=CharSet.[Ansi])>  _
        Private Shared Function PostMessage(ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
        End Function

        Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs)
            Timer1.Enabled = true
            Timer2.Enabled = true
            Timer3.Enabled = true
            Timer4.Enabled = true
            Timer5.Enabled = true
            Timer6.Enabled = true
            Timer7.Enabled = true
            Timer8.Enabled = true
            Me.crap = 0
        End Sub

        Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim v_i As Integer
            Dim v_i1 As Integer
            Try
            ILO_0073:
                v_i1 = 0
                Dim v_i2 As Integer
                Select v_i1
                    Case -1
                        Throw ProjectData.CreateProjectError(-2146828237)
                        If v_i1 <> 0 Then
                            ProjectData.ClearProjectError
                        End If
                        Return

                    Case 0
                        ProjectData.ClearProjectError
                        v_i = -2

                    Case 1
                        v_i2 = 2
                        If Not (TextBox1.[Text].Length = 5) Then
                            goto ILO_006d
                        End If

                    Case 2
                        v_i2 = 3
                        If Not (Operators.CompareString(TextBox1.[Text].Substring(0, 5), "öƮ©", false) = 0) Then
                            goto ILO_006c
                        End If

                    Case 3
                        v_i2 = 4
                        Me.crap += 1

                    Case 4
                        v_i2 = 5
                        Timer1.Enabled = false

                    Case 5
                    ILO_006c:

                    Case 6
                    ILO_006d:
                    Case Else
                    ILO_00a3:
                        v_i1 = v_i2
                        Select IIf(v_i > -2, v_i, 1)
                            Case 0
                                goto ILO_00bb

                            Case 1
                                goto ILO_0073
                            Case Else
                            ILO_00bb:
                        End Select
                End Select
            Catch v_exception As System.Exception
                ProjectData.SetProjectError(v_exception)
                goto ILO_00a3
            End Try
        End Sub

        Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
            If (((Operators.CompareString(TextBox1.[Text], "", false) = 0) And (Operators.CompareString(TextBox2.[Text], "", false) = 0)) And (Operators.CompareString(TextBox3.[Text], "", false) = 0)) Then
                Button1.Enabled = false
            End If
        End Sub

        Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
            Module1.crap2
        End Sub

        Private Sub Timer3_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim v_str As String
            Dim v_i As Integer
            Dim v_i1 As Integer
            Try
            ILO_0077:
                v_i1 = 0
                Dim v_i2 As Integer
                Select v_i1
                    Case -1
                        Throw ProjectData.CreateProjectError(-2146828237)
                        If v_i1 <> 0 Then
                            ProjectData.ClearProjectError
                        End If
                        Return

                    Case 0
                        ProjectData.ClearProjectError
                        v_i = -2

                    Case 1
                        v_i2 = 2
                        v_str = "ieframe.dll"

                    Case 2
                        v_i2 = 3
                        If Not (TextBox2.[Text].Length = 5) Then
                            goto ILO_0071
                        End If

                    Case 3
                        v_i2 = 4
                        If Not (Operators.CompareString(TextBox2.[Text].Substring(0, 8), v_str, false) = 0) Then
                            goto ILO_0070
                        End If

                    Case 4
                        v_i2 = 5
                        Me.crap += 1

                    Case 5
                        v_i2 = 6
                        Timer3.Enabled = false

                    Case 6
                    ILO_0070:

                    Case 7
                    ILO_0071:
                    Case Else
                    ILO_00ab:
                        v_i1 = v_i2
                        Select IIf(v_i > -2, v_i, 1)
                            Case 0
                                goto ILO_00c3

                            Case 1
                                goto ILO_0077
                            Case Else
                            ILO_00c3:
                        End Select
                End Select
            Catch v_exception As System.Exception
                ProjectData.SetProjectError(v_exception)
                goto ILO_00ab
            End Try
        End Sub

        Private Sub Timer4_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
            If (Operators.CompareString(TextBox3.[Text], System.Environment.GetEnvironmentVariable("USERNAME"), false) = 0) Then
                Me.crap += 1
                Timer4.Enabled = false
            End If
        End Sub

        Private Sub Timer5_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
            If (Me.crap = 3) Then
                Button1.Enabled = true
            End If
        End Sub

        Private Sub Timer6_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim v_i As Integer
            Dim v_i1 As Integer
            Dim v_i2 As Integer
            Dim v_bl As Boolean
            v_i = WindowsApplication1.Form1.FindWindow(Nothing, "OllyDbg")
            v_bl = v_i = 0
            If Not v_bl Then
                v_i2 = 0
                WindowsApplication1.Form1.GetWindowThreadProcessId(v_i, v_i2)
                v_bl = v_i2 = 0
                If Not v_bl Then
                    v_i1 = WindowsApplication1.Form1.OpenProcess(1048577, 0, v_i2)
                    v_bl = v_i1 = 0
                    If Not v_bl Then
                        v_bl = WindowsApplication1.Form1.TerminateProcess(v_i1, 0) = 0
                        If v_bl Then
                            goto ILO_0069
                        End If
                    ILO_0069:
                        WindowsApplication1.Form1.CloseHandle(v_i1)
                    End If
                End If
            End If
        End Sub

        Private Sub Timer7_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim v_i As Integer
            Dim v_i1 As Integer
            Dim v_i2 As Integer
            Dim v_bl As Boolean
            v_i = WindowsApplication1.Form1.FindWindow(Nothing, "URSoft W32Dasm Ver 8.93 Prgram Disassembler/Debugger")
            v_bl = v_i = 0
            If Not v_bl Then
                v_i2 = 0
                WindowsApplication1.Form1.GetWindowThreadProcessId(v_i, v_i2)
                v_bl = v_i2 = 0
                If Not v_bl Then
                    v_i1 = WindowsApplication1.Form1.OpenProcess(1048577, 0, v_i2)
                    v_bl = v_i1 = 0
                    If Not v_bl Then
                        v_bl = WindowsApplication1.Form1.TerminateProcess(v_i1, 0) = 0
                        If v_bl Then
                            goto ILO_0069
                        End If
                    ILO_0069:
                        WindowsApplication1.Form1.CloseHandle(v_i1)
                    End If
                End If
            End If
        End Sub

        Private Sub Timer8_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim v_i As Integer
            Dim v_i1 As Integer
            Dim v_i2 As Integer
            Dim v_bl As Boolean
            v_i = WindowsApplication1.Form1.FindWindow(Nothing, "OllyDbg - Crack Me.exe")
            v_bl = v_i = 0
            If Not v_bl Then
                v_i2 = 0
                WindowsApplication1.Form1.GetWindowThreadProcessId(v_i, v_i2)
                v_bl = v_i2 = 0
                If Not v_bl Then
                    v_i1 = WindowsApplication1.Form1.OpenProcess(1048577, 0, v_i2)
                    v_bl = v_i1 = 0
                    If Not v_bl Then
                        v_bl = WindowsApplication1.Form1.TerminateProcess(v_i1, 0) = 0
                        If v_bl Then
                            goto ILO_0069
                        End If
                    ILO_0069:
                        WindowsApplication1.Form1.CloseHandle(v_i1)
                    End If
                End If
            End If
        End Sub
    End Class
End Namespace


It's not secure at all. Next, your coding seems to be off.

Text1 should be:
Code:
öƮ©


Text2 should be:
ieframe.dll

Text3 should be:
Your username based on the environment variable "USERNAME"

Now for the glitch, you can enter those in any order into the boxes and it appears to not always work. Every so often the next button will not turn on even though someone has entered the correct info.

Next, you can also get it to enable the button by only using two of the boxes if you enter and reenter the info over and over. The program glitches sometimes and increments the value of Me.Crap more then once by accident.

_________________
- Retired.
Back to top
View user's profile Send private message Visit poster's website
XxOsirisxX
Grandmaster Cheater Supreme
Reputation: 0

Joined: 30 Oct 2006
Posts: 1597

PostPosted: Sun Feb 24, 2008 10:34 am    Post subject: Reply with quote

(SHOCK) O_O

everything is well detailed there. (how embarrasing T_T)

I did get noticed it would have some glitchs after i post. Like you can post the answer, then delete, and crap will be +1 anyhow.

To avoid what you said about the increase on crap, is because i did the timer.enabled = false at the end of the timer checks, as you can see at the source code that you just post, i will don't have idea on how to fix it in that case trough. Confused

Thanks for let me know how insecure is .Net Sad, I guess this can only be well done at C++ 6.0...

_________________

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