• 0

Want to test my prog. protection


Question

Recommended Posts

  • 0

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..

  • 0

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

  • 0
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.

  • 0
(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..

  • 0
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..

  • 0
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.

  • 0

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

  • 0
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

  • 0

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?

  • 0
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).

  • 0
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...

  • 0

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.

  • 0

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 by liykh001
  • 0

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.

  • 0
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.

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • Doogee and Ulefone regularly release phones with 10k-25k mAh batteries, but those are bricks. I don't understand how they could make it only weigh 220 grams with a battery that size.
    • Windows 10 quietly gets one more year of support and updates by Taras Buria Windows 10 reached its end of life at the end of 2025. Microsoft kicked off the Extended Security Updates program, aimed at giving regular consumers one more year of security-only updates. By doing so, Microsoft gave users more time and money to update their computers to a newer operating system or compatible hardware. Now, with the end of the Extended Security Updates program quickly approaching, Microsoft is making an important adjustment. Users discovered that the official support article for the program now lists a new end-of-support date: The Extended Security Updates program is not a new concept. It has been an official way for business consumers to continue receiving critical updates for unsupported Microsoft products for many years. However, all this time, it was a business-only, paid feature. With Windows 10, Microsoft brought ESU to regular consumers, allowing them to get security updates for Windows 10 past October 2025 essentially for free. When Windows 10 was approaching the end of support, many guessed that Microsoft might adjust its support timelines, and this is exactly what seems to be happening. Of course, Microsoft would love everyone to switch to new computers, such as its latest Surface devices, but in the days of ever-growing hardware prices, not everyone is lucky enough to have money for a new PC. Leaving hundreds of millions of customers with a Windows version that no longer receives security updates is a major risk that Microsoft is not willing to take. If you have a Windows 10 PC to enroll in the Extended Security Updates program, check out this guide to learn how to do so.
    • Sony announces Bungie layoffs that will affect "significant number of employees" by Pulasthi Ariyasinghe Sony today announced that major layoffs are happening at its first-party studio Bungie, the developer that has spawned series like Halo, Destiny, and Marathon over the past decades. The news arrives just weeks after Bungie delivered the final update to Destiny 2, and it's that team being hit with the layoffs the most. CEO of Sony Interactive Entertainment Hermen Hulst revealed the staff reduction today, calling it "painful news." "Over the past several months, together with Bungie leadership, we reviewed the studio’s long-term direction, development priorities, resource needs, and role within our broader portfolio strategy," said Hulst, explaining the decision. "We explored multiple alternatives before concluding that a reduction was necessary to align the studio’s resources with its current priorities and long-term goals." The layoffs will be hitting "a significant number of employees" across most of the Destiny franchise development team. It doesn't look like Sony is planning to continue the series following Destiny 2's sunsetting update. The studio is said to be in early stages of looking at other projects to pivot to, but it's said that keeping the size of the team at current levels is no longer feasible. "We know this decision has a profound impact on the people affected, their families, friends, and teammates," said Bungie leadership in a separate message on social media. "While these changes are necessary to best position the studio now and for the future, that does not lessen the difficulty of this moment or the impact it has on those affected." At the same time, "some" of the Marathon development team are also affected by the layoffs. The recently released multiplayer-only extraction shooter title hasn't seen a big boom of players either, but the company is reportedly hoping that the live service experience will pick up players with future updates.
    • Microsoft adds reusable skills and finance data connectors to Copilot in Excel by Karthik Mudaliar Microsoft is giving Copilot in Excel a collection of new features aimed squarely at finance teams. The update introduces reusable instructions for common tasks, connections to services such as FactSet and Morningstar, and a better way to review what Copilot intends to do before it starts changing a workbook. The most interesting addition is 'Skills' finally coming to Copilot in Excel. Skills let companies teach Copilot how to handle a recurring process, so employees do not need to write the same detailed prompt every month. Users can create skills that can specify the steps Copilot should follow, along with the required layout, formulas, and formatting. Microsoft says users can create their own skills by saving a SKILL.md file in OneDrive. The file is written using Markdown and tells Copilot when and how to perform the task. Once it is available, a user can select the skill in the Copilot pane or mention it in a prompt using the @ symbol. There is also a library of prebuilt finance skills for customers who do not want to create their own. Microsoft plans to let developers distribute additional skills through the Microsoft Marketplace and the Microsoft 365 Admin Center, with LSEG, Ramp, Rogo, samaya.ai, Velixo, and Vena among the first partners involved. The company says that it is also expanding the external data that Copilot can access from inside Excel. New connectors are being added for CB Insights, Daloopa, FactSet, Morningstar, PitchBook, and S&P Global data through technology developed by Kensho. There is a catch, however. Accessing these services may require a separate subscription from the relevant data provider, so a Microsoft 365 Copilot licence will not necessarily unlock all of them. FactSet is also only available in preview for now, with general availability planned for July. Microsoft is also trying to make Copilot’s workbook edits easier to inspect. Users can switch to a planning mode that shows which sheets, cell ranges, formulas, and assumptions Copilot intends to work with before it begins making changes. Once the work is complete, the Show Changes pane can distinguish edits made by Copilot from those made by human collaborators. The update continues Microsoft’s push to turn Excel Copilot from a chatbot into an agent that can carry out longer tasks. The company previously added an Agent Mode capable of planning and completing multi-step Excel work. Microsoft also recently acquired financial AI startup Fintool, another indication that finance is becoming a key target for its Excel AI strategy. Prebuilt skills, personalization, workbook rules, external connectors, planning mode, and Copilot attribution in Show Changes are generally available to Microsoft 365 Copilot customers using Excel on the web, Windows, and macOS. Custom skills are initially available to Microsoft 365 Insiders on Windows and Mac starting today. Microsoft plans to make them generally available across Windows, Mac, and the web over the next month. Partner-built skills are expected during the third quarter of the year. Availability may still differ depending on region and licensing.
    • Exactly. They serve different (although related) purposes.
  • Recent Achievements

    • First Post
      kinowa earned a badge
      First Post
    • Rookie
      krychek57 went up a rank
      Rookie
    • Grand Master
      Jaybonaut went up a rank
      Grand Master
    • One Year In
      Philsl earned a badge
      One Year In
    • Dedicated
      Scoobystu earned a badge
      Dedicated
  • Popular Contributors

    1. 1
      +primortal
      438
    2. 2
      +Edouard
      169
    3. 3
      PsYcHoKiLLa
      134
    4. 4
      Xenon
      77
    5. 5
      Michael Scrip
      75
  • Tell a friend

    Love Neowin? Tell a friend!