谁有提取硬盘、cpu、主版序号赠500分!白河愁等高手帮忙(300)

  • 主题发起人 主题发起人 dok001
  • 开始时间 开始时间
D

dok001

Unregistered / Unconfirmed
GUEST, unregistred user!
上个帖子“我一个软件用了HWinfo.dll提取硬件序号,有朋友测试说有木马,由于没有原码,请问用过的DFW,敢不敢用! ”已结。http://www.delphibbs.com/delphibbs/dispq.asp?lid=3944092白河愁真是高手,不过盒子里DllHijacker也能实现,看来那只能自己写代码了,我有提取硬盘、cpu序号的,但没有提取主版的,谁能能提取HWinfo.dll代码(我要编入程序),赠500分!谁能能提供提取主版序号代码(我要编入程序),赠300分!
 
如果是写共享软件的话,1、2个项目就够了。搞那么多干嘛?
 
我发现提取硬件序号对于有的老机子,是空号,所以有必要加提取主版的,其实主版序号有时一批次是相同的,起码用HWinfo.dll是这样的.
 
读取注册表呀
 
如何提取呀,有代码吗?d-ok@163.com
 
注意两个及以上硬盘是读不出来的function GetIdeSerialNumber: string; //获取硬盘的出厂系列号; const IDENTIFY_BUFFER_SIZE = 512;type TIDERegs = packed record bFeaturesReg: BYTE; bSectorCountReg: BYTE; bSectorNumberReg: BYTE; bCylLowReg: BYTE; bCylHighReg: BYTE; bDriveHeadReg: BYTE; bCommandReg: BYTE; bReserved: BYTE; end; 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; 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: DWORD; wMultSectorStuff: Word; ulTotalAddressableSectors: DWORD; wSingleWordDMA: Word; wMultiWordDMA: Word; bReserved: array[0..127] of BYTE; end; PIdSector = ^TIdSector; TDriverStatus = packed record bDriverError: Byte; bIDEStatus: Byte; bReserved: array[0..1] of Byte; dwReserved: array[0..1] of DWORD; end; TSendCmdOutParams = packed record cBufferSize: DWORD; DriverStatus: TDriverStatus; bBuffer: array[0..0] of BYTE; end;var edit1:Tedit; hDevice: Thandle; cbBytesReturned: DWORD; SCIP: TSendCmdInParams; aIdOutCmd: array[0..(SizeOf(TSendCmdOutParams) + IDENTIFY_BUFFER_SIZE-1)-1] of Byte; IdOutCmd: TSendCmdOutParams absolute aIdOutCmd;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 := ''; if SysUtils.Win32Platform = VER_PLATFORM_WIN32_NT then begin // Windows NT, Windows 2000 hDevice := CreateFile('//./PhysicalDrive0', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0); end else // Version Windows 95 OSR2, Windows 98 hDevice := CreateFile('//./SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0); if hDevice = INVALID_HANDLE_VALUE then Exit; try FillChar(SCIP, SizeOf(TSendCmdInParams) - 1, #0); FillChar(aIdOutCmd, SizeOf(aIdOutCmd), #0); cbBytesReturned := 0; with SCIP do begin cBufferSize := IDENTIFY_BUFFER_SIZE; with irDriveRegs do begin bSectorCountReg := 1; bSectorNumberReg := 1; bDriveHeadReg := $A0; bCommandReg := $EC; end; end; if not DeviceIoControl(hDevice, $0007C088, @SCIP, SizeOf(TSendCmdInParams) - 1, @aIdOutCmd, SizeOf(aIdOutCmd), cbBytesReturned, nil) then Exit; finally CloseHandle(hDevice); end; with PIdSector(@IdOutCmd.bBuffer)^ do begin ChangeByteOrder(sSerialNumber, SizeOf(sSerialNumber)); (Pchar(@sSerialNumber) + SizeOf(sSerialNumber))^:= #0; Result := Pchar(@sSerialNumber); edit1:=Tedit.Create(nil); edit1.Text:=result; result:=trim(edit1.text); end;end;
 
CPU信息可以从LMD控件的 LMDSysInfo 中读取!
 
看清楚些!  我有提取硬盘、cpu序号的,但没有提取主版的,谁有能提取HWinfo.dll代码(我要编入程序),赠500分!谁有能提供提取主版序号代码(我要编入程序),赠300分!
 
hwinfo.dll提取出来的主板信息是什么样子的?
 
AT/AT COMPATIBLE Tsing - 20080818
 
怎么看起来像BIOS的日期
 
恐怕是某公司+主板出厂日期,有没有办法
 
在网上找到一些代码,有的要用到"SHA1 "和" Base64",谁有,发一个,行了也送300分!d-ok@163.com
 
在google搜"SHA1 and Base64 下载",一大堆,是加解密用的.
 
就算你怎么读,也离不开 DeviceIoControl, hook 这个就搞定了。
 
MiTeC.System.Information带源码的,它的DEMO都可以当成品软件.
 
MiTeC.System.Information 下载了一个,安装不上,提示:.......not a design time package能不能发一个,d-ok@163.com
 
AntiDebugLIB V2.3 是专门为windows xp/2003/vista sp1/2008(x86)操作系统设计的软件加密工具,它能帮助软件开发者保护他们的应用程序不被高级反编译专家和黑客破解,AntiDebugLIB V2.3内置强大的许可证管理机制,使软件开发者可以安全地发布他们的试用版软件。 一旦应用程序经AntiDebugLIB V2.3加密,它将不能被任何调试工具调试,不能被静态或动态分析,不能从内存中dump出来,也不能被肆意地修改。 更多的信息请参考:http://www.antidebuglib.com/index_cn.htmlQQ:86029535
 
勉强装上,但不知用哪个,是MiTeC_SMBIOS吗?取哪个值?
 
procedure TForm1.Button1Click(Sender: TObject);begin MiTeC_SMBIOS1.RefreshData; showmessage(MiTeC_SMBIOS1.MainBoardSerial);end;显示为空
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部