小甲鱼说CompareStr可以做成一个加密系统

小小米迷恋

小甲鱼说CompareStr可以做成一个加密系统，这个一时间没想过来，

到底这个函数能做成怎样的加密系统呢？求教达人

aminghanhua

一、程序启动时，通过搜索注册表，判断是否第一次运行和是否注册，来确定程序是否运行

1. procedure TForm1.FormCreate(Sender: TObject);
   
2. var
   
3. 　　 Reg:Tregistry;　KeyName,TempCode,TempName,TempStr:string;
   
4. 　　 Same:Integer;
   
5. FirstDate,NowDate:Tdatetime;
   
6. 　　 NumberOfDays:real;
   
7. 　　begin
   
8. 　 NoRegistry:=true;
   
9. 　NowDate:=date; //取得运行时系统日期
   
10. 　　try
    
11. 　//创建注册表，有该键则读取，无则创建
    
12. Reg:=Tregistry.Create ;
    
13. Reg.RootKey :=hkey_local_machine;
    
14. 　　 KeyName:='Softwarejsjbxample';
    
15. 　　 if Reg.OpenKey(KeyName,true) then
    
16. 　　 begin
    
17. TempName:=Reg.ReadString('UsrName');
    
18. 　　 TempCode:=Reg.ReadString('Passwd');
    
19. 　　//读取用户名，注册号
    
20. 　　 try
    
21. 　　 FirstDate:=Reg.ReadDate('Date');
    
22. 　　//非第一次则读入第一次运行时间
    
23. 　　 except
    
24. 　　 Reg.WriteDate('Date',NowDate);
    
25. 　　// 若为第一次运行，则写入系统日期
    
26. 　　 FirstDate:=NowDate;
    
27. 　　 end;
    
28. 　　 end ;
    
29. 　　 reg.CloseKey ;
    
30. 　 finally
    
31. reg.Free ;
    
32. end;
    
33. TempStr:=Encrypt(TempName);
    
34. 　　//通过自定义函数Encrypt()来获取密码
    
35. Same:=CompareText(TempStr,TempCode);
    
36. //比较密码
    
37. if TempName<>'' then
    
38. if Same=0 then
    
39. 　　 NoRegistry:=false;
    
40. 　　//验证密码，通过NoRegistry为false
    
41. if NoRegistry then
    
42. begin //若未注册...
    
43. 　　NumberOfDays:=Nowdate-FirstDate;
    
44. 　SpareDays:=round(31-NumberOfDays);
    
45. 　　Label1.Caption :=FloatToStr(SpareDays);
    
46. 　　if((NumberOfDays>31) or (NumberOfDays<-1)) then
    
47. 　　begin
    
48. 　　showmessage('程序未注册超过试用期或更改系统时间，将终止运行!');
    
49. 　　application.Terminate;//超过30天，则禁止运行
    
50. 　　end;
    
51. 　　end;
    
52. 　　end;

复制代码