| <script> |
| window.onerror=killerror |
| function killerror(){ |
| return true |
| } |
| window.onload=ini |
| function ini(){ |
| var x=520;y=270 |
| window.resizeTo(x,y) |
| document.title="链接转换工具 - Made By oiioooiiii" |
| } |
| function paste(){ |
| in_add.value=window.clipboardData.getData("text") |
| } |
| function copy(){ |
| window.clipboardData.setData("text",out_add.value) |
| } |
| function load(){ |
| window.open(out_add.value) |
| } |
| function reset(){ |
| in_add.value="" |
| out_add.value="" |
| xtp.click() |
| } |
| |
| </script> |
| |
| <style> |
| body{background:#f0f0f0;} |
| *{font-size:13;cursor:default;} |
| a{color:#177cb0;} |
| a:visited{color:#177cb0;} |
| a:hover{color:#25f8cb;cursor:hand;} |
| </style> |
| <body scroll="no" topMargin="10" oncontextmenu="return false"> |
| <table border width="100%" cellspacing=0 cellpadding=3> |
| <tr><td> |
| 请输入需要转换的地址(双击编辑框即可粘贴)： |
| |
| |
| <input id="in_add" style="width:60%;" ondblclick=paste()> |
| <input type="button" value=" 转 换 " id="ok" onclick="sub()"> |
| |
| <input type="button" value=" 粘 贴 " onclick="paste()"> |
| <div> |
| |
| 转换后的地址(双击编辑框即可复制)： |
| |
| <input id="out_add" style="width:60%;" ondblclick=copy()> |
| <input id="load" type="button" value=" 下 载 " onclick="load()"> |
| |
| <input type="button" value=" 复 制 " onclick="copy()"> |
| </div> |
| </table> |
| |
| <table border width="100%" cellspacing=0 cellpadding=1 style=margin-top:10><tr><td> |
| <table cellspacing="0" cellpadding="4" width="100%;"> |
| <tr> |
| <td width=60%;> |
| <input type="radio" name="choice" id="xtp" checked> |
| <span onclick="xtp.click()">迅雷专用链⇒普通链接</span> |
| <td> |
| <input type="button" value=" 重 置 " onclick="reset()" style=margin-left:4;> |
| |
| <input type="button" onclick="window.close()" value=" 退 出 " > |
| |
| <tr> |
| <td> |
| <input type="radio" name="choice" id="ktp"> |
| <span onclick="ktp.click()">快车专用链⇒普通链接</span> |
| |
| <td> |
| <tr> |
| <td> |
| <input type="radio" name="choice" id="ftp"> |
| <span onclick="ftp.click()">旋风专用链⇒普通链接</span> |
| <td> |
| <a href=http://hi.baidu.com/oiioooiiii>作者博客</a> |
| |
| <a href="mailtoiioooiiii@163.com?subject=连接转换工具-意见反馈">意见反馈</a> |
| </table> |
| </table> |
| |
| <script language=vbscript> |
| Function fDecode(sStringToDecode) |
| 'This function will decode a Base64 encoded string and returns the decoded string. |
| 'This becomes usefull when attempting to hide passwords from prying eyes. |
| Const CharList = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" |
| Dim iDataLength, sOutputString, iGroupInitialCharacter |
| sStringToDecode = Replace(Replace(Replace(sStringToDecode, vbCrLf, ""), vbTab, ""), " ", "") |
| iDataLength = Len(sStringToDecode) |
| If iDataLength Mod 4 <> 0 Then |
| fDecode = "Bad string passed to fDecode() function." |
| Exit Function |
| End If |
| For iGroupInitialCharacter = 1 To iDataLength Step 4 |
| Dim iDataByteCount, iCharacterCounter, sCharacter, iData, iGroup, sPreliminaryOutString |
| iDataByteCount = 3 |
| iGroup = 0 |
| For iCharacterCounter = 0 To 3 |
| sCharacter = Mid(sStringToDecode, iGroupInitialCharacter + iCharacterCounter, 1) |
| If sCharacter = "=" Then |
| iDataByteCount = iDataByteCount - 1 |
| iData = 0 |
| Else |
| iData = InStr(1, CharList, sCharacter, 0) - 1 |
| If iData = -1 Then |
| fDecode = "Bad string passed to fDecode() function." |
| Exit Function |
| End If |
| End If |
| iGroup = 64 * iGroup + iData |
| Next |
| iGroup = Hex(iGroup) |
| iGroup = String(6 - Len(iGroup), "0") & iGroup |
| sPreliminaryOutString = Chr(CByte("&H" & Mid(iGroup, 1, 2))) & Chr(CByte("&H" & Mid(iGroup, 3, 2))) & Chr(CByte("&H" & Mid(iGroup, 5, 2))) |
| sOutputString = sOutputString & Left(sPreliminaryOutString, iDataByteCount) |
| Next |
| fDecode = sOutputString |
| End Function |
| |
| function ok_onclick |
| |
| str=in_add.value |
| str=trim(str) |
| if str="" then exit function |
| if left(str,10)="thunder://" then xtp.click |
| if left(str,11)="flashget://" then ktp.click |
| if left(str,7)="qqdl://" then ftp.click |
| |
| if xtp.checked then '迅雷转普通 |
| if lcase(left(str,10))<>"thunder://" then |
| exit function |
| end if |
| str=replace(str,left(str,10),"") |
| str=fdecode(str) |
| str=trim(str) |
| str=replace(str,left(str,2),"") |
| str=replace(str,right(str,2),"") |
| out_add.value=str |
| end if |
| |
| if ktp.checked then '快车转普通 |
| if lcase(left(str,11))<>"flashget://" then |
| exit function |
| end if |
| str=replace(str,left(str,11),"") |
| str=fdecode(str) |
| str=trim(str) |
| out_add.value=str |
| end if |
| |
| if ftp.checked then '旋风转普通 |
| if lcase(left(str,7))<>"qqdl://" then |
| exit function |
| end if |
| str=replace(str,left(str,7),"") |
| str=fdecode(str) |
| str=trim(str) |
| out_add.value=str |
| end if |
| end function |
| |
| </script>COPY |
发表于 2008-12-29 19:36
| 
