Защита паролем.
- procedure input;
- const path='f:\dbms\data\parol'; //путь
- parol='123456'; //пароль который должен совпасть с паролем в файле
- var parolfile:text;
- parolstr:string[8];
- ior:integer;
- begin assign(parolfile,path);
- {$I-} reset(parolfile); {$I+}
- ior:=ioresult;
- if ior<>0 then halt else read(parolfile,parolstr); //если не обнаружен файл, выход
- close(parolfile);
- if parolstr=parol then core else halt end; //если пароль не совпадает, выход, иначе запуск.
Если программа сдержит секретные файлы (пароли к примеру), можно их защитить паролем, который будет в определённом файле. Потом можно спрятать этот файлик.
