Разработка программы, реализующей алгоритм шифрования ГОСТ 28147-89
Категория реферата: Рефераты по информатике, программированию
Теги реферата: новые конспекты, шпоры по психологии
Добавил(а) на сайт: Korzovatyh.
Предыдущая страница реферата | 7 8 9 10 11 12 13 14 15 16 17 | Следующая страница реферата
goto err
end
end else if n = 2 then begin
s0 := ParamStr(1);
s1 := ParamStr(2);
if UpCase(s0[1]) = 'E' then begin
encr := True;
s2 := s1 + '.gst';
end else if UpCase(s0[1]) = 'D' then begin
ext:=copy(s1, Length(s1) - 3, 4);
for i := 1 to Length(ext) do ext[i]:=UpCase(ext[i]);
if ext = '.GST' then begin
encr := False;
s2 := copy(s1, 1, length(s1) - 4)
end else begin
goto err
end
end else begin
goto err
end
end else if n = 1 then begin
s1 := ParamStr(1);
ext := copy(s1, Length(s1) - 3, 4);
for i := 1 to Length(ext) do ext[i] := UpCase(ext[i]);
if ext = '.GST' then begin
Рекомендуем скачать другие рефераты по теме: сеть рефератов, написать сообщение.
Предыдущая страница реферата | 7 8 9 10 11 12 13 14 15 16 17 | Следующая страница реферата