webpalet.pas

破解很多程序的序列号算法程序

program keygen;

label
more;

var
count, error : integer;
name, fname  : string;
Textfile     : text;
line1, line3, ebx, ecx, eax : longint;

begin
 line1 := 58948197;
 fname := 'reg.key';
 writeln('Web Palette 1.0 - Keyfile generator by Quantico MEX/C4N');
 write('Enter your name : ');
 readln(name);
 ebx := 1;
 ecx := 0;
 FOR count := 1 TO length(name) DO BEGIN
MORE:
 ecx := byte(name[count]);
 ebx := ebx xor ecx;
end;
  eax := line1;
  ebx := eax div ebx; 
  line3 := ebx;

Assign(Textfile, fname);
Rewrite(Textfile);
writeln(Textfile, line1);
writeln(Textfile, name);
writeln(Textfile, line3);
Close(Textfile); 
writeln;
writeln('reg.key file created.');
writeln('Place it in Web Palette directory.');  

end.