j-write.pas

来自「破解很多程序的序列号算法程序」· PAS 代码 · 共 41 行

program JW_keygen;

var
count, temp, temp1   : integer;
result               : longint;
name, strresult      : string;
digit1               : char;
 
begin

 writeln('J-Write 2.3 - Keygen by Quantico MEX/C4N');
 write('Enter your name : ');
 readln(name);
 write('Enter a single digit for the first digit of your code : ');
 readln(digit1);
 
 temp := (Ord(digit1)*$F7) DIV $17;

 FOR count := 1 TO length(name) DO BEGIN
  temp1  := byte(name[count]);
  temp1  := (temp1*$F7) DIV $17;
  result := result + temp1;
end;

result := result + temp;
 
 Str(result, strresult);
 write('Your code is ', digit1, '-');
	
 FOR count :=1 to 6-length(strresult) DO BEGIN
   write('0');
 end;
 
 writeln(strresult);

end.