瓜子_kesongbin
如何给VB程序预先配置注册码
注册码生成软件最好是自己写，用公开的加密算法就可以。
我用过md5加密生成代码也用过base64加密生成代码。
其实很简单，VB生成随机字符串，然后用加密算法进行计算。
把计算结果存起来作为注册码就可以。
别说1万个，如果字符串够长的话，几百万个都不会重复，当然，最好是在生成的时候检测一下，不要有重复。
如果限定软件必须连网注册的话就更容易了。
用txt文档生成一个大量注册码的文件，加入到VB程序的资源文件中去。
同时在网上建一个数据表。
注册时先检查注册码txt文件有没有此注册码，如果有的话，则连网查数据表中此注册码是否已经使用，如果未使用则在数据表中标注注册日期。
到此注册成功。
请问VB做一个软件,需要开发者提供激活码,但只需要激活一次,第...
你是要给自己的软件写注册码吗，你的问题不是很清楚，如果是自己写注册码保护自己的软件的话，以下方法可以参考.如果要求不是很高，只是骗骗普通用户，可以用MD5来生成注册码 要复杂一点就用多次MD5来生成 如：MD5(MD5(MD5（硬件序列号））） 再要复杂一点，就用MD5之后把结果移位，如倒置，重排等 如：a=MD5（硬件序列号） a=left(a,3) & right(a,4) & mid(a,4,3) a=md5(a) 这时的a就是一个非常复杂的序列号了. 这样做序列号非常方便的.
急求破解VB6.0的软件。
工作繁忙难免产生意外，比如对重要的word文档加密之后却把密码忘得一干二净，这几乎会发生在每个人的身上。
这时你可能会焦急万分，不过我劝你不要太紧张，有空来程序谷坐坐，一定会有好的答案的。
下面我们就来看看用穷举法暴力破解word密码的程序，当然，为了简单起见，程序只针对密码是数字的情况做了处理，字符型的密码与此类似，不再多说了。
一、引言 大家都知道，office家族跟VB有千丝万缕的联系，Microsoft office组件中的所有应用程序都内建有VBA，这样就可以通过VB或VBA操作word 应用程序中的对象，用穷举测试的办法达到找回丢失密码的目的，非常简单吧！ 二、实现过程 下面来看一看程序的具体编制过程。
程序采用VB编程实现，需要机器安装有VB应用程序及Microsoft office组件。
打开VB，新建一个VB工程，取名Proc_word，将启动窗体命名为FrmMain，选择“工程”菜单中的“引用”，在“引用”对话框中选择 “Microsoft word8.0 Object Library”（这一步很重要，你必须选择这一ActiveX部件，否则代码不能正确运行，顺便说一句，如果安装的是office2000，那么应该选择“Microsoft word9.0 Object Library”）。
同时在“工程”菜单中“部件”对话框中选择添加“Microsoft Windows common controls -2.5(sp2)”，以便在窗体设计中可以使用微调控件。
好了，现在可以动手编制程序了。
在刚才FrmMain窗体的左侧添加一个框架控件，并在此控件内加入一个驱动器列表框、一个目录列表框和一个文件列表框控件。
在FrmMain窗体的右下侧添加两个命令按钮，在右上侧添加三个标签控件、两个文本框控件和一个微调控件，你可以参考附图来设计。
接着，将框架的Caption属性设置成“请选择需要破译的word文档”；保持目录列表框、驱动器列表框、文件列表框、文本框、微调控件缺省名称不变；将文件列表框的Pattern属性设置成“*.DOC”，目的是只显示目录下的 word文件；将第一个标签控件Caption属性设置成“该程序破译八位以下纯数字组合word文档密码”，将第二个标签Caption属性设置成“解密进度”，将第三个标签Caption属性设置成“请选择破译密码位数”；将第二个文本框的Text属性设置成“4”，这是缺省密码位数；将微调按钮的 BuddyControl属性设置成Text2就能和第二个文本框关联，BuddyProperty 改成Text,Max、Min属性分别设置成“8”和“1”，表示最长密码位数和最短密码位数，将Wrap属性设置成True，将Increment属性设置成“1”，以便每单击一次加1或减1；将两个命令按钮的名称分别改成 “cmdopendoc”和“cmdquit”,Caption属性分别设置成“文件打开”、“系统退出”。
以上就把各控件的属性设置完了，接着编写代码也就不是什么难事儿了。
下面就是全部的源程序，适当的注释有助于大家理解程序。
你还可以通过设置断点来跟踪密码生成部分，看看程序编制的原理。
破解一个vb编写的程序,修改里面一句代码就可以,没有源代码,有安...
展开全部 去下载一个UltraEdit。
装上后打开这个EXE（建议备份一个起来，成功了再删掉），然后搜索想要改的字，比如 ＂File＂，你就搜索 46 00 69 00 6c 00 65 00 （十六进制的ascii码，并且一个字符占用两个字节——因为这是Unicode编码——字母的话，后面加一个 00，像我这样），如果是汉字的话就麻烦点，你得查到它的Unicode码。
然后再用这个编码转成16进制去搜索，修改的话直接改，改完保存就行...
VB 写了一个程序 如何加入注册码 使一个注册码对应一台机器
我这个是利用每一台机子都有唯一对应cpu序列号，来计算得到注册码，注册成功后，它会向注册表写入注册信息，下次启动不再弹出注册窗口，否则将弹出错误窗口并自动结束程序。
代码程序已发给你这是一个实例软件代码：Private Sub Form_Load()j = GetSetting(＂MyApp1＂, ＂Startup＂, ＂b＂)If j = ＂1＂ ThenForm1.ShowElseCall jianceEnd IfEnd SubPrivate Sub jiance()Dim cpuSetDim cpuSet cpuSet = GetObject(＂winmgmts:{impersonationLevel=impersonate}＂).InstancesOf(＂Win32_Processor＂)For Each cpu In cpuSeta = (cpu.ProcessorId)NextFor i = 1 To Len(a)c = c & Asc(Mid(a, i, 1))Nexta = InputBox（＂请输入注册码＂）If a = c ThenForm1.ShowSaveSetting ＂MyApp1＂, ＂Startup＂, ＂b＂, ＂1＂ElseMsgBox ＂注册码错误＂EndEnd IfEnd Sub这是计算注册码的代码：Private Sub Command1_Click()Dim cpuSetDim cpuSet cpuSet = GetObject(＂winmgmts:{impersonationLevel=impersonate}＂).InstancesOf(＂Win32_Processor＂)For Each cpu In cpuSeta = (cpu.ProcessorId)NextPrint ＂cpu序列号为：＂ & a; ＂＂For i = 1 To Len(a)c = c & Asc(Mid(a, i, 1))NextText1 = ＂与此对应的注册码为：＂ & cEnd Sub
转载请注明出处51数据库 » vb 软件注册码 破解
