求delphi生成注册码的程序

求delphi生成注册码的程序 楼主godblessu(上帝保佑)2004-01-14 15:49:14 在 Delphi / VCL组件开发及应用 提问 作了个小软件，向加进注册码。特向高手讨一个能加进注册码的程序。 请发到我的信箱 godblessu@yeah.net 谢谢 问题点数:100、回复次数:12Top 1 楼sixgj(轰炸机)回复于 2004-01-14 15:55:08 得分 20 一、概述 软件作为一种人类智力劳动成果的一种现形式，融会了者和开发者辛勤的劳动和汗水，然而，由于用户观念上的差异和盗版软件的泛滥，软件开发者的权益往往得不到有效的保护，因此，作为必要的手段-----软件的自身保护也就在特定的环境下被重视起来。 然而，正所谓，“魔高一尺，道高一丈”，保护和破解的矛盾关系在始终持续着，要想找到一种万能的保护方法，却也不是那么简单的事。但是，如果开发者使用的保护手段连一般用户都能破解的话(如:修改系统日期)，这样的保护则显然达不到保护软件版权的目的。 基于此，笔者利用Delphi5.0面向对象的特性，设计开发了一个实用的版权保护控件，以为程序开发者提供一种简易的软件保护手段。 二、实现方法 1(在Delphi5.0中新建一个单元文件，写代码如下，保存: unit RegObj; interface uses Windows, Messages, SysUtils, Classes, Forms; type TRegObj = class private FSerial: string; //主板序列号 FKey: string; //密码 FMaxTimes: Integer; //最大运行次数 FCompany: string; //公司名称 FEmail: string; //联系用的电子邮件 protected procedure SetSerial; //取得主扳的序列号 procedure GetKey; //从用户序列号文件中读取序列号 function GetTimes: Integer; //从文件中读取程序的运行次数 function CheckKey: Boolean; //检查序列号和密码是否匹配的函数 public constructor Create; function Execute: Boolean; //运行对象方法 published property Company: string read FCompany write FCompany; property MaxTimes: Integer read FMaxTimes write FMaxTimes; property Email: string read FEmail write FEmail; end; implementation //TRegObj. constructor TRegObj.Create; begin inherited; end; function TRegObj.GetTimes: Integer; Const //用于存储运行次数的文件,开发人员可自定义或使用注册表存储运行次数 //起此名字用于迷惑破解者，使用前不要和系统的动态链接库同名 Tmp = ’ispnet.dll’; var Ch: Char; Dir: array [0..255] of Char; Fn: string; I : Integer; List: Tstrings; begin //取得Windows系统的目录 GetSystemDirectory(@Dir, 255); For I := 0 to 255 do begin if Ord(Dir[I]) = 0 then Break; Fn := Fn + Dir[I]; end; Fn := Fn + ’\’ + Tmp; try List := TStringList.Create; if Not FileExists(Fn) then Ch := Chr(1) else begin List.LoadFromFile(Fn); Ch := List.Text[1]; Ch := Chr(Ord(Ch) + 1); end; List.Text := Ch; //存储运行次数 List.SaveToFile(Fn); Result := Ord(Ch); finally List.Free; end; end; procedure TRegObj.SetSerial; begin //取得主板的序列号 FSerial := String(Pchar(Ptr($FEC71))); end; //取得密码 procedure TRegObj.GetKey; const Sn = ’Key.dat’; var List: TStrings; Fn, Path: string; begin Path := ExtractFilePath(Application.ExeName); Fn := Path + Sn; if Not FileExists(Fn) then begin FKey := ’’; Exit; end; try List := TStringList.Create; List.LoadFromFile(Fn); FKey := List.Values[’Key’]; finally List.Free; end; end; function TRegObj.CheckKey: Boolean; begin //开发人员根据自己的需要进行修改,在这里是为了简单起见 Result := FKey = FSerial; end; function TRegObj.Execute: Boolean; var Msg: string; T: Integer; begin T := GetTimes; GetKey; SetSerial; if FKey <> FSerial then begin Msg := ’ 您这是第’ + IntToStr(T) + ’次运行此程序(最大次 数:’ + IntToStr(FMaxTimes) + ’)～’; Application.MessageBox(PChar(Msg), ’用户信息’, Mb_Ok + Mb_IconWarning); Msg := ’欢迎使用’ + Company + ’的软件,如果您觉得满意的话,请注册或购买正版软件～’; Application.MessageBox(PChar(Msg), ’建议’, Mb_Ok + Mb_IconInformation); if T > FMaxTimes then begin if Application.MessageBox(’ 是否注册,’, ’注册’, Mb_YesNo + Mb_IconQuestion) = Id_Yes then begin Msg := ’您的注册号是:“’ + FSerial + ’”’ + Chr(13) + Chr(10) + ’请您将以上序列号通过电子邮件寄给以下信箱:’ + FEmail; Application.MessageBox(PChar(Msg), ’软件 注册’, Mb_Ok + Mb_Iconinformation); end; Application.Terminate; end; end; end; end. 2(控件的使用 在Delphi5.0中新建一个应用程序，在程序的引用单元中加入上述单元的引用，在主窗体的OnCreate事件中编写如下代码: procedure TForm1.FormCreate(Sender: TObject); var AObj: TRegObj; begin try AObj := TRegObj.Create; AObj.MaxTimes := 30; AObj.Company := ’吉星软件工作室’; AObj.Email := ’test@1112.net’; AObj.Execute; finally AObj.Free; end; end; 三、结束语 上述控件通过取得用户计算机的主板序列号作为注册码，通过文件存储程序运行次数和密钥，防止了同样的注册码和密钥在不同的计算机上都可以使用的问题，而且，用户通过简单的日期修改无法使程序继续，基本达到了软件版权保护的目的。