bssact.pas

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

program keygen;

var
result, code : integer;
name, fname  : string;
letter       : char;
Textfile     : text;

begin

 fname := 'ssact.reg';
 writeln('Blackboard Screensaver Activate - Keyfile generator by Quantico MEX/C4N');
 write('Enter your name : ');
 readln(name);
letter := char(name[length(name)-1]);
IF letter = 'a' THEN code := $13 ELSE
IF letter = 'b' THEN code := $26 ELSE
IF letter = 'c' THEN code := $3A ELSE
IF letter = 'd' THEN code := $4F ELSE
IF letter = 'e' THEN code := $65 ELSE
IF letter = 'f' THEN code := $76 ELSE
IF letter = 'g' THEN code := $94 ELSE
IF letter = 'h' THEN code := $AD ELSE
IF letter = 'i' THEN code := $C7 ELSE
IF letter = 'j' THEN code := $E2 ELSE
IF letter = 'k' THEN code := $FE ELSE
IF letter = 'l' THEN code := $11B ELSE
IF letter = 'm' THEN code := $139 ELSE
IF letter = 'n' THEN code := $158 ELSE
IF letter = 'o' THEN code := $178 ELSE
IF letter = 'p' THEN code := $199 ELSE
IF letter = 'q' THEN code := $1BB ELSE
IF letter = 'r' THEN code := $1DE ELSE
IF letter = 's' THEN code := $202 ELSE
IF letter = 't' THEN code := $227 ELSE
IF letter = 'u' THEN code := $24D ELSE
IF letter = 'v' THEN code := $274 ELSE
IF letter = 'w' THEN code := $29C ELSE
IF letter = 'x' THEN code := $2C5 ELSE
IF letter = 'y' THEN code := $2EF ELSE
IF letter = 'z' THEN code := $31A; 

code := code + $63;

Assign(Textfile, fname);
Rewrite(Textfile);
writeln(Textfile, name);
write(Textfile, code);
Close(Textfile); 
writeln;
writeln('ssact.reg file created.');
writeln('Place it in your windows directory.');  

end.