Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 22, средняя оценка - 4.86
rhouland
0 / 0 / 0
Регистрация: 15.03.2011
Сообщений: 3
#1

нужен дешифратор текста - Delphi

15.03.2011, 20:03. Просмотров 2711. Ответов 7
Метки нет (Все метки)

нужен программа-дешифратор текста

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

например слово - неопределённый - заменяем каждую букву и получаем - wykusyfygvawwsr

было бы такого текста достаточный обьём - можно было поугадывать
теперь всего два десятки слов.

достаточьно было што введённый текст программа переписывала и просто выводила все вариянты подряд.

Добавлено через 44 минуты
это вот интересно подходит?
http://free-code.ru/123-shifr-cezarja.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.03.2011, 20:03
Здравствуйте! Я подобрал для вас темы с ответами на вопрос нужен дешифратор текста (Delphi):

нужен дешифратор. - Delphi
в текстовом файле фраза,в которой каждая буква заменена на букву,сдвинутую на 3 позиции в алфавите. конечные буквы сдвигаются по циклу. ...

Замена текста. Нужен рабочий пример с stringreplace - Delphi
stringreplace -киньте синтаксис на русском Добавлено через 30 минут inputstr:=stringreplace(inputstr,'.',',',); inputstr = 5,5 не...

Нужен компонент для вывода текста и изображений - Delphi
Здравствуйте, подскажите пожалуйста компонент на котором можно было бы выводить одновременно текст, изображение и, допустим, кнопку для...

Как сделать из имеющегося текста тот текст, который нужен - Delphi
Всем привет, у меня есть такой текст : как сделать чтобы был такой: В программе выглядит вот так:

Нужен элемент типа грида, но с селект боксами в хидере вместо текста - Delphi
Подскажите где такое есть, плз.

Дешифратор - Delphi
Всем доброго дня. Если сможете натолкните на путь истинный. У меня в текстовом файле есть такой кусочек значений ...

7
anonimus
2152 / 1241 / 32
Регистрация: 28.04.2010
Сообщений: 4,549
15.03.2011, 20:14 #2
кто тебе напишет дешифратор без понимания алгоритма шифрования, ты его знаешь?
или вопрос именно в том что бы разгадать алгоритм шифрования
0
Arcor
4799 / 1800 / 159
Регистрация: 20.11.2009
Сообщений: 5,696
Записей в блоге: 1
15.03.2011, 20:18 #3
Цитата Сообщение от rhouland Посмотреть сообщение
например слово - неопределённый - заменяем каждую букву и получаем - wykusyfygvawwsr
Ну здесь просто какой-то русской букве принадлежит латинская, если есть 2 десятка слов, то я думаю можно посидеть и поугадывать какая буква какая есть, и потом написать программу заменитель букв в этом вот порядке
0
rhouland
0 / 0 / 0
Регистрация: 15.03.2011
Сообщений: 3
15.03.2011, 21:36  [ТС] #4
смска пришла с кирилицой, а телефон неподдержывает
вот и шифруйте вот начало

