闂傚倷娴囬妴鈧柛瀣崌閺岀喖顢涘⿰鍐炬毉濡炪們鍎查崹鍧楀蓟閻旇　鍋撳☉娅亝鎱ㄩ崶褉鏀芥い鏇炴鐎氾拷闂傚倷绀侀幖顐ゆ偖椤愶箑纾块柛鎰嚋閼板潡鏌涘☉娆愮稇缂備讲鏅犻弻鐔碱敍濠婂喚鏆銈冨劵閹凤拷>>

正在阅读：用注册表对delphi程序加密用注册表对delphi程序加密

2004-10-09 12:19 出处：CSDN 作者：liuboalex 责任编辑：huangpeidan

　　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;

作者笔名	简短内容	发表时间
:

键盘也能翻页，试试“← →”键

聚超值

热门排行