邮件附件base64解码的问题

最新推荐文章于 2024-01-15 13:43:38 发布

原创最新推荐文章于 2024-01-15 13:43:38 发布 · 5.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #integer #web

VB.Net学习笔记专栏收录该内容

22 篇文章

订阅专栏

博客指出附件BASE64编码可能含空白字符，用length计算的长度并非实际base串长度。base串有合法字符规定，原串填充可能有问题，需去掉空白符和填充符重新计算。此外，从web、foxmail和程序中得到的附件文件存在字符差异，并给出了处理代码。

1、附件的BASE64编码中可能含有空白字符（回车（2个字符），tab，空白），从而导致用length计算出来的不是实际的base串长度。如一段串，反复出错，原串是以=结束，最后是一个回车，

在word中，统计得到

而在调试中得到的值却是33027，刚好等于32221+403*2。

2、base串规定，只有A-Z,a-z,0-9,+/是合法字符，=是尾部填充字符，其余空白字符（Tab、空格、回车和换行）将被忽略。而允许的填充=只能是0,1,2。

3、显然原来的串的填充是有问题的，因而需要把原来串中的空白符和填充符去掉，重新计算。

4、不过，从web,foxmail,本程序中得到的附件文件居然都不一样，差几个字符！！！也不知道谁对？

代码为：

                    Dim i_add As Integer '补充的字符串的长度
                    Dim s_content As String
                    '过滤
                    s_content = buffer.Substring(start)
                    s_content = s_content.Replace(vbCrLf, "")
                    s_content = s_content.Replace(vbTab, "")
                    s_content = s_content.Replace(" ", "")
                    s_content = s_content.Replace("=", "")
                    '补充字符数
                    i_add = 4 - (s_content.Length Mod 4)
                    i_add = IIf(i_add = 4, 0, i_add)
                    '补齐
                    Dim s_add As String = New String("=", i_add)
                    s_content = s_content & s_add

Me.data = System.Convert.FromBase64String(s_content)