加密与解密知识
文章平均质量分 73
FlyHope2005
这个作者很懒,什么都没留下…
展开
-
MD5加密
// tabs = 2// -----------------------------------------------------------------------------------------------//// MD5 Message-Digest for Delphi 4////原创 2005-01-05 10:20:00 · 2445 阅读 · 1 评论 -
一个简单的加密解密程序
function addpassword(str:string):string;var text,str1:string; i,j:integer;begin if str= then begin result:=; exit; end; text:=ZXB; //加密因子,可自已另設 str1:=; for i:=1 to length(str) do原创 2005-01-05 10:22:00 · 3794 阅读 · 3 评论 -
DES加密解密代码
unit DESCrypt;interfaceuses SysUtils;function EnCrypt(aStr: string; acKey: string ): string; //加密字符串-------------------------------function DeCrypt(aStr: string; acKey: string ): string; //解密字符串-原创 2005-01-05 10:16:00 · 4143 阅读 · 0 评论