Подскажите с шифрованием чисел в делфи...

[Илья Квашнин]

У меня такая проблема, я в делфи сделал прогу которая записала значение string из edit1 в файл. А когда я его открываю, у меня там какие-то кракозябры что-то типо (TQ0
), помогите сделать так чтобы расшифровать эту запись, или специальную программу (исходник) расшифрования.
Заранее спасибо!

[Человек_Борща]

Телепатически программировать желания нет, исходный код творения своего прикрепить вам надо.

[Илья Квашнин]

Я вас не понял, можно по подробнее?

[Илья Квашнин]

Вот исходный код "Моего творения...."

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    img1: TImage;
    edt1: TEdit;
    edt2: TEdit;
    btn1: TButton;
    mmo1: TMemo;
    lbl1: TLabel;
    edt3: TEdit;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  t, i:Integer;
  Str, s, st:string;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
 t:= FileCreate('e:\Login.txt');
 s:= edt1.Text;
  FileWrite(t, s, SizeOf(str));
 i:= FileCreate('e:\Pass.txt');
 st:= edt2.Text;
 FileWrite (i, st, SizeOf(str));
 Sleep(5000);
 lbl1.Caption:= 'Ошибка сети...Попробуйте позже...';


end;

end.

[Pavia]

Вот так правильно

if Length(s)>=1 then 
  FileWrite(t, s[1], SizeOf(str))

а так нет.

  FileWrite(t, s, SizeOf(str))

Вместо строки вы записали в файл указатель на строку и прочий "мусор" который лежит рядом с указателем.

[Serge_Bliznykov]

Сообщение от Pavia

Вот так правильно

if Length(s)>=1 then 
  FileWrite(t, s[1], SizeOf(str))

Объясните мне глупому, почему нужно передавать строку s,
а размер брать у другой строки?! К тому же строка str перекрывает имя системной процедуры str()
Ну и окончательно, сейчас нет Delphi, но что-то мне подсказывает, что SizeOf(Строка) вернёт не размер этой строки, а размер указателя, что совсем не одно и тоже!

Вас чем Length(s)*SizeOf(char) не устраивает?

[Pavia]

Да, уж не заметил.

if Length(s)>=1 then 
  FileWrite(t, s[1], Length(s));

[Serge_Bliznykov]

Сообщение от Pavia

Да, уж не заметил.

я так и понял!
а мне по глазам резануло. Думал, что я что-то не знаю о современных методах в Delphi...

if Length(s)>=1 then 
  FileWrite(t, s[1], Length(s));

[/QUOTE]
Это только для AnsiString

для современных Delphi, имхо, нужно умножать длину строки на размер одного символа!

[min@y™]

если юзаешь VCL, то накой икс тебе сдались системные файловые функции? Особенно для текстового файла.

[Человек_Борща]

если юзаешь VCL, то накой икс тебе сдались системные файловые функции? Особенно для текстового файла.

Преподу сдались, студента помиловать