论坛风格切换切换到宽版
发帖 回复
返回列表
1234567
  • 38201阅读
  • 65回复

用 Inno 制作需要输入注册码（与机器码相关）的安装 [复制链接]

 上一主题 下一主题
离线libaiping
中级用户

发帖
169
金钱
810
威望
81
只看该作者 50 发表于: 2010-12-08
虎兄，发现这个代码有个问题比较棘手

对台式机起作用，对笔记本不起作用，计算出的注册码在所有台式机上都可以正常进行下一步安装
但是在笔记本上怎么弄注册码都不正确，都无法进行下一步，几台笔记本测试了结果一样……
回复
举报
离线gnatix
高级用户

发帖
7696
金钱
-8279
威望
-828
只看该作者 51 发表于: 2010-12-09
不会吧，我自己就是用的笔记本啊。代码明摆在，没有地方是区分台式电脑和笔记本的。
你提供一个机器码来看看。或者你用这个算号器试试看。
[ 此帖被gnatix在2010-12-13 23:39重新编辑 ]
附件: 注册码算号器.rar (268 K) 下载次数:43
回复
举报
离线libaiping
中级用户

发帖
169
金钱
810
威望
81
只看该作者 52 发表于: 2011-10-16
虎兄，能否告诉你这个注册码算号器如何制作出来的？
这个太好用了，但是只能用你提供的这个参数，修改了里面的参数后，这个算号器就不能用了

感激不尽！
回复
举报
离线langhudaan
高级用户

发帖
234
金钱
2350
威望
235
只看该作者 53 发表于: 2011-10-16
学习了!
回复
举报
离线gnatix
高级用户

发帖
7696
金钱
-8279
威望
-828
只看该作者 54 发表于: 2011-10-16
回 52楼(libaiping) 的帖子
复制代码
  1. [Setup]
  2. AppName=注册码算号器
  3. AppVerName=My Program version 1.5
  4. CreateAppDir=no
  5. DisableProgramGroupPage=yes
  6. DefaultGroupName=My Program
  7. UserInfoPage=true
  8. OutputBaseFilename=注册码算号器
  10. [MESSAGES]
  11. UserInfoName=机器码:
  12. UserInfoOrg=硬件序号:
  13. UserInfoSerial=注册码:
  14. WizardUserInfo=注册码算号器
  15. UserInfoDesc=请输入机器码。程序将自动计算出相应的硬件序号和注册码。
  17. [Messages]
  18. BeveledLabel=汉化新世纪 http://www.hanzify.org
  19. SetupAppTitle=注册码算号器
  20. SetupWindowTitle=注册码算号器
  22. [Code]
  23. var HDSN: LongInt;
  25. function getSerialCode(HDSN: LongInt): string;
  26. var MID,tmp1,tmp2: string;
  27. SN: LongInt;
  28. begin
  29. // 生成注册码
  30. SaveStringToFile('E:\1122.txt', 'HDSN: '+ IntToStr(HDSN)+#13#10, true);
  31. if HDSN > 432109876 then
  32. SN:= HDSN-432109876
  33. else
  34. SN:= 432109876-HDSN;
  35. SaveStringToFile('E:\1122.txt', 'SN: '+ IntToStr(SN)+#13#10, true);
  36. MID:='';
  37. tmp1:= IntToStr(SN);
  38. while length(tmp1)>3 do
  39. begin
  40. tmp2:= copy(tmp1,1,3);
  41. delete(tmp1,1,3);
  42. MID:= MID+Chr(65+StrToInt(tmp2)*26/999)+tmp2;
  43. end;
  44. MID:= MID+Chr(65+StrToInt(tmp1)*26/999)+tmp1;
  45. SaveStringToFile('E:\1122.txt', 'SC: '+ MID+#13#10, true);
  46. tmp1:= MID;
  47. MID:= '';
  48. while length(tmp1)>3 do
  49. begin
  50. tmp2:= copy(tmp1,1,3);
  51. delete(tmp1,1,3);
  52. MID:= MID+tmp2+'-';
  53. end;
  54. MID:= MID+tmp1;
  55. SaveStringToFile('E:\1122.txt', 'SC: '+ MID+#13#10, true);
  56. If HDSN > 432109876 then
  57. MID:='3P6-'+MID
  58. else
  59. MID:='X5B-'+MID;
  60. result:= MID;
  61. SaveStringToFile('E:\1122.txt', 'SC: '+ MID+#13#10, true);
  62. end;
  64. function getregcode(MID: string): string;
  65. var SN,tmp1,tmp2: string;
  66. numSN: LongInt;
  67. begin
  68. // 注册码
  69. SaveStringToFile('E:\1122.txt', 'MID: '+ MID+#13#10, false);
  70. tmp1 := MID;
  71. delete(tmp1,1,4);
  72. SN:= '';
  73. while length(tmp1)>4 do
  74. begin
  75. tmp2:= copy(tmp1,1,3);
  76. delete(tmp1,1,4);
  77. SN:= SN+tmp2;
  78. end;
  79. if tmp1 > '' then
  80. SN:= SN+tmp1;
  81. SaveStringToFile('E:\1122.txt', 'SN: '+ SN +#13#10, true);
  82. tmp1:= SN;
  83. SN:= '';
  84. while length(tmp1)>4 do
  85. begin
  86. tmp2:= copy(tmp1,2,3);
  87. delete(tmp1,1,4);
  88. SN:= SN+tmp2;
  89. end;
  90. if tmp1 > '' then
  91. begin
  92. delete(tmp1,1,1);
  93. SN:= SN+tmp1;
  94. end;
  95. SaveStringToFile('E:\1122.txt', 'SN: '+ SN +#13#10, true);
  96. numSN := StrToIntDef(SN, 0);
  97. If StrGet(MID,1) = '6' then
  98. numSN := numSN + 567890123
  99. else
  100. numSN:= 567890123 - numSN;
  101. //
  102. HDSN:= numSN;
  103. SaveStringToFile('E:\1122.txt', 'HDSN: '+ IntToStr(numSN)+#13#10, true);
  104. result:= getSerialCode(numSN);
  105. SaveStringToFile('E:\1122.txt', 'RegCode: '+ result +#13#10, true);
  106. end;
  108. procedure InitializeWizard();
  109. var
  110. yn: Integer;
  111. begin
  112. yn := WizardForm.UserInfoNameEdit.Top;
  113. WizardForm.UserInfoNameEdit.Top := WizardForm.UserInfoSerialEdit.Top;
  114. WizardForm.UserInfoSerialEdit.Top := yn;
  115. WizardForm.UserInfoNameEdit.ReadOnly:= true;
  116. WizardForm.UserInfoOrgEdit.ReadOnly:= true;
  117. WizardForm.UserInfoNameEdit.Text:= '';
  118. WizardForm.UserInfoOrgEdit.Text:= '';
  119. WizardForm.UserInfoSerialEdit.Text:= '<请输入机器码>';
  120. WizardForm.UserInfoSerialEdit.TabOrder:= 0;
  121. end;
  123. procedure CurPageChanged(CurPageID : Integer);
  124. begin
  125. if CurPageID = wpWelcome then WizardForm.NextButton.Click;
  126. end;
  128. procedure CancelButtonClick(CurPageID : Integer; var Cancel, Confirm: Boolean);
  129. begin
  130. Confirm := false;
  131. end;
  133. function CheckSerial(Serial: string): Boolean;
  134. begin
  135. result:= false;
  136. if (Copy(Serial,1,3)= 'V94') or (Copy(Serial,1,3)= '6J7') then
  137. begin
  138. WizardForm.USERINFONAMEEDIT.text := GetRegCode(Serial);
  139. WizardForm.USERINFOORGEDIT.text := IntToStr(HDSN);
  140. end
  141. else
  142. begin
  143. WizardForm.USERINFONAMEEDIT.text := '-';
  144. WizardForm.USERINFOORGEDIT.text := '-';
  145. end;
  146. end;
回复
举报
离线libaiping
中级用户

发帖
169
金钱
810
威望
81
只看该作者 55 发表于: 2011-10-16
谢谢虎兄，请问这个是在哪个版本的软件下运行这些代码？
Inno 5.2.3、IStool5.2.1版本下运行出错

第126行出错

if CurPageID = wpWelcome then WizardForm.NextButton.Click;

我删除了“.Click”后可以运行了……
回复
举报
离线gnatix
高级用户

发帖
7696
金钱
-8279
威望
-828
只看该作者 56 发表于: 2011-10-16
那个只是为了跳过欢迎页面，你可以用其它方式跳过。

if CurPageID = wpWelcome then WizardForm.NextButton.Click;
估计要用阿信的增强版才能编译。
回复
举报
离线libaiping
中级用户

发帖
169
金钱
810
威望
81
只看该作者 57 发表于: 2011-10-16
哦，好的，十分感激虎兄，真是帮我大忙了！
回复
举报
离线libaiping
中级用户

发帖
169
金钱
810
威望
81
只看该作者 58 发表于: 2011-10-17
虎兄又遇到一个问题，请问这里面的数字修改时允许在一个什么范围内修改？

我修改了数字后，有些电脑可以，有的电脑不可以
回复
举报
离线gnatix
高级用户

发帖
7696
金钱
-8279
威望
-828
只看该作者 59 发表于: 2011-10-17
代码只是一个示例而已。你自己当然可以随便修改。

再次提醒：本代码的保护功能是很弱的，注册码很容易被读出。
回复
举报
发帖 回复
返回列表
1234567