Delphi шифратор. Out of memory.

@MasteRRR987 · Регистрация: 30.08.2010

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

Здравствуйте, я только начал программировать на delphi и написал свой первый симметричный шифратор/дешифратор (шифрует/дешифратор складывая или отнимая аски код по ключу).
Все отлично работает если текст для шифрования/дешифрования не превышает 110 символов. Но как только текст превышает 110 символов вылетает ошибка "Out of Memory". Посоветуйте, что можно сделать чтобы шифровать/дешифровывать неограниченное количество символов. Заранее спасибо!

Прилагаю код шифрования после нажатия на кнопку:

Delphi

procedure TForm1.sButton1Click(Sender: TObject);
var pass, txt: string;
a,b,c,d :integer;
begin
txt:=sMemo1.Text;
a:=length(txt);
pass:=sEdit1.Text;
b:=length(pass);
c:=round(a/b);
for d:=1 to c do
pass:=pass+pass;
pass:=copy(pass, 1, a);
for d:=1 to a do
Begin
if (ord(txt[d])+ord(pass[d]))>255 then
sMemo2.Text:=sMemo2.Text+chr((ord(txt[d])+ord(pass[d]))-255)
else
sMemo2.Text:=sMemo2.Text+chr((ord(txt[d])+ord(pass[d])));
end;
end;

@Puporev · 30.08.2010, 21:06

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

неограниченное количество символов.

Так в Делфи строка(string) не ограничена 255 символами, это не Паскаль...

@MasteRRR987 · 30.08.2010, 21:12 **[ТС]**

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

Так в Делфи строка(string) не ограничена 255 символами, это не Паскаль...

Извините, до конца не понял что Вы хотели этим сказать. Как избавится от Out of Memory? Или посоветуйте, пожалуйста, как оптимизировать его.

@Puporev · 30.08.2010, 21:16

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

Извините, до конца не понял

Это вы извините, я не понял...

@MasteRRR987 · 30.08.2010, 21:18 **[ТС]**

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

Это вы извините, я не понял...

Не подскажите про память?

@Vas-e-na · 30.08.2010, 21:19

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

вылетает ошибка "Out of Memory"

аможно узнать на какой строчке выкидывает???

@Puporev · 30.08.2010, 21:22

MasteRRR987, Я набирал больше 110 и у меня никакой ошибки не было.

@MasteRRR987 · 30.08.2010, 21:25 **[ТС]**

Сообщение от Vas-e-na

аможно узнать на какой строчке выкидывает???

Не нашел кнопочки ЛС. Поэтому спрошу здесь

Как узнать на какой строчке выкидывает (Borland Delphi 7 у меня)

@Puporev · 30.08.2010, 21:28

Если ошибка периода компиляции, то она написана в окошке под кодом и там указан номер строки
pas(37)
Если периода исполнения, то нажмите F8

@Vas-e-na · 30.08.2010, 21:29

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

Не нашел кнопочки ЛС. Поэтому спрошу здесь Как узнать на какой строчке выкидывает (Borland Delphi 7 у меня)

поставить точку останова (Breakpoint) и выполнить трассировку
PS я бы посоветовал вам прочитать хотя бы одну книжку...

@MasteRRR987 · 30.08.2010, 21:30 **[ТС]**

Указало сюда:

Delphi

1	for d:=1 to a do

@Puporev · 30.08.2010, 21:41

Не знаю, нет здесь никакой ошибки, у меня все работает. А ошибка при компиляции или после ввода строк? Если последнее, приведите пример текста в Мемо и Эдите...

@MasteRRR987 · 30.08.2010, 21:47 **[ТС]**

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

Не знаю, нет здесь никакой ошибки, у меня все работает. А ошибка при компиляции или после ввода строк? Если последнее, приведите пример текста в Мемо и Эдите...

Может из-за AlphaControls? Ошибка после ввода строк. Вот скриншот:

@Vas-e-na · 30.08.2010, 21:52

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

Не знаю, нет здесь никакой ошибки, у меня все работает. А ошибка при компиляции или после ввода строк? Если последнее, приведите пример текста в Мемо и Эдите...

ошибка есть, но у меня она получилась не при 110 символах, а намного больше...

Добавлено через 18 секунд

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

Может из-за AlphaControls? Ошибка после ввода строк. Вот скриншот:

