文件簡單的加解密
来源:互联网 发布:unity3d官方教程 编辑:程序博客网 时间:2024/04/29 07:26
procedure LockAndUnLock(FileID: string; InStrPwd: string);
var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
iReadID, CodeID: Integer;
iPosPwd: Integer;
StrPwd: string;
chPwd: Char;
begin
StrPwd := InStrPwd;
if StrPwd = '' then StrPwd := 'Martin';
iFileLength := FileSizeByName(FileID);
iFileHandle := FileOpen(FileID, fmOpenReadWrite);
FileSeek(iFileHandle, 0, 0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);
for iReadID := 0 to IFileLength do
begin
chPwd := StrPwd[iReadID mod Length(Strpwd)];
CodeID := not ORD(Buffer[iReadID]) + not Ord(chPwd);
Buffer[iReadID] := Chr(CodeID);
end;
FileSeek(iFileHandle, 0, 0);
FileWrite(iFileHandle, Buffer^, iFileLength);
FileClose(iFileHandle);
end;
- 文件簡單的加解密
- 基于ByteArray的swf文件加解密
- 一个简单的文件加解密
- 使用AES对文件的加解密
- 文件透明加解密的实现层次
- 文件透明加解密的源代码
- 文件透明加解密的实现层次
- 最简单的文件加解密算法
- c_简单的文件加解密
- 文件加解密
- 文件字节加解密
- C#文件加解密
- android文件加解密
- DES加解密文件
- 文件加解密方法
- DES文件加解密
- 文件加解密操作
- 文件AES加解密
- Blog也学习
- 如何实现通过字符联接来实现页与页之间传递数据
- 关于callback回调函数
- 昨天的雪
- Action类
- 文件簡單的加解密
- 硬件学习应涉及到的几个方面?
- SQLite
- 基于角色管理(RBAC)的权限系统
- 视频捕获快速入门
- 男女英文名释义
- ASP如何获取客户端真实IP地址
- "中产阶层"还很脆弱 年收入10万元抗不过一场病
- CDATETIME时间类定义