home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / PROTECT.ZIP / PROTECT.PAS < prev    next >
Pascal/Delphi Source File  |  1997-06-07  |  919b  |  50 lines
  1. uses instu;
  2.  
  3. var nazwa,s:string;
  4. f:file;
  5. f1:file of tdaneinst;
  6. dane:tdaneinst;
  7. i:byte;
  8.  
  9. procedure wywolanie;
  10. begin
  11. writeln;
  12. writeln('Prawidlowe wywolanie proramu to:');
  13. writeln('PROTECT <nazwa programu.COM/EXE>');
  14. halt(255);
  15. end;
  16.  
  17. begin
  18. writeln;
  19. writeln('PROTECT wersje 1.0');
  20. writeln('Zabezpiezanie programow przed przenoszeniem na inny komputer');
  21. if paramcount<>1 then wywolanie;
  22. nazwa:=paramstr(1);
  23. assign(f,nazwa);
  24. {$I-}
  25. reset(f,1);
  26. {$I+}
  27. if ioresult<>0 then
  28. begin
  29. writeln('Nie moge otworzyc pliku ',nazwa,' !');
  30. wywolanie;
  31. end;
  32. if filesize(f)<200 then i:=filesize(f)
  33. else i:=200;
  34. seek(f,0);
  35. blockread(f,s,i);
  36. rev(s);
  37. seek(f,0);
  38. blockwrite(f,s,i);
  39. close(f);
  40. dane.nazwa:=nazwa;
  41. dane.machinetype:=machinetype;
  42. dane.biosdate:=databios;
  43. rev(dane.biosdate);
  44. assign(f1,instfile);
  45. rewrite(f1);
  46. write(f1,dane);
  47. close(f1);
  48. writeln;
  49. writeln('Zabezpieczenie wykonane !');
  50. end.