'加密代码 Dim Str as string=System.Convert.ToBase64String(System.Text.Encoding.Default.GetBytes("aaaaaaaaaaaaaaaaaaaaaaaaaa")) '解密代码 Dim Str as string = System.Text.Encoding.Default.GetString(System.Convert.FromBase64String("YWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWE="))