当前位置:七道奇文章资讯编程技术VC/C++编程
日期:2011-03-22 13:55:00  来源:本站整理

<b>在Win9x/NT下获得硬盘物理序列号</b>[VC/C++编程]

赞助商链接



  本文“<b>在Win9x/NT下获得硬盘物理序列号</b>[VC/C++编程]”是由七道奇为您精心收集,来源于网络转载,文章版权归文章作者所有,本站不对其观点以及内容做任何评价,请读者自行判断,以下是其具体内容:

本文代码在Win2k下试验成功.

#include <WinIOCtl.h>
#include <stdio.h>
#pragma inline
//---------------------------------------------------------------------------
// IDE NT/2000/XP专用变量
#define GETVERSIONOUTPARAMS   GETVERSIONINPARAMS
#define DFP_GET_VERSION     SMART_GET_VERSION
#define DFP_SEND_DRIVE_COMMAND SMART_SEND_DRIVE_COMMAND
#define DFP_RCV_DRIVE_DATA   SMART_RCV_DRIVE_DATA
const WORD IDE_ATAPI_IDENTIFY = 0xA1;  // 读取ATAPI设备的号令
const WORD IDE_ATA_IDENTIFY  = 0xEC;  // 读取ATA设备的号令
const int MAX_IDE_DRIVES = 4;
// SCSI专用变量
const DWORD FILE_DEVICE_SCSI       = 0x0000001B;
const DWORD IOCTL_SCSI_MINIPORT_IDENTIFY = ((FILE_DEVICE_SCSI << 16) + 0x0501);
const DWORD IOCTL_SCSI_MINIPORT     = 0x0004D008; // see NTDDSCSI.H for definition
const DWORD SENDIDLENGTH = sizeof(SENDCMDOUTPARAMS) + IDENTIFY_BUFFER_SIZE;
typedef struct _SRB_IO_CONTROL
{
   ULONG HeaderLength;
   UCHAR Signature[8];
   ULONG Timeout;
   ULONG ControlCode;
   ULONG ReturnCode;
   ULONG Length;
}SRB_IO_CONTROL, *PSRB_IO_CONTROL;
// 读取的主函数
void __fastcall ReadPhysicalDrive(TStrings *pSerList, TStrings *pModeList);
// 帮助函数
char *__fastcall ConvertToString(DWORD dwDiskData[256], int nFirstIndex, int nLastIndex);
// NT/2000/XP函数
void __fastcall ReadPhysicalDriveOnNT(TStrings *pSerList, TStrings *pModeList);
bool __fastcall DoIdentify(HANDLE hPhysicalDriveIOCTL, PSENDCMDINPARAMS pSCIP,
     PSENDCMDOUTPARAMS pSCOP, BYTE btIDCmd,
     BYTE btDriveNum, PDWORD lpcbBYTEsReturned);
// Windows 9X函数
void __fastcall ReadPhysicalDriveOnW9X(TStrings *pSerList, TStrings *pModeList);
void __fastcall ReadPhysicalDriveOnW9X_Ring0(bool IsFirst, WORD BaseAddress,
     BYTE MoS, bool &IsIDEExist, bool &IsDiskExist, WORD *OutData);
