home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / dnet_pas.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  1.3 KB  |  63 lines
  1. PROGRAM DirectNet_Keygen;
  2.  
  3. VAR Offset : Byte;
  4.     ECX    : LongInt;
  5.     EBP    : LongInt;
  6.     Name   : STRING[20];
  7.  
  8. PROCEDURE PartOne;
  9. BEGIN
  10.      EBP := $6B;
  11.      FOR Offset := 1 TO Length( Name ) DO
  12.        BEGIN
  13.             ECX := Byte(Name[Offset]);
  14.             EBP := EBP - ECX;
  15.             ECX := (ECX * 2)+ECX;
  16.             EBP := ECX*8+EBP;
  17.        END;
  18.      Write( EBP );
  19. END;
  20.  
  21. PROCEDURE PartTwo;
  22. VAR EDX : LongInt;
  23. BEGIN
  24.      FOR OffSet := 1 TO Length( Name ) DO
  25.        BEGIN
  26.             ECX := Byte( Name[OffSet]);
  27.             EDX := ECX;
  28.             ECX := ECX*8+ECX;
  29.             ECX := ECX*4+ECX;
  30.             EDX := ECX*2+EDX;
  31.             EBP := EDX*2+EBP;
  32.        END;
  33.      Write( '-',EBP );
  34. END;
  35.  
  36. PROCEDURE PartThree;
  37. BEGIN
  38.      ECX := Byte( Name[Length(Name)]);
  39.      EBP := ECX*4+ECX+$85E;
  40.      Write( '-',EBP );
  41. END;
  42.  
  43. PROCEDURE PartFour;
  44. VAR EDX : LongInt;
  45. BEGIN
  46.      ECX := Byte( Name[Length(Name)]);
  47.      EDX := ECX*4+ECX;
  48.      EBP := EDX*2+$9A;
  49.      Writeln( '-', EBP );
  50. END;
  51.  
  52. BEGIN
  53.      Writeln( #13#10'DirectNet v1.1 -- KeyGen' );
  54.      Writeln( 'By CoRN2 [mE''98/C4N' );
  55.      Writeln( 'http://mex98.home.ml.org' );
  56.      Write( #13#10'Name: ' );
  57.      Readln( Name );
  58.      Write( 'S/N : ' );
  59.      PartOne;
  60.      PartTwo;
  61.      PartThree;
  62.      PartFour;
  63. END.