metaform.pas

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

Program dltypeskeygenZ ;
uses crt ;
var mail,register : string ;
    i : integer ;
begin
  clrscr ;
  writeln('MetaFormer99 1.1 Key Generator by flag eRRatum -[eKH]') ;
  writeln('Homepage at http://all.at/ekh') ;
  write('Please Enter your email address (more than 5 char !) : ') ;
  readln(mail) ;
  if length(mail) < 5 then
    begin
    writeln('Enter more than 5 char, dumbo !!!') ;
    halt ;
    end;
  register:='ABCDEFG' ;
  register[1]:=mail[3] ;
  randomize ;
  register[2]:=chr(random(74)+48) ;
  register[3]:=mail[5] ;
  for i:=4 to 6 do
  register[i]:=chr(random(74)+48) ;
  register[7]:=mail[2] ;
  writeln('Your Register Code is : ',register) ;
  writeln('You could type any Name and Company to register !') ;
  textcolor(lightred) ;
  writeln('Visit our page for more cracks !!!') ;
end.