контролы тут не причем...

Добавлено через 2 минуты

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

Delphi

1 2	for d:=1 to c do pass:=pass+pass;

вот тут ошибка, щас покумекаю как объяснить и исправить...

@Puporev · 30.08.2010, 21:54

У меня нет при таком количестве...

@Vas-e-na · 30.08.2010, 21:56

итак объяснение:
пусть pass='Edit1';
тогда
при d=1 pass=pass+pass='Edit1Edit1' (длинна = 2*b)
при d=2 pass=pass+pass='Edit1Edit1Edit1Edit1' (длинна = 4*b)
...
при d=c pass=pass+pass='Edit1Edit1...Edit1Edit1' (длинна = 2^c*b)
если посчитаете до 2^c - это уже много... (вот тут то памяти и не хватает...)

Добавлено через 24 секунды

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

У меня нет при таком количестве...

у вас ОЗУ много...

Добавлено через 38 секунд
да и пароль длинный, ворзьмите пароль в один символ и вуаля...

@MasteRRR987 · 30.08.2010, 21:59 **[ТС]**

Сообщение от Vas-e-na

итак объяснение:
пусть pass='Edit1';
тогда
при d=1 pass=pass+pass='Edit1Edit1' (длинна = 2*b)
при d=2 pass=pass+pass='Edit1Edit1Edit1Edit1' (длинна = 4*d)
...
при d=c pass=pass+pass='Edit1Edit1...Edit1Edit1' (длинна = 2^c*d)
если посчитаете до 2^c - это уже много... (вот тут то памяти и не хватает...)

Добавлено через 24 секунды

у вас ОЗУ много...

Добавлено через 38 секунд
да и пароль длинный, ворзьмите пароль в один символ и вуаля...

Сразу скажу, что у меня озу 1 гигабайт. Взял ключ 1 символ и символ этот '1'. Out of memory

Надо или оптимизировать код или как-то управлять памятью. Это лично мое "ламерское" мнение. А что скажете Вы?

@Puporev · 30.08.2010, 22:01

у вас ОЗУ много...

да, аж 512 Мб, завис напрочь....

@Vas-e-na · 30.08.2010, 22:09

ну вот смотрите, длинна(текст)=110 символов, длинна(пароль)=1 символ, тогда с=110
а теперь возведем 2 в степень с получаем 1298074214633706907132624082305024 байт = 1267650600228229401496703205376 килобайт = 1237940039285380274899124224 мегабайт = 1208925819614629174706176 гигабайт (явно больше чем ОЗУ+файл подкачки) = 1073741824 йотабайт (как дальше называть не знаю...)

Добавлено через 2 минуты
решение:

Delphi

1 2	for d:=1 to c do pass:=pass+sEdit1.Text

Добавлено через 1 минуту

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

Надо или оптимизировать код или как-то управлять памятью. Это лично мое "ламерское" мнение. А что скажете Вы?

а мое мнение, вам стоит все таки почитать литературу, а не сразу лезть в пекло...
ошибка хитро замаскированная, но банальная...

@MasteRRR987 · 30.08.2010, 22:13 **[ТС]**

Спасибо сказал! Решение помогло.
Иду читать литературу.

Еще раз спасибо!

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.08.2010, 21:54	15
	У меня нет при таком количестве... Миниатюры 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.08.2010, 21:06	2
	Сообщение от MasteRRR987 неограниченное количество символов. Так в Делфи строка(string) не ограничена 255 символами, это не Паскаль... 0

@MasteRRR987 2 / 1 / 0 Регистрация: 30.08.2010 Сообщений: 22
	30.08.2010, 21:12 [ТС]	3
	Сообщение от Puporev Так в Делфи строка(string) не ограничена 255 символами, это не Паскаль... Извините, до конца не понял что Вы хотели этим сказать. Как избавится от Out of Memory? Или посоветуйте, пожалуйста, как оптимизировать его. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.08.2010, 21:16	4
	Сообщение от MasteRRR987 Извините, до конца не понял Это вы извините, я не понял... 0

@MasteRRR987 2 / 1 / 0 Регистрация: 30.08.2010 Сообщений: 22
	30.08.2010, 21:18 [ТС]	5
	Сообщение от Puporev Это вы извините, я не понял... Не подскажите про память? 0

