1     Function Baidtu_Uncomplie(k As String) As String
 2         Dim c = {"_z2C$q", "_z&e3B", "AzdH3F"}
 3         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", "/"}}
 4         If String.IsNullOrEmpty(k) AndAlso k.Contains("http") Then Return k
 5         Dim j = k
 6         For Each value In c
 7             j = j.Replace(value, d(value))
 8         Next
 9         Dim arr = j.ToCharArray
10         Dim i = 0
11         For Each v In arr
12             If Regex.IsMatch(v, "^[a-w\d]+$") Then arr(i) = d(v)
13             i += 1
14         Next
15         Return arr
16     End Function