TXT文件是怎么判断结尾的 在线等 立刻结贴 (150分)

天

天下第二

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-15

• #1

TXT文件加密遇见问题
我主要使用的是逐行 XOR 加密的方法，但是还原的时候，往往只能还原前面几行。我自己
判断原因可能是我加密产生了 换行符（#13） 和文件结尾符。我想知道的很简单，文件结尾符到底是什么？？？？

 

W

wameng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-15

• #2

#13#10

 

W

wameng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-15

• #3

#10 就是了！

 

天

天下第二

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-15

• #4

我马上测试一下就给分

 

V

vxhm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-15

• #5

以二进制方式访问文本文件，用Eof()可以正确判断是否文件尾

 

金

金卡绣球jk8.com

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-15

• #6

用 Byte 来，可靠着呢

 

天

天下第二

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-15

• #7

不对 我用WINHEX打开普通的 中文TXT 文件 发现里面有很多 #10 （0A） 我的加密代码是这样的
Function addPass(const str : String) : String ;
const
Lock_Key = 'ILOVEYOU';
Var
longkey : String ;
ChunkSize : integer ;
temp : Char ;
begin
longkey := ''
// 初始化加长加密键
ChunkSize := length(Str);
result := str ;
for i := 0 to (ChunkSize div length(Lock_Key)) do
longkey := longkey + Lock_Key;
// 开始加密
for i := 1 to ChunkSize do
begin
temp := result ;
IF Temp <> Chr(0) then // 空白位不加密 防止被解
temp := chr((ord(Temp) XOR ord(longkey)))
// XOR algorithm
if (temp <> #13) AND (Temp <> #10) then //防止产生文件结尾的符号
result := temp ;
end;
end ;
为什么还是只能读出被加密文件的前几行呢 我是这样读的
temp_list := TStringlist.Create ;
temp_list.LoadFromFile(dlgOpen1.FileName);

 

W

wameng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-15

• #8

TXT文件以#13#10 0D 0A 结尾，但必须为连贯。
你的 Function 中因该判断 result=#13 and result[i+1]=#10

 

D

dgsj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-15

• #9

#10是换行
#1A是文件结束符吧？（我记不清楚了）

 

天

天下第二

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-15

• #10

奇怪了 改过后 好象加密是没有错误了 但是 temp_list.LoadFromFile(dlgOpen1.FileName)
读出来的行 远远少于 我用 “记事本”直接打开文件的行
WHY ？

 

W

wameng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-15

• #11

to dgsj,
我记得早期 DOS 文件，才有这样的结构吧！

**********************
找到你的问题了！
如果文件内容有 #0 会被误判。
因此在加密后不得为#0

 

W

wameng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-15

• #12

好像是 Delphi LoadfromFile 出的问题。
如果档案内容为
ABCDEF#0123
使用 LoadfromFile 只能读取到 ABCDEF

 

天

天下第二

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-15

• #13

真的是这样 感谢 wameng 马上给分

 

金

金卡绣球jk8.com

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-16

• #14

很简单的呀，如果想保存为文本文件，加密后再base64一下就可以了

 

W

wameng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-16

• #15

经过查证，确实为 TStrings 问题。
因为在
procedure TStrings.LoadFromStream(Stream: TStream);
var
Size: Integer;
S: string;
begin
BeginUpdate;
try
Size := Stream.Size - Stream.Position;
SetString(S, nil, Size);
Stream.Read(Pointer(S)^, Size);
SetTextStr(S)
<---------- 该项函数出了问题！
finally
EndUpdate;
end;
end;

建议加密后的档案使用
TFileStream 读取后-->解密-->在写入到 Tstrings

 

W

Walnut_Tom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-16

• #16

Txt文件在windows下没有结束符的

 

涛

涛子_1966

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-16

• #17

没必要知道文件结尾,将文件读入流,再对流进行换算就可以了

 

H

Highpeak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-17

• #18

S: string;
s自动把#0后面的数据抛弃了。