Exetools - new KeyGenMe

Exetools (https://forum.exetools.com/index.php)

- General Discussion (https://forum.exetools.com/forumdisplay.php?f=2)

- - new KeyGenMe (https://forum.exetools.com/showthread.php?t=15059)

sezar21m

06-07-2013 07:15

new KeyGenMe

1 Attachment(s)

hi all members

I made a KeyGenMe for you

language : asm

not packing ,
size : 18KB

giv	06-07-2013 13:56

1 Attachment(s)

Name: giv
Serial: 39483950

No time for a keygen.
ASM keygening is not my strong point.
:)

chessgod101

06-08-2013 02:59

I had a little free time today, so I created a quick keygen in Delphi:

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

    Hash: TDCP_sha256;

    hashBytes:array[0..31] of byte;

    EAX1,I,EBX1:cardinal;

  begin

    Hash:= TDCP_sha256.Create(nil);

    Hash.Init;

    Hash.UpdateStr(AnsiString(edit1.Text));

    Hash.Final(hashBytes);

    Hash.Free;



     EAX1:=0;

     EBX1:=0;

    for I := 0 to 31 do begin

     EBX1:=hashBytes[I];

     if EBX1=0 then

     break

     else

     EBX1:=(EBX1*I);

     EAX1:=EAX1+(EBX1*ebx1+$50);

    end;



    edit2.Text:=inttostr(eax1 xor $12345678);

end;

wilson bibe

06-08-2013 09:28

Nice share Mr. chessgod101
Thank You

runner1212

09-08-2013 06:09

Nice work.Not strong there myself.

giv	09-09-2013 21:01

Because is not to easy to implement the sha256 to VB .NET here is the algo:
1. Get the name and make a sha256 from it.
2. Make a function that:
Declare a counter ECX = 0
Declare result EAX = 0
Move in a variable (EBX) every byte of the array.
EBX = EBX*ECX
EBX = EBX*EBX
EBX = EBX + 50h
EAX = EAX+EBX
ECX = ECX+1
Loop until the bytes in the array ends.
The result will be xorred with 12345678h

LordCoder

09-09-2013 21:04

@GIV SHA256 difficult in VB.NET?

Quote:

Public Function EncryptSHA256Managed(ByVal ClearString As String) As String
Dim uEncode As New UnicodeEncoding()
Dim bytClearString() As Byte = uEncode.GetBytes(ClearString)
Dim sha As New _
System.Security.Cryptography.SHA256Managed()
Dim hash() As Byte = sha.ComputeHash(bytClearString)
Dim sBuilder As New StringBuilder
For Each b As Byte In hash
sBuilder.AppendFormat("{0:x2} ", b)
Next
Return sBuilder.ToString()
End Function

giv	09-10-2013 13:16

Quote:

Originally Posted by LordCoder (Post 86709)

@GIV SHA256 difficult in VB.NET?

Thank you!
But i have one small question:
From Keygener Assistant 2.1.0 the output from string:

Quote:

giv

is:

Quote:

BCAEFCCB60B768211C31AA80377915B6FAF959638088FEE5A0FDC516B156768F

And if i parse the name trough your function the output will be:

Quote:

7804AAB331F6D12650165EFDA268173DC5A2E6A6A8067DD2807FB9D6A82420F0

Why the outputs are being diferent?
Here is the code i have implemented:

Quote:

Imports System.Text
Imports System.Security.Cryptography

Public Class Form1

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim t1 As String = TextBox1.Text
Dim t2 As String = EncryptSHA256Managed(t1)
t2 = t2.ToUpper
t2 = Replace(t2, " ", "")
TextBox2.Text = t2
End Sub

Public Function EncryptSHA256Managed(ByVal ClearString As String) As String
Dim uEncode As New UnicodeEncoding()
Dim bytClearString() As Byte = uEncode.GetBytes(ClearString)
Dim sha As New _
System.Security.Cryptography.SHA256Managed()
Dim hash() As Byte = sha.ComputeHash(bytClearString)
Dim sBuilder As New StringBuilder
For Each b As Byte In hash
sBuilder.AppendFormat("{0:x2} ", b)
Next
Return sBuilder.ToString()
End Function
End Class

LordCoder

09-10-2013 16:30

@giv If you use Windows XP for SHA256 in any .NET language it appear issues.

giv	09-10-2013 16:56

So is kinda useless for me to start keygening this under XP in VB .NET
Unfortunate i have only XP.

chessgod101

09-10-2013 18:44

giv, the problem is that the string is being encoded as unicode. In order to get the correct hash, you need to encode the string using ASCIIEncoding instead of UnicodeEncoding.
When the string is encoded as unicode, these are the bytes that get hashed:

Code:

67 00 69 00 76 00

When you hash it as an ASCII string, these bytes get hashed and yield the correct result:

Code:

67 69 76

giv	10-13-2013 22:04

Quote:

Originally Posted by chessgod101 (Post 86726)

Code:

67 00 69 00 76 00

When you hash it as an ASCII string, these bytes get hashed and yield the correct result:

Code:

67 69 76

I do as you point at but the result is the same.
Maybe L.C. is right.
I must change XP

XorRanger

10-13-2013 22:27

@giv, try using Encoding.Default in C#. This should fix the issue because I have encountered such issues before while Keygenning and Encoding.Default Solved the Problem.

giv	10-13-2013 22:43

I will try tomorrow at work (on work PC is the sourcecode) and post the result.

suresh.hacker

10-15-2013 09:20

Hello Brother's.

I think keygen me and reverse me's for New reverser's. You may post that in easyly downloadable. (because still I don't have download permission :D )

giv	10-15-2013 16:53

1 Attachment(s)

At least here is my keygen in VB 2010.
The SHA function must be modified as chessgog101 says.

Quote:

Option Strict On

Imports System.Text
Imports System.Security.Cryptography

Public Class frmKeygen

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtName.TextChanged
If txtName.Text.Length < 1 Then
txtSerial.Text = "Name must have at least 1 char :)"
Return
End If
Dim sirsha As String = EncryptSHA256Managed(txtName.Text.Trim).ToUpper
Dim ebx As Integer = 0
Dim eax As Integer = 0
Dim ecx As Integer = 0
sirsha = sirsha.Replace(" ", "")
For i = 0 To sirsha.Length - 1
Dim caracter As Integer = CInt("&H" + (sirsha.Substring(i, 2)))
i = i + 1
ebx = caracter
ebx = ebx * ecx
ebx = ebx * ebx
ebx = ebx + &H50
eax = eax + ebx
ecx = ecx + 1
Next
eax = eax Xor &H12345678
txtSerial.Text = eax.ToString
End Sub

Public Function EncryptSHA256Managed(ByVal ClearString As String) As String
Dim uEncode As New ASCIIEncoding()
Dim bytClearString() As Byte = uEncode.GetBytes(ClearString)
Dim sha As New _
System.Security.Cryptography.SHA256Managed()
Dim hash() As Byte = sha.ComputeHash(bytClearString)
Dim sBuilder As New StringBuilder
For Each b As Byte In hash
sBuilder.AppendFormat("{0:x2} ", b)
Next
Return sBuilder.ToString()
End Function

End Class

XorRanger

10-15-2013 17:32

@giv, by modified, do you mean that you modified the 4 uint values used in the creation of the hash?
As far as i know, the Sha-256 hashing is embedded in the .NET framework and it does not give room for modifying the uint values except you implemented the whole crypto procedure from the scratch. I have seen such implementation for md5 before but not for sha-256. Could you share your implementation please?

XorRanger

10-15-2013 19:00

edit:
Could Not Edit The Previous Post.
@giv, Your Hash Does Not Seem To Be Modified Since The Magic Byte In Your Keygen are The Same With The Original SHA-256 Implementation.

Here Are The Bytes.

0x6a09e667;
0xbb67ae85;
0x3c6ef372;
0xa54ff53a;
0x510e527f;
0x9b05688c;
0x1f83d9ab;
0x5be0cd19;

giv	10-16-2013 01:19

Look at uEncode in the SHA function.

All times are GMT +8. The time now is 16:41.