Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 26.11.2010, 23:45
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию Шифр для текстовой строки

Пока что на этом форуме не создал ни одной темы с вопросами, но вот таки пришлось

Суть в следующем:

Возникла идея написания простой программы для зашифровки текстовых строк, которые далее можно будет передавать через мейл, вконтакт, ICQ, skype и т.д. И пусть тогда админы вконтаката читают крякозябры)))

Программа будет иметь 2 эдита и 2 кнопки зашир/расшифр" соответственно.

Порядок действий следующий:
- пишем в одном из Эдитов программы фразу, например "Привет.";
-жмем зашифр., получаем скажем "D6A0ECB79EA22D609229".
-отправляем строку "D6A0ECB79EA22D609229" через скажем аську или вконтакт.
- получатель,соответственно, копирует строку "D6A0ECB79EA22D609229", вставляет в эдит, получает фразу - "Привет.";

Далее, исходник её сделать открытым и каждый сожет в неё дописать как хочет.

Если я напишу такую программу и исходники её закину в соответствующий раздел сайта, будет ли она хоть кому-то интересна? Будет хоть 1-н посетитель сайта пользоваться ею? Интересна ли кому-то такая прога?
Ответить с цитированием
  #2  
Старый 26.11.2010, 23:54
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
 
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию

Ты не обижайся, но я думаю такая программа врядли кому нибудь будет нужна, т.к.:
1. Нет смысл шифровать информацию, которая и так особо не важная (типо "Привет. Как дела?").
2. Ну а если открыть исходный код, то смысл тогда шифрования?

ЗЫ если все таки хочешь написать подобную программу - твое дело.
Напиши в гугле "шифрование текста в делфи" или нечто подобное. Думаю разберешься
__________________
Помогаю за Спасибо

Последний раз редактировалось v1s2222, 26.11.2010 в 23:57.
Ответить с цитированием
  #3  
Старый 27.11.2010, 00:02
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от v1s2222
2. Ну а если открыть исходный код, то смысл тогда шифрования?
В программе можно будет задать пароль.
Без пароля прочитать сообщение будет очень не просто.
Ответить с цитированием
  #4  
Старый 27.11.2010, 00:12
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
 
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию

Дак если исходники открыты, то в чем проблема просмотреть пароль?
__________________
Помогаю за Спасибо
Ответить с цитированием
  #5  
Старый 27.11.2010, 00:18
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от v1s2222
Дак если исходники открыты, то в чем проблема просмотреть пароль?
Пароль будет задаваться пользователем.

Какие еще будут мысли?

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

Например пароль "1", фраза "ОбычныйДак если исходники открыты, то в чем проблема просмотреть пароль?", результат допустим "B225A16FFB21E757051ACA40B1BCA1770017CE62A9ED365B7 C4A77190818094ABCA8D029DDB790F5F01FD5E1E02CAC8D718 D1392AAFA6D7CCFFDF98C9A31DAB044D9976E10BCC84A0B3A6 B611A56146F954253B8B49DF476"

Например пароль "2", фраза та же, результат допустим "DDD72CC70194F5E56107262E71A6E89B2E80AD145B87843D5 C62A6419E92BBFEA6CFA0E5756FB45C42E9979AB3FE86137E0 E16F1931FDD551FA1F9F322F09AE8FD150E2F33077CDA55394 CE7D651E19530C73A1B56A0A74E"

Последний раз редактировалось Konrad, 27.11.2010 в 00:21.
Ответить с цитированием
  #6  
Старый 27.11.2010, 00:20
Аватар для ryderx34
ryderx34 ryderx34 вне форума
Активный
 
Регистрация: 22.01.2010
Сообщения: 211
Версия Delphi: 7, 2010
Репутация: 1349
По умолчанию

Я думаю что такая программа вполне может кому-нибудь пригодиться, хотя бы в качестве примера. А открытый код не помешает - ведь если использовать её в том же "вконтактике", то те от кого будет скрываться информация вряд-ли смогут найти этот исходник, не говоря уже о том чтобы в нём разобраться.
И мне кажется было бы лучше не ограничиваться одной строкой, а сделать возможным шифрование больших текстов.

Последний раз редактировалось ryderx34, 27.11.2010 в 00:23.
Ответить с цитированием
  #7  
