mmviewer.pas

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

Program MMviewerKeyGenZ ;
uses Crt ;
var RegisterCode : String ;
    Register, SerialNumber : word ;
procedure TrueSerial (var RegisterCode : String) ;
var i,position,Code : integer ;
    SNint : longint ;
    digit : string ;
begin
  for i:=1 to 3 do
  begin
  position:=pos('-',RegisterCode) ;
  Delete(RegisterCode,position,1) ;
  end ;
  digit:=copy(RegisterCode,1,4) ;
  Delete(RegisterCode,1,4) ;
  val(digit,SNint,Code) ;
  str(SNint,digit) ;
  insert(digit,registerCode,1) ;
  end ;
procedure Serial (Registercode : string;var SerialNumber : word) ;
Var A : longint ;
    Code : integer ;
    begin
  registercode:=copy(registercode,11,4) ;
  val(registercode,A,code) ;
  SerialNumber:=Serialnumber + A ;
  Serialnumber:=$ffffffff - SerialNumber + 1 ;
  end ;
begin
  clrscr ;
  Writeln('MM Viewer KeyGenerator, by flag eRRatum') ;
  Writeln('Please Visit our Homepage at http://all.at/ekh') ;
  Writeln('Please type your Serial Number : ') ;
  Readln(SerialNumber) ;
  Writeln('Please type your Register Code, with the "-" ');
  Readln(RegisterCode) ;
  TrueSerial(RegisterCode) ;
  Serial(RegisterCode,SerialNumber) ;
  Writeln(SerialNumber) ;
  readkey ;
end.