軟件安裝注冊碼怎樣獲取?現有軟件加密基本都是采用各種硬件系列号作為加密依據，實現的是一機一碼制，在采用硬件系列号作為加密依據之前，先要了解下各種硬件系列号的情況這樣有利于選擇軟件加密依據，防止注冊碼可以在多台計算機上使用，現在小編就來說說關于軟件安裝注冊碼怎樣獲取?下面内容希望能幫助到你，我們來一起看看吧!

軟件安裝注冊碼怎樣獲取

現有軟件加密基本都是采用各種硬件系列号作為加密依據，實現的是一機一碼制，在采用硬件系列号作為加密依據之前，先要了解下各種硬件系列号的情況。這樣有利于選擇軟件加密依據，防止注冊碼可以在多台計算機上使用。

獲取硬盤系列号

硬盤系列号是生産廠家在硬盤出廠之前就寫入到硬盤中不可以修改的系列号，也就是所謂的出廠系列号或是物理系列号，該系列号一旦寫入就不可以進行修改，并且是唯一的，但有些硬盤廠家生産的硬盤沒有這個系列号，也就是說系列号為空。硬盤出廠系列号與硬盤分區卷的系列号的區别在于：卷的系列号可以修改，并且隻要一重新格式化，該系列号就會改變；而硬盤出廠系列号是不可修改的，格式化以後系列号不會被改變。

如果采用分區卷的系列号作為加密依據，其一，隻要購買一個注冊碼，其他的計算機隻要修改卷的系列号就可以成為軟件的正式用戶；其二，如果用戶重新格式化過分區，那麼就要重新給用戶發送新的系列号，因為沒有确切的證據，也不知道用戶是否真的格式化過分區還是使用另外的計算機的分區系列号來獲取注冊碼。所以為了避免出現一碼多機可用和引起不必要的麻煩，建議在實際加密過程中不要使用硬盤卷的分區系列号作為加密依據，而應該采用硬盤出廠系列号作為軟件的加密依據。

雖然不使用卷的系列号作為加密依據，但這裡也來看看怎麼獲取磁盤分區卷的系列号？其實很簡單，隻要調用 API函數 GetVolumeInformation 就可以得到磁盤分區卷的系列号。 API 函數 GetVolumelnformation 在 MSDN 中的函數原型如下:

