【二维码】
如何实现一张二维码图
在使用客户端的时候生成并打印的是加密的二维码，
使用客户端识别二维码的时候自动解密信息呢？
使用其他比如手机识别的时候就是加密的一串字符呢？
加密后的二维码
此主题相关图片如下：1.jpg
解密后的二维码
此主题相关图片如下：2.jpg
下面的代码能够实现同时生成加密数据的二维码 也能够生成解密数据的二维码
Dim Val1 As String = "黔南州检察院卷宗管理软件"
Dim Val11 As String = "瓮安县人民检察院"
Dim Val111 As String = "张某某涉嫌杀人罪案"
Dim Val1111 As String = "2册"
Dim Val11111 As Date= Date.Now
Dim val0 As String = "所属地州:[" & val1 & "]" & "所属单位:[" & val11 & "]" & "案卷名:[" & val111 & "]" & "册数:[" & val1111 & "]" & "入库时间:[" & Val11111 & "]"
Dim Val2 As String = EncryptText(Val0,"a23","op#") '加密
Dim Val3 As String = DecryptText(Val2,"a23","op#") '解密,两个密钥必须和加密的时候相同
Output.Show("加密后:" & val2)
Output.Show("解密后:" & val3)
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = EncryptText(Val0,"a23","op#")
Bar.QuietZoneWidth = 2
Bar.SaveImage("d:\ceshi\1.jpg")
Dim Bar1 As New BarCodeBuilder
Bar1.Symbology = Barpro.Symbology.QRCode
Bar1.Code = DecryptText(Val2,"a23","op#")
Bar1.QuietZoneWidth = 2
Bar1.SaveImage("d:\ceshi\2.jpg")
加好友 
发短信
Post By：2017/10/23 14:30:00 [显示全部帖子]
