|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.10.2011, 15:52 | #1 |
Новичок
Джуниор
Регистрация: 22.10.2011
Сообщений: 2
|
подправить алгоритм (Шифр цезаря)
Нет пробелов при расшифровке и зашифровкке, и глухит на расшифровке Б,В,Г. Заранее спс=)
const Alf:array[0..65] of char = ('А','Б','В','Г','Д','Е','Ё','Ж','З ','И','Й', 'К','Л','М','Н','О','П','Р','С','Т' ,'У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы ','Ь', 'Э','Ю','Я', 'а','б','в','г','д','е','ё','ж','з' ,'и','й','к','л','м','н','о', 'п','р','с','т','у','ф','х','ц','ч' ,'ш','щ','ъ','ы', 'ь','э','ю','я'); var Form2: TForm2; b:array[0..65] of char; i, j : byte; s, s2:string; implementation {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin application.terminate; end; procedure TForm2.Button2Click(Sender: TObject); begin For i:=0 to 65 do begin b[i]:= Alf[(i+1) mod 66]; end; if CheckBox1.Checked = false then begin s := Memo1.Lines.Text; for i := 1 to length(s) do for j := 0 to 65 do if s[i] = b[j] then s2 := s2+b[(j+3) mod 66]; Memo2.Lines.Text := s2; s2 := ''; end; if CheckBox1.Checked = true then begin s := Memo1.Lines.Text; for i := 1 to length(s) do for j := 0 to 65 do if s[i] = b[j] then s2 := s2+b[(j-3) mod 66]; Memo2.Lines.Text := s2; s2 := ''; end;end; end. |
22.10.2011, 17:46 | #2 |
In progress...
Форумчанин
Регистрация: 25.09.2011
Сообщений: 161
|
Есть готовый, написанный на дэлфи, с выбором ключа, выбором сдвига, шифровка, расшифровка.
Если понадобится пиши в асю. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
шифр Цезаря | Defa4ka | Помощь студентам | 5 | 23.10.2011 13:48 |
Расшифруйте шифр Цезаря | Мокрый | Помощь студентам | 8 | 22.04.2011 17:24 |
Шифр цезаря (не работает) | Айдар | Помощь студентам | 3 | 21.06.2010 11:15 |
Шифр Цезаря | Goracio | Помощь студентам | 1 | 19.04.2010 14:53 |
Шифр Цезаря | Jasper92 | Помощь студентам | 3 | 02.12.2009 18:47 |