Программа для шифрования и дешифрования текстовых данных

@ssashas · Регистрация: 17.03.2009

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста, мне нада написать в delphi программу для шифрования и дешифрования текстовых данных с тспользованием симметричных преобразований. Я скачал исходник подобной программы и доработал ее но моя программа почему то работает не всегда хорошо. Напромер:
обрезает слишком длинные строки текста.
после загрузки шифрованного сообщения не до конца его дешифрует.

Помогите кто может.
Вот ссылка на исходники моей программы
http://narod.ru/disk/694033500... 0.rar.html

@AlexeyDok · 23.03.2009, 20:04

Не могу скачать, перезалей или мне в асю кинь 445881663

@ssashas · 23.03.2009, 20:29 **[ТС]**

Перезалил

@alexanderwdark · 23.03.2009, 20:37

Вот уже грубая ошибка на лицо:

Delphi

1	i := 0 to memo.Lines.Count

правильно:

Delphi

1	i := 0 to memo.Lines.Count-1

Затем: Шифровку надо производить используя временный массив, поскольку прорисовка после каждой строки при зашифровании/расшифровании - это жутко медленно. Так ты ускоришь свой шифратор раз так в 300-400.

Delphi

procedure Tfrmmain.btndeshifrClick(Sender: TObject);
var
 i: integer; var SL: TStringList;
begin
SL:=TStringList.Create;
SL.AddStrings(Memo.Lines);
  for i := 0 to SL.Count-1 do
SL[i]:=decrypt(SL[i], StartKey, MultKey, AddKey);
memo.Lines.Clear;
memo.Lines.AddStrings(SL);
Sl.Free;
 
end;
 
procedure Tfrmmain.btnshifrClick(Sender: TObject);
var
 i: integer; var SL: TStringList;
begin
SL:=TStringList.Create;
SL.AddStrings(Memo.Lines);
  for i := 0 to SL.Count-1 do
SL[i]:=crypt(SL[i], StartKey, MultKey, AddKey);
memo.Lines.Clear;
memo.Lines.AddStrings(SL);
Sl.Free;
end;

@ssashas · 23.03.2009, 20:52 **[ТС]**

Спасибо так реально быстрее, но всетаки проблема не в этом

@alexanderwdark · 23.03.2009, 21:01

Сообщение от ssashas

Спасибо так реально быстрее, но всетаки проблема не в этом

А в чем? У меня нормально шифрует, если исправить ошибку с Count-1

Обрезает она возможно потому, что у тебя получается символ конца строки после операции XOR. В этом и проблема таких алгоритмов, они не учитывают особенностей формата.

@ssashas · 23.03.2009, 21:07 **[ТС]**

Если зашифровать текст сохранить его, загрузить и дешифровать то не все дешифруется

@alexanderwdark · 23.03.2009, 21:19

Сообщение от ssashas

Если зашифровать текст сохранить его, загрузить и дешифровать то не все дешифруется

см. вышеуказанное объяснение (нужно учитывать вн. формат строки).

Проще всего - шифруй и затем конвертируй в HEX.

@ssashas · 23.03.2009, 21:26 **[ТС]**

а как?

@alexanderwdark · 23.03.2009, 22:18

Сообщение от ssashas

а как?

Лови! С тебя пиво.

@ssashas · 24.03.2009, 14:13 **[ТС]**

спс

Добавлено через 15 часов 17 минут 57 секунд
хмм твоя программа почему то зависает когда я дешифрую другой текст, пишет out of memory минут через 5 после нажатия кнопки

04.10.2009, 12:49

Может кто нибудь объяснить как шифрует этот алгоритм.

@devillom · 12.10.2012, 15:35

Не по теме:

вот еще Шифратор тока на С#)

12.10.2012, 15:38

Не по теме:

Поздравляю с вступлением в ряды некрофилов.

05.02.2013, 21:55

Сообщение от alexanderwdark

Лови! С тебя пиво.

Здравствуйте, а могу ли я скачать ваш проект и изучить его?