BOOL GetVolumelnformation( LPCTSTR lpRootPathName, //指向文件系統根的路徑字符串 LPTSTR IpVolumeNameBuffer, //接收返回的卷名的緩沖區 DWORD nVolumeNameSize, //上述緩沖區的長度 LPDWORD pVolumeSerialNumber, //接收卷序列号的整數變量的地址 LPDWORD pMaimumComponenilength, //接收卷上最大文件路徑長度的整數變量的地址 LPDWORD IpFileSystemFlagx, 1/接收卷文件系統标志的整數變量的地址 LPTSTR ipFilSystemNameBufer, //接收返回的卷的文件系統名的緩沖區0 DWORD nFileSystemNameSsize //上述緩沖區的長度 ) 示例代碼如下: //獲取指定磁盤分區的卷系列号 function GetDiskvo1 (Driver:String): DWORD; var volumeSerialNumber : DWORD; MaximumComponentLength : DWORD; FileSystemFlags :DWORD; beqin if Driver length(Driver)] =':' then Driver :=Driver ‘\’ GetVolumeInformation(PChar (Driver), nil,0，@VolumeSerialNumber, MaximumComponentlength, FileSystemFlags, nil,0); Resul t:= (VolumeSeria1Number); end; procedure TForm1.Button1click(sender; Tobject); begin Label1.caption:-IntToHex(GetDiskVo1('c:V9),8); end;

獲取硬盤的出廠系列号還要考慮到硬盤的接口類型，在這裡隻介紹 IDE 接口的和 SCSI 接口的。首先看看要獲取硬盤系列号所需要的幾個 API 函數:

BOOL DeviceloControl( HANDLE hDevice, //設備句柄 DWORD dwloControlCode, //控制代碼 LPVOID IpInBufer, //指向包含操作所需的數據的緩沖區指針 DWORD nInBufferSize, //lpInBuffer 參數指向的緩沖區的大小 LPVOID IpOutBufer, //指向用來接收輸出數據的緩沖區 DWORD nOuBuferSize, //指向用來接收輸出數據的緩沖區 LPDWORD ipBytesRethurned //指向變量用于返回緩沖區數據的數量 LPOVERLAPPED IpOverlaped //指向 OVERLAPPED 結構 ); HANDLE CreateFile( LPCTSTR IpFileName, //指向文件名 DWORD dwDesiredAccess, //訪問模式(讀或寫) DWORD dwShareMode, //共享模式 LPSECURITY_ATTRIBUTES ipSecurityAttributes, //指向安全屬性 DWORD dwCreationDisposition, //如何創建文件 DWORD dwFlagsAndAtributes, //文件屬性 HANDLE hTemplateFile //文件模闆句柄

獲取硬盤出廠系列号的完整示例代碼如下: unit DiskserialUnit; interface uses Windows; SysUtils; function GetHddserial: string; implementation function GetIdeDiskserialNumber: String; type TSrbIoControl = packed record HeaderLength :ULONG; Signature Array[0..7] of Char; Timeout ULONG; Controlcode:ULONG; ReturnCode ULONG; Length :ULONG; end; SRB_IO_CONTROL = TSrbIoControl; PSrbIoControl =^TSrbIoControl; TIDERegs = packed record bFeaturesReg :Byte; bsectorCountReg :Byte; bsectorNumberReg : Byte; bcylLowReg :Byte; bcylHighReg :Byte; bDriveHeadReg :Byte; bcommandReg: Byte; bReserved:Byte; end; IDEREGS=TIDERegs; PIDEREGS=^TIDERegs; TsendcndInParams = packed record CBuffersize : DWORD; irDriveRegs:TIDERegs; bdriveNumber : Byte; bReserved:Arraylo..2] of byte; dwReserved:Array10..31 of DWORD; bBuffer : Array[0..0] of Byte end; SENDCMDINPARAMS= TSendCmdInParams; PSendCmdInParams=TSendCmdInParams; TIdSector = packed record wGenConfig :Word; wNumCyls : Word; wReserved :Word; wNumHeads :Word; wBytesPerTrack: Word; wBytesPerSector :Word; wSectorsPerTrack : Word; wVendorUnique :Array10..2] of word; sSerialNumber : Arraylo..19] of Char; WBufferType :Word; wBuffersize :Word; wEccsize :Word; sFirmwareRev :Array[0..7] of char; sMode1Number : Array[0..39] of Char; WMoreVendorUnique :Word; wDoublewordIo:Word; wcapabilities :Word; wReserved1 : Word; wPIOTiming:word; WDMATiming:word; wBS: Word1; WNumcurrentcyla:Word; wNumcurrentHeads:Word; wNumcurrentSectorsPerTrack:Word; ulCurrentSectorCapacity : ULONG; ulTotalAddressableSectors:ULONG: wSingleWordDMA:Word; sMultiWordDMA:Word; bReserved:Array[0..127] of byte; end; PIdsector = ^TIdSector; const IDEID_FUNCTION -=SECI IDENTIFY BUFFER SIZE =512; DFP RECEIVE DRIVE DATA =$0007c088: IOCTL SCSI MINIPORT =$0004d008; IOCTL SCSI MINIPORT_IDENTIFY =$001b0501; Datasito =sizeof(TSendomdInParams)-1 IDENTIFY BUFFER_SIZE; ButfferSize=Sizeof(SRB_IO_CONTROL) DataSize; W9xbuffersize=IOENTIFYBUFER_SIZE 16; var hDevice : THandler cbbytenReturned : DWORD; pInData: PSendCmdInParams; poutData : Pointer; // PSendCndInParama; Bufter : Array[0..Buffersize-1] of Byte; srbcontrol : Tsrblocontrol absolute buffers; procedure Changonyteorder( var patat size t Integer ) var ptr : PChar; i :Integer; c : Char; begin //判斷操作系統 //獲取SCSI接口句柄 end; function ScsiHddSerialNumber:String; {$ALIGN ON} Type end; begin end; function GetHddSerial:string var NumTry:Byte; FinalStr:String; begin NumTry := 1; Repeat Case NumTry of 1:FinalStr:= ScsiHddSerialNumber; 2:FinalStr:= GetIdeDiskSerialNumber; 3:FinalStr:=’Error’; End; Inc(NumTry); Until(FinalStr <> ‘’) or (NumTry > 4); Result := FinalStr; end; end.

在實際加密過程中，不建議使用CPU序列号和網卡的MAC地址作為加密依據，因為相同型号的CPU的序列号相同，并且，MAC地址可以更改，以硬盤出廠序列号作為加密依據是比較好的選擇。

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!