[PhoeniX]

Выкладываю неработающую программу. Долго долбал себе мозг...
Шифрование чисел/текста/чего_угодно в изображение.
В общем, прога достаточно неплохая (была бы), но прикол в том, что она либо что-то не так сохраняет, либо что-то не так загружает (шифровка работает нормально, проверил).

В общем, помогите, пожалуйста...
Исходник приложил, исправлять не надо, просто ткните на неработающее место... с 15 часов бьюсь головой ап стенку...

Работают только 1 и 5 пункты, остальные пока "заблокированы" (точнее, ведут в никуда).
Картинку, с которой я ставлю эксперименты, тоже приложил.

[Aristarh Dark]

Код коментирован?

[PhoeniX]

Неа...
Там не так всё сложно, как можно подумать.

[Викентий]

скачиваю program.rar скачивается php

[PhoeniX]

У меня всё ОК, попробуй переименовать, или скачать через "ПКМ - сохранить как..."

[Викентий]

Все скачалось
могу вам помочь
стучите в ICQ 612-979-261

[Викентий]

Код на дельфи?
пока у вас только числа работают?

[PhoeniX]

Завтра напишу, сегодня отбой... пока код полистай... Может, найдёшь место, где я промахнулся...

[PhoeniX]

Сообщение от Викентий

Код на дельфи?
пока у вас только числа работают?

Да, Delphi 7.
Пока только с числами, налажу их - буду делать остальное.

[Rat]

Вообще то пишется "СКРЕПЯ СЕРДЦЕ"

[Konrad]

Код:

1	Data[i]:=Data[i] xor N;

Инновационный алгоритм?

[PhoeniX]

Ага, мега-инновационный
В общем, всё доделал, кроме одного - функция BaseConvert, использованная у меня в коде, отказывается считать числа, больше определённого значения. В связи с этим, ищу функции перекодирования Dec <-> Bin, которые справляются с числами ЛЮБЫХ размеров (на основе массивов и/или строк).