Криптографическая соль, метод Виженера
Доброго времени суток.
Имеется процедура для шифрования строки методом Виженера.
Код:
procedure vizhener();
var i,j:integer;
out_str, in_str, key:string;
begin
clrscr;
writeln('Шифрування методом Віженера');
writeln('Введіть рядок який необхідно зашифрувати:');
readln (in_str);
writeln('Введіть ключ шифрування:');
readln(key);
j:=0;
for i:=1 to length(in_str) do begin
inc(j);
if j>length(key) then j:=1;
out_str:=out_str+chr((pos(in_str[i], alph) + pos(key[j], alph)) mod length(alph)+ord('а'));
end;
writeln('Зашифрований рядок:', out_str);
writeln('Для виходу в головне меню натисніть будь яку клавішу...');
readln;
end;
По заданию необходимо усилить шифрование криптографической солью. Подскажите как это реализовать при шифровании данным методом?
_______
PS:
Правильно ли я понимаю:
к ключу нам надо добавить случайную строку ? и потом проводить шифрование ? |