// SCSI读取函数(for NT/2000/XP)
String __fastcall ReadIDEDriveAsScsiDriveOnNT();
//---------------------------------------------------------------------------
// ReadPhysicalDrive
void __fastcall ReadPhysicalDrive(TStrings *pSerList, TStrings *pModeList)
{
   switch(Win32Platform)
   {
     case VER_PLATFORM_WIN32_WINDOWS:
       ReadPhysicalDriveOnW9X(pSerList, pModeList);
       break;
     case VER_PLATFORM_WIN32_NT:
       ReadPhysicalDriveOnNT(pSerList, pModeList);
       break;
     default:
       break;
   }
}
//---------------------------------------------------------------------------
// ConvertToString
char *__fastcall ConvertToString(DWORD dwDiskData[256], int nFirstIndex, int nLastIndex)
{
   static char szResBuf[1024];
   int nIndex = 0;
   int nPosition = 0;
   // Each integer has two characters stored in it backwards
   for(nIndex = nFirstIndex; nIndex <= nLastIndex; nIndex++)
   {
     // Get high BYTE for 1st character
     szResBuf[nPosition] = (char)(dwDiskData[nIndex] / 256);
     nPosition++;
     // Get low BYTE for 2nd character
     szResBuf[nPosition] = (char)(dwDiskData[nIndex] % 256);
     nPosition++;
   }
   // End the string
   szResBuf[nPosition] = '\0';
   // Cut off the trailing blanks
   for(nIndex = nPosition - 1; nIndex > 0 && ' ' == szResBuf[nIndex]; nIndex--)
     szResBuf[nIndex] = '\0';
   return szResBuf;
}
//---------------------------------------------------------------------------
// Winndows NT4/2000/XP 代码
//---------------------------------------------------------------------------
// ReadPhysicalDriveOnNT
void __fastcall ReadPhysicalDriveOnNT(TStrings *pSerList, TStrings *pModeList)
{
   // 输出参数
   BYTE btIDOutCmd[sizeof(SENDCMDOUTPARAMS) + IDENTIFY_BUFFER_SIZE - 1];
   for(int nDrive=0; nDrive < MAX_IDE_DRIVES; nDrive++)
   {
     HANDLE hPhysicalDriveIOCTL;
     char szDriveName[32];
     sprintf(szDriveName, "\\\\.\\PhysicalDrive%d", nDrive);
     hPhysicalDriveIOCTL = CreateFile(szDriveName,
             GENERIC_READ | GENERIC_WRITE,
             FILE_SHARE_READ | FILE_SHARE_WRITE, NULL,
             OPEN_EXISTING, 0, NULL);
     if(hPhysicalDriveIOCTL != INVALID_HANDLE_VALUE)
     {
       DWORD dwBytesReturned = 0;
       GETVERSIONOUTPARAMS gvopVersionParams;
       // Get the version, etc of PhysicalDrive IOCTL
       ZeroMemory(&gvopVersionParams, sizeof(GETVERSIONOUTPARAMS));
       if(!DeviceIoControl(hPhysicalDriveIOCTL, DFP_GET_VERSION,
           NULL, 0, &gvopVersionParams, sizeof(gvopVersionParams),
           &dwBytesReturned, NULL))
       {
         continue;
       }
       if(gvopVersionParams.bIDEDeviceMap > 0)
       {
         // IDE or ATAPI IDENTIFY cmd
         BYTE btIDCmd = 0;
         SENDCMDINPARAMS InParams;
         // Now, get the ID sector for all IDE devices in the system.
         // If the device is ATAPI use the IDE_ATAPI_IDENTIFY command,
         // otherwise use the IDE_ATA_IDENTIFY command
         // 具体所得后果请参考头文件中的阐明
         btIDCmd = (gvopVersionParams.bIDEDeviceMap >> nDrive & 0x10) ?
             IDE_ATAPI_IDENTIFY : IDE_ATA_IDENTIFY;
         ZeroMemory(&InParams, sizeof(SENDCMDINPARAMS));
         ZeroMemory(btIDOutCmd, sizeof(btIDOutCmd));
         if(DoIdentify(hPhysicalDriveIOCTL,
            &InParams, (PSENDCMDOUTPARAMS)btIDOutCmd,
            (BYTE)btIDCmd, (BYTE)nDrive, &dwBytesReturned))
         {
           DWORD dwDiskData[256];
           USHORT *pIDSector; // 对应构造IDSECTOR,见头文件
           char szSerialNumber[21];
           char szModelNumber[41];
           pIDSector = (USHORT*)((SENDCMDOUTPARAMS*)btIDOutCmd)->bBuffer;
           for(int i=0; i < 256; i++)
             dwDiskData[i] = pIDSector[i];
           // 取系列号
           ZeroMemory(szSerialNumber, sizeof(szSerialNumber));
           strcpy(szSerialNumber, ConvertToString(dwDiskData, 10, 19));
           // 取模子号
           ZeroMemory(szModelNumber, sizeof(szModelNumber));
           strcpy(szModelNumber, ConvertToString(dwDiskData, 27, 46));
           pSerList->Add(szSerialNumber);
           pModeList->Add(szModelNumber);
         }
       }
       CloseHandle (hPhysicalDriveIOCTL);
     }
   }
}
//---------------------------------------------------------------------------
// DoIdentify
bool __fastcall DoIdentify(HANDLE hPhysicalDriveIOCTL, PSENDCMDINPARAMS pSCIP,
        PSENDCMDOUTPARAMS pSCOP, BYTE btIDCmd, BYTE btDriveNum,
        PDWORD pdwBytesReturned)
{
   // Set up data structures for IDENTIFY command.
   pSCIP->cBufferSize = IDENTIFY_BUFFER_SIZE;
   pSCIP->irDriveRegs.bFeaturesReg = 0;
   pSCIP->irDriveRegs.bSectorCountReg = 1;
   pSCIP->irDriveRegs.bSectorNumberReg = 1;
   pSCIP->irDriveRegs.bCylLowReg = 0;
   pSCIP->irDriveRegs.bCylHighReg = 0;
   // Compute the drive number.(主盘和从盘所对应的值是不一样的)
   pSCIP->irDriveRegs.bDriveHeadReg = (btDriveNum & 1) ? 0xB0 : 0xA0;
   // The command can either be IDE identify or ATAPI identify.
   pSCIP->irDriveRegs.bCommandReg = btIDCmd;
   pSCIP->bDriveNumber = btDriveNum;
   pSCIP->cBufferSize = IDENTIFY_BUFFER_SIZE;
   return DeviceIoControl(hPhysicalDriveIOCTL, DFP_RCV_DRIVE_DATA,
       (LPVOID)pSCIP,
       sizeof(SENDCMDINPARAMS) - 1,
       (LPVOID)pSCOP,
       sizeof(SENDCMDOUTPARAMS) + IDENTIFY_BUFFER_SIZE - 1,
       pdwBytesReturned, NULL);
}
//---------------------------------------------------------------------------
// Windows 95/98/ME 代码
//---------------------------------------------------------------------------
// ReadPhysicalDriveOnW9X
void __fastcall ReadPhysicalDriveOnW9X(TStrings *pSerList, TStrings *pModeList)
{
   WORD wOutData[256];
   SetPriorityClass(GetCurrentProcess(), REALTIME_PRIORITY_CLASS);
   // 经过测试,发现第一次调用并且Drive >= 2时会在Ring0代码中呈现错误,招致蓝屏.
   // 经过N(N > 15)次的蓝屏后仍找不到缘由:(,不得不在这里增添一段无用代码以
   // 避免蓝屏的呈现.(等待高人能指出缘由)
   for(int nDrive = 0; nDrive < 8; nDrive++)
   {
     WORD dwBaseAddress;
     BYTE btMasterSlave;     // Master Or Slave
     bool bIsIDEExist;
     bool IsDiskExist;
     switch(nDrive / 2)
     {
       case 0: dwBaseAddress = 0x01F0; break;
       case 1: dwBaseAddress = 0x0170; break;
       case 2: dwBaseAddress = 0x01E8; break;
       case 3: dwBaseAddress = 0x0168; break;
     }
     btMasterSlave = (BYTE)(((nDrive % 2) == 0) ? 0xA0 : 0xB0);
     // 进入Ring0
     ReadPhysicalDriveOnW9X_Ring0(true, dwBaseAddress, btMasterSlave,
         bIsIDEExist, IsDiskExist, wOutData);
   }
   // 开始读取
   for(int nDrive = 0; nDrive < 8; nDrive++)
   {
     WORD dwBaseAddress;
     BYTE btMasterSlave;     // Master Or Slave
     bool bIsIDEExist;
     bool bIsDiskExist;
     switch(nDrive / 2)
     {
       case 0: dwBaseAddress = 0x01F0; break;
       case 1: dwBaseAddress = 0x0170; break;
       case 2: dwBaseAddress = 0x01E8; break;
       case 3: dwBaseAddress = 0x0168; break;
     }
     btMasterSlave = (BYTE)(((nDrive % 2) == 0) ? 0xA0 : 0xB0);
     // 进入Ring0
     bIsIDEExist = false;
     bIsDiskExist = false;
     ZeroMemory(wOutData, sizeof(wOutData));
     ReadPhysicalDriveOnW9X_Ring0(false, dwBaseAddress, btMasterSlave,
         bIsIDEExist, bIsDiskExist, wOutData);
     if(bIsIDEExist && bIsDiskExist)
     {
       DWORD dwDiskData[256];
       char szSerialNumber[21];
       char szModelNumber[41];
       for(int k=0; k < 256; k++)
         dwDiskData[k] = wOutData[k];
       // 取系列号
       ZeroMemory(szSerialNumber, sizeof(szSerialNumber));
       strcpy(szSerialNumber, ConvertToString(dwDiskData, 10, 19));
       // 取模子号
       ZeroMemory(szModelNumber, sizeof(szModelNumber));
       strcpy(szModelNumber, ConvertToString(dwDiskData, 27, 46));
       pSerList->Add(szSerialNumber);
       pModeList->Add(szModelNumber);
     }
   }
   SetPriorityClass(GetCurrentProcess(), NORMAL_PRIORITY_CLASS);
}
//---------------------------------------------------------------------------
// 为避免不负责任的转载者,在此注明原出处信息,请包涵.
// 资料汇集整理:ccrun(老妖),欢送光临C++Builder研究: http://www.ccrun.com
//---------------------------------------------------------------------------
// ReadPhysicalDriveOnW9X_Ring0()
//
// dwBaseAddress = IDE(0,1,2,3) : 1F0h, 170h, 1E8h, 168h
// btMasterSlave = Master(0xA0) Or Slave(0xB0)
//---------------------------------------------------------------------------
void __fastcall ReadPhysicalDriveOnW9X_Ring0(bool bIsFirst, WORD dwBaseAddress,
     BYTE btMasterSlave, bool &bIsIDEExist, bool &bIsDiskExist, WORD *pOutData)
{
   BYTE btIDTR1[6];
   DWORD dwOldExceptionHook;
   const int nHookExceptionNo = 5;
   BYTE btIsIDEExist = 0;
   BYTE btIsDiskExist = 0;
   WORD wOutDataBuf[256];
   BYTE btIsFirst = (BYTE)bIsFirst;
   const BYTE btBit00 = 0x01;
   // const BYTE btBit02 = 0x04;
   const BYTE btBit06 = 0x40;
   const BYTE btBit07 = 0x80;
   // const BYTE btERR = btBit00;
   const BYTE btBusy = btBit07;
   const BYTE btAtaCmd  = 0xEC;
   const BYTE btAtapiCmd = 0xA1;
   __asm
   {
     // 必须先履行这条语句
     JMP EnterRing0
     // 定义历程
     // 等候IDE设备直到其不为忙为止
     WaitWhileBusy proc
     MOV EBX, 100000
     MOV DX, dwBaseAddress
     ADD DX, 7
     LoopWhileBusy:
     DEC EBX
     CMP EBX, 0
     JZ  Timeout
     in  AL, DX
     TEST AL, btBusy
     JNZ LoopWhileBusy
     JMP DriveReady
     // 超时,直接退出
     Timeout:
     JMP LeaveRing0
     DriveReady:
     RET
     ENDP  // End of WaitWhileBusy Procedure
     // 设置主盘和从盘标志
     SelectDevice proc
     MOV DX, dwBaseAddress
     ADD DX, 6
     MOV AL, btMasterSlave
     out DX, AL
     RET
     ENDP // End of SelectDevice Procedure
     // 向IDE设备发送存取指令
     SendCmd proc
     MOV DX, dwBaseAddress
     ADD DX, 7
     MOV AL, BL // BL是主从盘标识,在历程外设置
     out DX, AL
     RET
     ENDP // End of SendCmd Procedure
     // Ring0代码
     Ring0Proc:
     PUSHAD
     // 查询IDE设备能否存在
     MOV DX, dwBaseAddress
     ADD DX, 7
     in AL,DX
     // 当AL的值是0xFF大概0x7F时,IDE设备不存在,这时刻直接返回
     CMP AL,0xFF
     JZ LeaveRing0
     CMP AL, 0x7F
     JZ LeaveRing0
     // 设置IDE设备存在标志
     MOV btIsIDEExist, 1
     // 查询IDE设备上的驱动器能否存在(有IDE插槽在主板上,但是却不一定有硬盘插在上面)
     CALL WaitWhileBusy
     CALL SelectDevice
     // 假如是第一次调用,则直接返回,不然履行下行语句时会呈现蓝屏
     CMP btIsFirst, 1
     JZ  LeaveRing0
     // 第一次调用时,假如履行这行语句会招致蓝屏,Why???
     CALL WaitWhileBusy
     // AL的值等于cBit06时,不存在驱动器,直接返回
     TEST AL, btBit06
     JZ  LeaveRing0
     // 设置驱动器存在标志
     MOV btIsDiskExist, 1
     // 发送存取端口号令
     // 无法像NT/2000/XP那样可以通过查询VERSION的值得到驱动器的范例,
     // 所以只能一步一步地测试,假如不是ATA设备,再尝试利用ATAPI设备号令
     CALL WaitWhileBusy
     CALL SelectDevice  // 设置主从盘标识
     MOV BL, btAtaCmd   // 发送读取号令
     CALL SendCmd
     CALL WaitWhileBusy
     // 查抄能否出错
     MOV DX, dwBaseAddress
     ADD DX, 7
     in  AL, DX
     TEST AL, btBit00
     JZ  RetrieveInfo  // 没有错误时则读数据
     // 假如出错,则进一步尝试利用ATAPI设备号令
     CALL WaitWhileBusy
     CALL SelectDevice
     MOV BL, btAtapiCmd
     CALL SendCmd
     CALL WaitWhileBusy
     // 查抄能否还出错
     MOV DX, dwBaseAddress
     ADD DX, 7
     in  AL, DX
     TEST AL, btBit00
     JZ  RetrieveInfo  // 没有错误时则读数据
     JMP LeaveRing0   // 假如还是出错,直接返回
     // 读取数据
     RetrieveInfo:
     LEA EDI, wOutDataBuf
     MOV ECX, 256
     MOV DX, dwBaseAddress
     CLD
     REP INSW
     // 退出Ring0代码
     LeaveRing0:
     POPAD
     IRETD
     // 激活Ring0代码
     EnterRing0:
     // 改正中止门
     SIDT FWORD PTR btIDTR1
     MOV EAX, DWORD PTR btIDTR1 + 02h
     ADD EAX, nHookExceptionNo * 08h + 04h
     CLI
     // 保存原非常处理例程进口
     MOV ECX, DWORD PTR [EAX]
     MOV CX, WORD PTR [EAX-04h]
     MOV dwOldExceptionHook, ECX
     // 指定新进口
     LEA EBX, Ring0Proc
     MOV WORD PTR [EAX-04h],BX
     SHR EBX, 10h
     MOV WORD PTR[EAX+02h], BX
     // 激活Ring0代码
     INT nHookExceptionNo
     // 答复进口
     MOV ECX,dwOldExceptionHook
     MOV WORD PTR[EAX-04h], CX
     SHR ECX,10h
     MOV WORD PTR[EAX+02h], CX
     STI
   }
   if(!bIsFirst)
   {
     bIsIDEExist = (bool)btIsIDEExist;
     bIsDiskExist = (bool)btIsDiskExist;
     CopyMemory(pOutData, wOutDataBuf, sizeof(wOutDataBuf));
   }
}
//---------------------------------------------------------------------------
// 调用办法:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   ReadPhysicalDrive(Memo1->Lines, Memo2->Lines);
}


  以上是“<b>在Win9x/NT下获得硬盘物理序列号</b>[VC/C++编程]”的内容,如果你对以上该文章内容感兴趣,你可以看看七道奇为您推荐以下文章:
  • <b>hosts是什么 hosts文件在什么位置 若何改正hosts</b>
  • <b>在 Windows 8 中手动安装语言包</b>
  • <b>五个常见 PHP数据库问题</b>
  • Windows中Alt键的12个高效快速的利用本领介绍
  • <b>MySQL ORDER BY 的实现解析</b>
  • <b>详解MySQL存储历程参数有三种范例(in、out、inout)</b>
  • <b>Win8系统恢复出来经典的开始菜单的办法</b>
  • <b>Win8系统花屏怎么办 Win8系统花屏的办理办法</b>
  • <b>Windows 7系统下无线网卡安装</b>
  • <b>为什么 Linux不需求碎片整理</b>
  • <b>Windows 8中删除账户的几种办法(图)</b>
  • <b>教你如安在win7下配置路由器</b>
  • 本文地址: 与您的QQ/BBS好友分享!
    • 好的评价 如果您觉得此文章好,就请您
        0%(0)
    • 差的评价 如果您觉得此文章差,就请您
        0%(0)

    文章评论评论内容只代表网友观点,与本站立场无关!

       评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
    Copyright © 2020-2022 www.xiamiku.com. All Rights Reserved .