如何根据计算机硬件生成唯一的串号或序列号？--已解决

iamlimeng

想开发一个程序，可以根据使用者的计算机硬件配置生成一个唯一的串号或序列号，就象很多软件的机器码那样。

不知道有没有相关模块，知道的大虾给个方案，非常感激！

（只需在微软WINDOWS平台能实现就可以了）

兰花仙子

取得计算机某一方面的物理特征，比如MAC地址，然后用之作为key，生成一个加密串。
http://search.cpan.org/~mthurn/N ... Address/Ethernet.pm

iamlimeng

谢谢仙子姐姐，我认真看一下，搞定了把结果贴上来。

wind_ch

MAC地址也是可以修改的.
試下 UUID

iamlimeng

我看了仙子提供的包，不能满足我的要求。

我希望能综合两三个核心硬件信息，生成一个机器码，单纯地以MAC地址作为依据，不是太可靠，再说如楼上兄弟所说，MAC是可以修改的。

ulmer

回复 1# iamlimeng

using perl->WMI: Win32_ComputerSystem read CPU's Property:
    ProcessorId, Value: AFE9F9FF000006D8
to get unique ID.

x9x9

好像有些是利用硬盘的序列号加密的~

http://www.google.cn/search?hl=z ... g2&aql=&oq=

还有这个cpu的：

http://bbs.chinaunix.net/redirec ... 1&goto=lastpost

iamlimeng

回复 6# ulmer

问题解决了，是在Win32_Processor类中。非常感谢！

iamlimeng

回复 7# x9x9

谢谢提供资料，问题已解决。

iamlimeng

贴出来与大家共享：

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use Win32::OLE qw(in);
   
5. use Win32::OLE::Variant;
   
6. 
   
7. my $strComputer = '.';
   
8. my $objWMIService = Win32::OLE->GetObject('winmgmts:' .
   
9.     '{impersonationLevel=impersonate}!\\\\' . $strComputer .
   
10.     '\\root\\cimv2');
    
11. my $wql = 'SELECT * FROM Win32_Processor';
    
12. my $results = $objWMIService->ExecQuery($wql);
    
13. print "The Processor Information of this computer is as follows:\n\n";
    
14. foreach my $obj (in $results) {
    
15.     print "Manufacturer : ", $obj->Manufacturer, "\n";
    
16.     print "Name         : ", $obj->Name, "\n";
    
17.     print "ProcessorId  : ", $obj->ProcessorId, "\n";
    
18.     print "UniqueId     : ", $obj->UniqueId, "\n";
    
19.     print "Version      : ", $obj->Version, "\n";
    
20.     print "Description  : ", $obj->Description, "\n";
    
21.     print "DeviceID     : ", $obj->DeviceID, "\n";
    
22.     print "MaxClockSpeed: ", $obj->MaxClockSpeed, "\n";
    
23.     print "LogProcessors: ", $obj->NumberOfLogicalProcessors, "\n";
    
24.     print "ProcessorType: ", $obj->ProcessorType, "\n";
    
25.     print "VoltageCaps  : ", $obj->VoltageCaps, "\n";
    
26. }
    
27. 
    
28. <STDIN>;

复制代码