抢沙发哦,支持一下!````````

支持，学习~~

VB的就是牛...

If ww = xx Then
b1 = 1

有点意思!支持一下!

原来这就是传说中的VB，真牛。。。。垃圾到极点的语言

垃圾的只是我的程序，不要侮辱这个语言，谢谢

搞了很久,怎么也无法完全读懂加密方法

好像vb没有那么垃圾把
别的程序能够实现的  vb也可以做到啊
为什么要说vb垃圾那
不解

我用VB，VB的确很容易上手，但高水平的编程就需要借助API或“内部汇编”或利用别人现成的程序模块。我也认为不能说哪门语言是垃圾，能实现程序设计的功能目标，再兼顾些速度（尽量优化代码）就行了，达不到这两点，再好的语言也没有用。

楼主的VB用的真是出神入化，佩服

学习了下如何避开明码，谢谢楼主的源码，支持以后多发delphi

小子又在学习了。

LZ的源码很有特点！
学习中！

看看而已～～

请问第一个zz = zz + Asc(Mid(X1, i, 1))变量有什么用？好像都没有使用就被第二句zz = Val(zzz)给盖了吧？

太高深了，真难懂！

学习学习再学习。

您看得真仔细，那的确是糊弄人的，第一次的结果没用。

发现个事：
hadky
初级会员
资　料:
注册日期: May 2006
帖子: 1

哈哈，06年到现在唯一一个帖子回复了我，荣幸一下！

帮你整理一下， 乱了点，呵呵
Private Sub Command1_Click()
    X1 = Form1.Text2.Text
    X2 = Form1.Text1.Text
    If Len(X1) > 0 Then
        a = 1
    End If
    If Len(X2) = 20 Then
        c = 1
    End If
    For i = 1 To Len(X2)
      
        If Asc(Mid(X2, i, 1)) >= 48 And Asc(Mid(X2, i, 1)) < 57 Then
            b = 1
        Else
            b = 0
            Exit For
        End If
    Next
    If a = 1 And b = 1 And c = 1 Then
        Call check
    End If
End Sub

Sub check()
    X1 = Form1.Text2.Text
    X2 = Form1.Text1.Text
    For i = 1 To Len(X2)
        z = z + Asc(Mid(X2, i, 1))
    Next
    For i = 1 To Len(X1)
        zz = zz + Asc(Mid(X1, i, 1))
    Next
    yyy = Mid(X2, 1, 1) + Mid(X2, 4, 1) + Mid(X2, 6, 1) + Mid(X2, 9, 1) + Mid(X2, 11, 1) + Mid(X2, 14, 1) + Mid(X2, 15, 1) + Mid(X2, 16, 1)
    ' 1\4\6\9\11\14\15\16
    zzz = Mid(X2, 12, 1) + Mid(X2, 13, 1) + Mid(X2, 10, 1) + Mid(X2, 7, 1) + Mid(X2, 8, 1) + Mid(X2, 3, 1) + Mid(X2, 5, 1) + Mid(X2, 2, 1)
    '12\13\10\7\8\3\5\2
    yy = Val(yyy)
    zz = Val(zzz)
    xx = yy * 2 - 10000 + 5 * zz
    cc = 317799897
    ww = yy Xor cc Xor zz
    If ww = xx Then
        b1 = 1
    End If
    x3 = Mid(X2, 16, 5)
    yy = Val(x3)
    xx = yy * 6 + 12345
    cc = 271360
    ww = yy Xor cc
    If ww = xx Then
        b2 = 1
    End If
    If b1 = 1 And b2 = 1 Then
        Form1.Text2.Text = ""
        Form1.Text1.Text = ""
        Command1.Visible = False
        Form1.Label5.Caption = "验证通过"
    End If
End Sub

用VB来入门是很好的，正在学习中，谢谢！

可以先看汇编教材,同时看破文,了解和应用破解技术,达到一定能力的时候必须研究算法,然后需要的时候先从VB入门,半年后将VB学到可以独立开发中大型软件,或者写出中等或者以上难度的注册机,然后可以转C语言,同时学计算机原理和汇编接口技术

我就是按照这条路走的~~现在还没走完~~郁闷

cr，又见你