home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / slkeygen.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  1.0 KB  |  37 lines
  1. PROGRAM SITE_SLUTH_KEYMAKER;
  2. {Silly copy protection :)... checks if the typed is the right sequence of 
  3. numbers, letters & dashes}
  4.  
  5. uses dos, crt;
  6.  
  7.  
  8. VAR
  9. I : INTEGER;
  10. kEYWORD : String;
  11.  
  12. begin;
  13. Writeln('KeyGenerator for SiteSleuth v1.05 (C) WebGenie');
  14. Writeln('Written by Stone/MASQUE  1997');
  15. Writeln('A valid key is: ');
  16.  
  17. randomize;
  18. keyword:='1234323289abcdef0123456789abcdef'; {Keyword is this length}
  19. for i:=1 to 39 do begin
  20. keyword[i]:= chr(random(9)+49);        {Fill it with random numbers}
  21. end;
  22. keyword[1]:= chr(random(25)+65);    {These have to be letters}
  23. keyword[2]:= chr(random(25)+65);
  24. keyword[8]:= chr(random(25)+65);
  25. keyword[9]:= chr(random(25)+65);
  26. keyword[17]:=chr(random(25)+65);
  27. keyword[18]:=chr(random(25)+65);
  28. keyword[$1c]:=chr(random(25)+65);
  29. keyword[$1d]:=chr(random(25)+65);
  30. keyword[$1e]:=chr(random(25)+65);
  31. keyword[$1f]:=chr(random(25)+65);
  32. keyword[7]:='-';        {These must be -'s }
  33. keyword[13]:='-';
  34. keyword[19]:='-';
  35. keyword[25]:='-';
  36. writeln(keyword);            {Write it}
  37. end.