Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/19: Рейтинг темы: голосов - 19, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 20.05.2009
Сообщений: 3
1

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

22.05.2009, 07:17. Просмотров 3956. Ответов 3
Метки нет (Все метки)


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

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

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


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

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

Заранее спасибо =)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.05.2009, 07:17
Ответы с готовыми решениями:

Шифровка и расшифровка числа
Доброго дня, сделал шифровку числа, а теперь нужно его расшифровать. Как это сделать? var ...

Шифровка и расшифровка строки
Мне нужны 2 одинаковых пары функций, на Delphi и php. Первая функция должна на основе секретного...

Шифровка текста в картинке
Слышал как-то шифруют тексты прямо в картинки но так и не понял как? Я так думаю все дело в цвете...

Расшифровка текста
Помогите решить задачу: Дан файл, содержащий зашифрованный русский текст. Каждая буква заменяется...

3
2921 / 842 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
22.05.2009, 07:40 2
а если использовать массив [1..40,1..2]
и заполнить его вот так
а б в г д е ж ... я
б в г д е ж з ... a

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

Добавлено через 19 минут 1 секунду
ну что работает , или такая идея не подходит могу чуть дальше написать
1
0 / 0 / 0
Регистрация: 20.05.2009
Сообщений: 3
22.05.2009, 13:33  [ТС] 3
Спасибо)

хорошая идея))
0
4116 / 991 / 191
Регистрация: 09.04.2009
Сообщений: 4,225
22.05.2009, 14:49 4
Можно создать масив одномерный [я,а,б,в...я,а] есть едит например куды записываетса фраза для шыфровки/дешыфровки, и 2 кнопки шыфровать/дешыфровать соответственно, теперь при нажатии на кнопы мы:
-считываем то шо в едите в переменную стринговою(например А), потом поелементно проверяем ее содержание буквы в масиве типа так: (на событие)
Delphi
1
2
3
4
5
6
7
8
9
10
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
1
2
3
4
5
6
7
8
9
10
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;
а вот ето для дешыфровки...
Вопщем должно работать хотя я и не пробывал)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2009, 14:49

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Зашифровка и расшифровка текста
Помогите пожалуйста. сделать зашифровка и расшифровка текста в моей программе . заходишь в вход для...

Шифровка
Помогите пожалуйста! нужен программный код, ну иди хотя бы метод решение шифровки данных в виде...

Шифровка-дешифровка
Помогите пожалуйста !Необходимо создать программу,которая будет зашифровывать,и дешифровывать слово...

Шифровка ввода
Скажите, как сделать зашифрованный ввод, то есть например я ввожу 1111 в едит, а оно шифровалось,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.