テキストファイルをバイナリファイルに変換 (ID:12921)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

>構造体とかにしてStream等で保存すれば普通のエディタでは見れないと思います。
構造体にしただけではメモ帳でも見えてしまうと思うけど…

一番簡単な「暗号化」はこんな感じ。
ただし、タネが簡単なので解読される確率高し。
でもエディタでチョット見ただけでは判読できない。
もっと長いタネを使えば結構堅い暗号化も可能。

const
  SEED = $AB;
  FILEPATH = 'test.dat';

// 書き込み
procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  i, Len: Integer;
  buf: PChar;
begin
  Len := Length(Memo1.Text);
  GetMem(buf, Len+1);
  fs := TFileStream.Create(FILEPATH, fmCreate);
  try
    StrPCopy(buf, Memo1.Text);
    for i:=0 to Len-1 do begin
      Byte(buf[i]) := Byte(buf[i]) xor SEED;
    end;
    fs.Write(buf^, Len);
  finally
    FreeMem(buf);
    fs.Free;
  end;
end;

// 読み込み
procedure TForm1.Button2Click(Sender: TObject);
var
  fs: TFileStream;
  i, Len: Integer;
  buf: PChar;
begin
  fs := TFileStream.Create(FILEPATH, fmOpenRead);
  Len := fs.Size;
  GetMem(buf, Len+1);
  try
    fs.Read(buf^, Len);
    buf[Len] := #0;
    for i:=0 to Len-1 do begin
      Byte(buf[i]) := Byte(buf[i]) xor SEED;
    end;
    Memo1.SetTextBuf(buf);
  finally
    FreeMem(buf);
    fs.Free;
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る