Форум по 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Кбайт)
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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