一台机器硬件序列号哪些在格式化后始终不变化的？(1分)

foxgirl · 2003-06-08

用哪个API取得啊，请举个例子，谢了。

ynyangbo · 2003-06-08

我也不知道。 但是我想知道

yyii_yyii · 2003-06-09

bios序列号，无api，用asm吧

Seoul_BJ · 2003-06-09

网卡MAC号，是不会变的。

foxgirl · 2003-06-09

每台机器bios是唯一的吗？

wr960204 · 2003-06-09

网卡号是全球唯一的。 //uses Windows, SysUtils, NB30, 以下为类型定义及函数代码 const sNetBiosError = "NetBIOS错误%d"; type TMACAddress = packed array[0..5] of Byte; ENetBiosError = class( Exception ); TAStat = record Adapt : TAdapterStatus; NameBuff : array[0..30] of TNameBuffer; end; function GetMacAddress( AdapterNum : Integer ) : TMACAddress; var Ncb : TNCB; uRetCode : Char; 　J : Integer; Adapter : TAStat; begin FillChar( NCB, SizeOf(NCB), 0 ); 　with NCB do begin 　ncb_command := Char(NCBRESET); 　ncb_lana_num := Char( AdapterNum ); end; 　uRetCode := Netbios( @Ncb ); 　if uRetCode <> #0 then raise Exception.CreateFmt( sNetBIOSError, [Ord(uRetCode)] ); 　　FillChar( NCB, SizeOf(NCB), 0 ); 　　with NCB do begin 　　ncb_command := Char(NCBASTAT); 　　ncb_lana_num := Char( AdapterNum ); 　　StrCopy( ncb_callname, "* " ); 　　ncb_buffer := @Adapter; 　　ncb_length := sizeof(Adapter); end; 　uRetCode := Netbios( @Ncb ); 　if uRetCode <> #0 then raise Exception.CreateFmt( sNetBIOSError, [Ord(uRetCode)] ); 　for J := 0 to 5 do 　　Result[J] := Ord( Adapter.Adapt.Adapter_address[J] ); end;

yanyandt2 · 2003-06-09

如果没有网卡怎么办？？

foxgirl · 2003-06-09

对啊，如果没有网卡呢？

shine_wy · 2003-06-09

硬盘序列号可以得到；

shine_wy · 2003-06-09

unit Idesn; interface uses Windows, SysUtils; function GetIdeDiskSerialNumber(): string; function GetIdeSN(num: integer): string; implementation uses SEShare; 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));     Result := Trim(Result);   end; end; end. //=================================== 调用 SN := GetIdeDiskSerialNumber();

foxgirl · 2003-06-09

谢楼上的朋友，请问为什么有的CPU没有序列号呢？比如我的赛扬466，用一些提取硬件序列号的控件提取时，bios与cpu的序列号为空白？

wr960204 · 2003-06-09

上面的硬盘序列号不准确的。虽然格式化后保持不变，但重新分区的话还是会重新生成的。 再一个，CPU只有Intel的PIII以后系列才有序列号。如果对方的CPU是PII或更老的就不行了，而且还有很多AMD的CPU也没有序列号。

foxgirl · 2003-06-09

shine_wy: 你代码中用到的单元文件 uses SEShare;在哪儿啊？

foxgirl · 2003-06-09

上面的硬盘序列号不准确的。虽然格式化后保持不变，但重新分区的话还是会重新生成的。" 好象很多硬盘序列号一格式化就变了，如果能做到格式化后不变，只分区变的话，倒还可以用，毕竟用户不会经常分区啊 wr960204:为什么我的bios也没序列号啊

genyoo · 2003-06-09

好像网卡的序号在WINDOWS注册表中有，是不是在进行网络传输时WINDOWS不是总读取网卡的物理序号，而是读注册表？

abencat · 2003-06-09

硬盘的大小不会变的。

foxgirl · 2003-09-05

给历史遗留问题结贴

一台机器硬件序列号哪些在格式化后始终不变化的？(1分)

foxgirl

Unregistered / Unconfirmed

ynyangbo

Unregistered / Unconfirmed

yyii_yyii

Unregistered / Unconfirmed

Seoul_BJ

Unregistered / Unconfirmed

foxgirl

Unregistered / Unconfirmed

wr960204

Unregistered / Unconfirmed

yanyandt2

Unregistered / Unconfirmed

foxgirl

Unregistered / Unconfirmed

shine_wy

Unregistered / Unconfirmed

shine_wy

Unregistered / Unconfirmed

foxgirl

Unregistered / Unconfirmed

wr960204

Unregistered / Unconfirmed

foxgirl

Unregistered / Unconfirmed

foxgirl

Unregistered / Unconfirmed

genyoo

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

foxgirl

Unregistered / Unconfirmed

Similar threads