[crackme] {.NET} 0x90 Maximum Security Suite - Deob + CrackM

[0xNOP]

Nothing fancy with this Deob/CrackMe just as simple as it gets, find the correct Activation Key for the generated Serial Number

Hope you guys have fun with this one

 

https://mega.nz/#!Ct4TVbZA!GyLfm7WZW-7WKpL2rIzhNtoDz0-4dnNEdjTv39yJEZM

Maximum Security Sample - 0x90.zip

Edited September 12, 2015 by ULI-R0

[GamerAndDev]

It doesn't run for me. Any special prerequisites?

 

System.Runtime.InteropServices.COMException (0x80070424): The specified service does not exist as an installed service. (Exception from HRESULT: 0x80070424)

   at System.Management.ManagementScope.Initialize()

   at System.Management.ManagementObject.Initialize(Boolean getObject)

   at System.Management.ManagementClass.GetInstances(EnumerationOptions options)

   at ‪‪‪‫‫‪‪‌‌‬‮‫‮‎‍‍‮​‪‌‌‬‎‎‮‬‮.ViewXmlFile()

   at ‬‌‫‪‍‌‬‫‬‭‫‮‫‭‍​‏‫‪‫‌​‮‫‮.‪​‮‫‬‬‎‪​​‏‍‫‎​‭‍‬‮(Object , EventArgs )

   at System.EventHandler.Invoke(Object sender, EventArgs e)

   at System.Windows.Forms.Form.OnLoad(EventArgs e)

   at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)

   at System.Windows.Forms.Control.CreateControl()

   at System.Windows.Forms.Control.WmShowWindow(Message& m)

   at System.Windows.Forms.Control.WndProc(Message& m)

   at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)

   at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

[SHADOW_UA]

Unpacked + keygen

 

unpacked+keygen.rar

[GamerAndDev]

Guess it just doesn't run on my machine....or maybe only on some....

[0xNOP]

Unpacked + keygen

AMAZING!!!!

 

:bow:

[0xNOP]

 

It doesn't run for me. Any special prerequisites?

 

System.Runtime.InteropServices.COMException (0x80070424): The specified service does not exist as an installed service. (Exception from HRESULT: 0x80070424)

   at System.Management.ManagementScope.Initialize()

   at System.Management.ManagementObject.Initialize(Boolean getObject)

   at System.Management.ManagementClass.GetInstances(EnumerationOptions options)

   at ‪‪‪‫‫‪‪‌‌‬‮‫‮‎‍‍‮​‪‌‌‬‎‎‮‬‮.ViewXmlFile()

   at ‬‌‫‪‍‌‬‫‬‭‫‮‫‭‍​‏‫‪‫‌​‮‫‮.‪​‮‫‬‬‎‪​​‏‍‫‎​‭‍‬‮(Object , EventArgs )

   at System.EventHandler.Invoke(Object sender, EventArgs e)

   at System.Windows.Forms.Form.OnLoad(EventArgs e)

   at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)

   at System.Windows.Forms.Control.CreateControl()

   at System.Windows.Forms.Control.WmShowWindow(Message& m)

   at System.Windows.Forms.Control.WndProc(Message& m)

   at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)

   at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

 

Nope, the only one and it's not a requisite it's a dependency, which is .Net 4.0

[kao]

@gameranddev: It's not only your problem, it's a badly written keygenme.

ManagementClass managementClass = new ManagementClass("Win32_NetworkAdapterConfiguration");

string text = "";

ManagementObjectCollection instances = managementClass.GetInstances();

This code throws an exception when you run it on a computer without any network adapter. For example, inside VMWare.

[Teddy Rogers]

The [crackme] tag has been added to your topic title.Please remember to follow and adhere to the topic title format - thankyou![This is an automated reply]

[hiepkute1970]

Help! Unpack  

[GIV]

Based on Shadow785 unpacked file here is a simple code ripping task (my keygen).

Imports System.Management

Imports Microsoft.VisualBasic.CompilerServices
Public Class frmKeygen
    Private Sub frmKeygen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Try

            txtSerie.Text = ViewXmlFile.ToString

        Catch ex As Exception

            MessageBox.Show("Network adapter not found")

            txtSerie.Text = ""

        End Try

    End Sub
    Public Function ViewXmlFile() As Long

        Dim class2 As New ManagementClass("Win32_NetworkAdapterConfiguration")

        Dim str As String = ""

        Dim instances As ManagementObjectCollection = class2.GetInstances

        Dim obj2 As ManagementObject

        For Each obj2 In instances

            If Conversions.ToBoolean(obj2.Item("IPEnabled")) Then

                str = obj2.Item("MacAddress").ToString

            End If

        Next

        class2.Dispose()

        Dim num As Long = 0

        Dim num2 As Integer = 1

        Dim str2 As String = str

        Dim num3 As Integer = 0

        Dim length As Integer = str2.Length

        Do While (num3 < length)

            Dim c As Char = str2.Chars(num3)

            If Char.IsDigit(c) Then

                num = (num + (num + (Integer.Parse(Conversions.ToString(c)) * (num2 * 2))))

            ElseIf Char.IsLetter(c) Then

                Select Case c.ToString.ToUpper

                    Case "A"

                        num = (num + (num + (10 * (num2 * 2))))

                        Exit Select

                    Case "B"

                        num = (num + (num + (11 * (num2 * 2))))

                        Exit Select

                    Case "C"

                        num = (num + (num + (12 * (num2 * 2))))

                        Exit Select

                    Case "D"

                        num = (num + (num + (13 * (num2 * 2))))

                        Exit Select

                    Case "E"

                        num = (num + (num + (14 * (num2 * 2))))

                        Exit Select

                    Case "F"

                        num = (num + (num + (15 * (num2 * 2))))

                        Exit Select

                End Select

            End If

            num2 += 1

            num3 += 1

        Loop

        Return num

    End Function
    Private Sub cmdExit_Click(sender As System.Object, e As System.EventArgs)

        End

    End Sub
    Private Sub txtSerie_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtSerie.TextChanged

        Try

            If txtSerie.Text = "" Then

                Return

            End If

            Dim num As Long = CLng(txtSerie.Text.Trim)

            Dim num2 As Long = CLng(Math.Round(CDbl((((num * num) + (53 / CDbl(num))) + (113 * (CDbl(num) / 4))))))

            txtRezultat.Text = num2.ToString

        Catch ex As Exception

            MessageBox.Show("Error " + ex.ToString, "Unknown error", MessageBoxButtons.OK, MessageBoxIcon.Information)

            txtSerie.Text = ""

            txtRezultat.Text = ""

        End Try
    End Sub

End Class

Uli-RO Keygen.rar