home *** CD-ROM | disk | FTP | other *** search
/ Gambler 19 / GAMBLERCD19.BIN / UTILS / DDTPACK / PROGS / CRACK / SOURCE / CRACK.PAS
Pascal/Delphi Source File  |  1996-12-31  |  2KB  |  67 lines
  1. Var
  2.   F : File of Byte;
  3.   T : Text;
  4.   N, S : String;
  5.   I : Word;
  6.   B : Byte;
  7.   V : LongInt;
  8.  
  9.  Procedure Blad (Info : String);
  10.    Begin
  11.      WriteLn (Info+#7);
  12.      Halt (1)
  13.    End;
  14.  
  15. Begin
  16.   WriteLn;
  17.   WriteLn ('Crack ß.1 by Fubrus,   Copyright (c) 1997');
  18.   WriteLn ('Uzycie: '+ParamStr (0)+' [FileName|/?]');
  19.   If Pos ('?', ParamStr (1)) <> 0 Then
  20.     Begin
  21.       WriteLn;
  22.       WriteLn ('Format pliku wejsciowego:');
  23.       WriteLn ('  1. Kazda linia rozpoczynajaca sie srednikiem jest pomijana,');
  24.       WriteLn ('  2. Pierwsza wazna linia to nazwa pliku do modyfikacji,');
  25.       WriteLn ('  3. Kolejne wazne linie musza posiadac nastepujacy format:');
  26.       WriteLn ('         - pierwsza linia to pozycja w pliku,');
  27.       WriteLn ('         - druga linia to wartosc do wpisania.');
  28.       Halt (0)
  29.     End;
  30.   If ParamCount = 0 Then
  31.     Halt (0);
  32.   Assign (T, ParamStr (1));
  33.   {$I-}
  34.   Reset (T);
  35.   If IOResult <> 0 Then
  36.     Blad ('Blad otwarcia pliku wejsciowego: '+ParamStr (1));
  37.   ReadLn (T, S);
  38.   Assign (F, S);
  39.   Reset (F);
  40.   If IOResult <> 0 Then
  41.     Blad ('Blad otwarcia pliku modyfikowanego: '+S);
  42.   While Not Eof (T) Do
  43.     Begin
  44.       ReadLn (T, N);
  45.       Val (N, V, I);
  46.       If (I <> 0) Or (IOResult <> 0) Then
  47.         Blad ('Blad odczytu danych z pliku: '+ParamStr (1));
  48.       Seek (F, V);
  49.       If IOResult <> 0 Then
  50.         Blad ('Blad pozycjonowania pliku: '+S);
  51.       Readln (T, N);
  52.       Val (N, B, I);
  53.       If (i <> 0) Or (IOResult <> 0) Then
  54.         Blad ('Blad odczytu danych z pliku: '+ParamStr (1));
  55.       Write (F, B);
  56.       If IOResult <> 0 Then
  57.         Blad ('Blad zapisu w pliku: '+S)
  58.     End;
  59.   Close (F);
  60.   If IOResult <> 0 Then
  61.     Blad ('Blad zamkniecia pliku: '+S);
  62.   Close (T);
  63.   If IOResult <> 0 Then
  64.     Blad ('Blad zamkniecia pliku: '+ParamStr (1))
  65.   {$I+}
  66. End.
  67.