VC驿站

 找回密码
 加入驿站

QQ登录

只需一步,快速开始

有编程疑问吗?还请到提问专区发帖提问!
搜索
查看: 510|回复: 5

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

[复制链接]
45_avatar_middle
在线会员 125096 发表于 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
复制代码





上一篇:功能完善
下一篇:新手报道是在这里吗

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你已经在论坛发帖求助,并且从坛友或者管理的回复中解决了问题,请编辑帖子并把分类改成【已解决】

如何回报帮助你解决问题的坛友?可以给对方加【热心】【驿站币】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

51_avatar_middle
online_admins Syc 发表于 2018-1-29 15:49:47 | 显示全部楼层
VB代码中有个 Key 函数,这个函数是干嘛的?
isWin8 = (Key(66) \ 6) And 1

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你已经在论坛发帖求助,并且从坛友或者管理的回复中解决了问题,请编辑帖子并把分类改成【已解决】

如何回报帮助你解决问题的坛友?可以给对方加【热心】【驿站币】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复

使用道具 举报

45_avatar_middle
ico_lz  楼主| 125096 发表于 2018-1-29 16:06:10 | 显示全部楼层
ConvertToKey函数的第一个参数

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你已经在论坛发帖求助,并且从坛友或者管理的回复中解决了问题,请编辑帖子并把分类改成【已解决】

如何回报帮助你解决问题的坛友?可以给对方加【热心】【驿站币】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复

使用道具 举报

33_avatar_middle
在线会员 中国星 发表于 2018-1-29 18:31:43 | 显示全部楼层
VB 我略懂一点,看看先

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你已经在论坛发帖求助,并且从坛友或者管理的回复中解决了问题,请编辑帖子并把分类改成【已解决】

如何回报帮助你解决问题的坛友?可以给对方加【热心】【驿站币】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复

使用道具 举报

66_avatar_middle
在线会员 xiaobb888 发表于 2018-1-30 11:14:28 | 显示全部楼层
支持    哈哈哈

发帖求助前要善用论坛搜索功能,那里可能会有你要找的答案;

如果你已经在论坛发帖求助,并且从坛友或者管理的回复中解决了问题,请编辑帖子并把分类改成【已解决】

如何回报帮助你解决问题的坛友?可以给对方加【热心】【驿站币】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 加入驿站 qq_login

本版积分规则

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

GMT+8, 2018-12-13 08:46

Powered by Discuz! X3.4

© 2009-2018 cctry.com

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