关于编写注册程序的问题!

moleboy 2003-07-26 05:44:10
我想通过读取硬盘出厂序列号来作为软件的认证!
但是我发现新出的硬盘,用原来的老方法是读不出来的!
所以我现在又用读c:\逻辑序列号了!所以我也必须每次用户重装系统都要重新给他们注册码!
请问有神么方法:
可以使我得软件这个版本的序列号是永久的,不管用户是否格了硬盘!
并且产生的序列号是唯一的!(就是到其他机器就不一样了!)
最好给个源代码!谢谢!
...全文
30 17 打赏 收藏 转发到动态 举报
写回复
用AI写文章
17 条回复
切换为时间正序
请发表友善的回复…
发表回复
水哥驿站 2003-07-31
  • 打赏
  • 举报
回复
关注
cy_nwau 2003-07-28
  • 打赏
  • 举报
回复
mark
since1990 2003-07-27
  • 打赏
  • 举报
回复
up
apple_001 2003-07-27
  • 打赏
  • 举报
回复
也给俺一个applecut@163.com
diyee 2003-07-27
  • 打赏
  • 举报
回复
diyee@sina.com
我也想看看。

在vb里嵌入汇编
牛是牛。
也能看懂代码,但不知道为什么这么写。
知其然,而不知其所以然,头疼。
gang75 2003-07-27
  • 打赏
  • 举报
回复
up
LCAAA 2003-07-27
  • 打赏
  • 举报
回复
我给大家发过去了
大家看看可以吗
不行的话,再想别的方法。
since1990 2003-07-26
  • 打赏
  • 举报
回复
相关文章:

http://expert.csdn.net/Expert/topic/2048/2048806.xml?temp=.5135919

http://expert.csdn.net/Expert/topic/1916/1916649.xml?temp=.468075

http://expert.csdn.net/Expert/topic/2018/2018875.xml?temp=.1221277

http://expert.csdn.net/Expert/topic/1928/1928355.xml?temp=.4679834

http://expert.csdn.net/Expert/topic/1969/1969640.xml?temp=.4452631

http://expert.csdn.net/Expert/topic/1965/1965465.xml?temp=.8609735

http://expert.csdn.net/Expert/topic/1986/1986490.xml?temp=.1621973

http://expert.csdn.net/Expert/topic/2018/2018875.xml?temp=.1221277

http://expert.csdn.net/Expert/topic/2006/2006658.xml?temp=.5361292

http://expert.csdn.net/Expert/topic/2005/2005358.xml?temp=.1952021

http://expert.csdn.net/Expert/topic/2048/2048806.xml?temp=.5135919
since1990 2003-07-26
  • 打赏
  • 举报
回复
来教你如何在vb里嵌入汇编!


作者: wl3000wl 

本贴绝对值得你珍藏.

下面的例子完全用VB进行ASM编程的示例,本例获得CPU ID.


工程文件分为一个form1.frm 和一个模块module1.bas

----------------------form1.frm的源文件---------------------

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 1965
ClientLeft = 60
ClientTop = 345
ClientWidth = 3105
LinkTopic = "Form1"
ScaleHeight = 1965
ScaleWidth = 3105
StartUpPosition = 2 'Bildschirmmitte
Begin VB.CommandButton Command1
Caption = "Get CPU Name"
Height = 495
Left = 840
TabIndex = 0
Top = 315
Width = 1425
End
Begin VB.Label Label2
Alignment = 2 'Zentriert
AutoSize = -1 'True
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1515
TabIndex = 2
Top = 1065
Width = 60
End
Begin VB.Label Label1
Alignment = 2 'Zentriert
AutoSize = -1 'True
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1515
TabIndex = 1
Top = 1350
Width = 75
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)

Label1 = ""
Label2 = ""

End Sub

Private Sub Command1_Click()

Label1 = GetCpuName() & " CPU"
Label2 = "You have a" & IIf(InStr("AEIOU", Left$(Label1, 1)), "n", "")

End Sub
------------------------------end---------------------------------





下面是modu1e.bas的源代码

