用注册表对delphi程序加密

作者佚名技术来源互联网浏览发布时间 2012-01-18

　　edit1.text:=′′; edit2.text:=′′;

　　edit1.SetFocus; end; //进行下一步操作...

　　end; end;

　　三、密码变换程序：注意要预先定义。

　　这个变换小程序在笔者看来还不算很复杂，只进行了两次变换，不过，想要破译也是得费点劲。读者还可以采用其他的数学函数进行更为复杂的变换。

　　function pass(pstr:string):string;

　　var str,str1:string;

　　i,j:integer;

　　begin

　　str:=pstr;

　　for i:=1 to length(str) do begin

　　//进行第一次变换

　　j:=(i＊i＊i mod (i＋20))＋(i＊i mod (i＋10))＋i＊2＋1;

　　str1:=str1＋chr(ord(str[i])＋j); //第二次变换

　　j:=(i＊i＊i mod (i＋10))＋(i＊i mod (i＋20))＋i＊2＋1;

　　str1:=str1＋chr(ord(str[i])＋j); end;

　　pass:=str1;

　　end;

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

上一页 1 2

分享到：更多

你可能对下面的文章感兴趣

上一篇: [Delphi]下一篇: Delphi学习:2个不错的通配符比较函数

关于用注册表对delphi程序加密的所有评论

随机推荐