Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Нужно написать программку в Luzaruse...шифрация и дешефрация
Нужно написать программку в 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 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Нужно написать программку в Luzaruse...шифрация и дешефрация
Страница 1 из 11
Поиск: