Want to test my prog. protection

[NienorGT]

I don't get it...

You want that ppl try to crack you prog?

[dhavalhirdhav]

what u mean by not a perfect crack?? isnt it enough to have that authorization window to by pass?? and anyways.. what u mean by working over 1 hour?? you arent paying me.. I have got lots of work to do.. not just this cracking your crap code..

[_Pablo]

ILDASM and hexeditor - not sure how long it took, but it was less than a minute.

Just look in ILDASM for a couple of seconds - ah, just need the other form to display - so just nop out everything in between start and next form call.

You are crazy.

L1_cracked.zip

[Elagizy]

ILDASM and hexeditor - not sure how long it took, but it was less than a minute.

Just look in ILDASM for a couple of seconds - ah, just need the other form to display - so just nop out everything in between start and next form call.

You are crazy.

L1_cracked.zip

585268162[/snapback]

(Y) perfect

any way i did that simple prog. in 15 min.

[_Pablo]

(Y) perfect

any way i did that simple prog.  in 15 min.

585268229[/snapback]

That took you 15 minutes?!?

[dhavalhirdhav]

here it is.. now dont tell me to hide that authorization box. .its showing that success window.. thats it.. its cracked.. and I cracked it a way back..

l1.zip

[dhavalhirdhav]

(Y) perfect

any way i did that simple prog.  in 15 min.

585268229[/snapback]

haha lol.. 15mins..

and btwn if I remember in that Stealing EXE post... u said that this is the logic1 or I dont remember this is the logic2 that u did?? well, nvr mind.. I can get that.. this will be ur logic only..

[Elagizy]

Man , i said i did the whole program from scratch in only 15 min . and i havn't got enough time to do more than 1 logic

[dhavalhirdhav]

Man , i said i did the whole program from scratch in only 15 min . and i havn't got enough time to do more than 1 logic

585268285[/snapback]

ya thats what I am saying.. only 15mins :o that should be a whole lot of 15mins to do this small progy logy..

[_Pablo]

Man , i said i did the whole program from scratch in only 15 min . and i havn't got enough time to do more than 1 logic

585268285[/snapback]

You should have left the form colours alone and spent a bit more time on the "protection". Just a strong name and another check would have slowed things down.

Anyway keep learning, but I wouldn't worry about protection until you can code something worth buying...and judging from this experience it'll be a while before that happens.

[Elagizy]

here is my whole code .......

Public Class Main

Inherits System.Windows.Forms.Form

Public ReqCode As Object

Public ReqCode2 As String

Public WMI = GetObject("winmgmts:\\")

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

End If

MyBase.Dispose(disposing)

End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents Button2 As System.Windows.Forms.Button

Friend WithEvents Label1 As System.Windows.Forms.Label

Friend WithEvents Label2 As System.Windows.Forms.Label

Friend WithEvents Text1 As System.Windows.Forms.TextBox

Friend WithEvents Text2 As System.Windows.Forms.TextBox

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Me.Button1 = New System.Windows.Forms.Button

Me.Button2 = New System.Windows.Forms.Button

Me.Text1 = New System.Windows.Forms.TextBox

Me.Text2 = New System.Windows.Forms.TextBox

Me.Label1 = New System.Windows.Forms.Label

Me.Label2 = New System.Windows.Forms.Label

Me.SuspendLayout()

'

'Button1

'

Me.Button1.BackColor = System.Drawing.Color.Bisque

Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup

Me.Button1.Location = New System.Drawing.Point(184, 72)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(96, 24)

Me.Button1.TabIndex = 0

Me.Button1.Text = "Exit"

'

'Button2

'

Me.Button2.BackColor = System.Drawing.Color.Bisque

Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Popup

Me.Button2.Location = New System.Drawing.Point(64, 72)

Me.Button2.Name = "Button2"

Me.Button2.Size = New System.Drawing.Size(96, 24)

Me.Button2.TabIndex = 1

Me.Button2.Text = "OK"

'

'Text1

'

Me.Text1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle

Me.Text1.Location = New System.Drawing.Point(136, 8)

Me.Text1.Name = "Text1"

Me.Text1.ReadOnly = True

Me.Text1.Size = New System.Drawing.Size(200, 20)

Me.Text1.TabIndex = 2

Me.Text1.Text = "Text1"

'

'Text2

'

Me.Text2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle

Me.Text2.Location = New System.Drawing.Point(136, 40)

Me.Text2.Name = "Text2"

Me.Text2.Size = New System.Drawing.Size(200, 20)

Me.Text2.TabIndex = 3

Me.Text2.Text = ""

'

'Label1

'

Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(178, Byte))

Me.Label1.Location = New System.Drawing.Point(8, 8)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(104, 23)

Me.Label1.TabIndex = 4

Me.Label1.Text = "Request Code :"

'

'Label2

'

Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(178, Byte))

