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

Assign(OutF, OutputFileName);

Rewrite(OutF); for i := 1 to length(Password) do
TPassword[i]:=ord(Password[i]); k := 1; repeat begin for i:=1 to 64 do Read(InpF, MasByte[i]); for i:=1 to 8 do { начальная перестановка } for j:=1 to 8 do case i of

1: Mas[8*(i-1)+j]:=MasByte[66-8*j];

2: Mas[8*(i-1)+j]:=MasByte[68-8*j];

3: Mas[8*(i-1)+j]:=MasByte[70-8*j];

4: Mas[8*(i-1)+j]:=MasByte[72-8*j];

5: Mas[8*(i-1)+j]:=MasByte[65-8*j];

6: Mas[8*(i-1)+j]:=MasByte[67-8*j];

7: Mas[8*(i-1)+j]:=MasByte[69-8*j];

8: Mas[8*(i-1)+j]:=MasByte[71-8*j] end;

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;

T[i] := (A * T[i-1] + C) mod M;

Code:=Mas[i];

Code:=T[i] xor Code;

Mas[i] := Code; end;

MasEnd := Mas; for i := 1 to 64 do Write(OutF, MasEnd[i]); end; until eof(InpF);

GotoXY(77, 1); write('100%');

MyMessageBox('Файл '+ InputFileName + ' расшифрован в ' +

OutputFileName, nil, mfInformation+mfOkButton);

Close(InpF); if OptFile = 1 then Erase(InpF);

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



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

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