如何获得硬盘的8位SN号码 和 SN与 xxxx-xxxx-xxxx-xxxx-xxxx有啥关系?

[wwh999]

1.如何获取硬盘的8位SN(如:5QM0TYLV 可从硬盘外壳和优化大师上看出)，如何得出这个东东?
使用以下代码用WMI是得到的却是这么一个号:1275747876 ，不明白啥意思? 如何得到 5QM0TYLV 呢?

Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
        Dim Uint32 As UInt32
        For Each cmicWmiObj As ManagementObject In cmicWmi.Get
            Uint32 = cmicWmiObj("signature")
        Next
        TextBox1.Text = Uint32.ToString

2.看了很多共享软件的机器码（绑定硬盘的），生成的全是 xxxx-xxxx-xxxx-xxxx-xxxx这样的机器码（len(xxxx)=4 or 5)，它是与硬盘的8位SN有啥关系，怎么生成的?


想尝试做一个机器码生成，水平不够，请教，谢谢。

[wuyq11]

获取硬盘序列号
再加密，生成用户号
GUID
http://topic.csdn.net/u/20091110/00/5c9c33e4-0b0f-4fb9-9e3a-ae46655bf774.html

[wwh999]

wuyq11，谢谢。我去看一看。

[yanlongwuhui]

硬盘的SN长度不固定，不同厂家不一样

[悔说话的哑巴]

楼主你的头像太邪恶了

[悔说话的哑巴]

http://topic.csdn.net/t/20040802/16/3234950.html
楼主以前的有人问的，你可以参考一下

[wwh999]

问题1:如何获取硬盘的8位SN 已解决。参考了楼上2位的链接。谢谢。
'''

问题2:
2.看了很多共享软件的机器码（绑定硬盘的），生成的全是 xxxx-xxxx-xxxx-xxxx-xxxx这样的机器码（len(xxxx)=4 or 5)，它是与硬盘的8位SN有啥关系，怎么生成的?

继续请教。

[永生天地]

[Quote=引用 6 楼 wwh999 的回复:]
问题1:如何获取硬盘的8位SN 已解决。参考了楼上2位的链接。谢谢。
'''

问题2:
2.看了很多共享软件的机器码（绑定硬盘的），生成的全是 xxxx-xxxx-xxxx-xxxx-xxxx这样的机器码（len(xxxx)=4 or 5)，它是与硬盘的8位SN有啥关系，怎么生成的?

继续请教。
[/Quote]
问题2:是通过硬盘序列号 + 网卡MAC进行一系列的复杂 计算所得

[wwh999]

[Quote=引用 7 楼 xys_777 的回复:]

