home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / CRR.PAS < prev    next >
Pascal/Delphi Source File  |  1997-12-15  |  855b  |  42 lines
  1. uses crt,dos;
  2. var p:file of char;
  3. l:integer;
  4. d:char;
  5. const tab:array[1..40] of char=
  6. ('H','A','C','K','E','R',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
  7. ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','!','!','!','!','!','!','!','!','!','!');
  8. begin
  9. writeln;
  10. writeln('Crack do Ksiegi Przychodow i Rozchodow "INWAR" v. 4.2b');
  11. write('<c>1997 by ');
  12. textcolor(lightcyan);
  13. writeln('Tytus Software');
  14. textcolor(lightgray);
  15. writeln('http://free.polbox.pl/t/tomekr');
  16. writeln;
  17. assign(p,'o.dbf');
  18. {$I-}
  19. reset(p);
  20. {$I+}
  21. if ioresult<>0 then
  22. begin
  23. textcolor(red);
  24. writeln('Brak pliku z haslem.');
  25. textcolor(lightgray);
  26. halt;
  27. end;
  28. for l:=1 to 804 do
  29. begin
  30. read(p,d);
  31. end;
  32. for l:=1 to 40 do
  33. begin
  34. write(p,tab[l]);
  35. end;
  36. close(p);
  37. writeln('Operator:   HACKER');
  38. writeln('Haslo   :');
  39. writeln;
  40. writeln;
  41. writeln('O.K.');
  42. end.