获取各类硬件ID汇编代码

最新推荐文章于 2020-03-10 18:09:47 发布
最新推荐文章于 2020-03-10 18:09:47 发布
阅读量5.5k 收藏 3
点赞数
分类专栏： DELPHI C/C++ 
{-----------------------------------------------------------------------------
作者：sushengmiyan 2013.01.26
备注：
功能：硬件信息获取单元
-----------------------------------------------------------------------------}

unit ApplicationHardWareInfo;

interface
uses
  Windows, SysUtils, Classes, Registry, Nb30, WinSock;

type
  TCPUID = array[1..4] of Longint;
  function GetCPUID: TCPUID; assembler; register;
type

 //CPUID信息类
 TCPUIDInfo = class
 private
   FCPUID: TCPUID;
   FCPUIDStr: string;
   procedure SetCPU(AHandle: THandle; CpuNo: Integer);
   function CPUIDTostr(ACPUID: TCPUID): string;
   function GetComputerBasicFrequency: string;
   function GetCPUType: string;
 public
   function GetCPUIDstr: string;
   property CPUFrequency: string read GetComputerBasicFrequency;
   property ProcessorType: string read GetCPUType;
   constructor Create;
 end;

 //mac地址信息类
 TMacAdressInfo = class
 private
   FMacAdress: string;
   function GetMacPhysicalAddress(Alana: Integer = 0): string;
   function GetMacAddress: string;
 public
   property MacAdrress: string read GetMacAddress;
   constructor Create;
 end;
 
 //用户信息类
 TPCUserInfo = class
 private
   function GetUserName: string;
   function GetHostIP: string;
   function GetWindowsVertion: string;
 public
   property UserName: string read GetUserName;
   property HostIP: string read GetHostIP;
   property WindowsVertion: string read GetWindowsVertion;
   constructor Create;
 end;

implementation

{ TCPUIDInfo }
{----------------------------------------------------------------------------\-
作者：sushengmiyan 2013.01.26
参数：None
返回：TCPUID
功能：汇编方式获取CPUID
\-----------------------------------------------------------------------------}

function GetCPUID: TCPUID;
asm
  PUSH    EBX         {Save affected register}
  PUSH    EDI
  MOV     EDI,EAX     {@Resukt}
  MOV     EAX,1
  DW      $A20F       {CPUID Command}
  STOSD                {CPUID[1]}
  MOV     EAX,EBX
  STOSD               {CPUID[2]}
  MOV     EAX,ECX
  STOSD               {CPUID[3]}
  MOV     EAX,EDX
  STOSD               {CPUID[4]}
  POP     EDI         {Restore registers}
  POP     EBX
end;

{----------------------------------------------------------------------------\-
作者：sushengmiyan 2013.01.26
参数：ACPUID: TCPUID
返回：string
功能：将十六进制的CPUID转换为字符串
\-----------------------------------------------------------------------------}

function TCPUIDInfo.CPUIDTostr(ACPUID: TCPUID): string;
begin
  Result := '';
  Result := IntToHex(ACPUID[1] , 8) + IntToHex(ACPUID[2] , 8) + IntToHex(ACPUID[3]
  , 8) + IntToHex(ACPUID[4] , 8);
end;

{----------------------------------------------------------------------------\-
作者：sushengmiyan 2013.01.26
参数：None
返回：string
功能：处理器类型
\-----------------------------------------------------------------------------}

function TCPUIDInfo.GetCPUType: string;
var
  systeminfo: SYSTEM_INFO;
begin
  //获得CPU型号
  GetSystemInfo(systeminfo);
  Result := IntToStr(systeminfo.dwProcessorType)
end;

{----------------------------------------------------------------------------\-
作者：sushengmiyan 2013.01.26
参数：None
返回：string
功能：CPU频率
\-----------------------------------------------------------------------------}

function TCPUIDInfo.GetComputerBasicFrequency: string;
const
  DelayTime = 500;
var
  TimerHi, TimerLo: DWORD;
  PriorityClass, Priority: Integer;
  dSpeed: Double;
begin
  PriorityClass := GetPriorityClass(GetCurrentProcess);
  Priority := GetThreadPriority(GetCurrentThread);
  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
  Sleep(10);
  asm
    dw 310Fh // RDTSC指令
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  Sleep(DelayTime);
  asm
    dw 310Fh // rdtsc
    sub eax, TimerLo
    sbb edx, TimerHi
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  SetThreadPriority(GetCurrentThread, Priority);
  SetPriorityClass(GetCurrentProcess, PriorityClass);
  dSpeed := TimerLo / (1000.0 * DelayTime);
  Result := FormatFloat('0.00' , dSpeed / 1024) + ' GHz';