引用 6 楼 wwh999 的回复:
问题1:如何获取硬盘的8位SN 已解决。参考了楼上2位的链接。谢谢。
'''

问题2:
2.看了很多共享软件的机器码（绑定硬盘的），生成的全是 xxxx-xxxx-xxxx-xxxx-xxxx这样的机器码（len(xxxx)=4 or 5)，它是与硬盘的8位SN有啥关系，怎么生成的?

继续请教。

问题2:是通过硬盘序列号 + 网卡MA……
[/Quote]

我这测了几个共享软件，他们是和硬盘相关的，我原以为：那个xxxx-xxxx-xxxx-xxxx-xxxx，是直接硬盘串号做的一个编码转换，不是这样是吧？

[足球中国]

序列号这东西。随便你怎么做了。

[wwh999]

楼上的头像：晕

[please_call_me_J]

楼主的头像是个男人身上的，我看出来啦。哈哈

[a854468521]

最近在学习汇编，序列号、注册码这东西对单机软件的保护很有限。

[贝隆]

看看这个：
http://download.csdn.net/source/1894321

[ddtkywg]

搞得我发帖就像为了骂人。

给你一份VB.NET取得硬盘序列号的代码，API操作，不要用WMI问题很多，一是用户是否开启服务让你用WMI，二是WMI取得的根本不是什么硬件序列号。

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Runtime.InteropServices

Public Class PhysicalDrive

'<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
' Friend Structure IDSECTOR
' Public wGenConfig As Int16
' Public wNumCyls As Int16
' Public wReserved As Int16
' Public wNumHeads As Int16
' Public wBytesPerTrack As Int16
' Public wBytesPerSector As Int16
' Public wSectorsPerTrack As Int16
' <MarshalAs(UnmanagedType.ByValArray, SizeConst:=3)> _
' Public wVendorUnique() As Int16
' <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=20)> _
' Public sSerialNumber As String
' Public wBufferType As Int16
' Public wBufferSize As Int16
' Public wECCSize As Int16
' <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=8)> _
' Public sFirmwareRev As String
' <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=40)> _
' Public sModelNumber As String
' Public wMoreVendorUnique As Int16
' Public wDoubleWordIO As Int16
' Public wCapabilities As Int16
' Public wReserved1 As Int16
' Public wPIOTiming As Int16
' Public wDMATiming As Int16
' Public wBS As Int16
' Public wNumCurrentCyls As Int16
' Public wNumCurrentHeads As Int16
' Public wNumCurrentSectorsPerTrack As Int16
' Public ulCurrentSectorCapacity As Int32
' Public wMultSectorStuff As Int16
' Public ulTotalAddressableSectors As Int32
' Public wSingleWordDMA As Int16
' Public wMultiWordDMA As Int16
' <MarshalAs(UnmanagedType.ByValArray, SizeConst:=128)> _
' Public bReserved() As Byte
'End Structure

<StructLayout(LayoutKind.Sequential)> _
Friend Structure DRIVERSTATUS
Public bDriverError As Byte
Public bIDEStatus As Byte
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=2)> _
Public bReserved() As Byte
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=2)> _
Public dwReserved() As Int32
End Structure

<StructLayout(LayoutKind.Sequential)> _
Friend Structure SENDCMDOUTPARAMS
Public cBufferSize As Int32
Public DriverStatus As DRIVERSTATUS
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=513)> _
Public bBuffer() As Byte
End Structure

'<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
' Friend Structure SRB_IO_CONTROL
' Public HeaderLength As Int32
' <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=8)> _
' Public Signature As String
' Public Timeout As Int32
' Public ControlCode As Int32
' Public ReturnCode As Int32
' Public Length As Int32
'End Structure

<StructLayout(LayoutKind.Sequential)> _
Friend Structure IDEREGS
Public bFeaturesReg As Byte
Public bSectorCountReg As Byte
Public bSectorNumberReg As Byte
Public bCylLowReg As Byte
Public bCylHighReg As Byte
Public bDriveHeadReg As Byte
Public bCommandReg As Byte
Public bReserved As Byte
End Structure

<StructLayout(LayoutKind.Sequential)> _
Friend Structure SENDCMDINPARAMS
Public cBufferSize As Int32
Public irDriveRegs As IDEREGS
Public bDriveNumber As Byte
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=3)> _
Public bReserved() As Byte
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=4)> _
Public dwReserved() As Int32
Public bBuffer As Byte
End Structure

<StructLayout(LayoutKind.Sequential)> _
Friend Structure GETVERSIONOUTPARAMS
Public bVersion As Byte
Public bRevision As Byte
Public bReserved As Byte
Public bIDEDeviceMap As Byte
Public fCapabilities As Int32
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=4)> _
Public dwReserved() As Int32
End Structure

<DllImport("kernel32.dll", SetLastError:=True)> _
Private Shared Function CloseHandle( _
ByVal hObject As Int32 _
) As Integer
End Function

<DllImport("kernel32.dll")> _
Private Overloads Shared Function DeviceIoControl( _
ByVal hDevice As Int32, _
ByVal dwIoControlCode As Int32, _
ByRef lpInBuffer As SENDCMDINPARAMS, _
ByVal nInBufferSize As Integer, _
ByRef lpOutBuffer As SENDCMDOUTPARAMS, _
ByVal nOutBufferSize As Integer, _
ByRef lpbytesReturned As Int32, _
ByVal lpOverlapped As Integer _
) As Integer
End Function

<DllImport("kernel32.dll")> _
Private Overloads Shared Function DeviceIoControl( _
ByVal hDevice As Int32, _
ByVal dwIoControlCode As Int32, _
ByVal lpInBuffer As Integer, _
ByVal nInBufferSize As Integer, _
ByRef lpOutBuffer As GETVERSIONOUTPARAMS, _
ByVal nOutBufferSize As Integer, _
ByRef lpbytesReturned As Int32, _
ByVal lpOverlapped As Integer _
) As Integer
End Function

<DllImport("kernel32.dll")> _
Private Shared Function CreateFile( _
ByVal lpFileName As String, _
ByVal dwDesiredAccess As Int32, _
ByVal dwShareMode As Int32, _
ByVal lpSecurityAttributes As Integer, _
ByVal dwCreationDisposition As Int32, _
ByVal dwFlagsAndAttributes As Int32, _
ByVal hTemplateFile As Integer _
) As Int32
End Function

Private Const GENERIC_READ As Int32 = &H80000000
Private Const GENERIC_WRITE As Int32 = &H40000000
Private Const FILE_SHARE_READ As Int32 = &H1
Private Const FILE_SHARE_WRITE As Int32 = &H2
Private Const OPEN_EXISTING As Int32 = 3
Private Const INVALID_HANDLE_VALUE As Int32 = &HFFFFFFFF
Private Const DFP_GET_VERSION As Int32 = &H74080
Private Const IDE_ATAPI_IDENTIFY As Integer = &HA1
Private Const IDE_ATA_IDENTIFY As Integer = &HEC
Private Const IDENTIFY_BUFFER_SIZE As Integer = 512
Private Const DFP_RECEIVE_DRIVE_DATA As Int32 = &H7C088

''' <summary>
''' 获取物理序列号
''' </summary>
''' <param name="id">系统硬盘序号,0-255</param>
Public Shared Function GetSerialNumber(ByVal id As Byte) As String
Dim os As OperatingSystem = Environment.OSVersion
If os.Platform <> PlatformID.Win32NT Then
Throw New NotSupportedException("仅支持2000/XP/2003")
End If
If os.Version.Major < 5 Then
Throw New NotSupportedException("仅支持2000/XP/2003")
End If
Dim mid As String = Read(id)
If mid = "" Then
Throw New NotSupportedException("未找到硬盘序列号")
End If
Return Read(id)
End Function

Private Shared Function Read(ByVal drive As Byte) As String


Dim driveName As String = String.Concat("\\.\PhysicalDrive", drive.ToString())
Dim device As Int32 = CreateFile( _
driveName, _
GENERIC_READ Or GENERIC_WRITE, _
FILE_SHARE_READ Or FILE_SHARE_WRITE, _
0, _
OPEN_EXISTING, _
0, _
0)

If device = INVALID_HANDLE_VALUE Then
Return ""
End If

Dim verPara As New GETVERSIONOUTPARAMS()
Dim bytRv As Int32 = 0

If DeviceIoControl( _
device, _
DFP_GET_VERSION, _
0, _
0, _
verPara, _
Marshal.SizeOf(verPara), _
bytRv, _
0 _
) <> 0 Then

If verPara.bIDEDeviceMap > 0 Then
Dim bIDCmd As Byte = CByte(IIf((verPara.bIDEDeviceMap >> drive And &H10) <> 0, IDE_ATAPI_IDENTIFY, IDE_ATA_IDENTIFY))

Dim scip As New SENDCMDINPARAMS()
Dim scop As New SENDCMDOUTPARAMS()

With scip
.cBufferSize = IDENTIFY_BUFFER_SIZE
.bDriveNumber = drive
With .irDriveRegs
.bFeaturesReg = 0
.bSectorCountReg = 1
.bCylLowReg = 0
.bCylHighReg = 0
.bDriveHeadReg = CByte((&HA0 Or ((drive And 1) << 4)))
.bCommandReg = bIDCmd
End With
End With

If DeviceIoControl(device, DFP_RECEIVE_DRIVE_DATA, scip, Marshal.SizeOf(scip), scop, Marshal.SizeOf(scop), bytRv, 0) <> 0 Then
Dim s As New StringBuilder()
Dim i As Integer
For i = 20 To 40 - 2 Step 2
s.Append(ChrW(scop.bBuffer((i + 1))))
s.Append(ChrW(scop.bBuffer(i)))
Next i

CloseHandle(device)

Return s.ToString().Trim()
End If
End If
End If

CloseHandle(device)

Return ""
End Function

End Class

测试代码

MsgBox(PhysicalDrive.GetSerialNumber(0))

[ddtkywg]

另，提示一下，做序列号有得时候硬盘没有，可以用其他的一些，显卡，BIOS都会有一些固化信息，很易取到，不过稍微动点手脚，比较易于理解不用写字节汇编的方法不知现在网上还有没，其实写字节代码也易做到，用C或者汇编编写然后HEX复制。再就是.NET提供了一些加密算法（Cryptography空间），可以用在这方面，最后输出的格式只是你的意愿了，当然便于用户对照输入是传统的用分隔符分割的主要原因。

罗嗦一堆，其实我是赚分发帖的，呵呵

[yanchenyu]

学习一下

[msdn165168]

谢谢！！！

[wwh999]

很久没有上网，sorry.
现在自己换了个用P/Invoke处理的方法，比较可靠。

TO：ddtkywg
你的回贴比较接近，来的比较晚了些，呵呵。
你的回贴的第一句话搞得我有点不知所措。

结贴。