百度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 

 

转载于:https://www.cnblogs.com/xxaxx/archive/2009/12/29/1635319.html