end;

{----------------------------------------------------------------------------\-
作者：sushengmiyan 2013.01.26
参数：AOwner: TComponent
返回：None
功能：初始化
\-----------------------------------------------------------------------------}

constructor TCPUIDInfo.Create;
begin
  FCPUID := GetCPUID;
  FCPUIDStr := CPUIDTostr(FCPUID);
end;

{----------------------------------------------------------------------------\-
作者：sushengmiyan 2013.01.26
参数：None
返回：string    CPUID字符串
功能：对外函数，调用这个方法就能得到CPUID
\-----------------------------------------------------------------------------}

function TCPUIDInfo.GetCPUIDstr: string;
begin
  SetCPU(GetCurrentProcess , 1);
  Result := CPUIDTostr(GetCPUID);
end;

{----------------------------------------------------------------------------\-
作者：sushengmiyan 2013.01.26
参数：AHandle: THandle; CpuNo: Integer
返回：None
功能：设置使用哪个cpu默认是第一个（推荐）
\-----------------------------------------------------------------------------}

procedure TCPUIDInfo.SetCPU(AHandle: THandle; CpuNo: Integer);
var
  ProcessAffinity: Cardinal;
  _SystemAffinity: Cardinal;
begin
  //通过设置进程或线程的亲缘性（affinity），使进程或线程在指定的CPU（核）上运行
  GetProcessAffinityMask(AHandle , ProcessAffinity, _SystemAffinity) ;
  ProcessAffinity := CpuNo;
  SetProcessAffinityMask(AHandle , ProcessAffinity);
end;

{ TMacAdressInfo }
{----------------------------------------------------------------------------\-
作者：sushengmiyan 2013.01.26
参数：None
返回：None
功能：初始化
\-----------------------------------------------------------------------------}

constructor TMacAdressInfo.Create;
begin
  FMacAdress := GetMacPhysicalAddress;
end;

{----------------------------------------------------------------------------\-
作者：sushengmiyan 2013.01.26
参数：None
返回：string
功能：返回Mac地址
\-----------------------------------------------------------------------------}

function TMacAdressInfo.GetMacAddress: string;
begin
  Result := FMacAdress;
end;

{----------------------------------------------------------------------------\-
作者：sushengmiyan 2013.01.26
参数：Alana: Integer = 0
返回：string
功能：通过LANA号获取Mac物理地址 （内存方式获取），整体步骤如下：
    一、枚举系统上可用的所有LANA编号
    二、重置计划使用的每个LANA编号
    三、适配器命令获取网卡地址
\-----------------------------------------------------------------------------}

function TMacAdressInfo.GetMacPhysicalAddress(Alana: Integer = 0): string;
var
  NCB: TNCB;//Netbios控制块
  AdapterStatus: TAdapterStatus;//取网卡状态
  LanaEnum: TLanaEnum; //LANA枚举值
  I: Integer;
