picaview.pas

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

Program PicAView ;
uses crt ;
var user : string ;
    serial,temp1,temp2 : longint ;
    i,len : integer ;
    table : array[1..30] of integer ;
begin
  clrscr ;
  TextColor(LightGreen) ;
  Writeln('PicaView32 1.xx KeyGenerator by flag eRRatum') ;
  Writeln('Please Visit our Page (http://all.at/ekh) for more great cracks !') ;
  normvideo ;
  write('Enter your full name : ') ;
  readln(user) ;
  len:=length(user) ;
  if len<6 then
    begin
    writeln('Full Name should more than 5 char !') ;
    exit ;
    end ;
  for i:=1 to len do
    begin
    user[i]:=upcase(user[i]) ;
    temp1:=(ord(user[i])) * $49222d ;
    temp1:=temp1+(i-1) ;
    temp1:=temp1 AND $FFFF ;
    temp1:=temp1 MOD len ;
    temp1:=temp1 AND $FFFF ;
    table[i]:=temp1 ;
    end ;
  temp1:=0 ;
  for i:=1 to len do
    begin
    serial:=ord(user[1+table[i]]) ;
    temp2:=serial SHL table[i] ;
    temp2:=temp2*i*$49222d ;
    temp2:=temp2 OR (ord(user[1+table[i]])) ;
    temp1:=temp1+temp2 ;
    end ;
  if temp1<0 then temp1:=(NOT temp1)+1 ; textcolor(White) ;
  writeln('Your Registration Code is : ',temp1 mod $3B9ACA00) ;
  textcolor(LIGHTRED) ;
  writeln('Please Visit Our Page for more great cracks') ; normvideo ;
end.