百度图片objURL解密vb.net版

    Function Baidtu_Uncomplie(k As String) As String
        Dim c = {"_z2C$q", "_z&e3B", "AzdH3F"}
        Dim d = New Dictionary(Of String, String) From {{"w", "a"}, {"k", "b"}, {"v", "c"}, {"1", "d"}, {"j", "e"}, {"u", "f"}, {"2", "g"}, {"i", "h"}, {"t", "i"}, {"3", "j"}, {"h", "k"}, {"s", "l"}, {"4", "m"}, {"g", "n"}, {"5", "o"}, {"r", "p"}, {"q", "q"}, {"6", "r"}, {"f", "s"}, {"p", "t"}, {"7", "u"}, {"e", "v"}, {"o", "w"}, {"8", "1"}, {"d", "2"}, {"n", "3"}, {"9", "4"}, {"c", "5"}, {"m", "6"}, {"0", "7"}, {"b", "8"}, {"l", "9"}, {"a", "0"}, {"_z2C$q", ":"}, {"_z&e3B", "."}, {"AzdH3F", "/"}}
        If String.IsNullOrEmpty(k) AndAlso k.Contains("http") Then Return k
        Dim j = k
        For Each value In c
            j = j.Replace(value, d(value))
        Next
        Dim arr = j.ToCharArray
        Dim i = 0
        For Each v In arr
            If Regex.IsMatch(v, "^[a-wd]+$") Then arr(i) = d(v)
            i += 1
        Next
        Return arr
    End Function

调试

Debug.Print(Baidtu_uncomplie("ippr_z2C$qAzdH3FAzdH3Ft42f6v_z&e3Bkwt17_z&e3Bv54AzdH3Ft42w1AzdH3FrtvAzdH3Ftpj4AzdH3Ful1v18aakww8v188jvuccwankn8dvbuvvnvjd1cc_z&e3B3r2"))