begin
  Result := '';
  Try
  { http://blog.csdn.net/sushengmiyan/article/details/8543811
    一、枚举LANA值
      ①.申请分配一个TNCB结构           NCB: TNCB；
      ②.将TNCB结构变量初始化成O        ZeroMemory(@NCB , SizeOf(NCB));
      ③.置命令为NCBENUM                NCB.ncb_Command := chr(NCBENUM);
      ④.为ncb_buffer分配LANA_ENUM      NCB.ncb_buffer := @LANAENUM;
      ⑤.为NCB_length制定长度           NCB.NCB_length := Sizeof(LANAENUM);
      ⑥.调用Netbios函数获取Netbios     CRC := NetBios(@NCB);
      ⑦.返回值NRC_GOODRET表示成功      NCB.ncb_retcode = Chr(NRC_GOODRET)
    }
    ZeroMemory(@NCB , SizeOf(NCB));
    NCB.ncb_Command := Chr(NCBENUM);
    NCB.ncb_buffer := @LANAENUM;
    NCB.NCB_length := Sizeof(LANAENUM);
    NetBios(@NCB);
    if not (NCB.ncb_retcode = Chr(NRC_GOODRET)) then Exit;


  { http://blog.csdn.net/sushengmiyan/article/details/8543811
    二、重置计划使用的每个LANA编号
      ①.申请分配一个TNCB结构           NCB: TNCB；
      ②.将TNCB结构变量初始化成O        ZeroMemory(@NCB , SizeOf(NCB));
      ③.置命令为NCBRESET               NCB.ncb_Command := chr(NCBRESET);
      ④.给命令设置LANA编号             NCB.ncb_lana_num := LanaEnum.lana[Alana];
      ⑤.调用Netbios函数获取Netbios     CRC := NetBios(@NCB);
      ⑥.返回值NRC_GOODRET表示成功      NCB.ncb_retcode = Chr(NRC_GOODRET)
    }
    ZeroMemory(@NCB , SizeOf(NCB));
    NCb.ncb_Command := Chr(NCBRESET);
    NCB.ncb_lana_num := LanaEnum.lana[Alana];
    Netbios(@NCB);
    if not (NCB.ncb_retcode = Chr(NRC_GOODRET)) then Exit;

   { http://blog.csdn.net/sushengmiyan/article/details/8543811
    三、使用TAdapterStatus结构获取网卡地址
      ①.申请分配一个TNCB结构           NCB: TNCB；
      ②.将TNCB结构变量初始化成O        ZeroMemory(@NCB , SizeOf(NCB));
      ③.置命令为NCBASTAT               NCB.ncb_Command := chr(NCBASTAT);
      ④.为ncb_buffer分配LANA_ENUM      NCB.ncb_buffer := @LANAENUM;
      ⑤.设置ncb_callname               NCB.ncb_callname := '* ' + #0;
      ⑥.为ncb_buffer分配AdapterStatus  NCB.ncb_buffer := @AdapterStatus;
      ⑦.为NCB_length制定长度           NCB.NCB_length := Sizeof(AdapterStatus);
      ⑧.调用Netbios函数获取Netbios     CRC := NetBios(@NCB);
    }
    ZeroMemory(@NCB , SizeOf(NCB));
    NCb.ncb_Command := chr(NCBASTAT);
    NCB.ncb_lana_num := LANAENUM.lana[Alana];
    NCB.ncb_callname[0] := '*';
    //不明白为何如此设置，*代表啥子？
    //有懂的可以邮件分享 429119108@qq.com   O(∩_∩)O谢谢
    NCB.ncb_buffer := @AdapterStatus;
    NCB.ncb_length := SizeOf(AdapterStatus);
    NetBios(@NCB);

    //获取形如AA-BB-CC-DD-EE-FF形式的mac物理地址字符串
    Result := '';
    for I := 0 to 5 do
    if SameStr(Result , '') then
      Result := Result + IntToHex(Integer(AdapterStatus.adapter_address[I]) , 2)
    else
      Result := Result + '-' + IntToHex(Integer(AdapterStatus.adapter_address[I]) , 2);
  Finally

  End;
end;

{ TPCUserInfo }


{----------------------------------------------------------------------------\-
作者：sushengmiyan 2013.01.26
参数：None
返回：None
功能：创建
\-----------------------------------------------------------------------------}

constructor TPCUserInfo.Create;
begin

end;

{----------------------------------------------------------------------------\-
作者：sushengmiyan 2013.01.26
参数：None
返回：string
功能：得到主机IP
\-----------------------------------------------------------------------------}

function TPCUserInfo.GetHostIP: string;
var
  sHostName: string;
  WSAData: TWSAData;
  HostEnt: PHostEnt;
begin
  sHostName := UserName;
  Result := '';
  WSAStartup(2 , WSAData);
  HostEnt := GetHostByName(PChar(sHostName));
  if HostEnt <> nil then
  begin
    with HostEnt^ do
　　　Result:= Format('%d.%d.%d.%d' , [Byte(h_addr^[0]) , Byte(h_addr^[1])
        , Byte(h_addr^[2]) , Byte(h_addr^[3])]);
　end;
　WSACleanup;
end;

{----------------------------------------------------------------------------\-
作者：sushengmiyan 2013.01.26
参数：None
返回：None
功能：获取用户名
\-----------------------------------------------------------------------------}

function TPCUserInfo.GetUserName;
var
  Name: PChar;
  Size: DWORD;
