XOR вылазит за границы допустимых символов

[FOXKILLER1]

Добрый день дорогие форумчане. Пишу программу на delphi 7 помогите пожалуйста исправить функцию XOR, очень надо... У меня программа ввода логина и пароля, надо чтоб логин с паролем шифровался Xor или другим алгоритмом а входные данные внутренние для шифрования будет серийный ключ тома HDD, тойсть смысл чтобы логин и пароль менялся в зависимости от машины

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
btn1: TButton;
edt1: TEdit;
edt2: TEdit;
btn2: TButton;
pnl1: TPanel;
pnl2: TPanel;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function xortext1(text:string):string;
function xortext2(text:string):string;
end;

var
Form1: TForm1;

implementation

uses
Unit2, Unit3;

{$R *.dfm}

function TForm1.xortext1(text:string):string ;
var key, longkey : string;
i : integer;
toto: char;
begin
key:='777'; //ключ
for i := 0 to (length(text) div length(key)) 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;


function TForm1.xortext2(text:string):string ;
var key, longkey : string;
i : integer;
toto: char;
begin
key:='666'; //ключ
for i := 0 to (length(text) div length(key)) 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;

procedure TForm1.btn1Click(Sender: TObject);
var login,pass:string;
F: TextFile;
VolumeName,
FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWord;
MaxComponentLength,FileSystemFlags: Cardinal;
begin
GetVolumeInformation('C:\',VolumeNa me,MAX_PATH,@VolumeSerialNo, MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH);
login:=xortext1(''+IntToHex(VolumeS erialNo,8));
pass:=xortext2(''+IntToHex(VolumeSe rialNo,8));
if (edt1.text=login) and (edt2.text=pass) then
begin
form3.show;
form1.hide;
begin
AssignFile(F, 'MyFile.txt');
Rewrite(F);
Writeln(F, login);
Writeln(F, pass);
CloseFile(F);
end;
end
else
begin
Showmessage('Неверный логин или пароль');
Form1.SetFocus;
begin
AssignFile(F, 'MyFile.txt');
Rewrite(F);
Writeln(F, login);
Writeln(F, pass);
CloseFile(F);
end;
begin
edt1.Clear;
edt2.Clear;
end
end;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
AboutBox.Show;
end;

end.

[evg_m]

XOR вылазит за границы допустимых символов
Добрый день дорогие форумчане. Пишу программу на delphi 7 помогите пожалуйста исправить функцию XOR, очень надо...

для начала ответьте чему должно быть равно (по вашему мнению, а не программы) вот такое простое выражение
'a' xor 'a' =?
после этого определите прочие
'a' xor 'b' 'a' xor 'c' .....

[Serge_Bliznykov]

результат операции XOR любых двух символов по определению может быть любым числом, в т.ч. и непечатным (даже более вероятно, что результат будет непечатным!!).
но это нормально.
переводите полученные символы в печатный вид (через Hex представление, либо через кодирование непечатные -> печатные (это UUE или широкоиспользуемый BASE64). получите набор печатных символов.

Примеров, как это сделать - полно (в т.ч. и на форуме я лично писал подобные примеры, поищите...)

[FOXKILLER1]

спасибо поищу