问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

通过一款软件生成的密钥,可成功激活Vista。 这是来自国外Keznews论坛的消息,我想弄到他的下载地址!

发布网友 发布时间:2022-04-29 07:15

我来回答

3个回答

热心网友 时间:2023-10-13 03:08

  Vista"暴力算号器"关键代码部分的分析

  这三天传播的所谓修改slmgr.vbs达到"算号"目的的Windows Vista"暴力算号器",我对其关键代码进行了分析.分析发现,此段代码仅仅是从Windows 序列号所允许的全部25个字母(实际应该是24个,这里面错误地多出了一个"L")中随机选取5组各5个字符组成一个字符串,再以此调用Vista的授权服务进行验证.根本就无法算出序列号,只是进行一种穷举破解而已.

  相关关键代码分析:
  运行slmgr带-ipk generate参数,则到此处

  Private Sub InstallProctKey(strProctKey)
  Dim objService, objProct '定义授权服务对象
  Dim lRet, strDescription, strOutput '定义返回值
  Dim random(24) '定义一个25元素的数组
  Dim x
  Dim y
  Dim Group
  Dim FoundKey

  Dim z
  Dim a '定义环境变量和临时变量
  Randomize '初始化随机数种子
  FoundKey = False '初始化FoundKey变量

  MsgBox "Click to begin generating a Key" '显示消息框

  For Each objService in g_objWMIService.InstancesOf(ServiceClass) '尝试每种服务(Retail、KMS、OEM)

  For Each objProct in g_objWMIService.InstancesOf(ProctClass) '尝试每个产品(Vista的各种版本)
  While FoundKey = False '当没有找到key时,循环

  On Error Resume Next '忽略错误

  strProctKey = ""

  random(0) = "B"
  random(1) = "C"
  random(2) = "D"
  random(3) = "F"
  random(4) = "G"
  random(5) = "H"
  random(6) = "J"
  random(7) = "K"
  random(8) = "L"
  random(9) = "M"
  random(10) = "P"
  random(11) = "Q"
  random(12) = "R"
  random(13) = "T"
  random(14) = "V"
  random(15) = "W"
  random(16) = "X"
  random(17)= "Y"
  random(18)= "2"
  random(19)= "3"
  random(20)= "4"
  random(21)= "6"
  random(22)= "7"
  random(23)= "8"
  random(24)= "9"

  '定义可用的25个字符
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))

  strProctKey = strProctKey & "-"

  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))

  strProctKey = strProctKey & "-"

  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))

  strProctKey = strProctKey & "-"

  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))

  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))

  strProctKey = strProctKey & "-"

  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd())) '生成一个形式为"xxxxx-xxxxx-xxxxx-xxxxx-xxxxx"的字符串,其中x为random()数组中的元素

  objService.InstallProctKey(strProctKey) '对授权服务安装上述字符串"序列号"

  strDescription = objProct.Description '得到产品描述

  If IsKmsServer(strDescription) Then '如果是KMS?
  ' Set the KMS version in the registry
  lRet = SetRegistryStr(HKEY_LOCAL_MACHINE, SLKeyPath, "KeyManagementServiceVersion", objService.Version) '此处不明,应为将密钥管理服务版本设为与本机版本一致
  If (lRet = 0) Then '若设置失败
  'QuitWithError CStr(Hex(lRet))
  msgbox strProctKey
  strOutput = Replace(GetResource("L_MsgInstalledPKey"), "%PKEY%", strProctKey)
  LineOut strOutput
  FoundKey = True '找到key,操作完成
  End If
  Else '如果不是kms?
  lRet = DeleteRegistryValue(HKEY_LOCAL_MACHINE, SLKeyPath, "KeyManagementServiceVersion") '删除注册表密钥管理信息
  If (lRet = 0 And lRet = 2 And lRet = 5) Then '若失败,则
  'QuitWithError CStr(Hex(lRet))
  msgbox strProctKey
  strOutput = Replace(GetResource("L_MsgInstalledPKey"), "%PKEY%", strProctKey)
  LineOut strOutput
  FoundKey = True '找到key,操作完成
  End If
  End If
  WEND
  Next
  'QuitIfError()
  Next
  End Sub

  这个脚本利用Vista的密匙服务在安装Proct Key成功时会打开注册表下某键值的特点,反复随机生成序列号字符反复验证,当修改/删除那个键值失败时,就判定该key合法.其实这样完全是大海捞针,碰运气,有些人几个小时就能碰中,有些人几个月都碰不中一个.我已经用这个脚本算了6小时,完全没有结果.

  yksoft1(yksoft1@gmail.com) 原创.本文根据LGPL协议发布,可以在注明原作者和出处的情况下任意修正和传播.

  相关的链接
  · 参阅主题: Windows Vista 新闻主题
  · 责任编辑: ugmbbc

  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:03:32 CST
  所谓的暴力算号,不就是穷举么。
  如果真有算号规则,则就称不上暴力了。
  http://umsn.blogspot.com/ [umsn.blogspot.com]
  --------------------------------------------------------------------------------
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:25:11 CST
  楼上正解.
  --------------------------------------------------------------------------------
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 01:33:57 CST
  正解!!
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Saturday, 03月03日 @ 23:59:43 CST
  哎。算了四个钟。最终放弃

  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:01:49 CST
  暴力穷举本来就是靠人品运气的

  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:06:01 CST
  支持cb原创!

  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:07:06 CST
  试想20位有几种组合...

  --------------------------------------------------------------------------------
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:28:21 CST
  作者在论坛上也说得很明白,自己对程序不怎么精通,这段代码很简单,算法也很简单,他的代码全部公开,希望大家能改进. 甚至有人提出开发一个分布式的算vista cdkey的程序.我想说,穷举法虽然是最笨的办法,但是如果善于利用也是最无敌的方法.让我们来期待分布式算号器的出现吧.

  --------------------------------------------------------------------------------
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:50:48 CST
  不是"组合"而是"排列"
  P(25, 20) = 129260083694424883200000

  --------------------------------------------------------------------------------
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 01:01:18 CST
  也不是排列,P(25,20)是不重复排列,但是从算法和见过的合法序列号来看,每位字符是可以重复的。

  --------------------------------------------------------------------------------
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 01:38:32 CST
  25 ^ 20 = 9094947017729282379150390625

  --------------------------------------------------------------------------------
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 01:47:15 CST
  不是20次方 是25次方

  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:18:09 CST
  自己算算时间吧,真把MS当傻子了????

  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:19:41 CST
  汗 本来就是暴力破解..应该只能穷举吧。。。
  毕竟没人能拿到VISTA的生成规则

