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

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

2006-10-7 19:50
7833

因为不懂vb,所以特意用vb写了
一个很简单的crackme.


[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!

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

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

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


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

我也搞不懂怎么回事.
2006-10-8 19:02
0
雪    币: 313
活跃值: (250)
能力值: ( LV9,RANK:650 )
在线值:
发帖
回帖
粉丝
10
算法:输入的字符串每位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();
}
2006-10-8 19:37
0
雪    币: 263
活跃值: (10)
能力值: ( LV9,RANK:250 )
在线值:
发帖
回帖
粉丝
11
看了楼上大侠的注册机才知道简单的说

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

KAN的桌面看看着怪怪的
2006-10-10 18:31
0
雪    币: 256
活跃值: (10)
能力值: ( LV9,RANK:250 )
在线值:
发帖
回帖
粉丝
14
其实这个程序的主要代码在这里:
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等等!
2006-10-11 07:19
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
15
晕,,跟本不知在那下断点,,,请大侠们提点一下,,谢谢
2006-10-13 15:12
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
16
哈哈
近来正在回忆以前学的汇编,几年的商场生活,都忘得差不多了。
2006-10-16 20:31
0
雪    币: 174
活跃值: (15)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
17
最初由 coldpine 发布
其实这个程序的主要代码在这里:
Private Sub Command1_Click()

MsgBox "good boy"

........


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

恩支持你~!

下断的话应该是在窗体上~!
2006-10-20 01:34
0
游客
登录 | 注册 方可回帖
返回
//