[Keygenme] XorRanger's KeygenMe 4

[XorRanger]

Hello All,

It's been a While Since I Posted Any Challenge
This Should Be Quite Easy But I Will Let You all Decide
Solution: Only Keygens Are Allowed.
A Tutorial Would Be An Added Bonus.
Language: Delphi
Packer: UPX. Simply Use "upx -d " to Decompress 
Please Solve. Thanks

 

XorRanger KeygenMe #4.zip

[ChOoKi]

Damn! Too easy my friend

name: BREAD 'n' BUTTER
serial: A17B-2C43-49D5-*DAER

A combo for now but will make a tut soon.

[Dreamer]

waiting tut Master ChOoKi

[ChOoKi]

Here is a quick keygen, feel free to unpack it (UPX) and look inside until the tut is ready.

QuickSolution.7z

[Dreamer]

[XorRanger]

Damn, Now am Scared Of You.
I Thought This Would be Some Challenge For You But You Proved Me Wrong.
You Never Cease to Amaze Me and Must Confess That You Inspire Me.

Well Done Master ChOoKi. 

 

** By the Way, How Did You Get The 3 Combo Chars Cos I See You Got 2 Different Valid Combinations Of  Combos. (By Brute Forcing or Calculation) ?

[Dreamer]

ChOoKi  is master of disaster  hi can solve anything

[sama]

many thank for this little challange

 

Keep up the spirit.

.data

Base	db "0123456789ABCDEF",0
.data?

szName  db 60 dup(?)

szKey   db 60 dup(?)
.code

Gen 	proc uses edi esi ebx hWnd:HWND
	invoke 	GetDlgItemText, hWnd, IDC_NAME, addr szName, SizeOf szName
	.if eax >= 5 

		xor 	ebx,ebx

		xor 	ecx,ecx

		lea 	edi,szKey

		xor 	edx,edx
		.while ebx < 15

			.if ebx == 4 || ebx == 9 || ebx == 14

				mov 	byte ptr[edi], 2Dh

				inc 	edi

			.else

				call 	RndCharacter

				mov 	edx,eax

				movzx	edx, byte ptr[Base][edx]

				invoke  wsprintf,addr szKey,CTEXT("%s%C"), addr szKey,edx

				inc 	edi

			.endif

			inc 	ebx

		.endw	

		mov 	byte ptr[edi],'*'

		mov 	byte ptr[szKey][2],'7'

		mov 	byte ptr[szKey][7],'5'

		mov 	byte ptr[szKey][11],'0'
		inc 	edi

		lea 	esi, szName

		mov 	ecx,4

		.while  ecx

			mov 	dl, byte ptr[esi][ecx]

			mov 	byte ptr[edi],dl

			inc	edi

			dec 	ecx

		.endw	

	.else

		invoke 	SetDlgItemText, hWnd, IDC_KEY, CTEXT("Name! ?")

		ret

	.endif

		invoke 	SetDlgItemText, hWnd, IDC_KEY, addr szKey

	ret

Gen     endp

RndCharacter    Proc uses ecx edx 
	rdtsc

	mov     ecx,41c64e6dh 

	mul     ecx 

	add     eax,3039h 

	and     eax,7ffffffh 

	mov     ecx, 26 

	sub     edx,edx 

	div     ecx 

	xchg    eax,edx 

	and     eax, 0Fh
	ret

RndCharacter    EndP

Sol_XorRanger_4.rar

Edited March 21, 2014 by sama

[XorRanger]

 

many thank for this little challange

 

Keep up the spirit.

.data

Base db "0123456789ABCDEF",0

.data?

szName db 60 dup(?)

szKey db 60 dup(?)

.code

Gen proc uses edi esi ebx hWnd:HWND

invoke GetDlgItemText, hWnd, IDC_NAME, addr szName, SizeOf szName

.if eax >= 5

xor ebx,ebx

xor ecx,ecx

lea edi,szKey

xor edx,edx

.while ebx < 15

.if ebx == 4 || ebx == 9 || ebx == 14

mov byte ptr[edi], 2Dh

inc edi

.else

call RndCharacter

mov edx,eax

movzx edx, byte ptr[Base][edx]

invoke wsprintf,addr szKey,CTEXT("%s%C"), addr szKey,edx

inc edi

.endif

inc ebx

.endw

mov byte ptr[edi],'*'

mov byte ptr[szKey][2],'7'

mov byte ptr[szKey][7],'5'

mov byte ptr[szKey][11],'0'

inc edi

lea esi, szName

mov ecx,4

.while ecx

mov dl, byte ptr[esi][ecx]

mov byte ptr[edi],dl

inc edi

dec ecx

.endw

.else

invoke SetDlgItemText, hWnd, IDC_KEY, CTEXT("Name! ?")

ret

.endif

invoke SetDlgItemText, hWnd, IDC_KEY, addr szKey

ret

Gen endp

RndCharacter Proc uses ecx edx

rdtsc

mov ecx,41c64e6dh

mul ecx

add eax,3039h

and eax,7ffffffh

mov ecx, 26

sub edx,edx

div ecx

xchg eax,edx

