home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / bssact.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  1.6 KB  |  59 lines
  1. program keygen;
  2.  
  3. var
  4. result, code : integer;
  5. name, fname  : string;
  6. letter       : char;
  7. Textfile     : text;
  8.  
  9. begin
  10.  
  11.  fname := 'ssact.reg';
  12.  writeln('Blackboard Screensaver Activate - Keyfile generator by Quantico MEX/C4N');
  13.  write('Enter your name : ');
  14.  readln(name);
  15. letter := char(name[length(name)-1]);
  16. IF letter = 'a' THEN code := $13 ELSE
  17. IF letter = 'b' THEN code := $26 ELSE
  18. IF letter = 'c' THEN code := $3A ELSE
  19. IF letter = 'd' THEN code := $4F ELSE
  20. IF letter = 'e' THEN code := $65 ELSE
  21. IF letter = 'f' THEN code := $76 ELSE
  22. IF letter = 'g' THEN code := $94 ELSE
  23. IF letter = 'h' THEN code := $AD ELSE
  24. IF letter = 'i' THEN code := $C7 ELSE
  25. IF letter = 'j' THEN code := $E2 ELSE
  26. IF letter = 'k' THEN code := $FE ELSE
  27. IF letter = 'l' THEN code := $11B ELSE
  28. IF letter = 'm' THEN code := $139 ELSE
  29. IF letter = 'n' THEN code := $158 ELSE
  30. IF letter = 'o' THEN code := $178 ELSE
  31. IF letter = 'p' THEN code := $199 ELSE
  32. IF letter = 'q' THEN code := $1BB ELSE
  33. IF letter = 'r' THEN code := $1DE ELSE
  34. IF letter = 's' THEN code := $202 ELSE
  35. IF letter = 't' THEN code := $227 ELSE
  36. IF letter = 'u' THEN code := $24D ELSE
  37. IF letter = 'v' THEN code := $274 ELSE
  38. IF letter = 'w' THEN code := $29C ELSE
  39. IF letter = 'x' THEN code := $2C5 ELSE
  40. IF letter = 'y' THEN code := $2EF ELSE
  41. IF letter = 'z' THEN code := $31A; 
  42.  
  43. code := code + $63;
  44.  
  45. Assign(Textfile, fname);
  46. Rewrite(Textfile);
  47. writeln(Textfile, name);
  48. write(Textfile, code);
  49. Close(Textfile); 
  50. writeln;
  51. writeln('ssact.reg file created.');
  52. writeln('Place it in your windows directory.');  
  53.  
  54. end.
  55.  
  56.  
  57.  
  58.  
  59.