首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 峰会 看雪商城 证书查询
  1. 社区
  2. 软件逆向
    3. 发新帖
请问怎样用VB写这个算法？
发表于: 2005-6-7 13:04 3447

请问怎样用VB写这个算法？

sungy 活跃值
1
2005-6-7 13:04
3447
机器码＝502782452132162

for i=1 to 15
依次取机器码的每一位计算 J(i)赋值给　oc
　　　　 oc=oc*10
         oc=oc+j(i)　　　　　
next i
显示注册码
　注册码＝HEX(oc)

在计算超过10位后就溢出了，另外VB中怎么表示16进制乘法？

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课

收藏
免费 ・0
支持
分享
最新回复 (3)
RoBa
雪    币： 519
活跃值： (1223)
能力值： ( LV12，RANK：650 )
在线值：
发帖
回帖
粉丝
私信
2 楼
不太清楚,查查VB里面有没有64位的整形数?

不行就只好自己写高精度了,也不是很复杂
2005-6-7 14:11
0
sungy
雪    币： 566
活跃值： (2496)
能力值： ( LV7，RANK：100 )
在线值：
发帖
回帖
粉丝
私信
3 楼
上面的算法其实就是
怎样将机器码：502782452132162
转换成16进制
也就是怎样将一个15位或者更长的数字转换成16进制，我用系统自带的calc计算器倒是很方便，但在VB中如何实现啊。

在VB中如何实现16进制的乘法，比如：
a　是1个16进制变量
b=0A
怎样表示：　c=a*b

2005-6-7 15:07
0
chywan
雪    币： 324
活跃值： (1174)
能力值： ( LV7，RANK：100 )
在线值：
发帖
回帖
粉丝
私信
4 楼
Decimal 变量存储为 96 位（12 个字节）无符号的整型形式。
如是做：

Dim decSum as Variant
Dim MachineCode as String

decSum = CDec(MachineCode)
' 至于如何显示其十六进制码，就好办了
2005-6-7 15:26
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回