home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / REJESTR.PAS < prev    next >
Pascal/Delphi Source File  |  1997-12-15  |  672b  |  39 lines
  1. uses crt,dos;
  2. var plik:file of char;
  3. l:integer;
  4. d,h:char;
  5. begin
  6. writeln;
  7. writeln('Crack do REJESTRANT');
  8. write('<c>1997 by ');
  9. textcolor(lightcyan);
  10. writeln('Tytus Software');
  11. textcolor(lightgray);
  12. writeln('http://free.polbox.pl/t/tomekr');
  13. assign(plik,'users.dbf');
  14. {$I-}
  15. reset(plik);
  16. {$I+}
  17. if ioresult<>0 then
  18. begin
  19. writeln;
  20. textcolor(red);
  21. writeln('Brak pliku do skrakowania!');
  22. textcolor(lightgray);
  23. writeln;
  24. writeln('Program CRACK.EXE nalezy wgrac do katalogu REJESTR\CFG');
  25. halt;
  26. end;
  27. for l:=1 to 254 do
  28. begin
  29. read(plik,d);
  30. end;
  31. h:=chr(32);
  32. for l:=0 to 10 do
  33. begin
  34. write(plik,h);
  35. end;
  36. close(plik);
  37. writeln;
  38. writeln('O.K.');
  39. end.