开发工具:
文件大小: 3mb
下载次数: 0
上传时间: 2014-11-14
详细说明： 2009 05 04 OnGuard使用小记 1 变量定义 Delphi代码 const CKey : TKey $A7 $33 $6B $BF $C8 $28 $86 $D2 $72 $EE $D8 $36 $28 $69 $FC $9B ; var MachineKey : TKey; MachineModifier : LongInt; const CKey : TKey $A7 $33 $6B $BF $C8 $28 $86 $D2 $72 $EE $D8 $36 $28 $69 $FC $9B ; var MachineKey : TKey; MachineModifier : LongInt; 2 initialization部分做初始运算 Delphi代码 MachineKey : CKey; 这里是一个random机器码 MachineModifier : ABS CreateMachineID [midUser midSystem {midNetwork } midDrives] ; 这里通过登陆用户名 操作系统 硬盘序列号 创建一个修饰符 用于对机器码修饰 ApplyModifierToKeyPrim MachineModifier MachineKey SizeOf MachineKey ; 这里就是用上一步生成的修饰符对机器码做进一步的运算 生成一个最终的机器码 仍然保存在MachineKey中 MachineKey : CKey; 这里是一个random机器码 MachineModifier : ABS CreateMachineID [midUser midSystem {midNetwork } midDrives] ; 这里通过登陆用户名 操作系统 硬盘序列号 创建一个修饰符 用于对机器码修饰 ApplyModifierToKeyPrim MachineModifier MachineKey SizeOf MachineKey ; 这里就是用上一步生成的修饰符对机器码做进一步的运算 生成一个最终的机器码 仍然保存在MachineKey中 3 计算注册码 Delphi代码 var AMachineKey:string; ACode : TCode ; ARelaseCode:string; begin AMachineKey: BufferToHex MachineKey SizeOf MachineKey ; 这里将机器码转为字符串 InitSerialNumberCode MachineKey 1122334455 0 ACode ; 这里用机器码MachineKey对序列号1122334455进行加密 注意这个1122334455是你要发给软件使用人的序列号 可以是任意一个整形数 将来要用这个来注册软件的 得到一个最终的注册码 ARelaseCode : BufferToHex ACode SizeOf ACode ; 最终的注册码转为字符串 将来软件注册时就要对比用户填写的注册码是否与这个注册码相符 相符就说明注册成功 如果不成功 就是注册失败 end; var AMachineKey:string; ACode : TCode ; ARelaseCode:string; begin AMachineKey: BufferToHex MachineKey SizeOf MachineKey ; 这里将机器码转为字符串 InitSerialNumberCode MachineKey 1122334455 0 ACode ; 这里用机器码MachineKey对序列号1122334455进行加密 注意这个1122334455是你要发给软件使用人的序列号 可以是任意一个整形数 将来要用这个来注册软件的 得到一个最终的注册码 ARelaseCode : BufferToHex ACode SizeOf ACode ; 最终的注册码转为字符串 将来软件注册时就要对比用户填写的注册码是否与这个注册码相符 相符就说明注册成功 如果不成功 就是注册失败 end; 4 如果注册成功的话 就要把这个注册码和序列号保存起来 我选用注册表保存： Delphi代码 with TRegIniFile Create do try RootKey : HKEY LOCAL MACHINE ; OpenKey "SOFTWARE PRLSOFT" True ; WriteString "RegInfo" "SMS SnRegCode" RelaseCode ; WriteInteger "RegInfo" "SMS SerialNumber" 1122334455 ; finally Free; end; with TRegIniFile Create do try RootKey : HKEY LOCAL MACHINE ; OpenKey "SOFTWARE PRLSOFT" True ; WriteString "RegInfo" "SMS SnRegCode" RelaseCode ; WriteInteger "RegInfo" "SMS SerialNumber" 1122334455 ; finally Free; end; 5 在我们的软件中 就要从注册表中读取出这个注册码 然后与计算出来的注册码做对比 如果相等 就说明软件已经注册 如果失败 就说明软件未注册 我们可以做一些限制 Delphi代码 const CKey : TKey $A7 $33 $6B $BF $C8 $28 $86 $D2 $72 $EE $D8 $36 $28 $69 $FC $9B ; var MachineKey : TKey; MachineModifier : LongInt; AMachineKey:string; ACode : TCode ; ARelaseCode:string; AMyRelaseCode:string; ASerialNumber:Integer; {$R res} begin MachineKey : CKey; 这里是一个random机器码 MachineModifier : ABS CreateMachineID [midUser midSystem {midNetwork } midDrives] ; 这里通过登陆用户名 操作系统 硬盘序列号 创建一个修饰符 用于对机器码修饰 ApplyModifierToKeyPrim MachineModifier MachineKey SizeOf MachineKey ; 这里就是用上一步生成的修饰符对机器码做进一步的运算 生成一个最终的机器码 仍然保存在MachineKey中 with TRegIniFile Create do try RootKey : HKEY LOCAL MACHINE ; OpenKey "SOFTWARE PRLSOFT" False ; AMyRelaseCode : ReadString "RegInfo" "SMS SnRegCode" "" ; ASerialNumber : ReadInteger "RegInfo" "SMS SerialNumber" 0 ; finally Free; end; MachineKey : CKey; MachineModifier : ABS CreateMachineID [midUser midSystem {midNetwork } midDrives] ; ApplyModifierToKeyPrim MachineModifier MachineKey SizeOf MachineKey ; AMachineKey: BufferToHex MachineKey SizeOf MachineKey ; InitSerialNumberCode MachineKey ASerialNumber 0 ACode ; ARelaseCode : BufferToHex ACode SizeOf ACode ; if ARelaseCode AMyRelaseCode then 已经注册成功 ShowMessage "已经注册成功" else begin 未注册 ShowMessage "未注册" ; Exit; end ; Application Initialize; Application MainFormOnTaskbar : True; Application Title : "无线助理标准版"; Application CreateForm TDM DM ; Application Run; end ">2009 05 04 OnGuard使用小记 1 变量定义 Delphi代码 const CKey : TKey $A7 $33 $6B $BF $C8 $28 $86 $D2 $72 $EE $D8 $36 $28 $69 $FC $9B ; var MachineKey : TKey; MachineModifier : LongInt; const CKey : TKey $A7 $33 $6B $BF $C8 $28 $86 $D2 $72 $EE $D [更多] ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
