VPF::<<Хорим данные>> - Форум программистов

kostik_16

Дата 31.1.2004, 00:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 23.7.2003

Репутация: -4
Всего: 1

Мне надо отхорить мой код, тоесть xor, как это делаеься, а то мне сказали это сделать, а я не понял, как!!

December

Дата 31.1.2004, 02:01 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

Код

    for i:=0 to lines.count-1 do
        begin
        try
        wint:=strtoint(lines[i]);
        except
        showmessage('Error converting value!');
        exit;
        end;{except}
        b:=wint xor TheKey;
        gStr:=gStr+chr(b);
        end;{for}

У меня есть мемо с строками, в которых числа. Я перевожу строки в числа и ксорю. Это просто пример использования ксор. Если тебе нужно что-нибудь другое, описывай конкретнее.

--------------------

Для друзей с винграда - скидки на разработку сайтов

p0s0l

Дата 31.1.2004, 14:07 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Вот еще пример:
adr - адрес в куска памяти, который надо заксорить
len - длина этого куска
value - любой байт для ксора

Код

var
  i, adr, len : cardinal;
  value : byte;
begin
  for i := 0 to len-1 do
    pbyte(adr+i)^ := pbyte(adr+i)^ xor Value;
end;

--------------------

С уважением, г-н Посол.

kostik_16

Дата 1.2.2004, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 23.7.2003

Репутация: -4
Всего: 1

Вроде понял прицип, но а вот я сделал допустим это, теперь. что-бы вернуть все обратно мне надо получается написать небольшую процедурку, которая в самом начале запуска будет выполнять обратные действия

December

Дата 1.2.2004, 17:37 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

Ессно.

--------------------

Для друзей с винграда - скидки на разработку сайтов

x77

Дата 1.2.2004, 17:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

поскольку речь идёт о xor, то не обратные действия, а те же самые. тебе нужна всего одна процедура, которая в первый раз "хоrит" данные, а будучи вызванной второй раз - вернёт их в первоначальный вид.

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »