home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / javapad.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  1.1 KB  |  64 lines
  1. Program KeygenJavaPad ;
  2. uses crt ;
  3. var ID,Serial : String ;
  4.     EBX,EDX : integer ;
  5.     ESI,ECX : longint ;
  6. Begin
  7.   clrscr ;
  8.   Writeln ('Keygenerator for JavaPad Pro 1.0') ;
  9.   Writeln ('    Written by flag eRRatum     ') ;
  10.   Writeln ('Visit our Page @ http://all.at/ekh') ;
  11.   Writeln ('The ID can be any number more than 4 char !!!');
  12.   Writeln ('Now, Please Input your ID                   :');
  13.   Readln(ID);
  14.   EDX := length(ID) ;
  15.   if length(ID) < 5 then writeln('This is not a valid ID !!!') ;
  16.   ESI:=ord(ID[4]) ;
  17.   EBX:=ord(ID[2]) ;
  18.   ESI:=ESI SHL 6 ;
  19.   ESI:=ESI + EBX ;
  20.   EBX:=ord(ID[3]) ;
  21.   ESI:=ESI SHL 8 ;
  22.   ESI:=ESI + EBX ;
  23.   EBX:=ord(ID[1]) ;
  24.   ESI:=ESI SHL 8 ;
  25.   ESI:=ESI+EBX ;
  26.   ESI:=ESI + ESI ;
  27.   while EDX>0 do
  28.     begin
  29.     dec(edx) ;
  30.     ECX:=ord(ID[EDX+1]) ;
  31.     ECX:=ECX SHL 9 ;
  32.     ESI:=ESI + ECX ;
  33.     if edx>0 then
  34.       begin
  35.       dec(edx) ;
  36.       ECX:=ord(ID[EDX+1]);
  37.       ECX:=ECX SHL 15 ;
  38.       ESI:=ESI+ECX ;
  39.       end;
  40.     end ;
  41.     Writeln('Your Serial Number is : ',(ESI)) ;
  42.     Writeln('Press Anykey to Continue ...') ;
  43.     readkey ;
  44.   end.
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64. end.