[Keygenme] XorRanger's KeygenMe 4

March 21, 2014

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

March 21, 2014

Damn! Too easy my friend

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

A combo for now but will make a tut soon.

March 21, 2014

waiting tut Master ChOoKi

March 21, 2014

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

QuickSolution.7z

March 21, 2014

March 21, 2014

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) ?

March 21, 2014

ChOoKi is master of disaster hi can solve anything

March 21, 2014

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

March 21, 2014

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

March 23, 2014

@ 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

March 23, 2014

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);

March 23, 2014

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.

March 24, 2014

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

March 24, 2014

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

Sign In

[Keygenme] XorRanger's KeygenMe 4

Recommended Posts

XorRanger

ChOoKi

Dreamer

ChOoKi

Dreamer

XorRanger

Dreamer

sama

XorRanger

ChOoKi

WormFC

XorRanger

GIV

Dreamer

Create an account or sign in to comment

Create an account

Sign in

Community

Search