vb.net2013密钥,vb注册密钥2010

求VB.net使用密钥的可逆文本加密算法代码 编程新手，若有讲解可加分

先实例化该类

Dim wrapper As New ClassLibrary1.Simple3Des("你的密钥")

然后

Dim cipherText As String = wrapper.EncryptData("要加密的文本")

或

Dim cipherText As String = wrapper.DecryptData("要揭秘的文本")

VB.NET 注册代码

写两个函数，一个检测是否有重复用户，第二个插入

检测属用户是否存在

private function checkUser(byval uname as string) as boolean

dim sql as string = "select * from [user] where username=" uname

dim cmd as sqlcommand = new sqlcommand(sql,conn)

dim read as sqldatareader = cmd.excutereader

dim result as boolean = read.hasrows

cmd=nothing

return result

end function

新增用户

private sub adduser(byval uname as string,byval password as string)

if checkUser(uname)

messagebox.show("用户已存在")

exit sub

end if

try

dim sql as string = "insert into [user](username,password) values(@uname,@upass)"

dim cmd as sqlcommand = new sqlcommand(sql,conn)

cmd.parameters.add("@uname",sqldbtype.varchar).value=uname

cmd.parameters.add("@upass",sqldbtype.varchar).value=password

cmd.ExecuteNonQuery

cmd=nothing

messagebox.show("用户添加成功！")

catch ex As Exception

messagebox.show("用户添加失败！" + ex.message)

end try

end sub

vs2013/vb.net2013。。制作安装包。。十分感谢

VB:

1、先打开你的项目，即你编写的程序。

2、文件 - 添加 -新建项目

3、在“已安装模版”中选择“其他项目类型” - 安装和部署 - (这里面随便选一个) - 右侧栏里选择安装项目、安装向导什么的都行。然后确定。

4、看到setup1没，设置好他的属性，左侧目标计算机上的文件系统，就是指你即将要将程序安装到的电脑，你可以添加一些文件在这里，它将来可以直接被安装到目标电脑中，当然你也可以什么都不加，一般只是在桌面上加个快捷方式。

5、右键setup1，点击生成，然后就到你源程序所在文件夹里：Setup1\Setup1\Debug中去找安装包吧。

6、把安装包发到其它电脑，直接安装就行了。注意一下，安装程序需要考虑目标的系统环境和你自己的是否一样。