热心网友 时间:2023-10-13 03:09

最好别试,若连续输错序列号,系统将激活时间从30天爆减至3天,我就试过,包括傻瓜式vista破解,3天后只能重装了!

热心网友 时间:2023-10-13 03:09

呵呵,这里有啊,我刚在别人那里,下了一个,你要的话,我可一给你啊 QQ304298469

热心网友 时间:2023-10-13 03:08

  Vista"暴力算号器"关键代码部分的分析

  这三天传播的所谓修改slmgr.vbs达到"算号"目的的Windows Vista"暴力算号器",我对其关键代码进行了分析.分析发现,此段代码仅仅是从Windows 序列号所允许的全部25个字母(实际应该是24个,这里面错误地多出了一个"L")中随机选取5组各5个字符组成一个字符串,再以此调用Vista的授权服务进行验证.根本就无法算出序列号,只是进行一种穷举破解而已.

  相关关键代码分析:
  运行slmgr带-ipk generate参数,则到此处

  Private Sub InstallProctKey(strProctKey)
  Dim objService, objProct '定义授权服务对象
  Dim lRet, strDescription, strOutput '定义返回值
  Dim random(24) '定义一个25元素的数组
  Dim x
  Dim y
  Dim Group
  Dim FoundKey

  Dim z
  Dim a '定义环境变量和临时变量
  Randomize '初始化随机数种子
  FoundKey = False '初始化FoundKey变量

  MsgBox "Click to begin generating a Key" '显示消息框

  For Each objService in g_objWMIService.InstancesOf(ServiceClass) '尝试每种服务(Retail、KMS、OEM)

  For Each objProct in g_objWMIService.InstancesOf(ProctClass) '尝试每个产品(Vista的各种版本)
  While FoundKey = False '当没有找到key时,循环

  On Error Resume Next '忽略错误

  strProctKey = ""

  random(0) = "B"
  random(1) = "C"
  random(2) = "D"
  random(3) = "F"
  random(4) = "G"
  random(5) = "H"
  random(6) = "J"
  random(7) = "K"
  random(8) = "L"
  random(9) = "M"
  random(10) = "P"
  random(11) = "Q"
  random(12) = "R"
  random(13) = "T"
  random(14) = "V"
  random(15) = "W"
  random(16) = "X"
  random(17)= "Y"
  random(18)= "2"
  random(19)= "3"
  random(20)= "4"
  random(21)= "6"
  random(22)= "7"
  random(23)= "8"
  random(24)= "9"

  '定义可用的25个字符
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))

  strProctKey = strProctKey & "-"

  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))

  strProctKey = strProctKey & "-"

  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))

  strProctKey = strProctKey & "-"

  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))

  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))

  strProctKey = strProctKey & "-"

  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd()))
  strProctKey = strProctKey & random(int(25 *Rnd())) '生成一个形式为"xxxxx-xxxxx-xxxxx-xxxxx-xxxxx"的字符串,其中x为random()数组中的元素

  objService.InstallProctKey(strProctKey) '对授权服务安装上述字符串"序列号"

  strDescription = objProct.Description '得到产品描述

  If IsKmsServer(strDescription) Then '如果是KMS?
  ' Set the KMS version in the registry
  lRet = SetRegistryStr(HKEY_LOCAL_MACHINE, SLKeyPath, "KeyManagementServiceVersion", objService.Version) '此处不明,应为将密钥管理服务版本设为与本机版本一致
  If (lRet = 0) Then '若设置失败
  'QuitWithError CStr(Hex(lRet))
  msgbox strProctKey
  strOutput = Replace(GetResource("L_MsgInstalledPKey"), "%PKEY%", strProctKey)
  LineOut strOutput
  FoundKey = True '找到key,操作完成
  End If
  Else '如果不是kms?
  lRet = DeleteRegistryValue(HKEY_LOCAL_MACHINE, SLKeyPath, "KeyManagementServiceVersion") '删除注册表密钥管理信息
  If (lRet = 0 And lRet = 2 And lRet = 5) Then '若失败,则
  'QuitWithError CStr(Hex(lRet))
  msgbox strProctKey
  strOutput = Replace(GetResource("L_MsgInstalledPKey"), "%PKEY%", strProctKey)
  LineOut strOutput
  FoundKey = True '找到key,操作完成
  End If
  End If
  WEND
  Next
  'QuitIfError()
  Next
  End Sub

  这个脚本利用Vista的密匙服务在安装Proct Key成功时会打开注册表下某键值的特点,反复随机生成序列号字符反复验证,当修改/删除那个键值失败时,就判定该key合法.其实这样完全是大海捞针,碰运气,有些人几个小时就能碰中,有些人几个月都碰不中一个.我已经用这个脚本算了6小时,完全没有结果.

  yksoft1(yksoft1@gmail.com) 原创.本文根据LGPL协议发布,可以在注明原作者和出处的情况下任意修正和传播.

  相关的链接
  · 参阅主题: Windows Vista 新闻主题
  · 责任编辑: ugmbbc

  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:03:32 CST
  所谓的暴力算号,不就是穷举么。
  如果真有算号规则,则就称不上暴力了。
  http://umsn.blogspot.com/ [umsn.blogspot.com]
  --------------------------------------------------------------------------------
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:25:11 CST
  楼上正解.
  --------------------------------------------------------------------------------
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 01:33:57 CST
  正解!!
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Saturday, 03月03日 @ 23:59:43 CST
  哎。算了四个钟。最终放弃

  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:01:49 CST
  暴力穷举本来就是靠人品运气的

  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:06:01 CST
  支持cb原创!

  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:07:06 CST
  试想20位有几种组合...

  --------------------------------------------------------------------------------
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:28:21 CST
  作者在论坛上也说得很明白,自己对程序不怎么精通,这段代码很简单,算法也很简单,他的代码全部公开,希望大家能改进. 甚至有人提出开发一个分布式的算vista cdkey的程序.我想说,穷举法虽然是最笨的办法,但是如果善于利用也是最无敌的方法.让我们来期待分布式算号器的出现吧.

  --------------------------------------------------------------------------------
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:50:48 CST
  不是"组合"而是"排列"
  P(25, 20) = 129260083694424883200000

  --------------------------------------------------------------------------------
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 01:01:18 CST
  也不是排列,P(25,20)是不重复排列,但是从算法和见过的合法序列号来看,每位字符是可以重复的。

  --------------------------------------------------------------------------------
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 01:38:32 CST
  25 ^ 20 = 9094947017729282379150390625

  --------------------------------------------------------------------------------
  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 01:47:15 CST
  不是20次方 是25次方

  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:18:09 CST
  自己算算时间吧,真把MS当傻子了????

  Re: 原创:Vista"暴力算号器"关键代码部分的分析 (分数: 0)
  由 站点访客 于 Sunday, 03月04日 @ 00:19:41 CST
  汗 本来就是暴力破解..应该只能穷举吧。。。
  毕竟没人能拿到VISTA的生成规则

