Скачать: CL | DM;

Помоги   Найти похожие ветки 

← →
jenbond ©   (2002-03-23 08:54) [0]

Есть функция шифрования, но она почему то не берет текст длиной более 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 09:08) [1]

Огранчение где: в Result или в InString?

---

← →
Anatoly Podgoretsky ©   (2002-03-23 09:13) [2]

Ты знаешь, что у тебя огранинчения нет, точнее есть но в 2 гб.
Твоя проблема, в том, что ты видимо пытаешь где то далее работать как с нормальной строкой, но товои функции работают только до первого символа #0 или другого непечатного.

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

---

← →
jenbond ©   (2002-03-23 09:14) [3]

Хм-м-м!
Скорее всего в result!

---

← →
jenbond ©   (2002-03-23 09:18) [4]

Anatoly Podgoretsky подскажи как можно реализовать преврати полученный результат текстоподобное . Да действительно текст поступает из Memo!

---

← →
Набережных С.   (2002-03-23 09:35) [5]

Сделай так
var
i:integer;

---

← →
Song ©   (2002-03-23 10:10) [6]

Да, Набережных С. (23.03.02 09:35) :))
Как говорится, а слона-то я и не заметил.

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.007 c