Реферат: Шифрование в Delphi

Rewrite(F1);

Reset(F);

//читаем строки, пока не дойдем до конца файла

while not EOF(F) do begin

//читаем из переводимого файла

ReadLn(F, Line);

if isCrypt=1 then Line:=Decrypt(Line);

if isCrypt=2 then Line:=Crypt(Line);

//записываем в файл с переводом

Writeln(F1, Line);

end;

//отсоединямся от файлов

CloseFile(F);

CloseFile(F1);

end;

end;

end.

Вот, собственно, и всё. Еще раз напоминаю, что результат (файл с переводом) сохранится В ТОЙ ЖЕ ДИРЕКТОРИИ, что и наше приложение, а не в той, где лежит исходный файл. В заключение процитирую отрывок из статьи «Криптография в C++» в номере 3.03 журнала «Хакер»:

(с) Николай «GorluM» Андреев

Но я хочу тебя предупредить: в нашей стране, согласно указу № 334 от 1995 года, производить и распространять любые шифрующие средства можно, только имея лицензию ФАПСИ. Соответственно, шифровать нельзя :). Поэтому пиши программы только для личного пользования и только в познавательных целях.