Jump to content
giv

Happy new year challenge .NET

Recommended Posts

@giv daca am postat poza, era login ca am gasit rezolvarea nu ?

Happy new year 2015

Adica era si penal , Happy new year challenge ... :)

Screenshot by Lightshot

Screenshot by Lightshot

Pana nu faci si demonstratia eu nu cred in asa ceva.

Eu stiu regula ca la o rezolvare se publica OBLIGATORIU si solutia altfel raspunsul nu este valid.

O poza nu dovedeste nimic.

Link to comment
Share on other sites

Daca ti-a iesit din prima compilez cu alt hash sa vad daca iti mai iese.

Doi.

Ar fi culmea ca eu sa postez solutii la propriul challenge.

O rezolvare corecta ar fi sa arati cum scapi de protectie si cum se inverseaza rutina de verificare.

Modul in care eu dau aproape mura in gura o combinatie clara de cuvinte si tu pui doua cuvinte in fraza inseamna ca nu s-a rezolvat nimic de fapt. Ne mintim singuri.

Edited by giv
Link to comment
Share on other sites

investigatii cu cheatengine: Zippyshare.com - bla.rar

Da.

Ce sa zic.

E si asta o metoda.

Nu stiam de acest Cheat Engine.

Eu ma gandeam ca mai corect este sa scapi de ConfuserEx si apoi sa il modifici cu RefFlexil.

Mersi pentru demo.

Cred ca e OK.

Sursa:

mports 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
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...