home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / exespy4.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  1.6 KB  |  58 lines
  1. program exespy2;
  2.  
  3. uses Crt;
  4.  
  5. const
  6.  OffsetOne   : word   = 000;
  7.  OffsetTwo   : word   = 056;                { offset - 1 }
  8.  OffsetThree : word   = 384;
  9.  OffsetFour  : word   = 648;
  10.  
  11.  PartOne     : string = 'SPYS';
  12.  PartTwo     : string = 'ExeSpy98 for Windows 98 & Windows 95';
  13.  PartThree   : string = 'IGER';
  14.  
  15.  fName       : string  = 'exe98ur.dat';
  16.  
  17. var
  18.  DataFile    : file;
  19.  NumWritten  : word;
  20.  Buffer      : array[1..688] of char;
  21.  Count       : word;
  22.  
  23.  UserName    : string;
  24.  
  25. begin
  26.  ClrScr;
  27.  
  28.  Writeln('ExeSpy 98 v4.5 - Keygen by Quantico [mEX/c4N]');
  29.  writeln;
  30.  Write('Enter your name : ');
  31.  Readln(UserName);
  32.  
  33.  FillChar(Buffer, SizeOf(Buffer), $00);     { fill our buffer        }
  34.  
  35.  for Count := 1 to Length(PartOne) do
  36.   Buffer[Count + OffsetOne] := PartOne[Count];
  37.  
  38.  for Count := 1 to Length(PartTwo) do
  39.   Buffer[Count + OffsetTwo] := PartTwo[Count];
  40.  
  41.  for Count := 1 to Length(UserName) do
  42.   Buffer[Count + OffsetThree] := UserName[Count];
  43.  
  44.  for Count := 1 to Length(PartThree) do
  45.   Buffer[Count + OffsetFour] := PartThree[Count];
  46.  
  47.  Assign(DataFile, fName);                   { open file              }
  48.  Rewrite(DataFile, 1);                      { record size = 1 (byte) }
  49.  BlockWrite(DataFile,                       { write data to file     }
  50.             Buffer,
  51.             SizeOf(Buffer),
  52.             NumWritten);
  53.  Close(DataFile);                           { close file             }
  54.  
  55.  if NumWritten < 688
  56.   then Writeln('ERROR. Not all 688 bytes saved...')
  57.   else Writeln('Keyfile created - ', fName,' - move into ExeSpy directory...')
  58. end.