大侠请进，数据转换问题，在线等。急！急！急！UP有分

Question

现有文本文件，其格式为：用“|”分隔的一系列数据组成。
如：test.txt文件
其内容为：（共二行）
中国|江苏|常州   //这是第一行
中国|广西|柳州   //这是第二行
现在我要得到test.txt文件的Ascii方式表示的文件，即不要让用户看到实际的内容。
请高手指点，谢谢！能以源代码回答者另开贴送100分。

Answer 1

好像很矛盾哦，Ascii文件是谁都看得到的

Answer 2

To:trainbox(rain)
我的意思是不让用户看到这个文件中写的真实内容

Answer 3

ASCII文件好象也就是标准的文本文件

Answer 4

To:wycg_cnh20(发奋图强中)
   我也想加密解密，但我们的合作方不愿意啊

Answer 5

有可能是我表达不够清楚，各位大侠理解错了。
我的意思是不让用户看到这个文件中写的真实内容，包括我在内。但是文件是以Ascii方式存储在硬盘的，那只要愿意理论上都可以看的
实际放到硬盘的文件是什么内容？
如果就是下面这些的话，你是无法控制用户看不看得
中国|江苏|常州   //这是第一行
中国|广西|柳州   //这是第二行

Answer 6

用字符转换吧！chr(行)
读取数据时又转换过来就可以了！
但那样也不保密，最好用加密工具！

Answer 7

To:wenjianyao(建)
   
       MSN:  [email protected]

Answer 8

buf:pChar(你的原始数据);
str:String//ToHex
for i:=0 to length(buf)-1 do
str:=str+Format('%3d',ord(buf[i]));
//ToChar
for i:=0 to length(str)/2-1 do
buf[i]=char(StrToInt(midBStr(i*3,3));
我还是不太熟delphi换回十六进制的可以少一位字符;

Answer 9

{{{有可能是我表达不够清楚，各位大侠理解错了。
我的意思是不让用户看到这个文件中写的真实内容，包括我在内。}}}
上面引用搂住的话。
那不就是加密吗？这里的加密不是加上一个密码，而是将内容大改变！如下代码：
procedure TForm1.FormClick(Sender: TObject);
var
  f,fnew:textfile;
  ch:char;
  //最简单的加密方法，解密反过来即可
begin
   assignfile(f,'test1.txt');
   assignfile(fnew,'test.txt');
   reset(f);
   rewrite(fnew);
   while not seekeoln(f) do
   begin
      read(f,ch);
      ch:=chr(ord(ch)-1);
      //showmessage(ch);
      write(fnew,ch);
   end;
   closefile(fnew);
   closefile(f);
end;

Answer 10

procedure TForm1.button1Click(Sender: TObject);
var
  f,fnew:textfile;
  ch:char;
  //最简单的加密方法，解密反过来即可
begin
   assignfile(f,'test.txt');
   assignfile(fnew,'test2.txt');
   reset(f);
   rewrite(fnew);
   while not seekeoln(f) do
   begin
      read(f,ch);
      ch:=chr(ord(ch)+1);//改为-1
      write(fnew,ch);
   end;
   closefile(fnew);
   closefile(f);
end;

Answer 11

其实，可以用access的啊，叫合作方自己加个密，那你不也就不知道了啊！

Answer 12

简单的用　WriteBuf()　就可以了，如果用记事本打开会显示乱码。如　WriteBuf('123',10);
想复杂点就考虑加密。