简单CM练习之第2个

冰糖

原帖由 lgjxj 于 2009-3-21 23:04 发表
一看就知道搞不定，我等冰糖的注册机

杀手的话差点让我无地自容,只好弄个出来:loveliness:
附一组信息
bingtang
177072l

lgjxj

不给冰糖点压力，他偷懒 /:018

creantan

又学了几个函数。。/:018

as3852711

原帖由 lgjxj 于 2009-3-22 00:14 发表
爆破就不要了，下一个一定不玩，差不多又一个小时了，累

yingyue
147225j

真的我也不敢玩了,跑了一天都没跑出来.要不是有冰糖的注册机我连一位都跑不出来,现在发个跑算法漏洞的注册机.只能一位多都不行实在太菜了!

//////////////////////////////////////////////////////
Private Sub Command1_Click()
Dim s As String
Dim i, x As Integer
s = Trim(Text1.Text)
If Len(s) = 1 Then
x = Asc(Mid(s, Len(s), 1))
i = x + 5
If (x < 33 Or x > 128) Then
MsgBox ("please input again !")
Else
Text2.Text = "0" + Chr(i)
End If
Else
MsgBox ("please input one char !")
End If
End Sub

as3852711

真的膜拜楼主的防破编程技巧!既然能使用OD的字符插件给费掉,还能把算法部分玩弄的如此雕琢.佩服佩服!/:good /:good /:good 跑了一天终于把算法给跑出来了,要是下次看到楼主的大作我就直接跳过算了.VB本来就是累人的挑战,还加上了LZ那"鬼斧神工"般的编程技术,简直直逼"伪编译"了.下面是没经过优化的代码(头还在晕),自己整合上面的代码优化下就是一个完美的注册机了!/:L /:L /:L

//////////////////////////////////////////////////////
Private Sub Command2_Click()
Dim s As String
Dim i, x, y, w As Integer
Dim z As Double
s = Trim(Text1.Text)
For i = 1 To Len(s)
If i Mod 2 = 1 Then
x = x + Asc(Mid(s, i, 1))
Else
y = y + Asc(Mid(s, i, 1))
End If
Next i
z = x * y
w = Asc(Mid(s, Len(s), 1)) + 5
Text2.Text = Trim(Str(z) + Chr(w))
End Sub

[ 本帖最后由 as3852711 于 2009-3-22 14:48 编辑 ]

一年四季

/:014 /:014 /:014 /:014 /:014 /:014

MOV

就是函数难学啊 学习了
站位看看

boy

来膜拜第一页几位大牛的..

unpack

/:good     楼上能追出算法都是强人

gxwtk

还没看呢，不过诸位楼主都是牛人啊。/:good