javapad.pas

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

Program KeygenJavaPad ;
uses crt ;
var ID,Serial : String ;
    EBX,EDX : integer ;
    ESI,ECX : longint ;
Begin
  clrscr ;
  Writeln ('Keygenerator for JavaPad Pro 1.0') ;
  Writeln ('    Written by flag eRRatum     ') ;
  Writeln ('Visit our Page @ http://all.at/ekh') ;
  Writeln ('The ID can be any number more than 4 char !!!');
  Writeln ('Now, Please Input your ID                   :');
  Readln(ID);
  EDX := length(ID) ;
  if length(ID) < 5 then writeln('This is not a valid ID !!!') ;
  ESI:=ord(ID[4]) ;
  EBX:=ord(ID[2]) ;
  ESI:=ESI SHL 6 ;
  ESI:=ESI + EBX ;
  EBX:=ord(ID[3]) ;
  ESI:=ESI SHL 8 ;
  ESI:=ESI + EBX ;
  EBX:=ord(ID[1]) ;
  ESI:=ESI SHL 8 ;
  ESI:=ESI+EBX ;
  ESI:=ESI + ESI ;
  while EDX>0 do
    begin
    dec(edx) ;
    ECX:=ord(ID[EDX+1]) ;
    ECX:=ECX SHL 9 ;
    ESI:=ESI + ECX ;
    if edx>0 then
      begin
      dec(edx) ;
      ECX:=ord(ID[EDX+1]);
      ECX:=ECX SHL 15 ;
      ESI:=ESI+ECX ;
      end;
    end ;
    Writeln('Your Serial Number is : ',(ESI)) ;
    Writeln('Press Anykey to Continue ...') ;
    readkey ;
  end.



















end.