|
Cheat Engine The Official Site of Cheat Engine
|
View previous topic :: View next topic |
Author |
Message |
XxOsirisxX Grandmaster Cheater Supreme Reputation: 0
Joined: 30 Oct 2006 Posts: 1597
|
Posted: Wed Feb 13, 2008 7:39 pm Post subject: Crack Me :P |
|
|
This is my first "Crack Me", be good with him
[Made on VB.Net]
_________________
|
|
Back to top |
|
|
skam8 Master Cheater Reputation: 1
Joined: 03 Oct 2006 Posts: 291 Location: Teh epic land of Canada
|
Posted: Wed Feb 13, 2008 9:05 pm Post subject: |
|
|
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 |
|
|
XxOsirisxX Grandmaster Cheater Supreme Reputation: 0
Joined: 30 Oct 2006 Posts: 1597
|
Posted: Wed Feb 13, 2008 9:07 pm Post subject: |
|
|
rofl, i just told you that but you understand it wrong.. well.. good luck.
_________________
|
|
Back to top |
|
|
atom0s Moderator Reputation: 199
Joined: 25 Jan 2006 Posts: 8518 Location: 127.0.0.1
|
Posted: Sun Feb 24, 2008 3:55 am Post subject: |
|
|
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:
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 |
|
|
XxOsirisxX Grandmaster Cheater Supreme Reputation: 0
Joined: 30 Oct 2006 Posts: 1597
|
Posted: Sun Feb 24, 2008 10:34 am Post subject: |
|
|
(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.
Thanks for let me know how insecure is .Net , I guess this can only be well done at C++ 6.0...
_________________
|
|
Back to top |
|
|
|
|
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
|
|