Me.Label2.Location = New System.Drawing.Point(8, 40)

Me.Label2.Name = "Label2"

Me.Label2.Size = New System.Drawing.Size(128, 23)

Me.Label2.TabIndex = 5

Me.Label2.Text = "Authorization Code :"

'

'Main

'

Me.AutoScaleBaseSize = New System.Drawing.Size(6, 13)

Me.BackColor = System.Drawing.Color.LightGoldenrodYellow

Me.ClientSize = New System.Drawing.Size(346, 104)

Me.Controls.Add(Me.Text2)

Me.Controls.Add(Me.Label2)

Me.Controls.Add(Me.Label1)

Me.Controls.Add(Me.Text1)

Me.Controls.Add(Me.Button2)

Me.Controls.Add(Me.Button1)

Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(178, Byte))

Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow

Me.Name = "Main"

Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

Me.Text = "El-agizy SecSysLog1"

Me.ResumeLayout(False)

End Sub

#End Region

#Region "Upgrade Support "

Private Shared m_vb6FormDefInstance As Main

Private Shared m_InitializingDefInstance As Boolean

Public Shared Property DefInstance() As Main

Get

If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then

m_InitializingDefInstance = True

m_vb6FormDefInstance = New Main

m_InitializingDefInstance = False

End If

DefInstance = m_vb6FormDefInstance

End Get

Set(ByVal Value As Main)

m_vb6FormDefInstance = Value

End Set

End Property

#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End

End Sub

Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try

ReqCode = WMI.Get("Win32_PhysicalMedia.Tag='\\.\PHYSICALDRIVE0'")

CodeLoad()

' Program Code Logic ( PROG ID )

ReqCode2 = ReqCode.SerialNumber + "1998374"

EncryptCode()

EncryptCode()

Text1.Text = ReqCode2

FileGet(CodeNUM, Code, CodeCURRENTRECORD)

Text2.Text = Code.Code

DecryptCode()

If Trim(Text2.Text) = Trim(ReqCode2) Then

Success.DefInstance.Show()

Me.Opacity = 0

FileClose(CodeNUM)

Else

Text2.Text = ""

End If

Catch

MsgBox("Program Corrupted")

End

End Try

End Sub

#Region "Secure Me (Code Key : 25, 2 Encrypt - 1 Decrypt)"

Public Code As CodeINFO

Public CodeNUM As Short

Public CodeRECORDLEN As Integer

Public CodeCURRENTRECORD As Integer

Public CodeLASTRECORD As Integer

Structure CodeINFO

<VBFixedString(300), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=300)> Public Code As String

End Structure

Public Sub CodeLoad()

CodeRECORDLEN = Len(Code)

CodeNUM = FreeFile()

FileOpen(CodeNUM, VB6.GetPath & "\Data\" & "STech.SEC", OpenMode.Random, , , CodeRECORDLEN)

CodeCURRENTRECORD = 1

CodeLASTRECORD = FileLen(VB6.GetPath & "\Data\" & "STech.SEC") / CodeRECORDLEN

If CodeLASTRECORD = 0 Then CodeLASTRECORD = 1

End Sub

Public Sub DecryptCode()

Dim NewLetter, String2, stringdec As String

Dim I, Inc As Short

Dim AscNum As Integer

Inc = 25

For I = 1 To Len(ReqCode2)

AscNum = Asc(Mid(ReqCode2, I, 1))

If AscNum - Inc <= 0 Then

AscNum = 255 + (AscNum - Inc)

NewLetter = Chr(AscNum)

Else

NewLetter = Chr(AscNum - Inc)

End If

String2 = String2 & NewLetter

Next I

stringdec = String2

ReqCode2 = stringdec

End Sub

Public Sub EncryptCode()

Dim NewLetter, String2, stringenc As String

Dim I, Inc As Short

Dim AscNum As Integer

Inc = 25

For I = 1 To Len(ReqCode2)

AscNum = Asc(Mid(ReqCode2, I, 1))

If AscNum + Inc > 255 Then

AscNum = (AscNum + Inc) - 255

NewLetter = Chr(AscNum)

Else

NewLetter = Chr(AscNum + Inc)

End If

String2 = String2 & NewLetter

Next I

stringenc = String2

ReqCode2 = stringenc

End Sub

#End Region

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Text1.Text = ReqCode2

If Text2.Text = Text1.Text Then

Code.Code = Text2.Text

FilePut(CodeNUM, Code, CodeCURRENTRECORD)

MsgBox("Thank you for registeration")

Me.Hide()

Success.DefInstance.Show()

Else

EncryptCode()

Text1.Text = ReqCode2

DecryptCode()

MsgBox("Invalid Authorization Code", MsgBoxStyle.Critical, "Error")

End If

End Sub

End Class

[nowimnothing]

man, these disassemblers really do good work... too bad most of the free ones limit to to 10 functions or 50% of the functions, or something like that. came damn close to what you actually had...

[KennyD]

You're written English has sure improved in the past week.

As for reverse engineering or cracking your application, then nope, as I don't know if it is your property.

585267875[/snapback]

Its Your not You're. You are written English doesn't make any sense.

Dont bash on others if you make the same mistakes. haha

[DrZoidberg]

I'm really not sure what the point of this thread is (or any of the OP's threads, to be honest). You've written a program, asked us to crack it. And people have done that. Consequently the program is now useless.

I ran it through Lutz Roeder's "Reflector" and it doesn't even look like you've run .NET obfuscator on the code. I can read all the method names, all the variable names and so on - it's not difficult to understand what's going on.

First you wanted to write an operating system. You're now writing a program that is supposedly protected from crackers. But which isn't. You're having to set your sights lower and lower, aren't you? What next? A "Hello World" program?

[fatgirl319]

here you go

[Vorenus]

I'm really not sure what the point of this thread is (or any of the OP's threads, to be honest).  You've written a program, asked us to crack it.  And people have done that.  Consequently the program is now useless.