begin
  GetMem(Name , 255);//申请内存
  Size := 255;
  GetComputerName(Name , Size);
  Result := Name;
  FreeMem(Name); //记得释放内存
end;

{----------------------------------------------------------------------------\-
作者：sushengmiyan 2013.01.26
参数：None
返回：string
功能：返回操作系统类型
\-----------------------------------------------------------------------------}

function TPCUserInfo.GetWindowsVertion: string;
  function GetWindowsVersionString: string;
  var
    oSVersion: TOSVersionInfoA;
  begin
    Result := '';
    oSversion.dwOSVersionInfoSize := SizeOf(TOSVersionInfoA);
    if GetVersionExA(oSVersion) then
      with oSVersion do
        Result := Trim(Format('%s', [szCSDVersion]));
  end;
var
  AWin32Version: Extended;
  sWin: string;
begin
  sWin := 'Windows';
  AWin32Version := StrToFloat(Format('%d.%d', [Win32MajorVersion, Win32MinorVersion]));
  case Win32Platform of
    VER_PLATFORM_WIN32s:
      Result := sWin + '32';
    VER_PLATFORM_WIN32_WINDOWS:
    begin
      if AWin32Version = 4.0 then
        Result := sWin + '95'
      else if AWin32Version = 4.1 then
        Result := sWin + '98'
      else if AWin32Version = 4.9 then
        Result := sWin + 'Me'
      else
        Result := sWin + '9x';
    end;
    VER_PLATFORM_WIN32_NT:
    begin
      if AWin32Version = 3.51 then
        Result := sWin + 'NT 3.51'
      else if AWin32Version = 4.0 then
        Result := sWin + 'NT 4.0'
      else if AWin32Version = 5.0 then
        Result := sWin + '2000'
      else if AWin32Version = 5.1 then
        Result := sWin + 'XP'
      else if AWin32Version = 5.2 then
        Result := sWin + '2003'
      else if AWin32Version = 6.0 then
        Result := sWin + 'Vista'
      else if AWin32Version = 6.1 then
        Result := sWin + '7'
      else
        Result := sWin;
    end
    else
      Result := sWin;
  end;
  Result := Result + '  ' + GetWindowsVersionString;
end;

end.









void CMyDlg::OnButton7() //VC 内联汇编获取CPU机器码。。强大
{
 
char h1[260];
unsigned long s1,s2,s3,s4;
__asm
{
mov eax,00h
xor edx,edx
cpuid
mov s1, edx
mov s2, eax
}
__asm
{
mov eax,01h
xor ecx,ecx
xor edx,edx
cpuid
mov s3, edx
mov s4, ecx
}
 
sprintf(h1,"%X%X%X%X",s1,s2,s3,s4);
a.MsgBox (h1);//这个MsgBox 函数不是VB的，我封装的，到时候会在VC板块里面放出，我写了一个VC梦类模块，把VC里面的常用操作封装为了一个开源的类，调用起来很方便的，会找到VB的感觉，VC6.0也会变得各种简单起来。。。
}


郁闷的坦然
关注
  • 0
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Delphi获取电脑硬件信息(DLL方式)，BIOS、CPU、网卡、硬盘序列号
04-02
Delphi获取电脑硬件信息(DLL方式)，BIOS、CPU、网卡、硬盘序列号 DLL方式直接调用，包含DLL工程源代码
获取硬件信息的delphi源码（CPUID、操作系统、Mac物理地址、计算机名称、IP地址、用户名）
热门推荐
苏生-苏米沿的专栏
01-26 1万+
转载请保留本文链接地址：http://blog.csdn.net/sushengmiyan/article/details/8545673 {----------------------------------------------------------------------------- 作者：sushengmiyan 2013.01.26 备注： 功能：硬件信息获取单元 -----
在DELPHI中通过获取计算机一系列硬件信息
wanjichun的专栏
11-12 2185
 在DELPHI中通过获取计算机一系列硬件信息  Delphi获取硬件信息 Delphi的硬件信息算法
