发个练手的Crackme

小生我菜菜

刚在其他论坛上看到的cm，适合新手练习，有空的就玩下，就当做是练手吧

wgz001

只看到这个东西 还没搞懂

小生我怕怕

我也来学习下!!!!!!!现在先去破解一会来交图片!
004010E8 /75 13jnz short Butland'.004010FD
0040107D /75 7Ejnz short Butland'.004010FD
0040108C /75 6Fjnz short Butland'.004010FD

这三句改NOP就可以爆破啦,追码的话还在追,有点迷糊!

nv21

用户名和注册码分别都是6位不知道分析的对不对
别的没分析出来 [s:41]

蚊香

Private Sub Command1_Click()
Dim Name, Code As String
Dim a, b, c, d, e, f, m1, m2, m3, m4, m5, m6, L As Integer
Name = CStr(Text1.Text)
L = Len(Name)
If L = 6 Then
a = Asc(Mid(Name, 1, 1)) Xor Asc(Mid(Name, 2, 1))
b = Asc(Mid(Name, 3, 1)) Xor Asc(Mid(Name, 4, 1))
c = Asc(Mid(Name, 5, 1)) Xor Asc(Mid(Name, 6, 1))
d = a Xor 14
e = b Xor 21
f = c Xor 28
Do
Randomize
m1 = Int(74 * Rnd() + 49)
m2 = Int(74 * Rnd() + 49)
m3 = Int(74 * Rnd() + 49)
m4 = Int(74 * Rnd() + 49)
m5 = Int(74 * Rnd() + 49)
m6 = Int(74 * Rnd() + 49)
Loop Until (m1 Xor m2 = d) And (m3 Xor m4 = e) And (m5 Xor m6 = f)
Code = Chr(m1) & Chr(m2) & Chr(m3) & Chr(m4) & Chr(m5) & Chr(m6)
Text2.Text = Code
Else
Text2.Text = "用户名6位"
End If

[s:17][s:17] 搞了N久还是不知道哪错了~~~~~~~~~~~~ [s:17]

手算一组:
Name: xpi386
Code: ce5zzh

ximo

抽空玩一个:
1.用户名和注册码的位数必须6位,如:用户名:N[1]N[2]N[3]N[4]N[5]N[6],注册码:C[1]C[2]C[3]C[4]C[5]C[6]
2.用户名和注册码分别隔位做异或:
N[1] XOR N[2]=A[1]
N[3] XOR N[4]=A[2]
N[5] XOR N[6]=A[3]

C[1] XOR C[2]=B[1]
C[3] XOR C[4]=B[2]
C[5] XOR C[6]=B[3]

3.所得的值继续做异或:
A[1] XOR B[1] =S[1]
A[2] XOR B[2] =S[2]
A[3] XOR B[3]= S[3]

4.比较:
若S[3]S[2]S[1]=1C150E
则,提示"祝贺你",反之,失败

于是,简单的试了一组可用的:

name:xvxmxd
sn: 111111

测试通过~~

简单的分析了下,可能有错误吧,不管了,先这样吧

小生我菜菜

不会写注册机，只能手工算 [s:43][s:43][s:43]

莱沙

不懂是用什么写的！运行不了！那就只能爆破了！汗！ [s:41][s:41][s:41]

小生我菜菜

蚊香MM的注册机，看了半天没有找到错在哪里？但是算出来的注册码就是不能成功，大家来找茬，错在哪里？？？ [s:43][s:43][s:43]

shaopeng

注册码还没搞出来，只能爆了。