and eax, 0Fh

ret

RndCharacter EndP

 

@Sama, Thanks For Solving.

Edited March 21, 2014 by XorRanger

[ChOoKi]

@ Dreamer: This Challenge was a simple one, we should thank XorRanger for that
@ XorRanger: Both methods work but BF is much quicker here.

XorRanger kgm 4 package.7z

[WormFC]

char User[20];

char Serial[20];

static const char alphanum[] =

"0123456789";

int stringLength = sizeof(alphanum) - 1;

 

void main(){

srand(time(0));

printf("Username:\n");

scanf("%s",User);

if(strlen(User)<5){

ExitProcess(0);

}

int value = 0 ;

BOOL FD = FALSE;

 

for(int k = 0; k <= 15; k ++){

for(int i = 1 ; i <= 15 ; i++){

for(int j = 2; j <=15;j++){

if(!FD){

__asm{

//Brute-force

MOVZX EAX,k

MOVZX ECX,i

MOVZX EDX,j

MOV ESI,ECX

MOV EBX,0x0B92C3

MOV ECX,EDX

MOV EDX,EAX

SHL EDX,CL

XOR ESI,EAX

IMUL EDX,ESI

XOR EBX,EDX

MOV value,EBX

}

printf("Hex : %X \n" , value);

printf("Int :%i \n",value);

if(value == 759011){

printf("Values : \n%i\n%i\n%i\n" , k,i,j);

FD = TRUE;

}

}

}

}

}

char lastChars[5];

for(int o = 0 ; o < 4; o++){

 lastChars[o] = User[o+1];

}

lastChars[4] = '*';

 

printf("%s\n",lastChars);

for(int i = 0 ; i < 20 ; i++){

Serial  = alphanum[rand() % stringLength];

}

Serial[2] = '7';

Serial[11] = '9';

Serial[7] = '4';

 

Serial[4] = '-';

Serial[9] ='-';

Serial[14] = '-';

 

int count  = 4 ;

for(int k = 15 ; k <20 ; k++){

Serial[k] = lastChars[count];

count --;

}

printf("\nSerial Generated for username : \n%s\n" , Serial);

[XorRanger]

char User[20];

char Serial[20];

static const char alphanum[] =

"0123456789";

int stringLength = sizeof(alphanum) - 1;

 

void main(){

srand(time(0));

printf("Username:\n");

scanf("%s",User);

if(strlen(User)<5){

ExitProcess(0);

}

int value = 0 ;

BOOL FD = FALSE;

 

for(int k = 0; k <= 15; k ++){

for(int i = 1 ; i <= 15 ; i++){

for(int j = 2; j <=15;j++){

if(!FD){

__asm{

//Brute-force

MOVZX EAX,k

MOVZX ECX,i

MOVZX EDX,j

MOV ESI,ECX

MOV EBX,0x0B92C3

MOV ECX,EDX

MOV EDX,EAX

SHL EDX,CL

XOR ESI,EAX

IMUL EDX,ESI

XOR EBX,EDX

MOV value,EBX

}

printf("Hex : %X \n" , value);

printf("Int :%i \n",value);

if(value == 759011){

printf("Values : \n%i\n%i\n%i\n" , k,i,j);

FD = TRUE;

}

}

}

}

}

char lastChars[5];

for(int o = 0 ; o < 4; o++){

 lastChars[o] = User[o+1];

}

lastChars[4] = '*';

 

printf("%s\n",lastChars);

for(int i = 0 ; i < 20 ; i++){

Serial  = alphanum[rand() % stringLength];

}

Serial[2] = '7';

Serial[11] = '9';

Serial[7] = '4';

 

Serial[4] = '-';

Serial[9] ='-';

Serial[14] = '-';

 

int count  = 4 ;

for(int k = 15 ; k <20 ; k++){

Serial[k] = lastChars[count];

count --;

}

printf("\nSerial Generated for username : \n%s\n" , Serial);

@WormFC, Thanks For Solving.

[GIV]

Hey.

Sorry to be late.

Here is one from me.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click   

        If TextBox1.Text.Length < 5 Then

            Return

        End If
        Dim rand As New Random

        Dim letter As String = ""

        For i = 0 To 20

            letter = letter & ChrW(rand.Next(Asc("A"), Asc("Z") + 1))

        Next

        Dim invers As String = "*" & StrReverse(TextBox1.Text.Substring(1, 4))

        Dim p1 As String = letter.Substring(0, 2) + "7" + letter.Substring(2, 1)

        Dim p2 As String = letter.Substring(3, 2) + "4" + letter.Substring(5, 1)

        Dim p3 As String = letter.Substring(6, 1) + "9" + letter.Substring(8, 2)

        TextBox2.Text = p1 + "-" + p2 + "-" + p3 + "-" + invers

        Clipboard.SetText(TextBox2.Text.Trim)

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TextBox1.Text = Environment.UserName

    End Sub

End Class

 

Name: forum.tuts4you.com

Serial:  =D7W-GF4:-;9;<-*muro

Keygen.7z

Edited March 24, 2014 by GIV

[Dreamer]

as i say ChOoKi you are the man you are making tuts