专用链解密器

wujianfu

看了迅雷、快车和旋风的地址编码原理后，自己编了个专用链解密器。
不过现在有个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
            If  GUICtrlRead($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="[FLASHGET]"&$t&"[FLASHGET]"
                                    $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[1],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：含有中文字符（包括文字和中文符号）的地址加密后不能被迅雷和快车识别。

虫子樱桃

终于抢到沙发了！谢谢楼主！

MyCnay

这个好.我正在找呢..

fullmoonboy

谢谢楼主谢谢楼主

zpmc123

好东西，支持楼主