下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、求delphi生成注冊(cè)碼的程序樓主godblessu(上帝保佑)2004-01-14 15:49:14 在 Delphi / VCL組件開發(fā)及應(yīng)用 提問作了個(gè)小軟件,向加進(jìn)注冊(cè)碼。特向高手討一個(gè)能加進(jìn)注冊(cè)碼的程序。 請(qǐng)發(fā)到我的信箱 godblessu 謝謝 問題點(diǎn)數(shù):100、回復(fù)次數(shù):12Top 1 樓sixgj(轟炸機(jī))回復(fù)于 2004-01-14 15:55:08 得分 20 一、概述 軟件作為一種人類智力勞動(dòng)成果的一種表現(xiàn)形式,融會(huì)了設(shè)計(jì)
2、者和開發(fā)者辛勤的勞動(dòng)和汗水,然而,由于用戶觀念上的差異和盜版軟件的泛濫,軟件開發(fā)者的權(quán)益往往得不到有效的保護(hù),因此,作為必要的手段-軟件的自身保護(hù)也就在特定的環(huán)境下被重視起來。 然而,正所謂,“魔高一尺,道高一丈”,保護(hù)和破解的矛盾關(guān)系在始終持續(xù)著,要想找到一種萬能的保護(hù)方法,卻也不是那么簡(jiǎn)單的事。但是,如果開發(fā)者使用的保護(hù)手段連一般用戶都能破解的話(如:修改系統(tǒng)日期),這樣的保護(hù)則顯然達(dá)不到保護(hù)軟件版權(quán)的目的。 基于此,筆者利用Delphi5.0面向?qū)ο蟮奶匦?,設(shè)計(jì)開發(fā)了一個(gè)實(shí)用的版權(quán)保護(hù)控件,以為程序開發(fā)者
3、提供一種簡(jiǎn)易的軟件保護(hù)手段。 二、實(shí)現(xiàn)方法 1在Delphi5.0中新建一個(gè)單元文件,書寫代碼如下,保存: unit RegObj; interface uses Windows, Messages,
4、60; SysUtils, Classes, Forms; type TRegObj = class private FSerial: string; /主板序列號(hào) FKey: string; /密碼 FMa
5、xTimes: Integer; /最大運(yùn)行次數(shù) FCompany: string; /公司名稱 FEmail: string; /聯(lián)系用的電子郵件 protected procedure SetSerial; /取得主扳的序列號(hào) procedure GetKey
6、; /從用戶序列號(hào)文件中讀取序列號(hào) function GetTimes: Integer; /從文件中讀取程序的運(yùn)行次數(shù) function CheckKey: Boolean; /檢查序列號(hào)和密碼是否匹配的函數(shù) public constructor Create; functi
7、on Execute: Boolean; /運(yùn)行對(duì)象方法 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 /用于存儲(chǔ)運(yùn)行次數(shù)的文件,開發(fā)人員可自定義或使用注冊(cè)表存儲(chǔ)運(yùn)行次數(shù) /起此名字用于迷惑破解者,使用前不
10、要和系統(tǒng)的動(dò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; /存儲(chǔ)運(yùn)行次數(shù) List.SaveToFile(Fn); Result := Ord(Ch); finally
15、 List.Free; end; end; procedure TRegObj.SetSerial; begin /取得主板的序列號(hào) 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)行修改,在這里是為了簡(jiǎ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 + 的軟件,如果您覺得滿意的話,請(qǐng)注冊(cè)或購買正版軟件!; Applicatio
23、n.MessageBox(PChar(Msg), 建議, Mb_Ok + Mb_IconInformation); if T > FMaxTimes then begin if Application.MessageBox( 是否注冊(cè)?, 注冊(cè), Mb_YesNo + M
24、b_IconQuestion) = Id_Yes then begin Msg := 您的注冊(cè)號(hào)是:“ + FSerial + ” + Chr(13) + Chr(10) + 請(qǐng)您將以上序列號(hào)通過電子郵件寄給以下信箱: +
25、 FEmail; Application.MessageBox(PChar(Msg), 軟件 注冊(cè), Mb_Ok + Mb_Iconinformation); end; Application.Terminate; end; end; end; end.
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 《信息產(chǎn)業(yè)》課件
- 證券結(jié)構(gòu)化產(chǎn)品協(xié)議三篇
- 《球墨鑄鐵直埋熱水管道技術(shù)規(guī)程》公示稿
- 校園美術(shù)作品長(zhǎng)廊建設(shè)規(guī)劃計(jì)劃
- 典當(dāng)服務(wù)相關(guān)行業(yè)投資規(guī)劃報(bào)告范本
- 工具臺(tái)車相關(guān)項(xiàng)目投資計(jì)劃書
- 情感教育與道德認(rèn)知的結(jié)合計(jì)劃
- 增強(qiáng)幼兒園團(tuán)隊(duì)建設(shè)的策略計(jì)劃
- 青少年犯罪預(yù)防的保安策略計(jì)劃
- 理財(cái)規(guī)劃師課件(綜合案例分析)
- 正癸烷-理化性質(zhì)及危險(xiǎn)特性表
- 《國(guó)際經(jīng)濟(jì)法》案例思考題
- 信息經(jīng)濟(jì)學(xué)與博弈論明確重點(diǎn)
- (完整word版)首件檢驗(yàn)管理制度
- 線路工程灌注樁施工作業(yè)指導(dǎo)書施工方案
- 重力壩的分縫與止水
- 三重管高壓旋噴樁施工工藝規(guī)程與施工方案
- 個(gè)體診所藥品清單
- PFMEA的嚴(yán)重度SOD的評(píng)分和優(yōu)先級(jí)別
- 國(guó)網(wǎng)基建國(guó)家電網(wǎng)公司輸變電工程結(jié)算管理辦法
- 中國(guó)地圖含省份信息可編輯矢量圖
評(píng)論
0/150
提交評(píng)論