slkeygen.pas

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

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.