----------------------module1.bas的源文件--------------------------
Option Explicit
'
'This shows how to incorporate machine code into VB
'''''''''''''''''''''''''''''''''''''''''''''''''''
'The example fills the array with a few machine instructions and then copies
'them to a procedure address. The modified procedure is then called thru
'CallWindowProc. The result of this specific machine code is your CPU Vendor Name.
'
'##########################################################################
'Apparently it gets a Stack Pointer Error, but I don't know why; if anybody
'can fix that please let me know... UMGEDV@AOL.COM
'The Error is not present in the native compiled version; so I think it got
'something to do with the P-Code Calling Convention (strange though)...
'##########################################################################
'
'Sub Dummy serves to reserve some space to copy the machine instructions into.
'
'
'Tested on Intel and AMD CPU's (uncompiled and compiled)
'
'
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
Private x As Long

Public Function GetCpuName() As String

Dim MachineCode(0 To 35) As Byte
Dim VarAddr As Long
Dim FunctAddr As Long
Dim EAX As Long
Dim CPUName(1 To 12) As Byte

'set up machine code

MachineCode(0) = &H55 'push ebp

MachineCode(1) = &H8B 'move ebp,esp
MachineCode(2) = &HEC

MachineCode(3) = &H57 'push edi

MachineCode(4) = &H52 'push edx

MachineCode(5) = &H51 'push ecx

MachineCode(6) = &H53 'push ebx

MachineCode(7) = &H8B 'move eax,dword ptr [ebp+8]
MachineCode(8) = &H45
MachineCode(9) = &H8

MachineCode(10) = &HF 'cpuid
MachineCode(11) = &HA2

MachineCode(12) = &H8B 'mov edi,dword ptr [ebp+12]
MachineCode(13) = &H7D
MachineCode(14) = &HC

MachineCode(15) = &H89 'move dword ptr [edi],ebx
MachineCode(16) = &H1F

MachineCode(17) = &H8B 'mov edi,dword ptr [ebp+16]
MachineCode(18) = &H7D
MachineCode(19) = &H10

MachineCode(20) = &H89 'move dword ptr [edi],ecx
MachineCode(21) = &HF

MachineCode(22) = &H8B 'mov edi,dword ptr [ebp+20]
MachineCode(23) = &H7D
MachineCode(24) = &H14

MachineCode(25) = &H89 'move dword ptr [edi],edx
MachineCode(26) = &H17

MachineCode(27) = &H58 'pop ebx

MachineCode(28) = &H59 'pop ecx

MachineCode(29) = &H5A 'pop edx

MachineCode(30) = &H55 'pop edi

MachineCode(31) = &HC9 'leave

MachineCode(32) = &HC2 'ret 16 I tried everything from 0 to 24
MachineCode(33) = &H10 ' but all produce the stack error
MachineCode(34) = &H0

'tell cpuid what we want
EAX = 0

'get address of Machine Code
VarAddr = VarPtr(MachineCode(0))

'get address of Sub Dummy
FunctAddr = GetAddress(AddressOf Dummy)

'copy the Machine Code to where it can be called
CopyMemory ByVal FunctAddr, ByVal VarAddr, 35 '35 bytes machine code

'call it
On Error Resume Next 'apparently it gets a stack pointer error when in P-Code but i dont know why
CallWindowProc FunctAddr, EAX, VarPtr(CPUName(1)), VarPtr(CPUName(9)), VarPtr(CPUName(5))
'Debug.Print Err; Err.Description
'MsgBox Err & Err.Description
On Error GoTo 0

GetCpuName = StrConv(CPUName(), vbUnicode) 'UnicodeName

End Function

Private Function GetAddress(Address As Long) As Long

GetAddress = Address

End Function

Private Sub Dummy()

'the code below just reserves some space to copy the machine code into
'it is never executed

x = 0
x = 1
x = 2
x = 3
x = 4
x = 5
x = 6
x = 7
x = 8
x = 9
x = 10
x = 0
x = 1
x = 2
x = 3
x = 4
x = 5
x = 6
x = 7
x = 8
x = 9
x = 10

End Sub
------------------------------end--------------------------------------

since1990 2003-07-26
  • 打赏
  • 举报
回复
读取cpu的id号
amongwang 2003-07-26
  • 打赏
  • 举报
回复
这么好的东东,能给我一个吗?先写谢了!
wang.xiaobin@163.com
xiaoyi82 2003-07-26
  • 打赏
  • 举报
回复
to LCAAA(小小程序员)
我也想学习一下
1982xiaoyi@163.com


顶!!
WAWQ 2003-07-26
  • 打赏
  • 举报
回复

LCAAA(小小程序员) ,moleboy (薄荷糖)

两位好 !


俺也需要这个咚咚,能给俺一个么? 万分感谢

QQ : 176996427
xingsoft 2003-07-26
  • 打赏
  • 举报
回复
UP
moleboy 2003-07-26
  • 打赏
  • 举报
回复
ding
moleboy 2003-07-26
  • 打赏
  • 举报
回复
moleboy@263.net
LCAAA 2003-07-26
  • 打赏
  • 举报
回复
你的邮箱我发个程序给你

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