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

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

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

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

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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;

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

Не по теме:

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

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

вот почему суть проблемы новички пропускают мимо ушей, а берут только решение, это же не правильно, так вы ничему не научитесь!!!

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

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

Не по теме:

вот почему суть проблемы новички пропускают мимо ушей, а берут только решение, это же не правильно, так вы ничему не научитесь!!!

Да, согласен, но у меня нет достаточных знаний чтобы решить её, даже когда Вы объяснили почему это происходит. Поэтому я последовал вашему совету и уже заказываю книгу (Никита Культин. Основы программирования в Delphi 7.)

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

@VampireKB · 30.08.2010, 22:41

Не по теме:

Зачем заказывать книгу,если в ГУГЛЕ столько статей найти можно ))) Правда требуется знание английского языка )) Большинство вещей я нашел именно на еврпоейских сайтах (

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@VampireKB
	30.08.2010, 22:41
	Не по теме: Зачем заказывать книгу,если в ГУГЛЕ столько статей найти можно ))) Правда требуется знание английского языка )) Большинство вещей я нашел именно на еврпоейских сайтах ( 0