使用Visual Basic模拟Java的Base64Url.decode报错如何解决？

问题重现 #

Java代码（参考实现） #

import org.jose4j.base64url.Base64Url;
public class ss {
    public static void main(String[] args) {
        String Base64str = "q128qjafnAdcbkfrhfWim783bCvDWsak9bfe2ERjnAc";
        byte[] decodeResult = Base64Url.decode(Base64str);
    }
}

Visual Basic代码（报错实现） #

Dim Base64str As String = "q128qjafnAdcbkfrhfWim783bCvDWsak9bfe2ERjnAc"
Dim decodeResult() As Byte = System.Convert.FromBase64String(Base64str)

执行上述VB代码时抛出System.FormatException，提示内容为：Invalid length for a Base-64 char array

问题根源 #

Base64Url和标准Base64并非完全兼容，两者存在两处关键差异：

1. 字符替换：Base64Url用-替代标准Base64的+，用_替代/
2. 省略填充：Base64Url会去掉末尾用于补全长度的=字符

而.NET中的System.Convert.FromBase64String仅支持标准Base64格式，要求：

• 字符串长度必须是4的倍数
• 只能包含Base64合法字符（A-Z、a-z、0-9、+、/）和填充符=

你提供的Base64Url字符串长度为43，不是4的倍数，直接用标准Base64解码逻辑自然会触发格式异常。

解决方案 #

需要先将Base64Url字符串转换为标准Base64格式，再执行解码操作，具体步骤如下：

手动转换实现（兼容所有.NET版本） #

Dim base64UrlStr As String = "q128qjafnAdcbkfrhfWim783bCvDWsak9bfe2ERjnAc"

' 1. 替换Base64Url的特殊字符为标准Base64字符
Dim standardBase64Str As String = base64UrlStr.Replace("-", "+").Replace("_", "/")

' 2. 计算需要补充的填充符数量，确保总长度为4的倍数
Dim paddingCount As Integer = (4 - (standardBase64Str.Length Mod 4)) Mod 4
standardBase64Str &= New String("="c, paddingCount)

' 3. 执行标准Base64解码
Dim decodeResult() As Byte = System.Convert.FromBase64String(standardBase64Str)

简化实现（.NET Core 2.1+/NET 5+） #

如果你的项目基于较新的.NET版本，可以直接使用内置方法UrlTokenDecode，它已封装了Base64Url到标准Base64的转换逻辑：

Dim base64UrlStr As String = "q128qjafnAdcbkfrhfWim783bCvDWsak9bfe2ERjnAc"
Dim decodeResult() As Byte = System.Web.HttpServerUtility.UrlTokenDecode(base64UrlStr)

内容的提问来源于stack exchange，提问作者joe