home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / REWIZOR.PAS < prev    next >
Pascal/Delphi Source File  |  1997-12-15  |  1KB  |  58 lines
  1. uses crt,dos;
  2. var plik:file of char;
  3. l:integer;
  4. d,h0,h1,h2,h3,h4,h5,h6,h7,h8,h9:char;
  5. begin
  6. writeln;
  7. writeln('Crack do REWIZOR');
  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 REWIZOR\CFG');
  25. halt;
  26. end;
  27. for l:=1 to 8174 do
  28. begin
  29. read(plik,d);
  30. end;
  31. h0:=chr(149);
  32. h1:=chr(153);
  33. h2:=chr(151);
  34. h3:=chr(154);
  35. h4:=chr(150);
  36. h5:=chr(128);
  37. h6:=chr(32);
  38. h7:=chr(32);
  39. h8:=chr(32);
  40. h9:=chr(32);
  41. write(plik,h0);
  42. write(plik,h1);
  43. write(plik,h2);
  44. write(plik,h3);
  45. write(plik,h4);
  46. write(plik,h5);
  47. write(plik,h6);
  48. write(plik,h7);
  49. write(plik,h8);
  50. write(plik,h9);
  51. close(plik);
  52. writeln;
  53. writeln('O.K.');
  54. textcolor(white);
  55. writeln('Haslo:   HACKER');
  56. textcolor(lightgray);
  57. writeln(' ');
  58. end.