Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помоги [D6]

jenbond © (2002-03-23 08:54:00)
Есть функция шифрования, но она почему то не берет текст длиной более 200 символов, перепробывал все а результат тотже. Подскажите что надо сделать что бы можно было прорускать большие текста??

function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
I : Byte;
begin
Result := "";
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
end;
end;

Song (2002-03-23 10:10:00) [1]
Да, Набережных С. (23.03.02 09:35) :))
Как говорится, а слона-то я и не заметил.

2jenbond © Всё правильно счётчик в цикле у Вас не может бежать больше чем ограничивает его тип byte

Набережных С. (2002-03-23 09:35:00) [2]
Сделай так
var
i:integer;

jenbond (2002-03-23 09:18:00) [3]
Anatoly Podgoretsky подскажи как можно реализовать преврати полученный результат текстоподобное . Да действительно текст поступает из Memo!

jenbond (2002-03-23 09:14:00) [4]
Хм-м-м!
Скорее всего в result!

Anatoly Podgoretsky (2002-03-23 09:13:00) [5]
Ты знаешь, что у тебя огранинчения нет, точнее есть но в 2 гб.
Твоя проблема, в том, что ты видимо пытаешь где то далее работать как с нормальной строкой, но товои функции работают только до первого символа #0 или другого непечатного.

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

Song (2002-03-23 09:08:00) [6]
Огранчение где: в Result или в InString?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »