首页
社区
课程
招聘
我编写的VB破解练习,大家试试呀!
发表于: 2005-1-19 20:04 9775

我编写的VB破解练习,大家试试呀!

2005-1-19 20:04
9775

比较简单  最少要找出注册码!

附件:crackme1.0.rar

-------------------------------------------------------------


[招生]科锐逆向工程师培训(2024年11月15日实地,远程教学同时开班, 第51期)

收藏
免费 7
支持
分享
最新回复 (18)
雪    币: 3688
活跃值: (4242)
能力值: (RANK:215 )
在线值:
发帖
回帖
粉丝
2
China
China-168-422

中间168为固定。
2005-1-19 22:05
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
:p :p
不好意思
菜鸟阶段
只会暴破
2005-1-19 22:24
0
雪    币: 214
活跃值: (15)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
4
China兄:写篇教程出来啊!
2005-1-20 01:18
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
先在用户名输入姓名,如zhaoyun
输入注册码:78787878,按确定,
调用winhex,在ram下查找78787878,
即可找到真正的注册码:zhaoyun-168-668。成功。
2005-1-20 14:17
0
雪    币: 211
活跃值: (40)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
6
最初由 麦客 发布
先在用户名输入姓名,如zhaoyun
输入注册码:78787878,按确定,
调用winhex,在ram下查找78787878,
即可找到真正的注册码:zhaoyun-168-668。成功。


哈哈,WinHex找明码确实好用!

这个程序是vb编写,直接下断点:
bp VarBstrCmp
运行断下后,按一次F9,看看堆栈是什么?
2005-1-20 14:48
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
最初由 HillCat 发布


哈哈,WinHex找明码确实好用!

这个程序是vb编写,直接下断点:
........


楼上问一句,下断点是用OD下吗,还是其它的。
2005-1-20 15:28
0
雪    币: 200
活跃值: (17)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
8
偶的第一个作业完成了:
用OD调入crackme1.0
Alt+E,选择函数OLEAUT32
Ctrl+N,找到VarBstrCmp
F2下断,F9运行程序,出现输入注册吗对话窗随便输入
hutu
123456789
F9运行
右下窗出现
0063F204   004107A8  UNICODE "123456789"
0063F208   0041083C  UNICODE "hutu-168-355"

上面的是假注册码123456779
下面的是真注册码hutu-168-355
成功注册!
我这个菜鸟终于完成了作业,好高兴,平生第一次!
2005-1-22 13:52
0
雪    币: 219
活跃值: (56)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
9
hcbajiao
hcbajiao-168-722

2005-1-23 00:26
0
雪    币: 201
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
10


哈哈,WinHex找明码确实好用!

这个程序是vb编写,直接下断点:
........


第一次破VB程序,学了一招
:D
2005-1-23 12:11
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
11
第一次学这东西,找了半天才找到!winipcfg 你的ctrl+N这个组合建是做什么用的!???OL里好想没有这个热建啊
2005-1-27 18:49
0
雪    币: 191
活跃值: (205)
能力值: ( LV9,RANK:250 )
在线值:
发帖
回帖
粉丝
12
用户名:warshon
注册码:warshon-168-659



注册机源码
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Private Sub Form_Load()
txtName.Text = "warshon"
txtRegCode.Text = "warshon-168-659"
End Sub

Private Sub txtName_Change()
   
    Dim name As String, lenth As Integer, reg_code As String, sum As Integer, i As Integer
   
    sum = 0
    name = txtName.Text
    lenth = Len(name)
    If lenth <> 0 Then
        For i = 1 To lenth
            sum = sum + Asc(Mid(name, i))
        Next i
        sum = sum + (lenth + 1) - Asc(name)
        reg_code = name + "-" + "168" + "-" + LTrim(Str(sum))
        txtRegCode.Text = reg_code
    Else
        txtRegCode.Text = "请输入注册名!!"
    End If

End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
2005-2-16 15:48
0
雪    币: 182
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
13
按照5楼兄弟的方法,我也成功了。
但我想用8楼兄弟的方法,可是没成功,谁能录像给我看看?万分感谢

另外:为什么要:oleaut32是什么意思?varbstrcmp是什么东东?
Alt+E,选择函数OLEAUT32
Ctrl+N,找到VarBstrCmp
2005-2-19 17:07
0
雪    币: 182
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
14
12楼的兄弟是怎么知道源码的?太高了!!!什么工具啊?!
2005-2-19 17:09
0
雪    币: 191
活跃值: (205)
能力值: ( LV9,RANK:250 )
在线值:
发帖
回帖
粉丝
15
调试VB编的东东,SmartCheck自然是首选
2005-2-19 17:32
0
雪    币: 182
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
16
最初由 tq84 发布
按照5楼兄弟的方法,我也成功了。
但我想用8楼兄弟的方法,可是没成功,谁能录像给我看看?万分感谢

另外:为什么要:oleaut32是什么意思?varbstrcmp是什么东东?
Alt+E,选择函数OLEAUT32
........

怎么没人回答我这几个问题啊?
2005-2-20 13:28
0
雪    币: 519
活跃值: (1223)
能力值: ( LV12,RANK:650 )
在线值:
发帖
回帖
粉丝
17
最初由 tq84 发布
按照5楼兄弟的方法,我也成功了。
但我想用8楼兄弟的方法,可是没成功,谁能录像给我看看?万分感谢

另外:为什么要:oleaut32是什么意思?varbstrcmp是什么东东?
Alt+E,选择函数OLEAUT32
........


oleaut32是一个VB的DLL库,里面有一些很常用的函数,VarBstrCmp就是其中一个,用于字串的比较。

最好自己摸索一下,毕竟录像是很麻烦的。

btw: 12楼的注册机是他自己根据跟踪结果写的,并不是原来的源码。
2005-2-21 17:41
0
雪    币: 201
活跃值: (13)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
18
asdp
asdp-168-332  OD跟的
但是为什么用SMARTCHECK就什么都跟不出来呢 :(
呵呵 这个问题比较弱  新手新手
2005-2-22 14:56
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
19

谢谢!
2005-2-28 17:05
0
游客
登录 | 注册 方可回帖
返回
//