使用 Base64 加密/解密字符串

ImportsSystem.Text.UnicodeEncoding
　　　　DimstrAsString="我要被加密了！"
　　　　'将字符串转换为ascii码数组
　　　　Dimstrb1()AsByte=Unicode.GetBytes(str)
　　　　'加密转换后的字符串
　　　　DimnewstrAsString=System.Convert.ToBase64String(strb1)
　　　　Label1.Text="加密后是："+newstr
　　　　'将加密后的字符串转换成ascii码数组
　　　　Dimstrb2()AsByte=System.Convert.FromBase64String(newstr)
　　　　'解密转换后的字符串
　　　　DimoldstrAsString=Unicode.GetString(strb2)
　　　　Label1.Text+="<br><br>原来的字符串是："+oldstr 本文作者:未知