VB For Keygen_Me 源代码送出…

asd9988 发表于 2011-9-19 00:32

本帖最后由 asd9988 于 2011-9-20 23:39 编辑

成功有信息框提示                   ←这个是成功提示
失败则是修改标题。                ←这个是失败提示。

加壳模式仅仅选择了：内存加密，离开寄存器加密。

提供一组可用注册码，ID号

ID号：1
code:2001721956

中文也有注册码各位加油呵呵。
//////////////////////////////////////////////////////
Dim n As Integer
Dim s As String
Dim x, y As Integer
Dim local2 As String

Private Sub Command1_Click()
Call VarPtr("VMProtect begin")
y = 0
For x = 1 To Len(Text1.Text)
y = y + AscW(Mid(Text1.Text, x, 1)) Mod 100
Next x
n = y Mod 100
If n < -20 Then n = Not n
'Label1.Caption = n
s = n * 99 + 951 * 2104855
'Label2.Caption = s
Call VarPtr("VMProtect end")
If Text2.Text = s Then
MsgBox "破解成功。"
Timer1.Interval = 2000
Else
Form1.Caption = "Error_KeyGen_Me For asd9988"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Timer1_Timer()
Call VarPtr("VMProtect begin")
s = n * 99 + 951 * 2104855
Call VarPtr("VMProtect end")
'Label2.Caption = s
If Text2.Text = s Then
Form1.Caption = "Crack_Yes, By:asd9988"
Timer1.Interval = 0
Else
         End
End If

End Sub

/////////////////////////////////////////////////
VMP~~

892644330 发表于 2011-9-19 05:24

sjg00000 发表于 2011-9-19 09:58

明码的再强的壳也没用啊。。。。

zhi5231 发表于 2011-9-19 12:50

asd9988 发表于 2011-9-19 14:06

本帖最后由 asd9988 于 2011-9-19 14:06 编辑

回复 zhi5231 的帖子

如果是中文的呢？中文也有注册码。。嘎嘎!@@试试吧。

shizp 发表于 2011-9-20 00:36

吾爱破解
2001720471

dfgdf 发表于 2011-9-20 05:32

Ruin 发表于 2011-9-20 05:57

回复 dfgdf 的帖子

0 0 方法发出来看看

zhi5231 发表于 2011-9-20 12:16

页: [1]

吾爱破解 - 52pojie.cn's Archiver

VB For Keygen_Me 源代码送出…