专用链解密器
看了迅雷、快车和旋风的地址编码原理后，自己编了个专用链解密器。不过现在有个bug，就是普通链接中含有中文字符（包括中文和中文符号）时，生成的迅雷和快车链接无法被迅雷和快车识别。代码如下，献丑了。#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=G:\素材大全\图标资源\系统图标\09(1).ico
#AutoIt3Wrapper_Res_Comment=专用链解密器
#AutoIt3Wrapper_Res_Description=专用链解密器
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_LegalCopyright=阿福所有 侵权不究
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ACN_HASH.au3>
#include <GuiEdit.au3>
Dim $t
#Region ### START Koda GUI section ### Form=E:\Downloads\Koda\专用链解密器.kxf
$Form1 = GUICreate("迅雷 快车 旋风 专用链解密器", 474, 212, -1, -1)
GUISetIcon("G:\素材大全\图标资源\系统图标\09(1).ico", -1)
$Group1 = GUICtrlCreateGroup("", 8, 8, 457, 185)
$Radio1 = GUICtrlCreateRadio("普通链接", 16, 32, 65, 17)
$Radio2 = GUICtrlCreateRadio("迅雷链接", 16, 63, 65, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio3 = GUICtrlCreateRadio("快车链接", 16, 93, 65, 17)
$Input1 = GUICtrlCreateInput("", 88, 28, 361, 21)
$Input2 = GUICtrlCreateInput("", 88, 59, 361, 21)
$Input3 = GUICtrlCreateInput("", 88, 89, 361, 21)
$Button1 = GUICtrlCreateButton("解密", 152, 152, 75, 25)
$Button2 = GUICtrlCreateButton("取消", 248, 152, 75, 25)
$Radio4 = GUICtrlCreateRadio("旋风链接", 15, 125, 65, 17)
$Input4 = GUICtrlCreateInput("", 87, 121, 361, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $Radio1
_GUICtrlEdit_SetText($Input2,"")
_GUICtrlEdit_SetText($Input3,"")
_GUICtrlEdit_SetText($Input4,"")
GUICtrlSetData($Button1,"加密")
Case $Radio2
_GUICtrlEdit_SetText($Input1,"")
_GUICtrlEdit_SetText($Input3,"")
_GUICtrlEdit_SetText($Input4,"")
GUICtrlSetData($Button1,"解密")
Case $Radio3
_GUICtrlEdit_SetText($Input1,"")
_GUICtrlEdit_SetText($Input2,"")
_GUICtrlEdit_SetText($Input4,"")
GUICtrlSetData($Button1,"解密")
Case $Radio4
_GUICtrlEdit_SetText($Input1,"")
_GUICtrlEdit_SetText($Input2,"")
_GUICtrlEdit_SetText($Input3,"")
GUICtrlSetData($Button1,"解密")
Case $Button1
IfGUICtrlRead($Radio1)=1 Then;普通地址加密
$t=_GUICtrlEdit_GetText($Input1)
If $t<>"" Then
$t="thunder://"&_base64encode("AA"&$t&"ZZ")
$t=StringStripWS($t,8)
_GUICtrlEdit_SetText($Input2,$t);加密成迅雷地址
$t=_GUICtrlEdit_GetText($Input1)
$t=""&$t&""
$t="Flashget://"&_base64encode($t)&"&Hello"
$t=StringStripWS($t,8)
_GUICtrlEdit_SetText($Input3,$t);加密成快车地址
$t=_GUICtrlEdit_GetText($Input1)
$t="qqdl://"&_base64encode($t)
$t=StringStripWS($t,8)
_GUICtrlEdit_SetText($Input4,$t);加密成旋风地址
Else
MsgBox(16,"错误","地址不能为空！")
EndIf
EndIf
If GUICtrlRead($Radio2)=1 Then;迅雷地址解密
$t=_GUICtrlEdit_GetText($Input2)
If $t<>"" Then
$t=_base64decode(StringTrimLeft($t,10))
$t=BinaryToString($t)
$t=StringTrimLeft(StringTrimRight($t,2),2)
_GUICtrlEdit_SetText($Input1,$t)
Else
MsgBox(16,"错误","地址不能为空！")
EndIf
EndIf
If GUICtrlRead($Radio3)=1 Then ;快车地址解密
$t=_GUICtrlEdit_GetText($Input3)
If $t<>"" Then
Do
$t=StringSplit($t,"&")
$t=StringTrimLeft($t,11)
$t=_base64decode($t)
$t=BinaryToString($t)
$t=StringTrimLeft(StringTrimRight($t,10),10)
Until StringInStr($t,"flashget",0)=0
_GUICtrlEdit_SetText($Input1,$t)
Else
MsgBox(16,"错误","地址不能为空！")
EndIf
EndIf
If GUICtrlRead($Radio4)=1 Then;旋风地址解密
$t=_GUICtrlEdit_GetText($Input4)
If $t<>"" Then
$t=StringTrimLeft($t,7)
$t=_base64decode($t)
$t=BinaryToString($t)
_GUICtrlEdit_SetText($Input1,$t)
Else
MsgBox(16,"错误","地址不能为空！")
EndIf
EndIf
EndSwitch
WEnd
;已知bug：含有中文字符（包括文字和中文符号）的地址加密后不能被迅雷和快车识别。
终于抢到沙发了！谢谢楼主！ 这个好.我正在找呢.. 谢谢楼主谢谢楼主 好东西，支持楼主
页:
[1]