Jump to content
Tuts 4 You

[keygenme] KGM 5 by VESA [Simple]


VESA

Recommended Posts

here is my C source and keygen Compiled by Pelles C :

makeserial(HWND hWnd)
{
char szname[50]="",szserial[1024]="";long int s=0;
int m;GetDlgItemText(hWnd,4004,szname,50);
m=lstrlen(szname);
if (m>0)
{
s=((m*0x0BA2CD0)/2)+0x200;
wsprintf(szserial,"%x",s); SetDlgItemText(hWnd,4005,szserial);
}
else if (m<1)
{
SetDlgItemText(hWnd,4005,"Enter More Char ...");
SetFocus(GetDlgItem(hWnd,4004));
}
return 0;
}

keygen attached ;)

Bye , GioTiN - Under SEH Team

Keygen.rar

Link to comment
Share on other sites

  • 6 months later...
  • 3 weeks later...
  • 5 weeks later...

Heres my solution, I did'nt bother uploading a exe keygen because there are so many already, instead ill just paste my source, which is a asm rip :)


procedure TForm1.Button1Click(Sender: TObject);
var
iTmp: Integer;
beginiTmp:= length(edit1.Text);asm
mov eax,iTmp
imul eax,eax,$0ba2cd0
sar eax,1
add eax,$200
push eax
mov iTmp, eax
end;edit2.text:= AnsiLowerCase(inttohex(iTmp,1));end;

Thanks for the easy keygenme, I like easy ones ;)

Edited by Departure
Link to comment
Share on other sites

  • 2 months 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...