Jump to content
Tuts 4 You

[keygenme] Keygen Me 1 - VESA


VESA

Recommended Posts

Good Job MouradPr And BoRoV My Olden Friends ;)


@KeygenMe_00456034: ;<= Procedure Start
push ebp
mov ebp,esp
mov ecx,5
@KeygenMe_0045603c:
push 0
push 0
dec ecx
jnz @KeygenMe_0045603c
push ecx
push ebx
push esi
push edi
mov dword ptr ss:[ebp-4],edx
xor eax,eax
push ebp
push 04561c9h
push dword ptr fs:[eax]
mov dword ptr fs:[eax],esp
mov eax,dword ptr ss:[ebp-4]
call @KeygenMe_0040452c ;<= Jump/Call Address Not Resolved
lea edx,dword ptr ss:[ebp-010h]
mov eax,dword ptr ds:[0459c00h]
mov eax,dword ptr ds:[eax+030ch]
call @KeygenMe_00435084 ;<= Jump/Call Address Not Resolved
mov eax,dword ptr ss:[ebp-010h]
call @KeygenMe_004047ec ;<= Jump/Call Address Not Resolved
cmp eax,4
jl @KeygenMe_004561a1
xor ebx,ebx
xor eax,eax
mov dword ptr ss:[ebp-8],eax
lea edx,dword ptr ss:[ebp-014h]
mov eax,dword ptr ds:[0459c00h]
mov eax,dword ptr ds:[eax+030ch]
call @KeygenMe_00435084 ;<= Jump/Call Address Not Resolved
mov eax,dword ptr ss:[ebp-014h]
call @KeygenMe_004047ec ;<= Jump/Call Address Not Resolved
mov edi,eax
sub edi,4
jl @KeygenMe_004560e7
inc edi
mov esi,4
@KeygenMe_004560b3:
lea edx,dword ptr ss:[ebp-018h]
mov eax,dword ptr ds:[0459c00h]
mov eax,dword ptr ds:[eax+030ch]
call @KeygenMe_00435084 ;<= Jump/Call Address Not Resolved
mov eax,dword ptr ss:[ebp-018h]
movzx eax,byte ptr ds:[eax+esi-1]
xor edx,edx
mov dl,byte ptr ds:[ebx+0457e24h]
imul edx
add dword ptr ss:[ebp-8],eax
inc ebx
cmp ebx,026h
jle @KeygenMe_004560e3
xor ebx,ebx
@KeygenMe_004560e3:
inc esi
dec edi
jnz @KeygenMe_004560b3
@KeygenMe_004560e7:
xor ebx,ebx
xor eax,eax
mov dword ptr ss:[ebp-0ch],eax
lea edx,dword ptr ss:[ebp-01ch]
mov eax,dword ptr ds:[0459c00h]
mov eax,dword ptr ds:[eax+030ch]
call @KeygenMe_00435084 ;<= Jump/Call Address Not Resolved
mov eax,dword ptr ss:[ebp-01ch]
call @KeygenMe_004047ec ;<= Jump/Call Address Not Resolved
mov edi,eax
sub edi,4
jl @KeygenMe_0045616c
inc edi
mov esi,4
@KeygenMe_00456116:
lea edx,dword ptr ss:[ebp-020h]
mov eax,dword ptr ds:[0459c00h]
mov eax,dword ptr ds:[eax+030ch]
call @KeygenMe_00435084 ;<= Jump/Call Address Not Resolved
mov eax,dword ptr ss:[ebp-020h]
movzx eax,byte ptr ds:[eax+esi-2]
push eax
lea edx,dword ptr ss:[ebp-024h]
mov eax,dword ptr ds:[0459c00h]
mov eax,dword ptr ds:[eax+030ch]
call @KeygenMe_00435084 ;<= Jump/Call Address Not Resolved
mov eax,dword ptr ss:[ebp-024h]
movzx eax,byte ptr ds:[eax+esi-1]
mov edx,eax
pop eax
imul edx
xor edx,edx
mov dl,byte ptr ds:[ebx+0457e24h]
imul edx,eax
add dword ptr ss:[ebp-0ch],edx
inc ebx
cmp ebx,026h
jle @KeygenMe_00456168
xor ebx,ebx
@KeygenMe_00456168:
inc esi
dec edi
jnz @KeygenMe_00456116
@KeygenMe_0045616c:
mov ebx,0e050a94h
lea edx,dword ptr ss:[ebp-028h]
mov eax,dword ptr ss:[ebp-8]
call @KeygenMe_0040942c ;<= Jump/Call Address Not Resolved
push dword ptr ss:[ebp-028h]
push 04561e0h
lea edx,dword ptr ss:[ebp-02ch]
mov eax,dword ptr ss:[ebp-0ch]
add eax,ebx
call @KeygenMe_0040942c ;<= Jump/Call Address Not Resolved
push dword ptr ss:[ebp-02ch]
mov eax,dword ptr ss:[ebp-4]
mov edx,3
call @KeygenMe_004048ac ;<= Jump/Call Address Not Resolved
@KeygenMe_004561a1:
xor eax,eax
pop edx
pop ecx
pop ecx
mov dword ptr fs:[eax],edx
push 04561d0h
@KeygenMe_004561ae:
lea eax,dword ptr ss:[ebp-02ch]
mov edx,2
call @KeygenMe_00404550 ;<= Jump/Call Address Not Resolved
lea eax,dword ptr ss:[ebp-024h]
mov edx,6
call @KeygenMe_00404550 ;<= Jump/Call Address Not Resolved
ret ;<= Procedure End
jmp @KeygenMe_00403f30 ;<= Jump/Call Address Not Resolved
jmp @KeygenMe_004561ae
pop edi
pop esi
pop ebx
mov esp,ebp
pop ebp
ret
Link to comment

