|
Нужно написать программку в Luzaruse...шифрация и дешефрация
|
|
Нужно написать программу, которая будет иметь возможность шифрования и дешифрования текста методом моноалфави
тных подстановок(подстановка Цезаря)...Так же должна быть возможность изменения ключа шифрования...
|
|
|
|
Напиши как этот метод воплотить...
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
{Шифр Цезаря. Шифрование}
function cEcezar(s:string; key:byte):string;
var i:integer; c,d:char;rez:string;
begin
rez:='';
for i:=1 to length(s) do
begin
c:=s[i];
d:=chr((ord©+ key)mod 255);
rez:=rez+d;
end;
cEcezar:=rez;
end;
{Шифр Цезаря. Расшифрование}
function cDcezar(s:string;key:byte):string;
var i:integer; c,d:char;rez:string;
begin
rez:='';
for i:=1 to length(s) do
begin
c:=s[i];
d:=chr((ord©- key)mod 255);
rez:=rez+d;
end;
cDcezar:=rez;
end;
|
|
|
|
