home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / KASIARZ.PAS < prev    next >
Pascal/Delphi Source File  |  1997-12-15  |  1KB  |  71 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,h10,h11,h12,h13,h14,h15:char;
  5. begin
  6. writeln;
  7. writeln('Crack do KASIARZ');
  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 KASIARZ\CFG');
  25. halt;
  26. end;
  27. for l:=1 to 371 do
  28. begin
  29. read(plik,d);
  30. end;
  31. h0:=chr(229);
  32. h1:=chr(166);
  33. h2:=chr(3);
  34. h3:=chr(92);
  35. h4:=chr(243);
  36. h5:=chr(220);
  37. h6:=chr(45);
  38. h7:=chr(208);
  39. h8:=chr(89);
  40. h9:=chr(60);
  41. h10:=chr(230);
  42. h11:=chr(3);
  43. h12:=chr(226);
  44. h13:=chr(226);
  45. h14:=chr(158);
  46. h15:=chr(245);
  47.  
  48. write(plik,h0);
  49. write(plik,h1);
  50. write(plik,h2);
  51. write(plik,h3);
  52. write(plik,h4);
  53. write(plik,h5);
  54. write(plik,h6);
  55. write(plik,h7);
  56. write(plik,h8);
  57. write(plik,h9);
  58. write(plik,h10);
  59. write(plik,h11);
  60. write(plik,h12);
  61. write(plik,h13);
  62. write(plik,h14);
  63. write(plik,h15);
  64. close(plik);
  65. writeln;
  66. writeln('O.K.');
  67. textcolor(white);
  68. writeln('Haslo:   HACKER');
  69. textcolor(lightgray);
  70. writeln(' ');
  71. end.