Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Нужно написать программку в Luzaruse...шифрация и дешефрация
Нужно написать программу, которая будет иметь возможность шифрования и дешифрования текста методом моноалфави
тных подстановок(подстановка Цезаря)...Так же должна быть возможность изменения ключа шифрования...
1 | Автор: Hickol | 2012-02-15, 14:12   |  Репутация: [ + 0 ]
Напиши как этот метод воплотить...

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-02-15, 18:58   |  Репутация: [ + 211 ]
{Шифр Цезаря. Шифрование}

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;
3 | Автор: Hickol | 2012-02-17, 10:42   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: