Использование оператора XOR

@Trukhanov_VP · Регистрация: 28.03.2013

Author24 — интернет-сервис помощи студентам

Есть функция которая преобразует текст:

Delphi

function XORText(text:string):string;
var key, longkey : string;
i : integer;
toto: char;
k:integer;
begin
key := 'muse';
k := length(text) div length(key);
for i := 0 to k do
longkey := longkey + key;
for i := 1 to length(text) do
 begin
 toto := chr((ord(text[i]) XOR ord(longkey[i])));
   result := result + toto;
end;
end;

можно ли написать обратную функцию?

Добавлено через 6 минут
Тема закрыта. Удалите тему плз.

@Taatshi · 16.04.2014, 12:48

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

Будем Вам очень признательны

@Trukhanov_VP · 16.04.2014, 13:00 **[ТС]**

Taatshi, собственно функция реализует преобразование и обратное преобразование без каких-либо вспомогательных действий относительно этой функции.
Допустим у нас есть ключ: 'muse'. Нам нужно зашифровать текст: 'Alexandr'. После преобразования получим

. Если преобразовать полученный текст в функции получим исходные данные. Все просто.

@Taatshi Администратор 12268 / 5333 / 268 Регистрация: 05.04.2011 Сообщений: 14,086 Записей в блоге: 2
	16.04.2014, 12:48	2
	Trukhanov_VP, давайте мы тему удалять не будем - а лучше Вы нам расскажете как данный вопрос решили. Будем Вам очень признательны 0

@Trukhanov_VP 38 / 38 / 12 Регистрация: 28.03.2013 Сообщений: 272 Записей в блоге: 2
	16.04.2014, 13:00 [ТС]	3
	Taatshi, собственно функция реализует преобразование и обратное преобразование без каких-либо вспомогательных действий относительно этой функции. Допустим у нас есть ключ: 'muse'. Нам нужно зашифровать текст: 'Alexandr'. После преобразования получим . Если преобразовать полученный текст в функции получим исходные данные. Все просто. Изображения 0