百度mp3地址解密码

 1 Option Explicit
 2 '百度mp3地址解密码
 3 'by FFX
 4 Public Function decode(ByVal URL As String) As String
 5 Const CHARACTERS = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
 6 Dim l, s, ch, idx, i,offset
 7 
 8 If (InStr(URL, ":") = 3) Then
 9     offset = 41
10 Else
11     offset = 43
12 End If
13 
14 offset = InStr(CHARACTERS, Mid(URL, 1, 1)) - offset
15 
16 
17 l = Len(URL)
18 For i = 1 To l
19 ch = Mid(URL, i, 1)
20 If InStr(CHARACTERS, ch) <> 0 Then
21     idx = InStr(CHARACTERS, ch) + 1 - offset
22     If (idx < 0) Then
23       idx = idx + 62
24     End If
25     ch = Mid(CHARACTERS, idx, 1)
26 End If
27 s = s + ch
28 Next
29 decode = s
30 End Function
31 
32 Private Sub Command1_Click()
33 MsgBox decode("jvvr://OwuKe.SskjQOG.ujCpIfW.eQO/owuke/25B5AABB456/422B/7/25B5AABB456_422B27372A45.OR5")
34 End Sub
35