Шифровка/расшифровка текста

@pam pam · Регистрация: 20.05.2009

Дана такая задача:

Чтобы зашифровать текст, записанный с помощью русских букв и знаков, его можно переписать, заменив каждую букву непосредственно следующей за ней по алфавиту (буква я заменяется на а).

а) Зашифровать данный текст.
б) Расшифровать данный текст.

Я воспользовалась StringReplace и просто прописала все буквы и их значения..
В результате (чего и следовало ожидать) программа работает некорректно..

Подскажите, пожалуйста, другие способы?

Заранее спасибо =)

@mamedovvms · 22.05.2009, 07:40

а если использовать массив [1..40,1..2]
и заполнить его вот так
а б в г д е ж ... я
б в г д е ж з ... a

при зашифровки берем первую строку, а при дешифровки вторую

Добавлено через 19 минут 1 секунду
ну что работает , или такая идея не подходит могу чуть дальше написать

@pam pam · 22.05.2009, 13:33 **[ТС]**

Спасибо)

хорошая идея))

@Jazon_deenAlt · 22.05.2009, 14:49

Можно создать масив одномерный [я,а,б,в...я,а] есть едит например куды записываетса фраза для шыфровки/дешыфровки, и 2 кнопки шыфровать/дешыфровать соответственно, теперь при нажатии на кнопы мы:
-считываем то шо в едите в переменную стринговою(например А), потом поелементно проверяем ее содержание буквы в масиве типа так: (на событие)

Delphi

var
i,j:integer;
s:string;
for i:=1 to length(s) do begin
   for j:=(предпоследний елемент масива) downto 1 do begin
     if s[i]=A[j] then begin
        s[i]:=A[j+1] ;
     end;
   end;
end;

ето для шыфровки

Delphi

var
i,j:integer;
s:string;
for i:=1 to length(s) do begin
   for j:= 1 to (предпоследний елемент масива) do begin
     if s[i]=A[j] then begin
        s[i]:=A[j-1] ;
     end;
   end;
end;

а вот ето для дешыфровки...
Вопщем должно работать хотя я и не пробывал)

@pam pam 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 3
		1
	Шифровка/расшифровка текста 22.05.2009, 07:17. Просмотров 3956. Ответов 3 Метки нет (Все метки) Дана такая задача: Чтобы зашифровать текст, записанный с помощью русских букв и знаков, его можно переписать, заменив каждую букву непосредственно следующей за ней по алфавиту (буква я заменяется на а). а) Зашифровать данный текст. б) Расшифровать данный текст. Я воспользовалась StringReplace и просто прописала все буквы и их значения.. В результате (чего и следовало ожидать) программа работает некорректно.. Подскажите, пожалуйста, другие способы? Заранее спасибо =) 0

@mamedovvms 2921 / 842 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	22.05.2009, 07:40	2
	а если использовать массив [1..40,1..2] и заполнить его вот так а б в г д е ж ... я б в г д е ж з ... a при зашифровки берем первую строку, а при дешифровки вторую Добавлено через 19 минут 1 секунду ну что работает , или такая идея не подходит могу чуть дальше написать 1

@pam pam 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 3
	22.05.2009, 13:33 [ТС]	3
	Спасибо) хорошая идея)) 0

Опции темы