Get Hard Disk Serial Number (100分)

swjg · 2001-03-27

GetVolumeInformation 得到的是windows软系列号，怎样才能得到硬盘的硬系列号。

mataijin · 2001-03-28

有办法

mataijin · 2001-03-28

我在一个叫XX编程的网站见过,斑竹叫陆麟

djdsz · 2001-03-28

看看http://www.delphibbs.com/delphibbs/DispQ.asp?LID=450556，我以前回答过的

swjg · 2001-03-31

多谢djdsz。但在98下不行。

yuhung · 2001-04-30

利用 Vxd 的方式，可以做到。 Smartvsd.Vxd 可在国外网站 DownLoad ..

yth · 2001-05-01

一个console程序； 在Win9x下需要有 smartvsd.vxd，把他从/windows/system/拷贝到 /windows/system/iosubsys/重启 program IdeSN; {$APPTYPE CONSOLE} uses   Windows,   SysUtils; // only for Win32Platform and SysErrorMessage //------------------------------------------------------------- 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; // Used for specifying SMART "commands".     bSectorCountReg  : Byte; // IDE sector count register     bSectorNumberReg : Byte; // IDE sector number register     bCylLowReg       : Byte; // IDE low order cylinder value     bCylHighReg      : Byte; // IDE high order cylinder value     bDriveHeadReg    : Byte; // IDE drive/head register     bCommandReg      : Byte; // Actual IDE command.     bReserved        : Byte; // reserved.  Must be zero.   end;   IDEREGS   = TIDERegs;   PIDERegs  = ^TIDERegs;   TSendCmdInParams = packed record     cBufferSize  : DWORD;     irDriveRegs  : TIDERegs;     bDriveNumber : Byte;     bReserved    : Array[0..2] of Byte;     dwReserved   : Array[0..3] 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              : Array[0..2] of Word;     sSerialNumber              : Array[0..19] of Char;     wBufferType                : Word;     wBufferSize                : Word;     wECCSize                   : Word;     sFirmwareRev               : Array[0..7] of Char;     sModelNumber               : Array[0..39] of Char;     wMoreVendorUnique          : Word;     wDoubleWordIO              : Word;     wCapabilities              : Word;     wReserved1                 : Word;     wPIOTiming                 : Word;     wDMATiming                 : Word;     wBS                        : Word;     wNumCurrentCyls            : Word;     wNumCurrentHeads           : Word;     wNumCurrentSectorsPerTrack : Word;     ulCurrentSectorCapacity    : ULONG;     wMultSectorStuff           : Word;     ulTotalAddressableSectors  : ULONG;     wSingleWordDMA             : Word;     wMultiWordDMA              : Word;     bReserved                  : Array[0..127] of Byte;   end;   PIdSector = ^TIdSector; const   IDE_ID_FUNCTION = $EC;   IDENTIFY_BUFFER_SIZE       = 512;   DFP_RECEIVE_DRIVE_DATA        = $0007c088;   IOCTL_SCSI_MINIPORT           = $0004d008;   IOCTL_SCSI_MINIPORT_IDENTIFY  = $001b0501;   DataSize = sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE;   BufferSize = SizeOf(SRB_IO_CONTROL)+DataSize;   W9xBufferSize = IDENTIFY_BUFFER_SIZE+16; var   hDevice : THandle;   cbBytesReturned : DWORD;   pInData : PSendCmdInParams;   pOutData : Pointer; // PSendCmdOutParams   Buffer : Array[0..BufferSize-1] of Byte;   srbControl : TSrbIoControl absolute Buffer;   procedure ChangeByteOrder( var Data; Size : Integer );   var ptr : PChar;       i : Integer;       c : Char;   begin     ptr := @Data;     for i := 0 to (Size shr 1)-1 do     begin       c := ptr^;       ptr^ := (ptr+1)^;       (ptr+1)^ := c;       Inc(ptr,2);     end;   end; begin   Result := '';   FillChar(Buffer,BufferSize,#0);   if Win32Platform=VER_PLATFORM_WIN32_NT then     begin // Windows NT, Windows 2000       // Get SCSI port handle       hDevice := CreateFile( '//./Scsi0:',         GENERIC_READ or GENERIC_WRITE,         FILE_SHARE_READ or FILE_SHARE_WRITE,         nil, OPEN_EXISTING, 0, 0 );       if hDevice=INVALID_HANDLE_VALUE then Exit;       try         srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL);         System.Move('SCSIDISK',srbControl.Signature,8);         srbControl.Timeout      := 2;         srbControl.Length       := DataSize;         srbControl.ControlCode  := IOCTL_SCSI_MINIPORT_IDENTIFY;         pInData := PSendCmdInParams(PChar(@Buffer)                    +SizeOf(SRB_IO_CONTROL));         pOutData := pInData;         with pInData^ do         begin           cBufferSize  := IDENTIFY_BUFFER_SIZE;           bDriveNumber := 0;           with irDriveRegs do           begin             bFeaturesReg     := 0;             bSectorCountReg  := 1;             bSectorNumberReg := 1;             bCylLowReg       := 0;             bCylHighReg      := 0;             bDriveHeadReg    := $A0;             bCommandReg      := IDE_ID_FUNCTION;           end;         end;         if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT,           @Buffer, BufferSize, @Buffer, BufferSize,           cbBytesReturned, nil ) then Exit;       finally         CloseHandle(hDevice);       end;     end   else     begin // Windows 95 OSR2, Windows 98       hDevice := CreateFile( '//./SMARTVSD', 0, 0, nil,         CREATE_NEW, 0, 0 );       if hDevice=INVALID_HANDLE_VALUE then Exit;       try         pInData := PSendCmdInParams(@Buffer);         pOutData := @pInData^.bBuffer;         with pInData^ do         begin           cBufferSize  := IDENTIFY_BUFFER_SIZE;           bDriveNumber := 0;           with irDriveRegs do           begin             bFeaturesReg     := 0;             bSectorCountReg  := 1;             bSectorNumberReg := 1;             bCylLowReg       := 0;             bCylHighReg      := 0;             bDriveHeadReg    := $A0;             bCommandReg      := IDE_ID_FUNCTION;           end;         end;         if not DeviceIoControl( hDevice, DFP_RECEIVE_DRIVE_DATA,           pInData, SizeOf(TSendCmdInParams)-1, pOutData,           W9xBufferSize, cbBytesReturned, nil ) then Exit;       finally         CloseHandle(hDevice);       end;     end;     with PIdSector(PChar(pOutData)+16)^ do     begin       ChangeByteOrder(sSerialNumber,SizeOf(sSerialNumber));       SetString(Result,sSerialNumber,SizeOf(sSerialNumber));     end; end; //============================================================= var s : String;     rc : DWORD; begin   s := GetIdeDiskSerialNumber;   if s='' then     begin       rc := GetLastError;       if rc=0 then WriteLn('IDE drive is not support SMART feature')       else WriteLn(SysErrorMessage(rc));     end   else WriteLn('Disk serial number: ''', s,''''); end.