òåëåôîì çàâèñàåò ïðÿì
òàê, õîòü äóìàé ïèøèøü
ëè òû ÷òî òî
0
anonimus
2152 / 1241 / 32
Регистрация: 28.04.2010
Сообщений: 4,549
15.03.2011, 21:37 #5
rhouland, ололо
0
Romantik_FM
305 / 301 / 16
Регистрация: 03.03.2010
Сообщений: 1,328
15.03.2011, 21:53 #6
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
    const
    mas : array[1..160] of char = ('л','м','н','о','п','р','с','т','у','ф','х','ц',
                                   'M','N','O','P','Q','R','S','T','U','Y','W','X',
                                   '1','2','3','4','5','6','7','8','9','0','v','z',
                                   'ч','ш','щ','ъ','ы','ь','э','ю','я',' ','Д','Е',
                                   'm','n','o','p','q','r','s','t','u','y','w','x',
                                   'a','b','c','d','e','f','g','h','i','j','k','l',
                                   'Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц',
                                   'А','Б','В','Г','Ё','Ж','З','И','Й','К','Ю','Я',
                                   'а','б','в','г','д','е','ё','ж','з','и','й','к',
                                   'A','B','C','D','E','F','G','H','I','J','K','L',
                                   'Ч','Ш','Щ','Ъ','Ы','Ь','Э','V','Z','!','@','"',
                                   '#','№','$',';','%','^',':','&','?','*','(',')',
                                   '-','_','=','+','/','|','\','[',']','{','}','<',
                                   '>','~','`','.');
    massiv:array[1..160] of char= ('.','`','~','>','<','}','{',']','[','\','|','/','+',
                                   '=','_','-',')','(','*','?','&',':','^','%',';','$',
                                   '№','#','"','@','!','Z','V','Э','Ь','Ы','Ъ','Щ','Ш',
                                   'Ч','L','K','J','I','H','G','F','E','D','C','B','A',
                                   'к','й','и','з','ж','ё','е','д','г','в','б','а','Я',
                                   'Ю','К','Й','И','З','Ж','Ё','Г','В','Б','А','Ц','Х',
                                   'Ф','У','Т','С','Р','П','О','Н','М','Л','l','k','j',
                                   'i','h','g','f','e','d','c','b','a','x','w','y','u',
                                   't','s','r','q','p','o','n','m','Е','Д',' ','я','ю',
                                   'э','ь','ы','ъ','щ','ш','ч','z','v','0','9','8','7','6',
                                   '5','4','3','2','1','X','W','Y','U','T','S','R','Q','P',
                                   'O','N','M','ц','ч','ф','у','т','с','р','п','о','н','м','л');
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.prostClick(Sender: TObject);
var
 i,j,a,w:integer;
 text,result:string;
begin
 for w:=0 to 1000 do begin
result:='';
 Text:=RichEdit2.Lines.Strings[w];
  for i:=1 to length(text) do
   for j:=1 to 160 do
   begin
    if text[i] = mas[j] then
     begin
      a:=j;
      text[i]:= massiv[a];
      result:=result+text[i];
      RichEdit2.Lines.Strings[w]:=result;
      break;
     end;
   end;
end;   
end;
вот простой способ шифрования/дешифрования

Добавлено через 1 минуту
Цитата Сообщение от rhouland Посмотреть сообщение
смска пришла с кирилицой, а телефон неподдержывает
вот и шифруйте вот начало

òåëåôîì çàâèñàåò ïðÿì
òàê, õîòü äóìàé ïèøèøü
ëè òû ÷òî òî
или тебе нужно алгоритм для расшифровки смсок?
1
rhouland
0 / 0 / 0
Регистрация: 15.03.2011
Сообщений: 3
15.03.2011, 21:58  [ТС] #7
спасибо Romantik_FM
сейчас поставлю делфи, попробую
а то есть немало смсок, там человек пишет но просто мой телефон без кирилицы.
символы бы найти а там и расшифруеться всё.
0
evolet
04.05.2011, 08:32 #8
http://www.artlebedev.ru/tools/decoder/advanced/ - вот тут.
"телефом зависает прям
так, хоть думай пишишь
ли ты что то"
перевод
04.05.2011, 08:32
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.05.2011, 08:32
Привет! Вот еще темы с ответами:

Шифратор / Дешифратор - Delphi
Здравствуйте, поделитесь пожалуйста исходниками. Нужен шифратор и дешифратор, несколькими методами цезаря, и любого на выбор

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

Шифратор/дешифратор - Delphi
Код ворованный (из исходника), но я не могу разобрать... unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...

шифратор/дешифратор - Delphi
вот у меня шифрация/дешифрация текста происходит так procedure TForm1.Button1Click(Sender: TObject); var m2: string; begin ...


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

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

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