利用磁盘的序列号进行软件加密

原创 2001年06月03日 11:26:00

 

利用磁盘的序列号进行软件加密

用过共享软件的人都知道,一般的共享软件(特别是国外的)在使用一段时间后都会提出一些“苛刻”的要求,如让您输入注册号等等。如果您想在软件中实现该“功能”的话,方法有很多。在这里我介绍一种我认为安全性比较高的一种,仅供参考。

  大家都知道,当您在命令行中键入“dir”指令后,系统都会读出一个称作Serial Number的十六进制数字。这个数字理论上有上亿种可能,而且很难同时找到两个序列号一样的硬盘。这就是我这种注册方法的理论依据,通过判断指定磁盘的序列号决定该机器的注册号。

  要实现该功能,如何获得指定磁盘的序列号是最关键的。在Windows中,有一个GetVolumeInformation的API函数,我们利用这个函数就可以实现。

  下面是实现该功能所需要的代码:

  Private Declare Function GetVolumeInformation& Lib "kernel32" _

  Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _

  ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _

  lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _

  lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _

  ByVal nFileSystemNameSize As Long)

  Private Const MAX_FILENAME_LEN = 256

  Public Function DriveSerial(ByVal sDrv As String) As Long

  'Usage:

  'Dim ds As Long

  'ds = DriveSerial("C")

  Dim RetVal As Long

  Dim str As String * MAX_FILENAME_LEN

  Dim str2 As String * MAX_FILENAME_LEN

  Dim a As Long

  Dim b As Long

  GetVolumeInformation sDrv & ":/", str, MAX_FILENAME_LEN, RetVal, _

  a, b, str2, MAX_FILENAME_LEN

  DriveSerial = RetVal

  End Function

  如果我们需要某个磁盘的序列号的话,只要DriverSerial(该磁盘的盘符)即可。如DriverASerialNumber=DriverSerial("A")。

  下面,我们就可以利用返回的磁盘序列号进行加密,需要用到一些数学知识。在这里我用了俄罗斯密码表的加密算法对进行了数学变换的序列号进行加密。下面是注册码验证部分的代码:

  Public Function IsValidate(ByVal SRC As Long, ByVal Value As String) As Boolean

  Dim SourceString As String

  Dim NewSRC As Long

  For i = 0 To 30

  If (SRC And 2 ^ i) = 2 ^ i Then

  SourceString = SourceString + "1"

  Else

  SourceString = SourceString + "0"

  End If

  Next i

  If SRC < 0 Then

  SourceString = SourceString + "1"

  Else

  SourceString = SourceString + "0"

  End If

  Dim Table As String

  Dim TableIndex As Integer

  '================================================================================

  '这是密码表,根据你的要求换成别的,不过长度要一致

  '================================================================================

  '注意:这里的密码表变动后,对应的注册号生成器的密码表也要完全一致才能生成正确的注册号

  Table = "JSDJFKLUWRUOISDH;KSADJKLWQ;ABCDEFHIHL;KLADSHKJAGFWIHERQOWRLQH"

  '================================================================================

  Dim Result As String

  Dim MidWord As String

  Dim MidWordValue As Byte

  Dim ResultValue As Byte

  For t = 1 To 1

  For i = 1 To Len(SourceString)

  MidWord = Mid(SourceString, i, 1)

  MidWordValue = Asc(MidWord)

  TableIndex = TableIndex + 1

  If TableIndex > Len(Table) Then TableIndex = 1

  ResultValue = Asc(Mid(Table, TableIndex, 1)) Mod MidWordValue

  Result = Result + Hex(ResultValue)

  Next i

  SourceString = Result

  Next t

  Dim BitTORool As Integer

  For t = 1 To Len(CStr(SRC))

  BitTORool = SRC And 2 ^ t

  For i = 1 To BitTORool

  SourceString = Right(SourceString, 1) _

  + Left(SourceString, Len(SourceString) - 1)

  Next i

  Next t

  If SourceString = Value Then IsValidate = True

  End Function

  由于代码较长,还有一些部分的代码在此省略,您可以去我的网站(http://vbtechnology.yeah.net)下载源程序研究一下。

  最后,我们就可以利用这些子程序进行加密了。

利用磁盘的序列号进行软件加密

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 05:26
  • 109

如何用硬盘序列号加密共享软件?

一些软件开发者为辛辛苦苦开发出的的软件如何不被盗版而发愁,他们想尽方法来为软件加壳,下面介绍一种采用硬盘物理序列号进行加密软件的方法.1.采用一外部二进制文件用于保存要注册用户的硬盘序列号.需要软件开...
  • PentiumMMX
  • PentiumMMX
  • 2007年05月04日 19:41
  • 1891

【miscellaneous】如何利用硬盘号和CPU序列号为软件加密

原文:http://www.jiamisoft.com/blog/index.php/3469-yingpanhaocpuruanjianjiami.html 计算机软件是一种特殊的产品,为了防...
  • LG1259156776
  • LG1259156776
  • 2016年11月09日 19:49
  • 1006

Qt对MAC地址加密写入注册表

1、Qt利用QSetting读写注册表。 Windows的注册表格式分为根键、子键、键、值四种元素。 根键为最起始的计算机(“/”)。 根键下有五大子键。 每个子键下有下属子键、键、值。 ...
  • wenwenxiong
  • wenwenxiong
  • 2014年03月25日 11:08
  • 1038

windows 如何查看磁盘序号_

1、在开始——运行里输入cmd,按回车键; 2、调出command命令窗口,输入diskpart,按回车键; 3、输入list disk,按回车键; list disk:查看电脑上有几块硬盘; ...
  • wuzuyu365
  • wuzuyu365
  • 2017年02月20日 20:30
  • 925

WNDOWS编程获取系统磁盘序号及硬件ID

编程中经常需要排除系统磁盘,如何实现?以下是一些基本概念。 1. 磁盘序号:在磁盘管理页面显示的磁盘0/1/2等,0、1、2即磁盘序号。 2. 磁盘硬件ID:设备管理器页面某设备右键->详细信息-...
  • binzhongbi757
  • binzhongbi757
  • 2014年12月16日 11:26
  • 2162

获取硬盘序列号和卷标序列号

获取硬盘序列号和卷标序列号作者:ImMcss 欢迎转载,请以超链接形式保留原文地址。硬盘序列号和卷标序列号很容易混淆。硬盘序列号:      英文名 Hard Disk Serial Number, ...
  • immcss
  • immcss
  • 2008年04月16日 15:38
  • 4326

利用U盘进行软件加密的方法

  一般的U盘不具备加密的功能,虽然U盘和加密狗外形有一些相似,但是内部完全不一样的,U盘只是一个存储器芯片和简单的附属电路,而现在的智能卡加密狗都具有一个单独的CPU或者加密芯片,可以执行相当复杂的...
  • gavin_luo
  • gavin_luo
  • 2009年07月02日 13:26
  • 700

linux下怎样查看硬盘型号和硬盘序列号

首先 sudo fdisk -l 查看自己的硬盘有哪些,之后sduo hdparm -i /dev/sda(我的硬盘是sda) 就可以看到参数了...
  • bush2582
  • bush2582
  • 2014年02月20日 14:41
  • 4611

在内核模块中通过系统调用ioctl获取ATA/SCSI硬盘序列号

open, read, ioctl 这些系统调用本来是提供给用户空间的程序访问的,所以,对传递给它的参数,它默认会认为来自用户空间,在->write()函数中,为了保护内核空间,一般会用get_fs(...
  • force_eagle
  • force_eagle
  • 2010年04月20日 16:46
  • 7279
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:利用磁盘的序列号进行软件加密
举报原因:
原因补充:

(最多只允许输入30个字)