@ryudzaki · 25.11.2014, 21:15

Простите что апую старую тему.
Но каким методом шифрует ваша программа? С помощью симметричных преобразований?

@ssashas 0 / 0 / 0 Регистрация: 17.03.2009 Сообщений: 20
		1
	Программа для шифрования и дешифрования текстовых данных 23.03.2009, 19:56. Показов 14070. Ответов 15 Метки нет (Все метки) Помогите пожалуйста, мне нада написать в delphi программу для шифрования и дешифрования текстовых данных с тспользованием симметричных преобразований. Я скачал исходник подобной программы и доработал ее но моя программа почему то работает не всегда хорошо. Напромер: обрезает слишком длинные строки текста. после загрузки шифрованного сообщения не до конца его дешифрует. Помогите кто может. Вот ссылка на исходники моей программы http://narod.ru/disk/694033500... 0.rar.html 0

@AlexeyDok 0 / 0 / 0 Регистрация: 23.03.2009 Сообщений: 6
	23.03.2009, 20:04	2
	Не могу скачать, перезалей или мне в асю кинь 445881663 0

@ssashas 0 / 0 / 0 Регистрация: 17.03.2009 Сообщений: 20
	23.03.2009, 20:29 [ТС]	3
	Перезалил 0

@ssashas 0 / 0 / 0 Регистрация: 17.03.2009 Сообщений: 20
	23.03.2009, 20:52 [ТС]	5
	Спасибо так реально быстрее, но всетаки проблема не в этом 0

@alexanderwdark 109 / 95 / 9 Регистрация: 19.02.2009 Сообщений: 312
	23.03.2009, 21:01	6
	Сообщение от ssashas Спасибо так реально быстрее, но всетаки проблема не в этом А в чем? У меня нормально шифрует, если исправить ошибку с Count-1 Обрезает она возможно потому, что у тебя получается символ конца строки после операции XOR. В этом и проблема таких алгоритмов, они не учитывают особенностей формата. 0

@ssashas 0 / 0 / 0 Регистрация: 17.03.2009 Сообщений: 20
	23.03.2009, 21:07 [ТС]	7
	Если зашифровать текст сохранить его, загрузить и дешифровать то не все дешифруется 0

@alexanderwdark 109 / 95 / 9 Регистрация: 19.02.2009 Сообщений: 312
	23.03.2009, 21:19	8
	Сообщение от ssashas Если зашифровать текст сохранить его, загрузить и дешифровать то не все дешифруется см. вышеуказанное объяснение (нужно учитывать вн. формат строки). Проще всего - шифруй и затем конвертируй в HEX. 0

@ssashas 0 / 0 / 0 Регистрация: 17.03.2009 Сообщений: 20
	23.03.2009, 21:26 [ТС]	9
	а как? 0

@ssashas 0 / 0 / 0 Регистрация: 17.03.2009 Сообщений: 20
	24.03.2009, 14:13 [ТС]	11
	спс Добавлено через 15 часов 17 минут 57 секунд хмм твоя программа почему то зависает когда я дешифрую другой текст, пишет out of memory минут через 5 после нажатия кнопки 0

RaTaMaHaTTa
	04.10.2009, 12:49	12
	Может кто нибудь объяснить как шифрует этот алгоритм.

Опции темы

@devillom
	12.10.2012, 15:35 #13
	Не по теме: вот еще Шифратор тока на С#) 0

angstrom
	12.10.2012, 15:38 #14
	Не по теме: Поздравляю с вступлением в ряды некрофилов.

Slink
	05.02.2013, 21:55	15
	Сообщение от alexanderwdark Лови! С тебя пиво. Здравствуйте, а могу ли я скачать ваш проект и изучить его?

@ryudzaki 0 / 0 / 0 Регистрация: 05.02.2014 Сообщений: 74
	25.11.2014, 21:15	16
	Простите что апую старую тему. Но каким методом шифрует ваша программа? С помощью симметричных преобразований? 0