Не могу считать зашифрованных параметр с ini файла

[TorrentTor]

Добрый вечер всем!
Есть проблема небольшая:
Шифрую xor-ом пароль и записываю в ини файл, получаю - шифр он даже не отображается при копировании сюда, ну да ладно. (Н7)перед Н есть еще квадратик =)

Так вот не получается считать его обратно и расшифровать читает без этого квадрата и соответственно получаю не то.

Шифрование

function TVhod.Crypt(varStr: AnsiString): AnsiString;
var
 k: integer;
 s: AnsiString;
begin
   RandSeed:=100;
   s:=varStr;
   for k:=1 to Length(s) do
    s[k]:=ansichar(byte(s[k]) xor (Random(255)+1));

 Crypt:=s;
end;

Считывание.

var ini: TIniFile;
begin
  try
    Module.MyConnection1.Disconnect;
    ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Options.ini');
    Module.MyConnection1.Server:=ini.ReadString('Connect','ip','127.0.0.1');
    Module.MyConnection1.Username:=ini.ReadString('Connect','login','root');
    Module.MyConnection1.Password:=Crypt(ini.ReadString('Connect','pas','123'));
    Module.MyConnection1.Port:=ini.ReadInteger('Connect','port',3306);
    Module.MyConnection1.Database:=ini.ReadString('Connect','bd','ebup');
    Module.MyConnection1.Connect;
  except
  end;
  ini.Free;
  if Module.MyConnection1.Connected then
  else Application.MessageBox('Невозможно подключится к серверу, Пожайлуста проверьте настройки подключения','Ошибка подключения',MB_OK);

Файл приложил, txt сам поставил чтобы загрузить можно было так он ini
Жду идей =)

[Аватар]

ReadBinaryStream и WriteBinaryStream для чтения-записи двоичных данных. Или преобразование в символьный вид перед записью (16-ричн, Base64) и обратная операция после чтения

[TorrentTor]

Попробовал так запись:

...
    str: TStringStream;
... 
str.WriteString(Vhod.Crypt(PASedit.Text));
ini.WriteBinaryStream('Connect','pas',str);

...

чтение

Module.MyConnection1.Password:=Vhod.Crypt(str.ReadString(1));

Вообще получился дикий ужас, видимо что-то делаю не так, можно слегка подробнее?
С преобразованием наверно легче будет ток я вообще не понял о каком преобразовании идет речь.

[3D Hunter]

Слегка можно:
1. Где вызов ReadBinaryStream при расшифровании?
2. Какое вообще расшифрование при алгоритме, в котором ключ рандомный? Ну и расшифруешь ты уже другим ключом, или ты считаешь, что рандом тебе константы выдает?

[Аватар]

3D Hunter, RandSeed:=100 заставляет каждый раз генерировать одну и ту же псевдослучайную последовательность в рамках одного диапазона, поэтому с расшифровкой все в норме

[3D Hunter]

Сорри, не знал. Но алгоритм случайного выбора зависит еще и от железа, так что Random при том же RandSeed на других компах будет выдавать по идее другие числа. Или я ошибаюсь?

[TorrentTor]

Да дело даже не в шифровании и расшифровывании, это просто переделать и на одно слово =)
Дело в считывании этого шифра с ини файла, то ли символ там не печатаемый то ли еще что, в общем на этой мелочи я стопорюсь =(

[Пепел Феникса]

Сорри, не знал. Но алгоритм случайного выбора зависит еще и от железа, так что Random при том же RandSeed на других компах будет выдавать по идее другие числа. Или я ошибаюсь?

зависит от алгоритма, часто стандартные средства расчитываются по простой формуле с одним параметром всего(тот самый Seed)

[Аватар]

var inif: TIniFile;
    Stream: TMemoryStream;
    s: String;

 {Запись}
  s:=#14#15#16;
  Stream:=TMemoryStream.Create;
  Stream.Write(s[1],Length(s));
  inif.WriteBinaryStream('aaa','bbb',Stream);
  Stream.Free;

 {Чтение}
  Stream:=TMemoryStream.Create;
  inif.ReadBinaryStream('aaa','bbb',Stream);
  SetLength(s,Stream.Size);
  Stream.Position:=0;
  Stream.Read(s[1],Stream.Size);
  Stream.Free;

[TorrentTor]

Попробовал сделать так как вы посоветовали:

begin
  s:=Vhod.Crypt(PASedit.Text);
  ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Options.ini');
  stream:=TMemoryStream.Create;
  Stream.Write(s[1],Length(s));
  ini.WriteString('Connect','ip',IPedit.Text);
  ini.WriteString('Connect','login',LOGINedit.Text);
  ini.WriteBinaryStream('Connect','pas',Stream);
  ini.WriteString('Connect','bd',BDedit.Text);
  ini.WriteInteger('Connect','port',PORTedit.Value);
  ini.WriteInteger('Connect','pol',POLbox.ItemIndex);
  stream.Free;
  try
    Module.MyConnection1.Disconnect;
    stream:=TMemoryStream.Create;
    ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Options.ini');
    Module.MyConnection1.Server:=ini.ReadString('Connect','ip','127.0.0.1');
    Module.MyConnection1.Username:=ini.ReadString('Connect','login','root');
    ini.ReadBinaryStream('Connect','pas',Stream);
    SetLength(s,Stream.Size);
    Stream.Position:=0;
    Stream.Read(s[1],Stream.Size);
    Module.MyConnection1.Password:=Vhod.Crypt(s);
    Module.MyConnection1.Port:=ini.ReadInteger('Connect','port',3306);
    Module.MyConnection1.Database:=ini.ReadString('Connect','bd','ebup');
    Module.MyConnection1.Connect;
  except
  end;
  if Module.MyConnection1.Connected then close
  else Application.MessageBox('Невозможно подключится к серверу, Пожайлуста проверьте настройки подключения','Ошибка подключения',MB_OK);
  ini.Free;
  stream.Free;
end;

Теперь пункт pas пустой Что я сделал снова не так?