Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Шифр.. помогите разобраться.. 
:(
    Опции темы
TwisT_X
Дата 18.1.2006, 22:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


It's works!
**


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

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



Мне дана функция, осуществляющая шифровку и дешифровку текста:
Код

function codedecode(S:string; Key: word): string;
var i, L: word;
begin
L:= Length(S);
for i:= 1 to L do
 S[i]:= Chr(Ord(S[i]) xor Key);
 result := S;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text := Codedecode(Memo1.Text, 10);
end;


Процедуру я сам дописал.. Подскажите что к чему? И почему у меня такие конченые знаки появляются?


--------------------
Если ты упадешь я буду рядом. (с) Асфальт
PM MAIL WWW   Вверх
SoWa
Дата 18.1.2006, 22:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Харекришна
****


Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74



Просто делает операцию XOR с кодом данной буквы и шифром.
если неизвестно: XOR- исключающее OR


--------------------
Всем добра smile
PM MAIL ICQ   Вверх
TwisT_X
Дата 18.1.2006, 23:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


It's works!
**


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

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



SoWa а для чего надо ХОЯ и как сделать так чтобы выдавало значения цифпрами без СНЯ?


--------------------
Если ты упадешь я буду рядом. (с) Асфальт
PM MAIL WWW   Вверх
darkart
Дата 18.1.2006, 23:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 31



Цитата

SoWa а для чего надо ХОЯ и как сделать так чтобы выдавало значения цифпрами без СНЯ?

Если не ошибаюсь,
A XOR B сравнивает биты и пешет в результат 1(если биты не совпадают) или 0(если совпадают)
Зачем тебе значения цифрами? Можешь использовать ord к символам строки:
Код

function codedecode(S:string; Key: word): string;
var i, L: word;
begin
L:= Length(S);
for i:= 1 to L do
 S[i]:= Chr(Ord(S[i]) xor Key);
 result := S;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  i,len:integer;
  strTemp:string;
begin
  strTemp:= Codedecode(Memo1.Text, 10);
  len:=Length(strTemp);
  for i:=1 to len-1 do
    Memo2.Text:=Memo2.Text+IntToStr(ord(strTemp[i]))+' ';
  Memo2.Text:=Memo2.Text+IntToStr(ord(strTemp[i]));
end;


Это сообщение отредактировал(а) darkart - 18.1.2006, 23:31
PM MAIL WWW ICQ Skype GTalk   Вверх
RA
Дата 19.1.2006, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


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

Репутация: 14
Всего: 115



Цитата(SoWa @ 18.1.2006, 22:44 Найти цитируемый пост)

XOR- исключающее OR


это если хор булевой оператор smile

типа иф боолеан хор боолеан зен ..... ;
(но такой конструкцией кажись никто не пользуется)
PM   Вверх
Alexeis
Дата 19.1.2006, 16:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



Оператор XOR - это побитовая операция над двумя числами - "приятной" особеностью которой является то что после повторного применения ее к результату востанавливается исходное значение
например:
произведем две операции
c := a XOR b;
d := c XOR b:
в результате d = a
таким образом повторив шифрование мы автоматически востановим исходные данные.
Однако использование одного ключа (key) для всей строки приводит к тому что подобный шифр легко взламывается.
Для полной надежности для каждого символа нужен свой ключ.
Для создания таких ключей удобно использовать случайные числа.
Код полученный при помощи такого неповторяющегося ключа называют абсалютно стойким - т.е. не существует (и не может существовать) способа взлома такого кода
smile


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.1323 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.