wsn · 2001-05-01

get it

angelsoft · 2001-05-01

YTH说的方法不错，可以实现读取硬盘序列号，实际上目前来说，读取硬盘序列号的方法 有两种：   1，通过VXD方法实现读取，如YTH的方法，或者用其余的控件实现，如Smallport控件,该控件 在很多网站都有下载，实现的代码如下： procedure TForm2.Button1Click(Sender: TObject); const   DiskA=$1f0;   DiskB=$170; var   buffer:array[0..255] of word;   i:integer;   s:string;   disk:integer; begin   If SpinEdit2.Value=0 then Disk:=DiskA else Disk:=DiskB;   With SmallPort1 do     begin       OpenDriver;       while (ReadByte(Disk+7)<>$50) do inc(i);       WriteByte(Disk+6,$a0+SpinEdit1.Value*$10);       WriteByte(Disk+7,$ec);       while (ReadByte(Disk+7)<>$58) do inc(i);       for i:=0 to 255 do buffer:=ReadWord(Disk);       s:='';       for i:=10 to 19 do         s:=s+chr(buffer shr 8)+chr(buffer and $ff);       CloseDriver;       Edit1.Text:=s;     end; end;   2,不用控件，直接编程实现，也就是直接在程序中进入RING0执行指令得到，代码如下： unit SNU; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, BiosInfo; type   TForm1 = class(TForm)     Button1: TButton;     MainBoardBiosInformation1: TMainBoardBiosInformation;     Edit1: TEdit;     Edit2: TEdit;     Label1: TLabel;     Label2: TLabel;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} type  TGate = record      Off2,op,seg,off1:WORD;  end;  LONGDWORD = INT64; var   IDTR: LONGDWORD;   SavedGate:TGate;   OurGate: TGate;   dd: array [0..256] of word;   dsn:array [0..20] of char; //存放硬盘序列号 procedure Ring0Proc(); asm // Wait for controller not busy mov dx,01f7h @1:in al,dx cmp al,050h jne  @1 // Get first/second drive dec dx mov al,0a0h out dx,al // Get drive info data inc dx mov al,0ech out dx,al nop nop // Wait for data ready @2:in al,dx cmp al,058h jne  @2 nop nop // Read sector xor ecx,ecx mov dx,01f0h @3:in ax,dx mov word ptr dd[ecx*2],ax inc ecx cmp ecx,256 jne @3 iretd  //中断返回 end; FUNCTION Change2Ring0CHAR; begin   asm       mov   eax, offset Ring0Proc       mov   OurGate.off2, ax  // 将中断函数的地址       shr   eax, 16   // 填入新造的中断门       mov   OurGate.off1, ax // 描述符       mov   OurGate.op,0028h       mov   OurGate.seg,0ee00h       mov   ebx,offset IDTR       sidt  [ebx]       // 将中断描述符表寄存器（IDTR）的内容取出       mov   ebx, dword ptr [IDTR+2]       // 取出中断描述符表（IDT）基地址       add   ebx, 8*3       // 计算Int 3 的描述符应放置的地址选用       //Int3 是因为它在Win32 保护模式下未占用       mov      edi, offset SavedGate       mov      esi, ebx       movsd   // 保存原来的Int 9 描述符到       movsd  //SavedGate 以便恢复       mov      edi, ebx       mov      esi, offset OurGate       cli       movsd  // 替换原来的中断门描述符       movsd  // 以安装中断服务例程       sti       mov   eax,6200h      // 用以测试放在EAX 中的数据  能否正确传到Ring0 中断       mov   ecx,0      // 用以测试放在ECX 中的数据      //  能否正确传到Ring0 中断       // 因为很多VxD 服务都用此二寄存器传递参数      int 3h      // 人为触发中断, 平时会出现保护错误蓝屏或非法操      // 作对话框，现在安装了      // 中断服务例程后，就会通过      //VMM 在Ring0 调用中断服务例程Ring0Proc       mov    edi, ebx       mov    esi, offset SavedGate       cli       movsd // 恢复原来的中断门描述符       movsd       sti   end; asm   xor ecx,ecx   mov ebx,offset dd[10*2]   @4:mov ax,[ebx]   mov byte ptr dsn[ecx],ah   inc ecx   mov byte ptr dsn[ecx],al   inc ebx   inc ebx   inc ecx   cmp ecx,10   jne @4 end;   RESULT:=dsn; end; procedure TForm1.Button1Click(Sender: TObject); VAR SCHAR;   StrA: string; begin     S:=change2ring0;     showmessage(s);     EDIT1.TEXT:=STRPAS(S);  //该指令一执行就出错，不知为什么 end;   你的程序如果是想通过硬盘序列号作为共享软件的注册密钥，当然是第二种方法好，因 为对于第一种方法如果破解了VXD文件，就没戏了，不过第二种方法我所列出的代码可能有 问题，如果有哪位高手能指出错误原因，不用感谢

yexiaofeng · 2001-05-02

不好意思啊。 我只是想要这个问题的列表 但没办法收藏这个问题。只好这样了。

WiseAnt · 2001-05-03

留下你的E-Mail or Mail to WiseAnt@263.net

wjiachun · 2003-03-17

接受答案了.

Get Hard Disk Serial Number (100分)

swjg

Unregistered / Unconfirmed

mataijin

Unregistered / Unconfirmed

mataijin

Unregistered / Unconfirmed

djdsz

Unregistered / Unconfirmed

swjg

Unregistered / Unconfirmed

yuhung

Unregistered / Unconfirmed

yth

Unregistered / Unconfirmed

wsn

Unregistered / Unconfirmed

angelsoft

Unregistered / Unconfirmed

yexiaofeng

Unregistered / Unconfirmed

WiseAnt

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads