Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Шифрование текстовых файлов 
V
    Опции темы
Drovosek
Дата 10.3.2006, 12:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 10.3.2006

Репутация: нет
Всего: нет
Допустим, есть edit1, а в нем текст.
Есть bitbtn1. Нажимаем на него.
Text в edit нужно зашифровать.
Помогите пожалуйста, заранее благодарен.
Как далее сохранить текст в файл я знаю.
smile


{Все гениальное просто и рационально}
PM MAIL ICQ   Вверх
Guedda
Дата 10.3.2006, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 6
Всего: 78
Этот вопрос неоднократно обсуждался.
Но вот тебе ответ:
Код

procedure TForm1.BitBtnClick(Sender : TObject);
var
  s : string;
  e : string;
  i : Integer;
begin
  s := Edit1.Text;
  SetLength(e, length(s));
  for i := 1 to length(s) do begin
    e[i] := chr(ord(s[i])+12); //тут можешь поставить любое число
  end;
  ShowMessage(e);
end;

В переменной e и будет твой зашированный текст.
Чтобы рассшифровать, используй ту же самую конструкцию, только отнимай то число, которое прибавил.

Это сообщение отредактировал(а) Guedda - 10.3.2006, 12:38


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
_hunter
Дата 10.3.2006, 12:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: нет
Всего: 98
и что тебе помогать?
+ не стесняемся по форуму искать:
http://forum.vingrad.ru/index.php?showtopic=80273
http://forum.vingrad.ru/index.php?showtopic=43216
http://forum.vingrad.ru/index.php?showtopic=50856
http://forum.vingrad.ru/index.php?showtopic=49022


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Drovosek
Дата 10.3.2006, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 10.3.2006

Репутация: нет
Всего: нет
А как дешифровать? smile
PM MAIL ICQ   Вверх
Guedda
Дата 10.3.2006, 13:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 6
Всего: 78
Так:
Код

procedure TForm1.BitBtn2Click(Sender : TObject);
var
  s : string;
  e : string;
  i : Integer;
begin
  //s - это твоя строка шифрованная
  SetLength(e, length(s));
  for i := 1 to length(s) do begin
    e[i] := chr(ord(s[i])-12); //поставь минус перед тем числом. И все ОК.
  end;
  ShowMessage(e);
end;



--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Alexeis
Дата 10.3.2006, 13:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459
Guedda, способ, конечно, простой и изящный, однако
для серьезных целей не годится(Слишком быстро взламывается).
Хотя чайника напугает сильно smile


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Guedda
Дата 10.3.2006, 13:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 6
Всего: 78
Я написал простейший вариант. У меня есть технология шифрования. Но это, я думаю, не уместно. Попросили же просто шифр \ дешифр. Понравилось же smile


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Alexeis
Дата 10.3.2006, 14:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459
Guedda, полностью согласен. Я просто для справки указал чтоб Drovosek, не возлагал слишкошком больших надежд на эту методику.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Drovosek
Дата 10.3.2006, 14:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 10.3.2006

Репутация: нет
Всего: нет
Мне все, конечно, очень понравилось и огромное спасибо Guedda.
Но все же масчтабы и серьезность моего проекта, почти законченного: осталось шифрование,
требуют более серьезных методов.
А так как необходимость использования неплохой системы защиты
информации возникла впервые, прошу помочь мне в освоении азов:

Guedda, если тебя не затруднит, зацени что-нибудь по-существеннее.
Заранее огромное спасибо!


И, кстати, alexeis1, ничуть не напугало.

Это сообщение отредактировал(а) Drovosek - 10.3.2006, 15:05
PM MAIL ICQ   Вверх
Alexeis
Дата 10.3.2006, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459
Напугать должна та таробаршина которая получается после шифрования вместо нормальных слов.

Я в шифровании тоже профан но могу показать небольшую модификацию
Код

var
  s: string;

procedure Code(var text: string; password: string;
  decode: boolean);
var
  i, PasswordLength: integer;
  sign: shortint;
begin
  PasswordLength := length(password);
  if PasswordLength = 0 then Exit;
  if decode
    then sign := -1
    else sign := 1;
  for i := 1 to Length(text) do
    text[i] := chr(ord(text[i]) + sign *
      ord(password[i mod PasswordLength + 1]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  s := Memo1.Text;
  code(s, Edit1.Text, false);
  Memo1.Text := s;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  code(s, Edit1.Text, true);
  Memo1.Text := s;
end;





Если ключ будет символов 15 то взломать будет трудновато.
Но гарантий надежности дать не могу. Пусть скажет кто по умнее.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Snowy
Дата 10.3.2006, 15:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 4
Всего: 484
http://forum.vingrad.ru/index.php?act=modu...amp;section=774
PM MAIL   Вверх
Drovosek
Дата 10.3.2006, 15:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 10.3.2006

Репутация: нет
Всего: нет
Премного благодарен Snowy и alexis1.
PM MAIL ICQ   Вверх
Drovosek
Дата 10.3.2006, 16:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 10.3.2006

Репутация: нет
Всего: нет
А как вам, господа, вот ЭТО:
:-)
http://forum.vingrad.ru/index.php?act=modu...amp;section=774

Это сообщение отредактировал(а) Drovosek - 10.3.2006, 16:12
PM MAIL ICQ   Вверх
Snowy
Дата 10.3.2006, 16:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 4
Всего: 484
Где-то я этот линк уже видел...
Наверное парой постов выше ;)
PM MAIL   Вверх
Drovosek
Дата 11.3.2006, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 10.3.2006

Репутация: нет
Всего: нет
Я зашел туда, а потом в TEA, скопировал ссылку и вот...

В общем всем спасибо. Вопрос решен.

Это сообщение отредактировал(а) Drovosek - 11.3.2006, 14:29
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0586 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.