请问如何将文件文件加密

Question

我看到有些文件用记事本打开以后里面是空白的，但里面确实是有很多内容的，应该是加密过的
如果要达到以上目的是怎么做到的?

Answer 1

那意思是？
比如说我用DELPHI写的程序才可以打开这个文件，其他的打开－－－－－全选也一片空白，这样可以做到吗

Answer 2

简单的文件加密，
procedure EncryptStream(s,t:TStream);
var
    i:Integer;
    ByteBuf:Byte;
begin
    s.Position:= 0;
    t.Position:= 0;
    t.Size:= s.Size;
    for i:=0 to s.Size-1 do
    begin
      s.ReadBuffer(ByteBuf,1);
      ByteBuf:= ByteBuf xor $0f;
      t.Write(ByteBuf,1);
    end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  Instream,OutStream:TMemoryStream;
begin
  Instream:=TMemoryStream.Create;
  OutStream:=TMemoryStream.Create;
  Instream.LoadFromFile(Edit1.Text);
  EncryptStream(Instream,OutStream);
  OutStream.SaveToFile(Edit1.Text+'.en');
  Instream.Free;
  outstream.free;
end;至于加密成空白，不是很了解，楼主可以把所谓的空白的加密后的文件放到16进制编辑工具里面看看是不是有是内容

Answer 3

简单的文件加密，
procedure EncryptStream(s,t:TStream);
var
    i:Integer;
    ByteBuf:Byte;
begin
    s.Position:= 0;
    t.Position:= 0;
    t.Size:= s.Size;
    for i:=0 to s.Size-1 do
    begin
      s.ReadBuffer(ByteBuf,1);
      ByteBuf:= ByteBuf xor $0f;
      t.Write(ByteBuf,1);
    end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  Instream,OutStream:TMemoryStream;
begin
  Instream:=TMemoryStream.Create;
  OutStream:=TMemoryStream.Create;
  Instream.LoadFromFile(Edit1.Text);
  EncryptStream(Instream,OutStream);
  OutStream.SaveToFile(Edit1.Text+'.en');
  Instream.Free;
  outstream.free;
end;至于加密成空白，不是很了解，楼主可以把所谓的空白的加密后的文件放到16进制编辑工具里面看看是不是有是内容