テキストファイルをバイナリファイルに変換 (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;