@Vas-e-na 420 / 417 / 79 Регистрация: 21.06.2010 Сообщений: 1,362
	30.08.2010, 21:19	6
	Сообщение от MasteRRR987 вылетает ошибка "Out of Memory" аможно узнать на какой строчке выкидывает??? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.08.2010, 21:22	7
	MasteRRR987, Я набирал больше 110 и у меня никакой ошибки не было. 0

@MasteRRR987 2 / 1 / 0 Регистрация: 30.08.2010 Сообщений: 22
	30.08.2010, 21:25 [ТС]	8
	Сообщение от Vas-e-na аможно узнать на какой строчке выкидывает??? Не нашел кнопочки ЛС. Поэтому спрошу здесь Как узнать на какой строчке выкидывает (Borland Delphi 7 у меня) 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.08.2010, 21:28	9
	Если ошибка периода компиляции, то она написана в окошке под кодом и там указан номер строки pas(37) Если периода исполнения, то нажмите F8 0

@Vas-e-na 420 / 417 / 79 Регистрация: 21.06.2010 Сообщений: 1,362
	30.08.2010, 21:29	10
	Сообщение от MasteRRR987 Не нашел кнопочки ЛС. Поэтому спрошу здесь Как узнать на какой строчке выкидывает (Borland Delphi 7 у меня) поставить точку останова (Breakpoint) и выполнить трассировку PS я бы посоветовал вам прочитать хотя бы одну книжку... 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.08.2010, 21:41	12
	Не знаю, нет здесь никакой ошибки, у меня все работает. А ошибка при компиляции или после ввода строк? Если последнее, приведите пример текста в Мемо и Эдите... 0

	30.08.2010, 22:13

@MasteRRR987 2 / 1 / 0 Регистрация: 30.08.2010 Сообщений: 22
	30.08.2010, 21:47 [ТС]	13
	Сообщение от Puporev Не знаю, нет здесь никакой ошибки, у меня все работает. А ошибка при компиляции или после ввода строк? Если последнее, приведите пример текста в Мемо и Эдите... Может из-за AlphaControls? Ошибка после ввода строк. Вот скриншот: Миниатюры 0

@Vas-e-na 420 / 417 / 79 Регистрация: 21.06.2010 Сообщений: 1,362
	30.08.2010, 21:56	16
	итак объяснение: пусть pass='Edit1'; тогда при d=1 pass=pass+pass='Edit1Edit1' (длинна = 2b) при d=2 pass=pass+pass='Edit1Edit1Edit1Edit1' (длинна = 4b) ... при d=c pass=pass+pass='Edit1Edit1...Edit1Edit1' (длинна = 2^cb) если посчитаете до 2^c - это уже много... (вот тут то памяти и не хватает...) Добавлено через 24 секунды* Сообщение от Puporev У меня нет при таком количестве... у вас ОЗУ много... Добавлено через 38 секунд да и пароль длинный, ворзьмите пароль в один символ и вуаля... 0

@MasteRRR987 2 / 1 / 0 Регистрация: 30.08.2010 Сообщений: 22
	30.08.2010, 21:59 [ТС]	17
	Сообщение от Vas-e-na итак объяснение: пусть pass='Edit1'; тогда при d=1 pass=pass+pass='Edit1Edit1' (длинна = 2b) при d=2 pass=pass+pass='Edit1Edit1Edit1Edit1' (длинна = 4d) ... при d=c pass=pass+pass='Edit1Edit1...Edit1Edit1' (длинна = 2^cd) если посчитаете до 2^c - это уже много... (вот тут то памяти и не хватает...) Добавлено через 24 секунды* у вас ОЗУ много... Добавлено через 38 секунд да и пароль длинный, ворзьмите пароль в один символ и вуаля... Сразу скажу, что у меня озу 1 гигабайт. Взял ключ 1 символ и символ этот '1'. Out of memory Надо или оптимизировать код или как-то управлять памятью. Это лично мое "ламерское" мнение. А что скажете Вы? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.08.2010, 22:01	18
	у вас ОЗУ много... да, аж 512 Мб, завис напрочь.... 0

@MasteRRR987 2 / 1 / 0 Регистрация: 30.08.2010 Сообщений: 22
	30.08.2010, 22:13 [ТС]	20
	Спасибо сказал! Решение помогло. Иду читать литературу. Еще раз спасибо! 0