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