Xor Delphi....

[FleXik]

Вобщем нужно зашифровать содержимое Edit1.Text, как сделать это используя xor? Уже больше часа пробую ничего не получается, прошу помощи, спасибо.

[alexander13]

В чем проблема?

[FleXik]

procedure TForm1.Button1Click(Sender: TObject);
var
key:string;
i:integer;
begin
key:=Edit1.Text;
i:=StrToInt(Edit2.Text);
ShowMessage(chr(ord(key[i]) xor ord(i)));
end;

почему не пашет хз...

[alexander13]

Брррр...
ord(i) - что Вы от этого ожидаете?
В Edit2 что? Шифрующий ключ? Если в качестве него используется какое-то фиксированное число, то надо делать xor с каждым символов исходной строки.
И не использовать ключ в качестве индекса в массиве, как тут key[i]..
Т.е. что-то вроде

str:string;
key:char;
i:integer;
begin
key := 'x';
for i:=0 to length (str) do
 showmessage ( chr (ord(str[i] xor key)));
end;

upd.
Или как там в делфи, я уж не помню.. Может надо key делать не char, а byte.. И цикл не с нуля, а с 1.
Типа

var
  str : string;
  key : byte;
  i : integer;
begin
str := Edit1.Text;
key := 90;
for i:=1 to length (str) do
 showmessage (chr (ord (str[i]) xor key));
end;

[FleXik]

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
key:char;
i:integer;
begin
key := 'x';
s:=Edit1.Text;
for i:=0 to length (str) do
ShowMessage(chr(ord(s[i]) xor ord(key)));
end;

подправил, но я без понятия правильно работает или нет...

[alexander13]

Говорю же, с 1 нумерация должна быть.
Я тоже без понятия, как она должна работать, т. к. задания не видел. А конкретно здесь осуществляется посимвольный xor. Только все это лучше куда-нибудь выводить, а не просто символы получившиеся показывать. Да и ключ шифрования можно сделать тоже в виде строки..

[FleXik]

alexander13, вроде разобрался спасибо вам большое за помощь, а как декодировать его в делфи? можно ли как-то?

[alexander13]

Очевидно, повторив операцию.
Если вспомнить, что (a xor b) xor b = a, то повторив процедуру для зашифрованной строки с тем же ключом можно получить исходную строку.
Соответственно, если сделать xor между исходной строкой и зашифрованной строкой, то можно получить сам ключ шифрования.

[FleXik]

alexander13, спасибо еще раз.