home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / webpalet.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  765 b   |  44 lines
  1. program keygen;
  2.  
  3. label
  4. more;
  5.  
  6. var
  7. count, error : integer;
  8. name, fname  : string;
  9. Textfile     : text;
  10. line1, line3, ebx, ecx, eax : longint;
  11.  
  12. begin
  13.  line1 := 58948197;
  14.  fname := 'reg.key';
  15.  writeln('Web Palette 1.0 - Keyfile generator by Quantico MEX/C4N');
  16.  write('Enter your name : ');
  17.  readln(name);
  18.  ebx := 1;
  19.  ecx := 0;
  20.  FOR count := 1 TO length(name) DO BEGIN
  21. MORE:
  22.  ecx := byte(name[count]);
  23.  ebx := ebx xor ecx;
  24. end;
  25.   eax := line1;
  26.   ebx := eax div ebx; 
  27.   line3 := ebx;
  28.  
  29. Assign(Textfile, fname);
  30. Rewrite(Textfile);
  31. writeln(Textfile, line1);
  32. writeln(Textfile, name);
  33. writeln(Textfile, line3);
  34. Close(Textfile); 
  35. writeln;
  36. writeln('reg.key file created.');
  37. writeln('Place it in Web Palette directory.');  
  38.  
  39. end.
  40.  
  41.  
  42.  
  43.  
  44.