求助：delphi 从文件中读取数据，将每32位数据与一固定字符串进行异或运算，再写入文件

awjj2599 2008-12-08 05:28:52

如题，读取的文件中包含数字，字母，符号和中文。

...全文

122 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

xiaowei_001 2008-12-10

打赏
举报

回复

楼主是想简单的文件加密?

awjj2599 2008-12-10

打赏
举报

回复

是的,问题已解决,用filestream搞定了,改天把代码贴出来.

SonicX 2008-12-08

打赏
举报

回复

所谓32位数据是指32个字节还是32位数据所使用的4字节

后者的话每次读1个Integer整型数值 xor 后重写入就是了

filec75 2008-12-08

打赏
举报

回复

帮顶

在加密过程中，将每个字节与密钥的右移8位进行异或运算，得到加密后的字节，并将加密后的缓冲区写入输出文件。在解密过程中，同样对每个字节进行异或运算，使用相同的密钥进行解密，得到原始的字节，并将解密后的...

absolute //它使得你能够创建一个新变量, 并且该变量的...//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.begin Str := 'abc'; Edit1.Tex...

addexitproc 函数将一过程添加到运行时库的结束过程表中 addr 函数返回指定对象的地址 adjustlinebreaks 函数将给定字符串的行分隔符调整为cr/lf 序列 allocmem 函数在堆栈上分配给定大小的块 ...

//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度. begin Str := ‘abc’; Edit1.Text := IntToStr(StrLen); end; abstract //它允许你创建抽象的方法, 包括有抽象方法的类称

Delphi关键字详解 absolute //它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同. var Str: string[32];...//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度. begin

语言基础/算法/系统设计

16,746

社区成员

33,239

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章