new KeyGenMe

hi all members

I made a KeyGenMe for you

language : asm

not packing ,
size : 18KB

[giv]

Name: giv
Serial: 39483950

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

[chessgod101]

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

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]

Nice share Mr. chessgod101
Thank You

Nice work.Not strong there myself.

[giv]

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]

@GIV SHA256 difficult in VB.NET?

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]

Originally Posted by LordCoder

@GIV SHA256 difficult in VB.NET?

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

giv

is:

BCAEFCCB60B768211C31AA80377915B6FAF959638088FEE5A0FDC516B156768F

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

7804AAB331F6D12650165EFDA268173DC5A2E6A6A8067DD2807FB9D6A82420F0

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

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]

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

[giv]

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

[chessgod101]

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:

67 00 69 00 76 00

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

67 69 76

[giv]

Originally Posted by chessgod101

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:

67 00 69 00 76 00

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

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]

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

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

[suresh.hacker]

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 )