简单算法CrackeMe【2】
一样提供一组可用KEY然后找出规律写出注册机或写出算法。最后一位是个8 遮住了 给大家提示下。 跟上个没多少区别{:1_924:} RedAngel丶 发表于 2013-10-16 18:10 static/image/common/back.gif
跟上个没多少区别
难度一点一点增加吗~~ 你试试弄个校验成功的KEY
Dim str As String
Dim a As Long, b As Long
Dim i As Long
For i = 0 To Len(Text1) - 1
a = Val(Mid(Text1, Len(Text1) - i, 1))
a = (a + 2) Mod 9
str = str & a
Next i
'Text2 = str
a = Len(Text1) \ 2
'MsgBox a
b = Len(Text1) \ 2 - 1
'MsgBox b
a = Mid(str, a, b)
Text2 = a * 1024
苏紫方璇 发表于 2013-10-16 22:54 static/image/common/back.gif
Dim str As String
Dim a As Long, b As Long
Dim i As Long
不错 解析的很清楚~
楼主,那个VE能不能再发下啊,网上的VE都非法了,我附加跑跑的时候,我需要你的VE 皓月长空 发表于 2015-3-30 21:10
楼主,那个VE能不能再发下啊,网上的VE都非法了,我附加跑跑的时候,我需要你的VE
私聊我扣 nc riguang2b 发表于 2015-3-31 12:25
私聊我扣 nc
我私聊了,请问下载地址是什么
页:
[1]