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
调试
Debug.Print(Baidtu_uncomplie("ippr_z2C$qAzdH3FAzdH3Ft42f6v_z&e3Bkwt17_z&e3Bv54AzdH3Ft42w1AzdH3FrtvAzdH3Ftpj4AzdH3Ful1v18aakww8v188jvuccwankn8dvbuvvnvjd1cc_z&e3B3r2"))