[原创]自己整的一个CM-CTF对抗-看雪-安全社区|安全招聘|kanxue.com

swlilike

雪币： 89

活跃值： (53)

能力值：

( LV2，RANK：10 )

在线值：

发帖

50

回帖

365

粉丝

1

关注

私信

swlilike: 2 楼

00406390
00406883

上传的附件：

1111.jpg （2.41kb，325次下载）

2008-9-17 14:33

0

ppt

雪币： 209

活跃值： (10)

能力值：

( LV2，RANK：10 )

在线值：

发帖

4

回帖

60

粉丝

0

关注

私信

ppt: 3 楼

蚊香的好东西支持下
name:pptpptpp
code:452-474C0AC9C8

2008-9-17 19:24

0

Nochoice

雪币： 4

活跃值： (10)

能力值：

( LV2，RANK：10 )

在线值：

发帖

3

回帖

33

粉丝

0

关注

私信

Nochoice: 4 楼

不会分析算法，暴破

上传的附件：

untitled.GIF （8.62kb，302次下载）

2008-9-17 20:22

0

hokers

雪币： 210

活跃值： (10)

能力值：

( LV4，RANK：50 )

在线值：

发帖

2

回帖

24

粉丝

0

关注

私信

hokers 1: 5 楼

取点灵感。

上传的附件：

123.jpg （12.66kb，291次下载）

2008-9-18 01:10

0

小菜鸟一

雪币： 1597

活跃值： (4722)

能力值：

( LV5，RANK：69 )

在线值：

发帖

6

回帖

905

粉丝

4

关注

私信

小菜鸟一: 6 楼

[QUOTE=hokers;510453]取点灵感。

[/QUOTE]

楼上的是爆破

2008-9-18 06:53

0

红尘岁月

雪币： 517

活跃值： (64)

能力值：

( LV8，RANK：130 )

在线值：

发帖

23

回帖

476

粉丝

2

关注

私信

红尘岁月 2: 7 楼

name:ccbszhxd
code:439-B1073B5412

2008-9-18 08:58

0

hiton

雪币： 756

活跃值： (425)

能力值：

( LV2，RANK：10 )

在线值：

发帖

0

回帖

7

粉丝

0

关注

私信

hiton: 8 楼

对于我这个新手用vbde分析简单点。。。

就是为什么程序进程老驻留在内存里面啊

2008-9-18 09:08

0

星a月

雪币： 203

活跃值： (10)

能力值：

( LV2，RANK：10 )

在线值：

发帖

1

回帖

40

粉丝

0

关注

私信

星a月: 9 楼

转的有点晕

2008-9-18 11:22

0

蚊香

雪币： 557

活跃值： (10)

能力值：

( LV8，RANK：130 )

在线值：

发帖

10

回帖

460

粉丝

0

关注

私信

蚊香 3: 10 楼

没人贴完整的分析~~~

2008-9-18 12:05

0

我脱

雪币： 205

活跃值： (10)

能力值：

( LV2，RANK：10 )

在线值：

发帖

5

回帖

132

粉丝

0

关注

私信

我脱: 11 楼

只能跟到00406513然后就跳到锁定了。不知如何跟下去。

2008-9-18 13:07

0

sessiondiy

雪币： 2067

活跃值： (82)

能力值：

( LV9，RANK：180 )

在线值：

发帖

37

回帖

3244

粉丝

6

关注

私信

sessiondiy 4: 12 楼

sessiondiy
550-072C9FDA31

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

for i:1 to name_Len do
  sum1:= sum1 + name[i];
for i:2 to name_Len step 2 do
  sum2:= sum2 + name[i];

sum:= sum1 - sum2;    注册号1
str1:= String( (name_Len div 2)*sum2 );
StrReverse(MD5(str1)) -> 由第11个字开始取10个字 = 注册号2

注册号 = 'sum-注册号2'

2008-9-18 13:08

0

蚊香

雪币： 557

活跃值： (10)

能力值：

( LV8，RANK：130 )

在线值：

发帖

10

回帖

460

粉丝

0

关注

私信

蚊香 3: 13 楼

楼上说也就差不多了~~ 在用户名上还有点小插曲呵呵

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

'添加两个文本框
'添加MD5模块
Private Sub Text1_Change()
Dim Name, str1, str2, str3 As String
Dim L, i, J As Integer
Dim sn1, sn2, sn3, sn4 As Long
Name = CStr(Text1.Text)
L = Len(Name) 'L=用户名位数
If L = 0 Or L Mod 2 <> 0 Or L < 8 Or L > 24 Then '预设用户名条件
Text2.Text = "用户名位数必须为8-24之间的偶数"
 
Else
 
For i = 1 To L
  sn1 = sn1 + Asc(Mid(Name, i, 1)) 'sn1=用户名ASCII之和
Next i
 
For J = 2 To L
  sn2 = sn2 + Asc(Mid(Name, J, 1)) 'sn2=用户名偶数位ASCII之和
  J = J + 1
Next J
 
sn3 = sn1 - sn2 'sn3=用户名奇数位ASCII之和
sn4 = sn2 * (L / 2)
str1 = MD5(CStr(sn4)) 'MD5运算
str2 = StrReverse(str1) '倒序
str3 = Mid(str2, 11, 10) '取倒序后的11-20位
str4 = CStr(sn3) & "-" & str3
 
Text2.Text = str4
 
End If
End Sub