Шифрование в Delphi
Категория реферата: Рефераты по информатике, программированию
Теги реферата: пушкин пушкин пушкин изложение, конспекты занятий в детском саду
Добавил(а) на сайт: Байдавлетов.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата
position:=pos(' ',ToDo);
if position>0 then ToDo:=RightStr(ToDo,Length(ToDo)-position);
//Читаем путь к файлу
position:=pos(' ',ToDo);
if position>0 then FileName:=LeftStr(ToDo,position-1);
//Читаем пароль
PassW:=RightStr(ToDo,Length(ToDo)-position);
//Всё правильно? Начинаем!
if (isCrypt<=0) or (PassW=EmptyStr) or (not FileExists(FileName)) then writeln('Wrong command')
else begin
TranslatedFile:=ExtractFilePath(paramStr(0)) + 'translated_' + ExtractFileName(FileName);
//соединяемся с файлами
AssignFile(F, FileName);
AssignFile(F1, TranslatedFile);
//переходим в начало файла
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);
Рекомендуем скачать другие рефераты по теме: bestreferat ru, доклад по истории.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата