Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

Password := '';

Password1 := '';

InputBox('П А Р О Л Ь', ' Введите пароль:', Password, 255);

InputBox('П А Р О Л Ь', 'Введите пароль еще раз:', Password1, 255); if (Password = Password1) and (length(Password)0) then

begin

{Преобразовать файл}

FindFirst(InputFileName, AnyFile, DirInfo); if DOSError = 0 then begin if DirInfo.Size mod 2 = 1 then begin assign(TempFile, InputFileName); reset(TempFile); while not EOF(TempFile) do read(TempFile, tmp); tmp := 255; write(TempFile, tmp); close(TempFile); end;

{Преобразовать имя файла}

Position := 0; assign(InpF, InputFileName); reset(InpF); for i := length(InputFileName) downto 1 do if InputFileName[i] = '.' then begin

OutputFileName := copy(InputFileName, 1, i) + 'M&A'; break; end; assign(OutF, OutputFileName); rewrite(OutF); for i:= 0 to length(InputFileName) do if InputFileName[length(InputFileName) - i] = '.' then case i of

0: Exten := chr(0) + chr(0) + chr(0);

1: Exten := copy(FName, length(FName)-2, i) + chr(0) + chr(0);

2: Exten := copy(FName, length(FName)-2, i) + chr(0) else Exten := copy(FName, length(FName)-2, 3) end; for i := 1 to 3 do begin

Temp := ord(Exten[i]);

Write(OutF, Temp); end;

{Начать шифрование} k := 1; repeat begin

{Считать из исходного файла блок размером 64*word} for i:=1 to 64 do

If EOF(InpF) then MasByte[i] := 0 else Read(InpF,
MasByte[i]);

Mas := MasByte;

T[0] := ord(Password[k]); if k < length(Password) then inc(k) else k := 1; for i:= 1 to 64 do begin

{Получить текущую позицию процесса}

NowPos := 100*Position/DirInfo.Size; inc(Position, 2); if NowPos > 100 then NowPos := 100;

Str(Round(NowPos):3, Pos); if OptInd = 0 then begin

GoToXY(77, 1);

Write(Pos + '%'); end;

Рекомендуем скачать другие рефераты по теме: конспект урока 5 класс, оформление доклада.



Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки