经验首页 前端设计 程序设计 Java相关 移动开发 数据库/运维 软件/图像 大数据/云计算 其他经验
当前位置:技术经验 » 软件图像 » Visual Studio » 查看文章
百度图片objURL解密vb.net版
来源:cnblogs  作者:光华工作室  时间:2018/10/20 15:36:14  对本文有异议
 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"))

  

 友情链接: NPS  问卷模板