有关文件加密与文件夹加密的程序怎么编?

chenqiaojian 2003-09-16 01:05:16
有关文件加密与文件夹加密的程序怎么编?
可不可以提供有关资料,或者引导一下
...全文
15 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
supermanzd 2003-09-19
  • 打赏
  • 举报
回复
加密文件的方法:DES、IDEA、GOST.....
公开密钥及密算法:RSA,背包算法
你可以发邮件我们可以细谈
EMAIL:SUPERMANZD@263.NET
QSmile 2003-09-19
  • 打赏
  • 举报
回复
上面说的是最简单的加密方式。
你可以在 google 里搜索加密解密算法。
会有很多的。
疯狂低调 2003-09-19
  • 打赏
  • 举报
回复
朋友们有没有使用WinRaR中的椭圆加密算法的例子或文章!
AomDevelop@hotmail.com
chenqiaojian 2003-09-17
  • 打赏
  • 举报
回复
谢谢,非常感谢
mengyun5005 2003-09-17
  • 打赏
  • 举报
回复
其实加密解密也就只有那么几种方法,可以一个字符一个字符地异域一个字符也可以,你可到网上找找,以下是我提供一个简单得不能再简单的加密和解密代码,如果朋友有新的方法,请给我来一份mengyun5005@sina.com
function encrypt(code:string):string; //简单的加密
var
texts:string;
tmpcode:string;
i:integer;
begin
tmpcode:=code;
texts:='';
for i:=1 to length(code) do
begin
tmpcode:=midstr(code,i,1);
texts:=texts+chr(ord(tmpcode[1])+i);
end;
encrypt:=texts;
end;
相对于以上的加密进行解密
Function decrypt(code:string):string; //简单的解密
var
texts:string;
tmpcode:string;
i:integer;
begin
code:=trim(code);
tmpcode:=code;
texts:='';
for i:=1 to length(code) do
begin
tmpcode:=midstr(code,i,1);
texts:=texts+chr(ord(tmpcode[1])-i);
end;
decrypt:=texts;
end;

coolfilm 2003-09-17
  • 打赏
  • 举报
回复
gz
chenqiaojian 2003-09-16
  • 打赏
  • 举报
回复
那加密文本文件也说说看,我也想听
prettysky 2003-09-16
  • 打赏
  • 举报
回复
我只会加密文本文件。。其他的不会

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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