锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net生成物品简码 vb简单代码编程实例( 五 )

IT技术代码


plaintext = StrConv(textline, vbFromUnicode)
这儿进行相反的转换，就是将Unicode字符串转换成ANSI模式，转换结果必须以字节方式保存 。
5、vbUnicode和vbFromUnicode用途
由于字符在内存中的内容和文件中的内容不一致，所以必须要用到这种转换 ， 特别是系统间进行数据交换、数据加密和解密 ， 如果不做转换可能导致得不到正确的结果 。
比如，我们对一个文本文件进行加密，这个文件是ANSI格式存储的，当从文件内容读入一行到内存的时候，自动将内容转换成了Unicode格式，如果这时候对其做加密运算，其结果和文件中字符串加密结果是不一样的 ， 这样的结果如果让别人解密将无法得到正确的结果 。如果对读入内存的内容先做个转换（textline是读入内容）：
plaintext = StrConv(textline, vbFromUnicode)
再对plaintext做加密 ， 其结果就一样了 。
举例（按行做加密和解密运算 ， 算法是AES+Base64）：
[vb] view plain copy
Status = "Encrypting File"
Open FileName For Input As #1' 打开输入文件 。
Open FileName2 For Output As #2' 打开输出文件 。
Do While Not EOF(1)
Line Input #1, TextLine
plaintext = StrConv(TextLine, vbFromUnicode)
Status = "Encrypting Data"
m_Rijndael.SetCipherKey pass, KeyBits
m_Rijndael.ArrayEncrypt plaintext, ciphertext, 0
Status = "Converting Text to Base64"
TextLine = Base64Encode(ciphertext)
Status = ""
Print #2, TextLine' 将字符串写入文件 。
Loop
Close
[vb] view plain copy
Status = "Decrypting File"
Open FileName For Input As #1' 打开输入文件 。
Open FileName2 For Output As #2' 打开输出文件 。
Do While Not EOF(1)
Line Input #1, TextLine
Status = "Converting Base64 to Text"
ciphertext = Base64Decode(TextLine)
Status = "Decrypting Data"
m_Rijndael.SetCipherKey pass, KeyBits
If m_Rijndael.ArrayDecrypt(plaintext, ciphertext, 0)0 Then
Status = ""
Exit Sub
End If
TextLine = StrConv(plaintext, vbUnicode)
For i = 0 To UBound(plaintext)
Debug.Print plaintext(i)
Next i
k = InStr(1, TextLine, Chr(0), vbBinaryCompare)
If k0 Then TextLine = Left(TextLine, k - 1)'截掉加密时补的0
MsgBox TextLine"end"
Status = ""
Print #2, TextLine' 将字符串写入文件 。
Loop
Close
vb.net源代码如何生成exe格式vb.net编译出来的exe只有依赖.net
framework才能运行
但有一些第三方工具可以用来把exe用到的assembly和dll打包成一个exe文件vb.net生成物品简码，不过这样的结果就是exe体积非常大
比如.netz工具，它的官方地址：
使用很简单，比如vb.net生成物品简码你的exe文件是a.exe，直接netz
a.exe就可以把a和它用到的.net代码一起打包成一个exe
VB.net 如何生成单个EXE文件1、简单的程序,就只要在"File(文件)"菜单下的"Make
xxx.exe(生成)",生成的EXE文件和你要用的数据库和其他外部文件一起移植到其他电脑上,就可以了 。
2、复杂的程序,建议用"打包",打包完以后,在其他电脑上安装以后再用.打包方法--------打开菜单栏“外接程序”——“外接程序管理器”，选择“打包和展开向导”，选择“加载/卸载” ， 确定 。在“外接程序管理器”里找到“打包和展开向导” ， 打开“打包和展开向导”，再一步步进行打包就可以生成一个安装程序 。
如何用VB.NET生成一个随机字符串用法 RndString(xx) xx为随机数字长度
比如12位长度的随机字符串 则为 RndString(12)
字符串包含数字和大小写字母 ， 函数如下：

推荐阅读


上一篇：用Jquery做多张商品轮播，用jquery实现轮播图

下一篇：钉钉怎么进入老师发的直播，钉钉群老师发起的直播怎么进入