mrpix.pas

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

Program keygeneratormrpix ;
uses crt ;
var user : string ;
    pk,sn : longint ;
    i,len : integer ;

begin
  clrscr ;
  writeln('Key-Generator Mister Pix 1.x') ;
  writeln('Visit our page at http://all.at/ekh') ;
  write('Please Enter Your Username : ') ;
  readln(user) ;
  write('Please Enter Your Public Key : ') ;
  readln(pk) ;
  len:=length(user) ;
  for i:=1 to len do
  begin
  if ord(user[i])=32 then delete(user,i,1) ;
  if ord(user[i])<97 then user[i]:=chr(ord(user[i])+32);
  end ;
  sn:=1 ;
  i:=1 ;
  while i<len do begin
  inc(sn) ;
  sn:=sn * ord(user[i]) ;
  sn:=sn * i ;
  sn:=sn MOD $FFFF ;
  inc(i) ;
  end ;
  writeln('Your Private key is : ',sn XOR pk XOR $DE82) ;
  textcolor(LightRED) ;
  writeln('Please Visit Our Page for More Cracks,Serials,KeyGenZ !')
end.