创造属于自己的注册码

ljs8686

如此不是很容易破解,把

If temp <> (TextBox1.Text + "i") Then

改为If temp = (TextBox1.Text + "i") Then

不管输入什么都可以注册

[此贴子已经被作者于2005-8-12 15:42:22编辑过]

henterwu

谢谢分享

微风拂过

先收了，谢谢搂主 啊

17小菜

以下是引用ljs8686在2005-8-12 15:36:00的发言：

如此不是很容易破解,把

If temp <> (TextBox1.Text + "i") Then

改为If temp = (TextBox1.Text + "i") Then

不管输入什么都可以注册

呵呵!VBA保密性差!

还有,楼主的注册很8错,但是用户名(明码)如果是中文,程序则怎么也注册不了,运算有误.

桃花岛岛主

Sub 注册()
    Dim r_string As String
    Dim temp As String
    Dim registry_string As String
    registry_string = Sheet1.Range("a1").Value
    r_string = Sheet1.Range("a2").Value 'TextBox2.Text
    temp = 公式("解密", registry_string, r_string)
///////////////////////////////////////////////////////////////////////////////   

注册完成后，再次打开出现错误啊！ 

If temp <> (Sheet1.Range("a4").Value + "i") Then     '自己设定，这里设置区分码为"i"

////////////////////////////////////////////////////////////////////////////
        registry_string = "未注册"
        Sheet1.Range("a4").Value = registry_string
        UserForm1.Show
    Else
        registry_string = "正版用户" '加入已注册的标记并保存于ini文件中，可以自己设定
        '调用Windows的API函数来读写ini文件
        Sheet1.Range("a3").Value = registry_string
       
    End If

End Sub

zhoujibin1

还是看看我精品中的注册吧, 用DLL注册, 调用硬盘号码加密,一个电脑一个注册号, 写的比较详细, 能实现真正的注册权限和代码保密.

桃花岛岛主

在哪里啊

auth

保护好VBA代码再谈注册

个人感觉玩玩可以，讨论技术讨论

实际操作，没有必要花那么多精力在这个上

hhzjxss

QUOTE:

以下是引用xiaog在2003-3-18 17:45:00的发言：
注册程序搞定后当然还需要一个注册器啦，用来向你的用户提供注册码嘛！
注册器

注册器有什么用呀，别人的注册软件能用这个注册器生成注册码呀吗？

笨熊弟弟

[em17][em17][em17]