instyler.pas

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

Program Instyler ;
uses crt ;
var user : string ;
    serial : longint ;
    i,len : integer ;
begin
  clrscr ;
  TextColor(LightGreen) ;
  Writeln('instyler ex-it! 1.xx KeyGenerator by flag eRRatum') ;
  Writeln('Please Visit our Page (http://all.at/ekh) for more great cracks !') ;
  normvideo ;
  write('Enter your name : ') ;
  readln(user) ;
  len:=length(user) ;
  if len<4 then
    begin
    writeln('Name should more than 3 char !') ;
    exit ;
    end ;
  for i:=1 to len do
    begin
    if i=1 then serial:=serial+2*(ord(user[i])) else if i<>len then
    serial:=serial+ord(user[i]) ;
    end ;
  textcolor(White) ;
  writeln('Your Registration Code is : 1000-',serial,'-',ord(user[1]),ord(user[4])) ;
  textcolor(LIGHTRED) ;
  writeln('Please Visit Our Page for more great cracks') ; normvideo ;
end.