Шифровка (delphi)

[CAMOBAP]

Уже сколько мучаюсь и хоть убейте не могу понять шифрование xor.Не могу построить расшифровку

[p51x]

Уже отвечали по-моему. По'xor'ьте еще раз.

[CAMOBAP]

вот собственно код.расшифровка происходит только частично

var
  Form1: TForm1;
  key, gex, longkey, result, fname : string;
  i : integer;
  toto, c : char;
  F : TextFile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
       //открытие
    if  not opendialog1.Execute then
    exit;
    fname:=opendialog1.FileName;
    AssignFile(F,fname);
    Reset(F);
    readln(F,gex);
    CloseFile(F);
    key:='1234';

    for i := 0 to (length(gex) div length(key)) do
    longkey := longkey + key;
    for i := 1 to length(gex) do
    begin
    toto := chr((ord(gex[i]) xor ord(longkey[i])));
    result := result + toto;
    end;

    memo1.text:=result;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     //сохранение
    key:='1234';
    gex:=memo1.text;

    for i := 0 to (length(gex) div length(key)) do
    longkey := longkey + key;
    for i := 1 to length(gex) do
    begin
    toto := chr((ord(gex[i]) xor ord(longkey[i])));
    result := result + toto;
    end;

    if  not savedialog1.Execute then
    exit;
    fname:=savedialog1.FileName;
    AssignFile(F,fname);
    Rewrite(F);
    writeln(F,result);
    CloseFile(F);

    end;

end.

[Serge_Bliznykov]

    Reset(F);
    readln(F,gex);
.....
procedure TForm1.Button2Click(Sender: TObject);
begin
     //сохранение
    key:='1234';
    gex:=memo1.text;

.....
    AssignFile(F,fname);
    Rewrite(F);
    writeln(F,result);

CAMOBAP, я же Вам неоднократно говорил - забудьте Вы о строчках, когда используете XOR текста!

Да и вообще, используйте потоки для записи/чтения и будет Вам Счастье...

[CAMOBAP]

поправил. только теперь расшифровывается и дописывание левые символы.

[Serge_Bliznykov]

поправил. только теперь расшифровывается и дописывание левые символы.

значит плохо поправили

давайте Ваш исходный код по записи - чтению, посмотрим, что в этот раз не так...

[CAMOBAP]

да собственно изменил только writeln на write. и также c read.по другому знаний не хватает сделать