here is my KeyGen Code ;)

.data?
szname db 512 Dup(?)
buf db 512 Dup(?)
slen dd ?
sum1 dd ?
sum2 dd ?.data
szhash db 00Bh, 006h, 011h, 00Ch, 00Ch, 00Eh, 005h, 00Ch,010h, 00Ah, 00Bh, 006h, 00Eh, 00Eh, 004h, 00Bh,006h, 00Eh, 00Eh, 004h, 00Bh, 009h, 00Ch, 00Bh,00Ah, 008h, 00Ah, 00Ah, 010h, 008h, 004h, 006h,00Ah, 00Ch, 010h, 008h, 00Ah, 004h, 010h, 090h
er db "Enter A Name",0
er2 db "Name needs to be at least 4 characters...",0
format db "%d-%d",0
generate proc hWin:HWND invoke GetDlgItemText,hWin,1001,addr szname,512
cmp eax,4
JGE fin
invoke SetDlgItemText,hWin,1002,addr er2
ret fin :
invoke RtlZeroMemory,addr sum1,sizeof sum1
invoke RtlZeroMemory,addr sum2,sizeof sum2
invoke RtlZeroMemory,addr buf,sizeof buf
invoke lstrlen,addr szname
mov edi,eax
sub edi,4
inc edi
mov esi,4
xor ebx,ebx
xor eax,eax
@KeygenMe_004560b3:
mov eax,offset szname
movzx eax,byte ptr ds:[eax+esi-1]
xor edx,edx
mov dl,byte ptr ds:[ebx+szhash]
imul edx
add [sum1],eax
inc ebx
cmp ebx,026h
jle @KeygenMe_004560e3
xor ebx,ebx
@KeygenMe_004560e3:
inc esi
dec edi
jnz @KeygenMe_004560b3
invoke lstrlen,addr szname
mov edi,eax
sub edi,4
inc edi
mov esi,4
xor ebx,ebx
xor eax,eax @KeygenMe_00456116: mov eax,offset szname
movzx eax,BYTE PTR DS:[EAX+ESI-2]
push eax
mov eax,offset szname
movzx eax,byte ptr ds:[eax+esi-1]
mov edx,eax
pop eax
imul edx
xor edx,edx
mov dl,byte ptr ds:[ebx+szhash]
imul edx,eax
add [sum2],edx
inc ebx
cmp ebx,026h
jle @KeygenMe_00456168
xor ebx,ebx
@KeygenMe_00456168:
inc esi
dec edi
jnz @KeygenMe_00456116
add sum2,0E050A94h invoke wsprintf,addr buf,addr format,sum1,sum2
invoke SetDlgItemText,hWin,1002,addr buf ret error :
invoke SetDlgItemText,hWin,1002,addr er
Ret
generate EndP

Sorry , my codes are same MouradPr Codes ;)

BR ,

GioTiN - Under SEH Team

KeyGen.rar

Link to comment
  • 2 weeks later...
  • 3 weeks later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...