首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 看雪峰会 看雪商城 证书查询
  1. 社区
  2. 软件逆向
    3. 发新帖
求助，vb编程的问题
发表于: 2005-7-27 14:23 4297

求助，vb编程的问题

cridia 活跃值
2005-7-27 14:23
4297
我在写一个软件的注册机，本人不太会编程，算法已经分析完，在算法中有一个右移指令
shr ebx 8，在vb中用什么方法实现？

[课程]FART 脱壳王！加量不加价！FART作者讲授！

收藏
免费 ・0
支持
分享
最新回复 (8)
kanxue
雪    币： 44229
活跃值： (19960)
能力值： (RANK：350 )
在线值：
发帖
回帖
粉丝
私信
2 楼
shr ebx 8 =  ebx/0x100
2005-7-27 14:56
0
cridia
雪    币： 180
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
3 楼
不太明白啊，能再解释一下么
2005-7-27 19:58
0
netx
雪    币： 233
活跃值： (111)
能力值： ( LV8，RANK：130 )
在线值：
发帖
回帖
粉丝
私信
4 楼
Public Function SHR(OPR As Byte, n As Integer) As Byte
Dim BD As Byte
Dim I As Integer
BD = OPR
For i = 1 To n - 1
BD = BD \ 2 '右移
Next i
CF = BD And 1 '判断D0位是否进位
SHR = BD \ 2
End Function
2005-7-27 20:04
0
kanxue
雪    币： 44229
活跃值： (19960)
能力值： (RANK：350 )
在线值：
发帖
回帖
粉丝
私信
5 楼
最初由 cridia 发布
不太明白啊，能再解释一下么


你试一下：
用ebx 除 256 得到你的结果
2005-7-27 20:36
0
小娃崽
雪    币： 383
活跃值： (41)
能力值： ( LV12，RANK：530 )
在线值：
发帖
回帖
粉丝
私信
6 楼

这个我知道，嘿嘿，左移一位相当与乘２，右移相当于除２，
书上说电脑就是这样实现乘除运算的吧
2005-7-28 01:04
0
萝卜
雪    币： 260
活跃值： (81)
能力值： ( LV4，RANK：50 )
在线值：
发帖
回帖
粉丝
私信
7 楼
shr ebx 8
相当于：2^n次，移多少次就是2的多少次方。
2005-7-28 01:21
0
ForEver
雪    币： 343
活跃值： (611)
能力值： ( LV9，RANK：810 )
在线值：
发帖
回帖
粉丝
私信
8 楼
注意vb中没有无符号数
2005-7-28 11:14
0
cridia
雪    币： 180
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
9 楼
感谢感谢感谢
2005-7-28 14:07
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回
//