求delphi生成注冊碼的程序

1、求delphi生成注冊碼的程序樓主godblessu（上帝保佑）2004-01-14 15:49:14 在 Delphi / VCL組件開發(fā)及應(yīng)用 提問作了個小軟件，向加進(jìn)注冊碼。特向高手討一個能加進(jìn)注冊碼的程序。     請發(fā)到我的信箱     godblessu     謝謝 問題點(diǎn)數(shù)：100、回復(fù)次數(shù)：12Top 1 樓sixgj（轟炸機(jī)）回復(fù)于 2004-01-14 15:55:08 得分 20    一、概述       軟件作為一種人類智力勞動成果的一種表現(xiàn)形式，融會了設(shè)計(jì)

2、者和開發(fā)者辛勤的勞動和汗水，然而，由于用戶觀念上的差異和盜版軟件的泛濫，軟件開發(fā)者的權(quán)益往往得不到有效的保護(hù)，因此，作為必要的手段-軟件的自身保護(hù)也就在特定的環(huán)境下被重視起來。       然而，正所謂，“魔高一尺，道高一丈”，保護(hù)和破解的矛盾關(guān)系在始終持續(xù)著，要想找到一種萬能的保護(hù)方法，卻也不是那么簡單的事。但是，如果開發(fā)者使用的保護(hù)手段連一般用戶都能破解的話（如：修改系統(tǒng)日期），這樣的保護(hù)則顯然達(dá)不到保護(hù)軟件版權(quán)的目的。       基于此，筆者利用Delphi5.0面向?qū)ο蟮奶匦裕O(shè)計(jì)開發(fā)了一個實(shí)用的版權(quán)保護(hù)控件，以為程序開發(fā)者

3、提供一種簡易的軟件保護(hù)手段。               二、實(shí)現(xiàn)方法       1在Delphi5.0中新建一個單元文件，書寫代碼如下，保存：       unit   RegObj;           interface           uses       Windows,   Messages,

4、60; SysUtils,   Classes,   Forms;           type       TRegObj   =   class       private       FSerial:   string;   /主板序列號       FKey:   string;   /密碼       FMa

5、xTimes:   Integer;   /最大運(yùn)行次數(shù)       FCompany:   string;   /公司名稱       FEmail:   string;   /聯(lián)系用的電子郵件       protected       procedure   SetSerial;   /取得主扳的序列號       procedure   GetKey

6、;   /從用戶序列號文件中讀取序列號       function   GetTimes:   Integer;   /從文件中讀取程序的運(yùn)行次數(shù)       function   CheckKey:   Boolean;   /檢查序列號和密碼是否匹配的函數(shù)       public       constructor   Create;       functi

7、on   Execute:   Boolean;   /運(yùn)行對象方法       published       property   Company:   string   read   FCompany   write   FCompany;       property   MaxTimes:   Integer   read   FMaxTimes   wri

8、te   FMaxTimes;       property   Email:   string   read   FEmail   write   FEmail;       end;           implementation           /TRegObj.       constructor   TRegOb

9、j.Create;       begin       inherited;       end;           function   TRegObj.GetTimes:   Integer;       Const       /用于存儲運(yùn)行次數(shù)的文件,開發(fā)人員可自定義或使用注冊表存儲運(yùn)行次數(shù)       /起此名字用于迷惑破解者，使用前不

10、要和系統(tǒng)的動態(tài)鏈接庫同名       Tmp   =   ispnet.dll;       var       Ch:   Char;       Dir:   array   0.255   of   Char;       Fn:   string;       I   :   Integer;   &

11、#160;   List:   Tstrings;       begin       /取得Windows系統(tǒng)的目錄       GetSystemDirectory(Dir,   255);       For   I   :=   0   to   255   do       begin       if  

12、Ord(DirI)   =   0   then   Break;       Fn   :=   Fn   +   DirI;       end;       Fn   :=   Fn   +     +   Tmp;       try       List   :=   TStri

13、ngList.Create;       if   Not   FileExists(Fn)   then       Ch   :=   Chr(1)       else       begin       List.LoadFromFile(Fn);       Ch   :=   List.Text1;     

14、0; Ch   :=   Chr(Ord(Ch)   +   1);       end;       List.Text   :=   Ch;       /存儲運(yùn)行次數(shù)       List.SaveToFile(Fn);       Result   :=   Ord(Ch);       finally    

15、   List.Free;       end;       end;           procedure   TRegObj.SetSerial;       begin       /取得主板的序列號       FSerial   :=   String(Pchar(Ptr($FEC71);       end; &#

16、160;         /取得密碼       procedure   TRegObj.GetKey;       const       Sn   =   Key.dat;       var       List:   TStrings;       Fn,   Path:   string;   &#

17、160;   begin       Path   :=   ExtractFilePath(Application.ExeName);       Fn   :=   Path   +   Sn;       if   Not   FileExists(Fn)   then       begin       FKey   :=

18、60; ;       Exit;       end;       try       List   :=   TStringList.Create;       List.LoadFromFile(Fn);       FKey   :=   List.ValuesKey;       finally      

19、List.Free;       end;       end;           function   TRegObj.CheckKey:   Boolean;       begin       /開發(fā)人員根據(jù)自己的需要進(jìn)行修改,在這里是為了簡單起見       Result   :=   FKey   =   FSerial; &

20、#160;     end;           function   TRegObj.Execute:   Boolean;       var       Msg:   string;       T:   Integer;       begin       T   :=   GetTimes;   &

21、#160;   GetKey;       SetSerial;       if   FKey   <>   FSerial   then       begin       Msg   :=     您這是第   +   IntToStr(T)   +   次運(yùn)行此程序（最大次數(shù)：   +   IntToStr(FMaxT

22、imes)   +       ）！;       Application.MessageBox(PChar(Msg),   用戶信息,   Mb_Ok   +   Mb_IconWarning);       Msg   :=   歡迎使用   +   Company   +   的軟件,如果您覺得滿意的話,請注冊或購買正版軟件！;       Applicatio

23、n.MessageBox(PChar(Msg),   建議,   Mb_Ok   +   Mb_IconInformation);       if   T   >   FMaxTimes   then       begin       if   Application.MessageBox(   是否注冊？,   注冊,   Mb_YesNo   +   M

24、b_IconQuestion)   =       Id_Yes   then       begin       Msg   :=   您的注冊號是：“   +   FSerial   +   ”   +   Chr(13)   +   Chr(10)   +       請您將以上序列號通過電子郵件寄給以下信箱:   +  

25、 FEmail;       Application.MessageBox(PChar(Msg),   軟件   注冊,   Mb_Ok   +   Mb_Iconinformation);       end;       Application.Terminate;       end;       end;       end;           end.     &#