[crackme] New year 2015 Serial Me

[GIV]

Here i wrote a serial-me after some years.

 

The answer is more closer than you can imagine.

Good luck!

 

New Year Serial Me.7z

[mrexodia]

Confuser... why?

[GIV]

Why not?

[mrexodia]

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

[GIV]

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.

[Derberux]

hehe well it's not easy, the MD5 from a string that make as result "2e0f9e588c992ff6bb1278d16258d5ad" is the serial

[GIV]

Put here deobfuscated exe for all to try.

Edited December 29, 2014 by GIV

[SHADOW_UA]

Patched. Accepts password 12345. There's no way to get original password except bruteforce.

 

Also deobfuscated

Patched_password_12345.zip

Edited December 29, 2014 by SHADOW785

[GIV]

Sure. But this is not a solution.

The password is more closer than you can imagine.

Just put your imagination to the test.

Edited December 29, 2014 by GIV

[mrexodia]

here is my crackme, winner gets the full source codes + 1337 status

Crackme2015.rar

Edited December 29, 2014 by Mr. eXoDia

[xxx22xxx]

@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 December 29, 2014 by xxx22xxx

[RDGMax]

I found a different serial

Solved.zip

[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]

[GIV]

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

2. The serial is very easy.

It start with:

"Happy new".

And 2 more words.

What can i say more.

Is clear.

Easy enough

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

[SHADOW_UA]

We aren't playing a guessing game here..heh..

 

Well,

 

Happy new year 2015

 

[Nemo]

Happy new year to you too GIV and all the rest

Edited December 30, 2014 by Nemo

[GIV]

We aren't playing a guessing game here..heh..

 

Bla bla bla....

 

Happy new year to all!!!!

[mrexodia]

wow, I seriously tried "Happy New Year 2015" and "happy new year 2015" fufufu

Happy new year GIV!

[GIV]

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 December 30, 2014 by GIV

[GIV]

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.

[xxx22xxx]

anybody can make tutorial Unpacking ConfuserEX 0.4.0

[DragonX]

Happy new year for all of crackers~~~

 

[mudlord]

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.

[GIV]

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.

[GIV]

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