首页
社区
课程
招聘
[原创]自己试着写了第一个crackme!
2006-10-7 19:50 7462

[原创]自己试着写了第一个crackme!

2006-10-7 19:50
7462
因为不懂vb,所以特意用vb写了
一个很简单的crackme.

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

上传的附件:
收藏
点赞7
打赏
分享
最新回复 (16)
雪    币: 461
活跃值: (93)
能力值: ( LV9,RANK:1170 )
在线值:
发帖
回帖
粉丝
bxm 29 2006-10-7 20:38
2
0
使用工具VBExplorer.
雪    币: 256
活跃值: (10)
能力值: ( LV9,RANK:250 )
在线值:
发帖
回帖
粉丝
coldpine 6 2006-10-7 20:41
3
0
最初由 bxm 发布
使用工具VBExplorer.

不知道为什么,感觉用od调试vb的时候
感觉比较乱,即使很简单的程序也不是
很容易看懂!!!!!!!!!!!!

其实有一两行算法的啊,
没想到被绕过去了.
雪    币: 200
活跃值: (25)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
twshe 2006-10-8 09:41
4
0
用OD来调试VB的程序,字符串找不到,不然就是乱码,用那个VBExplorer可以看见字符,可以对应地址来破解
雪    币: 256
活跃值: (10)
能力值: ( LV9,RANK:250 )
在线值:
发帖
回帖
粉丝
coldpine 6 2006-10-8 10:47
5
0
最初由 twshe 发布
用OD来调试VB的程序,字符串找不到,不然就是乱码,用那个VBExplorer可以看见字符,可以对应地址来破解


这是一个好方法!!!
雪    币: 263
活跃值: (10)
能力值: ( LV9,RANK:250 )
在线值:
发帖
回帖
粉丝
KAN 6 2006-10-8 16:50
6
0
在 bxm 的指导下完成了,可是。。。。?????
上传的附件:
雪    币: 443
活跃值: (200)
能力值: ( LV9,RANK:1140 )
在线值:
发帖
回帖
粉丝
冷血书生 28 2006-10-8 16:52
7
0
可是啥?对VB很头痛!
雪    币: 263
活跃值: (10)
能力值: ( LV9,RANK:250 )
在线值:
发帖
回帖
粉丝
KAN 6 2006-10-8 17:00
8
0
嗯,同意,我就改了按钮可用就 GOOD BOY 了,不是这么简单吧
雪    币: 461
活跃值: (93)
能力值: ( LV9,RANK:1170 )
在线值:
发帖
回帖
粉丝
bxm 29 2006-10-8 19:02
9
0
最初由 KAN 发布
嗯,同意,我就改了按钮可用就 GOOD BOY 了,不是这么简单吧

我也搞不懂怎么回事.
雪    币: 313
活跃值: (250)
能力值: ( LV9,RANK:650 )
在线值:
发帖
回帖
粉丝
hbqjxhw 16 2006-10-8 19:37
10
0
算法:输入的字符串每位ASCII之和的十进制数就是PASSWORD.
#include "stdio.h"

void main()
{
    char name[50];
    int i;
    long password=0;
    scanf("%s",&name);
    for(i=0;i<strlen(name);i++)
        password+=name[i];
    printf("password=%d",password);
    getch();
}
雪    币: 263
活跃值: (10)
能力值: ( LV9,RANK:250 )
在线值:
发帖
回帖
粉丝
KAN 6 2006-10-8 20:48
11
0
看了楼上大侠的注册机才知道简单的说

可是我见到 good boy 就收工了
雪    币: 461
活跃值: (93)
能力值: ( LV9,RANK:1170 )
在线值:
发帖
回帖
粉丝
bxm 29 2006-10-8 22:00
12
0
上当了,看样子还得仔细分析.
雪    币: 380
活跃值: (101)
能力值: ( LV13,RANK:370 )
在线值:
发帖
回帖
粉丝
llydd 9 2006-10-10 18:31
13
0
最初由 KAN 发布
在 bxm 的指导下完成了,可是。。。。?????

KAN的桌面看看着怪怪的
雪    币: 256
活跃值: (10)
能力值: ( LV9,RANK:250 )
在线值:
发帖
回帖
粉丝
coldpine 6 2006-10-11 07:19
14
0
其实这个程序的主要代码在这里:
Private Sub Command1_Click()

MsgBox "good boy"

End Sub

Private Sub Command2_Click()
frmAbout.Show
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim a, b
a = Text1.Text
b = Len(a)
Dim i, abc, bbb
bbb = 0

For i = 1 To b
abc = Asc(Mid(a, i, 1))
bbb = abc + bbb
Next i

If (Text2.Text = bbb) Then
Command1.Enabled = True

End If
End Sub
我有点不明白的是,在反汇编中如何识别事件??
如:load MouseDown,click等等!
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
wingboy 2006-10-13 15:12
15
0
晕,,跟本不知在那下断点,,,请大侠们提点一下,,谢谢
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
thornjay 2006-10-16 20:31
16
0
哈哈
近来正在回忆以前学的汇编,几年的商场生活,都忘得差不多了。
雪    币: 174
活跃值: (15)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
koangel 2006-10-20 01:34
17
0
最初由 coldpine 发布
其实这个程序的主要代码在这里:
Private Sub Command1_Click()

MsgBox "good boy"

........


强...直接公开代码啦?哇哈哈哈

恩支持你~!

下断的话应该是在窗体上~!
游客
登录 | 注册 方可回帖
返回