Unpack Me-easy

[sinsin666]

با عرض سلام خدمت دوستان و اساتید....
خواهشمندم در صورت امکان
نسبت به انپک و کرک این فایل اقدام و تعیین سطح نمایید.
ممنون از زحمات عزیزان....

[Nima NT]

متاسفانه سطح امنیت برنامتون زیاد نبود.
سطح امنیت : 1 از 10
کد مربوط به بررسی کد فعالسازی :

Private Sub ӭ(ByVal ӗ As Object, ByVal Ә As EventArgs)
Dim flag1 As Boolean
Me.ӫ = String.Intern(Ӛ._ӛ("elliblcjcljjbiakehhkmkokhhflgkmlngdmfgkmngbnkjincg pnmjgogfnomjeplilpafcaefja", 1233816403))
goto Label_00C5
Label_0020:
If Not flag1 Then
goto Label_006B
End If
If (0 <> 0) Then
goto Label_00DD
End If
If (-2147483648 <> 0) Then
Return
End If
goto Label_00C5
Label_0038:
If (0 = 0) Then
Return
End If
goto Label_0020
Label_006B:
MyBase.Hide
If (2147483647 = 0) Then
goto Label_0038
End If
If ((CType(flag1, UInt32) + CType(flag1, UInt32)) >= 0) Then
MessageBox.Show(String.Intern(Ӛ._ӛ("imjpnmaakmhamloa", 1819867489)))
MyBase.Close
If (2147483647 <> 0) Then
goto Label_0038
End If
goto Label_0020
End If
Label_00C5:
If ((CType(flag1, UInt32) + CType(flag1, UInt32)) > UInt32.MaxValue) Then
goto Label_006B
End If
Label_00DD:
Me.Ӭ = String.Intern(Ӛ._ӛ("njeojjlogjcpejjp", 1785652332))
Dim text1 As String = ӯ.Ӱ(Me.Ӫ, Me.ӫ, Me.Ӭ)
flag1 = (Not text1 Is Me.ӟ.Text)
goto Label_0020
End Sub




کد مربوط به تولید کد سخت افزاری :

Private Sub Ӗ(ByVal ӗ As Object, ByVal Ә As EventArgs)
Dim num1 As Long
Dim random1 As New Random
If ((0 = 0) AndAlso ((CType(num1, UInt32) - CType(num1, UInt32)) >= 0)) Then
End If
num1 = random1.Next(55555555, 999999999)
Me.Ӫ = num1.ToString
Me.Ӥ.Text = Me.Ӫ
End Sub