热心网友 时间:2023-10-13 03:09

最好别试,若连续输错序列号,系统将激活时间从30天爆减至3天,我就试过,包括傻瓜式vista破解,3天后只能重装了!

热心网友 时间:2023-10-13 03:09

呵呵,这里有啊,我刚在别人那里,下了一个,你要的话,我可一给你啊 QQ304298469
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
贩毒负刑事责任年龄是多少岁 ...两数要使取出的两数相加的结果是3的倍数有多少种? ...六个数中选出两个不同的数,使它们的和为3的倍数,一共有多少种... ...要使两数之和是3的倍数,一共有多少种不同的选法?(2 ...取出两个不同的数相加其和是3的倍数的共有多少种不同的取法?_百度... 表应该挂家里什么位置好 什么忘怀四字成语 我喜欢珍藏漫画,如果以后不当漫画家,那么珍藏漫画值得吗?有什么用... 城关区地税局有哪些 剑灵狼人树人副本攻略剑灵树人副本介绍 梦见半条鱼 office2010永久密钥 梦见半条鱼好不好 你的激活了吧 ,能否把你的office 2013 密钥给我共享下,谢谢、 梦见半条鱼肉,是怎么回事? 谁有microsoft office 2010 密钥,送一个吧。非常感谢 请问有office2010密钥吗?给一个吧 密钥文件是什么? 急需Microsoft office密钥,好心人给提供一个吧! win7专业版密钥!!!急啊!!!要专业版的!!! 谁有WIN7的密钥? 慢性支气管炎怎么办 有什么办法可以搜索到win激活密匙。求大神推荐网站,软件或者其他的论坛什么的 慢性支气管炎要怎么治疗 你好,请分享一个office2010密钥。要能激活的 关于慢性气管炎 求一个win7 64位英文专业版的密钥,给跪了 慢性支气管炎的症状和治疗方法是怎么样的 慢性支气管炎怎么办呀? 慢性支气管炎怎么治疗? 给个密钥吧, 梦见死去的姐活着、姐夫变成了半边鱼什么意思? 梦见活着的半条鱼这时才发现这条鱼没有尾巴,超大的鱼头和上半身,在水里游来游去,很是自在。只是记得这 梦见很多大鱼在游·自己也捞到大半条鱼 梦见半条鱼变成男人捕鱼 梦见买半条鱼还活着 为什么在梦里梦见自己是鱼,落入水中却无法呼吸 梦见半条大鱼咬我,我把那半条鱼装在袋子里,它自己跑出来我拽住它的尾巴,它扭头咬了我一口,请问是什 太阳能热水器 没有太阳电加热要多久 太阳能热水器240升水温40度用电加热到60度要多久 太阳能热水器电加热 我家的太阳能热水器,不知道怎么用电加热,求解 太阳能热水器电加热时耗电量是多少?? 沧州清波有害生物防治有限公司怎么样? 重庆为民有害生物防治有限公司怎么样? 广州保源有害生物防治有限公司怎么样? 广西天网有害生物防治有限公司怎么样? 上海弘美有害生物防治有限公司怎么样? mac启动盘不见了怎么办? mac启动盘不见了