Версия для печати темы

Автор: Medved 3.02.2007 0:07

Дайте какой-нибудь хороший шифр и не удаляйте тему

Автор: volvo 3.02.2007 0:15

Возьми и напиши... Чего раскомандовался? Ты поиском-то пользовался, прежде чем постить? Нет... С чего бы... Вот иди и пользуйся... И определи понятие "хороший", такого ни в математике ни в программировании НЕТ... Есть "быстрый", есть "устойчивый"... А вот "хороших" шифров не бывает...

Автор: Артемий2 3.02.2007 1:26

Вот те..Это самый простой вариант.. ВООБЩЕ, если память не изменяет, volvo целую тему посвятил этому!

program Project1;

{$APPTYPE CONSOLE}

var
s: string;
i,o: Integer;
ch: Char;
begin
writeln('Введи строку:');
readln(s);
for i:=1 to Length(s) do
begin
ch:=s[i];
o:=ord(ch);
o:=o-23;
write(chr(o));
end;
readln
end.

Автор: Medved 3.02.2007 18:51

Извините но я пользовался поиском набрал "шифратор" и выдало только одну ссылку шифр в целе цикла что-то такое. И я имел именно устойчивый шифр наплевать на время.

Автор: Артемий2 3.02.2007 19:17

Ну а в FAQ никак? http://forum.pascal.net.ru/index.php?showtopic=3913

Автор: Medved 3.02.2007 19:21

Спасибо!!!