VC驿站

 找回密码
 加入驿站

QQ登录

只需一步,快速开始

搜索
查看: 726|回复: 5

[求助] 获取DigitalProductId求VB代码转换C语言的

[复制链接]
45_avatar_middle
在线会员 发表于 2018-1-29 15:13:07 | 显示全部楼层 |阅读模式
3驿站币
https://winaero.com/blog/how-to- ... ws-8-and-windows-7/
这个是VB代码的,求转ConvertToKey函数
  1. 'Convert binary to chars
  2. Function ConvertToKey(Key)
  3.     Const KeyOffset = 52
  4.     Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
  5.     'Check if OS is Windows 8
  6.     isWin8 = (Key(66) \ 6) And 1
  7.     Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
  8.     i = 24
  9.     Maps = "BCDFGHJKMPQRTVWXY2346789"
  10.     Do
  11.            Current= 0
  12.         j = 14
  13.         Do
  14.            Current = Current* 256
  15.            Current = Key(j + KeyOffset) + Current
  16.            Key(j + KeyOffset) = (Current \ 24)
  17.            Current=Current Mod 24
  18.             j = j -1
  19.         Loop While j >= 0
  20.         i = i -1
  21.         KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput
  22.         Last = Current
  23.     Loop While i >= 0  
  24.      
  25.     If (isWin8 = 1) Then
  26.         keypart1 = Mid(KeyOutput, 2, Last)
  27.         insert = "N"
  28.         KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
  29.         If Last = 0 Then KeyOutput = insert & KeyOutput
  30.     End If     
  31.      

  32.     ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
  33.    
  34.      
  35. End Function
复制代码





上一篇:C++Win32命令台 调用函数
下一篇:新手报道是在这里吗
51_avatar_middle
online_admins 发表于 2018-1-29 15:49:47 | 显示全部楼层
VB代码中有个 Key 函数,这个函数是干嘛的?
isWin8 = (Key(66) \ 6) And 1
45_avatar_middle
ico_lz  楼主| 发表于 2018-1-29 16:06:10 | 显示全部楼层
ConvertToKey函数的第一个参数
33_avatar_middle
在线会员 发表于 2018-1-29 18:31:43 | 显示全部楼层
VB 我略懂一点,看看先
66_avatar_middle
在线会员 发表于 2018-1-30 11:14:28 | 显示全部楼层
支持    哈哈哈
您需要登录后才可以回帖 登录 | 加入驿站 qq_login

本版积分规则

关闭

站长提醒上一条 /2 下一条

QQ|小黑屋|手机版|VC驿站 ( 辽ICP备09019393号tongdun|网站地图wx_jqr

GMT+8, 2019-5-20 17:47

Powered by Discuz! X3.4

© 2009-2019 cctry.com

快速回复 返回顶部 返回列表