求VB.net使用密鑰的可逆文本加密算法代碼 編程新手，若有講解可加分

先實例化該類

創(chuàng)新互聯(lián)公司是專業(yè)的安溪網站建設公司，安溪接單;提供成都網站設計、做網站,網頁設計,網站設計,建網站,PHP網站建設等專業(yè)做網站服務;采用PHP框架,可快速的進行安溪網站開發(fā)網頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網站,專業(yè)的做網站團隊,希望更多企業(yè)前來合作!

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沒，設置好他的屬性，左側目標計算機上的文件系統(tǒng)，就是指你即將要將程序安裝到的電腦，你可以添加一些文件在這里，它將來可以直接被安裝到目標電腦中，當然你也可以什么都不加，一般只是在桌面上加個快捷方式。

5、右鍵setup1，點擊生成，然后就到你源程序所在文件夾里：Setup1\Setup1\Debug中去找安裝包吧。

6、把安裝包發(fā)到其它電腦，直接安裝就行了。注意一下，安裝程序需要考慮目標的系統(tǒng)環(huán)境和你自己的是否一樣。