PROGRAM SITE_SLUTH_KEYMAKER;

{Silly copy protection :)... checks if the typed is the right sequence of 

numbers, letters & dashes}



uses dos, crt;





VAR

I : INTEGER;

kEYWORD : String;



begin;

Writeln('KeyGenerator for SiteSleuth v1.05 (C) WebGenie');

Writeln('Written by Stone/MASQUE  1997');

Writeln('A valid key is: ');



randomize;

keyword:='1234323289abcdef0123456789abcdef'; {Keyword is this length}

for i:=1 to 39 do begin

keyword[i]:= chr(random(9)+49);		{Fill it with random numbers}

end;

keyword[1]:= chr(random(25)+65);	{These have to be letters}

keyword[2]:= chr(random(25)+65);

keyword[8]:= chr(random(25)+65);

keyword[9]:= chr(random(25)+65);

keyword[17]:=chr(random(25)+65);

keyword[18]:=chr(random(25)+65);

keyword[$1c]:=chr(random(25)+65);

keyword[$1d]:=chr(random(25)+65);

keyword[$1e]:=chr(random(25)+65);

keyword[$1f]:=chr(random(25)+65);

keyword[7]:='-';		{These must be -'s }

keyword[13]:='-';

keyword[19]:='-';

keyword[25]:='-';

writeln(keyword);			{Write it}

end.