Старый 27.11.2010, 03:15
Аватар для freelin
freelin freelin вне форума
Прохожий
 
Регистрация: 14.06.2010
Адрес: Красноярск
Сообщения: 7
Репутация: 10
По умолчанию Пример

Если совсем быстро и просто, то в JVCL есть компонент TJvVigenereCipher. Кидаем его на форму.
Также:
Edit для кодового слова
Memo для нашего текста
Button (2 шт) для кодирования/раскодирования

Для кнопок пишем код:

Код:
procedure TForm1.ButtonEncodeClick(Sender: TObject);
begin
Memo1.Lines.Text := JvVigenereCipher1.EncodeString(edit3.Text,Memo1.Lines.Text);
end;

procedure TForm1.ButtonDecodeClick(Sender: TObject);
begin
Memo1.Lines.Text := JvVigenereCipher1.DecodeString(edit3.Text,Memo1.Lines.Text);
end;



Дальше только усложнение/усовершенствование.

Кому интересно - прикладываю исходник (Delphi2010) и exe'шник. (rar 312Кбайт)
Ответить с цитированием
  #8  
Старый 27.11.2010, 11:01
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

А если я например хочу сменить шифр Виженера на другой?

Далее - заш. текст получается в виде "2w:ИK1╕╤┤╛╬Б%╫шЧ.l√a*1о", после передачи, часть символов может быть потеряна...

Поэтому я думаю лучше сделать в НЕХ-е, например "B225A16FFB21E757051ACA40B1BCA", есть еще всяике bace64, но это только лишний геморрой.
Ответить с цитированием
  #9  
Старый 27.11.2010, 14:18
Аватар для freelin
freelin freelin вне форума
Прохожий
 
Регистрация: 14.06.2010
Адрес: Красноярск
Сообщения: 7
Репутация: 10
По умолчанию

Поищите компоненты шифрования. Или алгоритмы. Я просто привел простейший пример для наглядности =)
Ответить с цитированием
  #10  
Старый 27.11.2010, 18:02
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Выбрать алгоритм не проблема, у меня полно исходников.

Вопрос в том нужна ли хоть 1-му чел-у такая программа?..........

Есть еще замечания/пожелания?
Ответить с цитированием
  #11  
Старый 27.11.2010, 18:04
Аватар для freelin
freelin freelin вне форума
Прохожий
 
Регистрация: 14.06.2010
Адрес: Красноярск
Сообщения: 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от Konrad
Выбрать алгоритм не проблема, у меня полно исходников.

Вопрос в том нужна ли хоть 1-му чел-у такая программа?..........

Есть еще замечания/пожелания?


Аналоги есть. Думаю не нужна. Игрушка на 10 минут.
Ответить с цитированием
  #12  
Старый 27.11.2010, 18:22
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Не нужна думаю. Потому что для передачи простого текста бесполезно, а для передачи чего-то важного проще быстренько встроить в программу свой алгоритм. Благо есть совсем несложные, и при этом не расшифровываемые иначе, кроме как подбором. Типа s[i]:=s[i] + pass[i]
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #13  
Старый 27.11.2010, 18:33
ChinYan ChinYan вне форума
Тыкаю клавиши
 
Регистрация: 13.07.2009
Сообщения: 804
Версия Delphi:
Репутация: 48633
По умолчанию

Я думаю нужна. Если б была, я бы пользовался
Ответить с цитированием
  #14  
Старый 27.11.2010, 19:21
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Одному посетителю форума нужна, уже неплохо.

Есть еще кто-то?

Что скажут старожилы форума?


П.с.:
Программу практически написал,
сделал форму полупрозрачной, размещается поверх всех окон, автоматом заш.текст закидается в буфер обмена (чтобы не кликать каждый раз Ctrl+C), довольно стойкий алгоритм.
Ответить с цитированием
  #15  
Старый 27.11.2010, 19:37
Аватар для freelin
freelin freelin вне форума
Прохожий
 
Регистрация: 14.06.2010
Адрес: Красноярск
Сообщения: 7
Репутация: 10
По умолчанию

Кстати, старый квип умеет шифровать текст по ключу.
А в браузере это удобно, если js написать в качестве расширения, чтобы не парить с буфером. Написал текст - ткнул на панель - он конвертнулся. И т.п.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:52.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025