Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
ВнизПомоги Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c