Log in

View Full Version : Prog a KeyGen


bINARy ShocK
October 30th, 2001, 12:11
ive cracked the crackme#2 fromBengaly and know the algo:
a=9360 + 195(+1)
b=9555 + 196(+3)
c=9751 +199(...)
d=9950 ...

after input ("abc": Key= 9360(a) + 9550(b) + 9751(c)
but how can i create a keygen??? thx

stealthFIGHTER
October 30th, 2001, 15:22
procedure Keygen;
var counter : Byte;
___ Eachar, Eachar1, Temp, Temp1, Serial : Integer;
begin
__Eachar := 0;
__Eachar1 := 0;
__Temp := 0;
__Temp1 := 0;
__Serial := 0;
__for counter := 1 to length(edtName.text) do
__begin
____Eachar := Ord(edtName.text[counter]);
____Eachar1 := Eachar;
____Temp := Eachar * Eachar1;
____Serial := Serial + Temp;
____Temp1 := Eachar;
____asm
______sar Temp1, 1
____end;
____Serial := Serial + Temp1;
____Serial := Serial - Eachar;
__end;
end;