Jump to content
Tuts 4 You

[crackme] New year 2015 Serial Me


GIV
Go to solution Solved by SHADOW_UA,

Recommended Posts

Spoils all the fun, it should be the serial algorithm you coded that is a challenge, not some protector/obfuscator. But probably some other people will like unpacking confuser..

Link to comment

Don't worry.

CodeCracker and other members can easy strip Confuser away.

Then you will see the real code.

We will discuss then.

Just at that moment the fun begin.

;)

Link to comment

Sure. But this is not a solution.

The password is more closer than you can imagine.

Just put your imagination to the test.

Edited by GIV
Link to comment

@SHADOW785


 


zdarova, norm razpokoval


razkazhesh kak?


 


@GIV


nice work!


 


@Mr. eXoDia


 


will be try!!


 


Im not profi by unpacking or cracking but i want to learning!


if anybody want to help me by learning , i will be wait for answer!


 


and if anybody know how to unpack or find serial , pls make tutorial . will be helpfull!


Edited by xxx22xxx
Link to comment

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]

  • Like 1
Link to comment

1. Well. I disobey the rule of thread formatting.  :scratch:


2. The serial is very easy.


It start with:


"Happy new".


And 2 more words.


What can i say more.


Is clear.


Easy enough


:rudolph:


3. Tomorrow i will publish the serial if is too hard.


:)


Link to comment

I know shadow785 is a little tense because the war in his country and is too serious about this crackme regarding guessing issue but this was only a new year joke/wish.


Let's learn to be happy and leave the problems behind, thereafter we are all humans. PEACE.


 


P.S.


eXoDia


You miss a case letter.


First letter is caps.


"Happy new year 2015"


You was inch close.


Congrats to all who participated and Happy new year 2015!!!


 


Was just a fun and relax crackme. Don't take too serious.


Edited by GIV
  • Like 3
Link to comment

Ok.


Now to explain the ideea:



'This is main verify function /returns T/F
Dim flag As Boolean = False
Dim str As String = ""
'String length
Dim num3 As Integer = (string_0.Length - 1)
Dim i As Integer = 0
'Loop take each character from input serial and compute his ASCII coerespondent
Do While (i <= num3)
str = (str & Strings.Asc(string_0.Substring(i, 1)).ToString)
' Add to str each ascii char of each character resulting a string from all ascii corespondents from the string
i += 1
Loop
'Remove spaces from the end/beginning
str = str.Trim Dim class2 As New GClass0
'If MD5 of str=64fe754ce4e86150322de883bd6ff094 the result is true
If (class2.method_0(str).ToLower = "64fe754ce4e86150322de883bd6ff094") Then
flag = True
End If
Return flag

This is from Shadow785 deobfuscated file. I will not put the original code because in great is the same thing.


Link to comment

Ok.

Now to explain the ideea:

'This is main verify function /returns T/F

Dim flag As Boolean = False

Dim str As String = ""

'String length

Dim num3 As Integer = (string_0.Length - 1)

Dim i As Integer = 0

'Loop take each character from input serial and compute his ASCII coerespondent

Do While (i <= num3)

str = (str & Strings.Asc(string_0.Substring(i, 1)).ToString)

' Add to str each ascii char of each character resulting a string from all ascii corespondents from the string

i += 1

Loop

'Remove spaces from the end/beginning

str = str.Trim

Dim class2 As New GClass0

'If MD5 of str=64fe754ce4e86150322de883bd6ff094 the result is true

If (class2.method_0(str).ToLower = "64fe754ce4e86150322de883bd6ff094") Then

flag = True

End If

Return flag

This is from Shadow785 deobfuscated file. I will not put the original code because in great is the same thing.

 

So you basically reimplemented strcmp.

Link to comment

Kinda...

Is a hash compare.

In the first step i thougth to use a simple xor but was more fun to use a hash from a Ascii concatenated string of a input string. I thought will not be bruted because is kinda impossible but i the hints game was fun.

Link to comment

On a second thougth here is the sourcecode (VB .NET 2010):



Imports System
Imports System.Security.Cryptography
Imports System.Text
Public Class frmParola
Dim incercari As Integer = 1
Private Sub frmParola_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
frmHoHoHo.Hide() End Sub Private Function xoring(ByVal parola As String) As Boolean
Dim este As Boolean = False
Dim rezultat As String = ""
For i = 0 To parola.Length - 1
Dim car As Integer
car = CInt(Asc(parola.Substring(i, 1))) Xor 85
rezultat = rezultat + car.ToString
Next rezultat = rezultat.Trim Dim HashCode As cMd5Hash
HashCode = New cMd5Hash()
Dim verificare As String = HashCode.Md5FromString(rezultat) If verificare.ToLower = "2e0f9e588c992ff6bb1278d16258d5ad" Then
este = True
End If Return este
End Function Private Sub cmdTry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTry.Click
cmdTry.Text = "Try " + incercari.ToString
incercari = incercari + 1
If incercari = 5 Then
MessageBox.Show("Doohhh.....", "Too hard i know!", MessageBoxButtons.OK, MessageBoxIcon.Information)
End
End If
Dim intrare As String = txtParola.Text
If intrare.Length = 0 Then
MessageBox.Show("Seems stupid to enter a null string as password no?", "Dooh....", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return
End If
If xoring(intrare) = True Then
frmHoHoHo.Show()
Me.Hide()
End If
End Sub
End Class Public Class cMd5Hash Public Function Md5FromString(ByVal Source As String) As String
Dim Bytes() As Byte
Dim sb As New StringBuilder() If String.IsNullOrEmpty(Source) Then
Throw New ArgumentNullException
End If
Bytes = Encoding.Default.GetBytes(Source)
Bytes = MD5.Create().ComputeHash(Bytes)
For x As Integer = 0 To Bytes.Length - 1
sb.Append(Bytes(x).ToString("x2"))
Next
Return sb.ToString()
End Function End Class


Public Class frmHoHoHo Private Sub cmdHoHoHo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHoHoHo.Click
MessageBox.Show("Happy new year from GIV", "Ho ho ho...", MessageBoxButtons.OK, MessageBoxIcon.Information)
End
End Sub Private Sub frmHoHoHo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Visible = False
End Sub
End Class

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