I ran it through Lutz Roeder's "Reflector" and it doesn't even look like you've run .NET obfuscator on the code.  I can read all the method names, all the variable names and so on - it's not difficult to understand what's going on.

First you wanted to write an operating system.  You're now writing a program that is supposedly protected from crackers.  But which isn't.  You're having to set your sights lower and lower, aren't you?  What next?  A "Hello World" program?

585268378[/snapback]

You've got to admit though, his posts are usually funny to read because of his arrogance. He was trying to convince people in his last thread that he could make an uncrackable program, when only moments earlier he inquired why, when he modified an EXE in notepad, the program was corrupted. :laugh: He's probably in middle school and he is trying to impress his friend(s).

[_Pablo]

You've got to admit though, his posts are usually funny to read because of his arrogance. He was trying to convince people in his last thread that he could make an uncrackable program, when only moments earlier he inquired why, when he modified an EXE in notepad, the program was corrupted.  :laugh:  He's probably in middle school and he is trying to impress his friend(s).

585268474[/snapback]

It was Elagizy's How to build an operating system thread that made me laugh the most...

[Vorenus]

It was Elagizy's How to build an operating system thread that made me laugh the most...

585268682[/snapback]

Hahaha, I had never read that thread. That was hilarious.

[kjordan2001]

It was Elagizy's How to build an operating system thread that made me laugh the most...

585268682[/snapback]

lol, yeah, turning a VB program into an operating system :laugh:

[_kane81]

yeah Elagizy makes funny topics and posts up :D - maybe move to the Jokes section?

I suppose we should be a little bit more understanding on his english as it is not his native language. - well hopefully it isnt.

We can of course all laugh about how arrogant Elagizy appears to be.

[_kane81]

from the OS topic

Elagizy:

I will ask microsoft about that but i hope they give me their secrets , i think they will answer this mainly?

now, i think you all agreed that dos written in pure assembly so that mean assembly was programmed by machine language

Elagizy:

lol , look what i found in autoexec.bat

SET windir=D:\WINXP

SET winbootdir=D:\WINXP

(((((((( SET COMSPEC=D:\WINXP\COMMAND.COM ))))))))

SET PATH=D:\WINXP;D:\WINXP\COMMAND

SET PROMPT=$p$g

SET TEMP=D:\WINXP\TEMP

SET TMP=D:\WINXP\TEMP

what do you think now gameguy ?

hheheheh :DD

how old are you Elagizy? 8 maybe? seriously, I'm sure everyone here is wondering how old you are.

Edited January 10, 2005 by liykh001

[Guest FaX]

yeah erm well done!

[Winston]

lol guys guys give him a break, as you may already have discovered, this HIGH level encryption layer, that Elagizy has ingeniously thought out will be incorporated into his new Operating System :p

[azcodemonkey]

Cut him some slack. He's obviously not that skilled, and has some serious misconceptions about the complexity of programming. So he's not totally in touch with reality, big deal. Acquaint him with facts, if you feel so inclined, but ignore him if you don't think you have something instructive to give. I sincerely don't see the need for sarcastic or malicious replies.

[Winston]

Cut him some slack. He's obviously not that skilled, and has some serious misconceptions about the complexity of programming. So he's not totally in touch with reality, big deal. Acquaint him with facts, if you feel so inclined, but ignore him if you don't think you have something instructive to give. I sincerely don't see the need for sarcastic or malicious replies.

585270114[/snapback]

Nah actually weenur, we were like that initially, read the Steal EXE thread, he was being all arrogant with us, we were informing him and taking him seriously, but he decided not to listen, and believe whatever his method was, was he best.

[Slipdisc210]

Now you were here two days ago asking about opening a file in notepad.exe. But today you are testing a protection scheme? :D

you have progressed rather quickly. Good job :rofl: