Jump to content
Tuts 4 You

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


0xNOP
Go to solution Solved by SHADOW_UA,

Recommended Posts

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)
Link to comment

 

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

Link to comment

@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. :)


  • Like 1
Link to comment
  • 2 weeks later...

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]

Link to comment
  • 4 weeks later...

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

post-31931-0-68661000-1445328078.jpg

Uli-RO Keygen.rar

  • Like 2
Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...