home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / C1.PAS < prev    next >
Pascal/Delphi Source File  |  1997-12-15  |  688b  |  46 lines
  1. uses crt,dos;
  2. var l,m:integer;
  3. tab:array[1..9999] of byte;
  4. p:file of byte;
  5. d:byte;
  6. begin
  7. writeln;
  8. writeln('CRACK do plikow skompilowanych TURBOBATCH`em');
  9. writeln('<c> 1997 by Tytus Software');
  10. writeln;
  11. if paramcount=0 then
  12. begin
  13. writeln('BRAK PARAMETRU.');
  14. writeln('Uyzcie: CRACK.EXE [nazwa pliku]');
  15. halt;
  16. end;
  17. assign(p,paramstr(1));
  18. reset(p);
  19. m:=filesize(p);
  20. l:=0;
  21. repeat
  22. inc(l);
  23. read(p,d);
  24. tab[l]:=d;
  25. until eof(p);
  26. close(p);
  27. l:=0;
  28. for l:=0 to 9 do
  29. begin
  30. tab[35+l]:=32;
  31. end;
  32. l:=0;
  33. for l:=0 to 126 do
  34. begin
  35. tab[51+l]:=32;
  36. end;
  37. assign(p,paramstr(1));
  38. rewrite(p);
  39. l:=0;
  40. repeat
  41. inc(l);
  42. write(p,tab[l]);
  43. until l=m;
  44. close(p);
  45. writeln('OK.');
  46. end.