1
Web Oriented Coding / Re: sqli error
« on: July 20, 2015, 05:56:51 am »
Have you tried different comment types?
# or /* instead of -- ect?
# or /* instead of -- ect?
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
http://win32assembly.programminghorizon.com/tutorials.html
I am interested in a series on .NET cracking/reversing.
Sorry I didn't notice your intro :p got confused by post count. And yes, I think it should be in the tutorials section,write other parts in that section.
I appreciate what you have done but is it this only or there are some advanced tutorials in the series? Why haven't you introduced yourself?I did
https://evilzone.org/members-introduction/sup!-19847/
- Visual Studio (I will use this to code the keygen, although you can use any language you are conforable with, you will just need to convert some code)
- A basic programming knowledge
- An interest to learn
- A .net reflector (Reflector 8.5 or similar (ILSpy is a good free alternative) In this tutorial I will be using Red Gates .NET reflector but the steps are the same for ILSpy)
Scanning -> C:\Users\andmuchmore.PWNAGE\Documents\Visual Studio 2013\Projects\amm_KeyGenMe\amm_KeyGenMe\amm_KeyGenMe.exe
File Type : 32-Bit Exe (Subsystem : Win GUI / 2), Size : 30208 (07600h) Byte(s)
Compilation TimeStamp : 0x554BFF72 -> Fri 08th May 2015 00:12:34 (GMT)
[File Heuristics] -> Flag #1 : 00000100000001001101000000110000 (0x0404D030)
[Entrypoint Section Entropy] : 5.65 (section #0) ".text " | Size : 0x3A44 (14916) byte(s)
[DllCharacteristics] -> Flag : (0x8560) -> HEVA | ASLR | DEP | NOSEH | TSA
[SectionCount] 4 (0x4) | ImageSize 0xE000 (57344) byte(s)
[VersionInfo] Product Name : amm_KeyGenMe
[VersionInfo] Product Version : 1.0.0.0
[VersionInfo] File Description : amm_KeyGenMe
[VersionInfo] File Version : 1.0.0.0
[VersionInfo] Original FileName : amm_KeyGenMe.exe
[VersionInfo] Internal Name : amm_KeyGenMe.exe
[VersionInfo] Legal Copyrights : Copyright © 2015
[Debug Info] (record 1 of 1) (file offset 0x4000)
Characteristics : 0x0 | TimeDateStamp : 0x554BFF72 | MajorVer : 0 / MinorVer : 0 -> (0.0)
Type : 2 (0x2) -> CodeView | Size : 0x11C (284)
AddressOfRawData : 0x601C | PointerToRawData : 0x401C
CvSig : 0x53445352 | SigGuid 4189EB96-D246-423D-82107CACD12207E0
Age : 0x1 | Pdb : c:\users\andmuchmore.PWNAGE\documents\visual studio 2013\Projects\amm_KeyGenMe\amm_KeyGenMe\obj\Release\amm_KeyGenMe.pdb
[CompilerDetect] -> .NET
[.] .Net Info -> v 2.5 | MSIL 32 bit preferred (/platform:anycpu32bitpreferred) | Flags : 0x00020003 -> COMIMAGE_FLAGS_ILONLY | COMIMAGE_FLAGS_32BITREQUIRED | COMIMAGE_FLAGS_32BITPREFERRED |
[.] Entrypoint (Token) : 0x06000001
[.] MetaData RVA : 0x00002E88 | Size : 0x00002B5C (11100)
[.] MetaData->Version 1.1 -> v4.0.30319
[.] Flags : 0x0 | Streams : 0x5 (5)
[!] File appears to have no protection or is using an unknown protection
- Scan Took : 0.110 Second(s) [00000006Eh (110) tick(s)] [497 of 569 scan(s) done]
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
If (Me.TextBox1.Text <> "") Then
Dim text As String = Me.TextBox2.Text
If (Form1.GetHash(Me.TextBox1.Text, Me.TextBox1.Text) = [text]) Then
Interaction.MsgBox("Correct Serial!", MsgBoxStyle.ApplicationModal, Nothing)
Me.ToolStripStatusLabel1.Text = "Correct!"
Else
Interaction.MsgBox("Wrong Serial!", MsgBoxStyle.ApplicationModal, Nothing)
Me.ToolStripStatusLabel1.Text = "Wrong!"
End If
Else
Interaction.MsgBox("Please input a username!", MsgBoxStyle.ApplicationModal, Nothing)
End If
End Sub
Public Shared Function GetHash(ByVal theInput As String, ByVal key As String) As String
Using md As MD5 = MD5.Create
Dim buffer As Byte() = md.ComputeHash(Encoding.UTF8.GetBytes(theInput))
Dim builder As New StringBuilder
Dim num2 As Integer = (buffer.Length - 1)
Dim i As Integer = 0
Do While (i <= num2)
builder.Append(buffer(i).ToString("X5"))
i += 1
Loop
Return builder.ToString
End Using
End Function
- 1 x Textbox (username as Input)
- 1 x Button (to submit the Input to GetHash)
- 1 x Display field (your choice, textbox, msgbox ect ect)
Function generateSerialNo(input As String)
Using md As MD5 = MD5.Create
Dim buffer As Byte() = md.ComputeHash(Encoding.UTF8.GetBytes(input))
Dim builder As New StringBuilder
Dim num2 As Integer = (buffer.Length - 1)
Dim i As Integer = 0
Do While (i <= num2)
builder.Append(buffer(i).ToString("X5"))
i += 1
Loop
Return builder.ToString
End Using
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim username As String = TextBox1.Text
Dim serial As String = generateSerialNo(username)
TextBox2.Text = serial
End Sub
Username: andmuchmore
Serial: 000B5000C5000A90003100094000C8000CC000DD00062000070007F0002A00098000BF000F100088