Win32_Processor CPU 参数说明
yeyingss的专栏
10-24 1万+
AddressWidth  --在32位操作系统，该值是32，在64位操作系统是64。 Architecture  --所使用的平台的处理器架构。 AssetTag  --代表该处理器的资产标签。 Availability  --设备的状态。 Caption  --设备的简短描述 Characteristics  --处理器支持定义的功能 ConfigManagerErrorCode
汇编语言写获取硬件信息（主板硬盘序列号等等）
06-08
在SMBIOS.EXE这个可执行文件中，可能已经集成了上述汇编代码，可以运行在DOS环境下获取所需硬件信息。 总结起来，通过汇编语言获取硬件信息，尤其是主板和硬盘的序列号，涉及到对SMBIOS接口的利用，对DOS中断调用的...
汇编代码注入工具.rar
04-17
2. **内存访问**：获取目标进程的句柄，然后通过内存映射函数（如Windows API的VirtualAllocEx）在目标进程中分配内存，为注入的汇编代码预留空间。 3. **代码写入**：将汇编代码复制到目标进程的内存空间。这一步...
x86,x64 汇编代码注入器 C,C++写的
04-15
2. **获取进程内存权限**：为了能够在目标进程中写入代码，注入器必须获取足够的访问权限。这通常通过Windows API函数如`OpenProcess`来完成。 3. **分配内存**：在目标进程中分配一块内存供注入代码使用。`...
汇编源代码大全压缩包资料
02-10
汇编语言是计算机科学的基础，它是直接与计算机硬件交互的语言，具有高效、低级的特点，常用于系统编程、设备驱动开发、嵌入式系统等领域。本压缩包“汇编源代码大全”收录了近70个针对不同器件的汇编源码包，是学习...
汇编代码注入器，支持x64和x86
最新发布
04-04
汇编语言因其底层特性，使得注入的代码能更直接地控制计算机硬件，提高执行效率。 二、x86架构的代码注入 在x86架构下，代码注入通常通过以下步骤实现： 1. 获取目标进程的句柄：使用Windows API函数如...
VBS获取完整计算机配置信息
04-03
VBS获取完整计算机配置信息，可添加域组策略，批量获取局域网计算机配置信息
【bat】查询电脑配置信息
03-30
这是一个可以查询电脑配置的bat，适合不知道自己电脑配置的人群，点击即可查看，如果害怕有毒可以把bat后缀改为txt查看源码！ bat源码： dxdiag 完
DELPHI获取电脑硬件信息
11-29
DELHI获取电脑硬件主板、CPU、网卡等信息
DELPHI 从注册表中读取各类硬件信息
03-14
DELPHI 从注册表中读取各类硬件信息
Delphi得到系统硬件ID(特征码).rar
07-10
同时也可获得操作系统版本，判断Windows版本时，返回值: 为0表示为win3x系统; 为1表示为win9x系统; 为2表示为winNT; 为3表示为win2000系统;获取硬件ID主要有：逻辑硬盘号、物理硬盘号、网卡MAC、Bios、CPU、Windows版本等，列出固件原始的唯一ID标识，编写硬件检测软件时可用得上。
delphi 读取网卡mac的3种方式
fastspeeed的专栏
07-11 952
第一种 最简单也最实用，通过调用ipconfig -all 来取得网卡。 第二种 通过netbios，因为是网络协议，如果网卡没有连接上，取不到mac地址 第三种 通过rpc调用，只能得到一块网卡.在有多块网卡时会出现有时取到的MAC不一致.
Hardware information 修改方法
Eliot_shao的专栏
02-25 3638
Hardware information是手机使用工程号码可以打开的，一个可以测试查看手机硬件的app，叫做Emode。 以A165为例，工程号码为：*983*7#。A165是以MTK6735为处理器的Android6.0手机。这里的主要任务是在Emode界面中添加一条光感距传感器的型号信息。需要java层添加一个项，确定驱动文件的内容，并显示出来。 主要修改了5个文件分别是： Z:\A16
Delphi 利用注册表和API取WIN系统下硬件信息
zyxmeng的专栏
09-06 3402
小弟刚刚接触Delphi，写了一个“利用注册表和API取WIN系统下硬件信息”程序，此程序在多台机器上测试过，并获得想要的结果，只是小弟的手中机型不是很多，可能还有好多机型没有测试过，如果那位对小弟的程序感兴趣的话不妨帮小弟测试一下，并提出宝贵意见，在此谢谢！^0^以下是整个程序，有相关的文字注释，我就不多说了，有兴趣人慢慢看看吧！如果有错误之处，敬请指出！unit Unit_test;inter
Delphi D10.X安卓APP开发中获取硬件信息及手机号
tanqth的专栏
03-10 1万+
使用delphi开发安卓APP时，获取手机的硬件设备及手机信息。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值