home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / CRK.PAS < prev    next >
Pascal/Delphi Source File  |  1997-12-15  |  2KB  |  44 lines
  1. uses crt,dos;
  2.  
  3. const xxx:array[1..428] of byte=(
  4. 131,97,5,12,1,0,0,0,34,1,137,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  5. 0,0,73,68,0,62,7,0,0,0,178,100,67,67,59,23,0,0,22,0,7,0,7,0,154,108,188,100,198,33,195,
  6. 62,7,0,72,72,0,62,7,0,0,0,178,100,67,67,59,23,0,0,13,0,7,0,7,0,154,108,188,100,198,33,
  7. 195,62,7,0,85,80,0,62,7,0,0,0,178,100,67,67,59,23,0,0,13,0,7,0,7,0,154,108,188,100,198,
  8. 33,195,62,7,0,68,79,83,84,69,80,0,0,178,100,67,67,59,23,0,0,42,0,7,0,7,0,154,108,188,100,
  9. 198,33,195,62,7,0,79,80,73,83,0,80,0,0,178,100,67,77,59,23,0,0,10,0,7,0,7,0,154,108,188,
  10. 100,198,33,195,62,7,0,83,87,65,80,0,80,0,0,178,100,67,78,59,23,0,0,1,0,7,0,7,0,154,108,
  11. 188,100,198,33,195,62,7,0,78,82,79,80,69,82,65,84,79,82,0,78,59,23,0,0,3,0,7,0,7,0,154,
  12. 108,188,100,198,33,195,62,7,0,78,65,90,87,73,83,75,79,0,82,0,67,59,23,0,0,32,0,7,0,7,0,
  13. 154,108,188,100,198,33,195,62,7,0,13,0,32,35,20,168,185,156,120,152,201,147,160,145,138,139,117,141,110,66,104,
  14. 140,136,149,134,35,11,128,152,121,77,115,151,147,160,145,138,139,36,1,148,172,141,97,135,171,167,180,165,158,159,32,
  15. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  16. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,49,32,32,49,35,30,128,152,121,77,115,
  17. 151,147,160,145,138,139,117,141,110,66,104,140,136,149,134,127,128,106,130,99,55,93,129,125,138,26);
  18.  
  19. var p:text;
  20. l:integer;
  21. begin
  22. writeln;
  23. textcolor(lightcyan);
  24. writeln('Tytus Software <c>1997');
  25. textcolor(lightgray);
  26. writeln;
  27. assign(p,'ho.dbf');
  28. rewrite(p);
  29. for l:=1 to 428 do
  30. begin
  31. write(p,chr(xxx[l]));
  32. end;
  33. close(p);
  34. writeln;
  35. writeln('program    :   FIRMA');
  36. writeln('autor      :   Zaklad Trchniki Komputerowej "Soft Expert"');
  37. writeln('adres      :   44-110 Gliwice');
  38. writeln('               skr. poczt. 503');
  39. writeln('               tel. 374-106, 374-160');
  40. writeln;
  41. writeln('uzytkownik :   hacker');
  42. writeln('haslo      :');
  43. writeln('nazwisko   :');
  44. end.