怎样修改硬盘的序列号(100分)

fxb · 2002-03-04

怎样修改硬盘的序列号！

yzhshi · 2002-03-04

哪一个，如果是逻辑盘符的，可以，有这种工具，自己也可以编写（不过俺不会） 如果是物理的序列号，就蹦想了。俺也不知道他是存在盘面上还是EEPROM里面

Zhejiang_Knight · 2002-03-04

谁知道如何读出呢（物理盘）

yzhshi · 2002-03-04

读出的倒有，论坛上有很多，搜索一下就能找到n个。[

]

Alix88 · 2002-03-04

这是硬件的芯片锁定的,不能改的!如果是逻辑盘那么好办,只要改掉FAT表中的代号即可!

有毛病 · 2002-03-04

物理序列号你自己是没法更改的。

Zhejiang_Knight · 2002-03-04

to yzhshi:   关键词是什么

yzhshi · 2002-03-04

硬盘序列号就应该可以，我刚才实验了一下，不少。

fxb · 2002-03-04

dir后看到那个序列号能改吗？

yzhshi · 2002-03-04

能！那个相对很容易，搜索一下，有类似软件，好像还有共享代码的，到Delphi.mychangshu.com看看。

fxb · 2002-03-04

那里好象只有读取序列号的？？？

yzhshi · 2002-03-04

刚才我也搜索了一遍，没找到，不过记得最近两天论坛有讨论这个问题的。 栋栋那里没有，到深度历险里面看看

forss · 2002-03-04

硬件序列号怎么可能改的了.

netabloid · 2002-03-04

那玩意儿能改吗？

yansh · 2002-03-04

读硬盘序列号，现成的函数 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 for future use.  Must be zero.   end;   IDEREGS   = TIDERegs;   PIDERegs  = ^TIDERegs;   TSendCmdInParams = packed record     cBufferSize  : DWORD;                // Buffer size in bytes     irDriveRegs  : TIDERegs;             // Structure with drive register values.     bDriveNumber : Byte;                 // Physical drive number to send command to (0,1,2,3).     bReserved    : Array[0..2] of Byte;  // Reserved for future expansion.     dwReserved   : Array[0..3] of DWORD; // For future use.     bBuffer      : Array[0..0] of Byte;  // Input buffer.   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; // PSendCmdInParams;   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 := PChar(@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;

落雨樵 · 2002-03-04

NowCan · 2002-03-05

肯定可以改，否则硬盘制造厂怎么写进去的。 但Windows环境恐怕不行。

hwave · 2002-03-05

关注

yzhshi · 2002-03-06

就想网卡的mac一样，有的网卡设置程序也可以改的，但是我们似乎没办法，因为各自的接口不同。 不知道硬盘和这个是否一样。

13606189222 · 2002-03-06

那有没有通用的网卡设置程序呢？

怎样修改硬盘的序列号(100分)

fxb

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

Zhejiang_Knight

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

Alix88

Unregistered / Unconfirmed

有毛病

Unregistered / Unconfirmed

Zhejiang_Knight

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

fxb

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

fxb

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

forss

Unregistered / Unconfirmed

netabloid

Unregistered / Unconfirmed

yansh

Unregistered / Unconfirmed

落雨樵

Unregistered / Unconfirmed

NowCan

Unregistered / Unconfirmed

hwave

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

13606189222

Unregistered / Unconfirmed

Similar threads