你好:

     感谢你访问我的 Blog ,本博客只提供博主的技术经验分享,你可以在此做简单的留言和评论,我会抽空回复你;若是要深入交流探讨,请联系QQ:47853253或者加QQ群:12012081


 

radmin3.5狗洞连接    ---AU3

服务端:

 

#Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****

#AccAu3Wrapper_Icon=..\..\..\tools\高清ico\Untitled - 1.ico

#AccAu3Wrapper_OutFile=radmin3.5狗洞连接.exe

#AccAu3Wrapper_UseUpx=Y

#AccAu3Wrapper_UseX64=n

#AccAu3Wrapper_Res_Language=2052

#AccAu3Wrapper_Res_requestedExecutionLevel=None

#AccAu3Wrapper_Run_Obfuscator=Y

#Obfuscator_Parameters=/cs=1 /cn=1 /cf=1 /cv=1 /sf=1 /sv=1 /sci=1

#AccAu3Wrapper_DBSupport=y

#EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****

 #include <WinAPIFiles.au3>

 #include <FileConstants.au3>

;Break(0)

Opt("TrayMenuMode", 3) 

Local $exititem = TrayCreateItem("退出")

TraySetState()

DirCreate(@TempDir&"\47853253")

FileInstall("Radmin3.5_x86_x64.exe",@TempDir&"\47853253\Radmin3.5_x86_x64.exe",$FC_OVERWRITE)

FileInstall("dtunnel_s.exe",@TempDir&"\47853253\dtunnel_s.exe",$FC_OVERWRITE)

FileInstall("dtunnel.exe",@TempDir&"\47853253\dtunnel.exe",$FC_OVERWRITE)

RunWait(@TempDir&"\47853253\Radmin3.5_x86_x64.exe")

Run(@ComSpec & ' /c ' & @TempDir&'\47853253\dtunnel.exe -reg 47853253 -local :2016 -clientkey qwerty', '', @SW_HIDE)

traytip("",">>>>>正在打洞<<<<<",30)

While 1

    Local $msg = TrayGetMsg() ;退出和显示按钮动作

    Select

        Case $msg = 0

            ContinueLoop

        Case $msg = $exititem

ProcessClose("dtunnel.exe")

Sleep (3000)

FileDelete(@TempDir&"\47853253\Radmin3.5_x86_x64.exe")

FileDelete(@TempDir&"\47853253\dtunnel_s.exe")

FileDelete(@TempDir&"\47853253\dtunnel.exe")

DirRemove(@TempDir&"\47853253")

            Exit

    EndSelect

WEnd

 

控制端:

#Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****

#AccAu3Wrapper_Icon=..\..\..\tools\高清ico\Untitled - u1.ico

#AccAu3Wrapper_OutFile=radmin3.5狗洞连接_控制端.exe

#AccAu3Wrapper_UseUpx=Y

#AccAu3Wrapper_UseX64=n

#AccAu3Wrapper_Res_Language=2052

#AccAu3Wrapper_Res_requestedExecutionLevel=None

#AccAu3Wrapper_Run_Obfuscator=Y

#Obfuscator_Parameters=/cs=1 /cn=1 /cf=1 /cv=1 /sf=1 /sv=1 /sci=1

#AccAu3Wrapper_DBSupport=y

#EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****

 #include <WinAPIFiles.au3>

 #include <FileConstants.au3>

;Break(0)

Opt("TrayMenuMode", 3) 

;Local $exititem = TrayCreateItem("退出")

;TraySetState()

DirCreate(@TempDir&"\47853253")

FileInstall("Radmin.exe",@TempDir&"\47853253\Radmin.exe",$FC_OVERWRITE)

FileInstall("dtunnel_s.exe",@TempDir&"\47853253\dtunnel_s.exe",$FC_OVERWRITE)

FileInstall("dtunnel.exe",@TempDir&"\47853253\dtunnel.exe",$FC_OVERWRITE)

Run(@ComSpec & ' /c ' & @TempDir&'\47853253\dtunnel.exe -link 47853253 -local :7777 -clientkey qwerty', '', @SW_HIDE)

traytip("",">>>>>正在打洞<<<<<",30)

Sleep(5000)

RunWait(@ComSpec & ' /c ' & @TempDir&'\47853253\radmin.exe /connect:127.0.0.1:7777', '', @SW_HIDE)

ProcessClose("dtunnel.exe")

ProcessClose("radmin.exe")

Sleep (3000)

FileDelete(@TempDir&"\47853253\Radmin.exe")

FileDelete(@TempDir&"\47853253\dtunnel_s.exe")

FileDelete(@TempDir&"\47853253\dtunnel.exe")

DirRemove(@TempDir&"\47853253")

Exit



[本日志由 lq3447 于 2017-06-15 09:06 PM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
评论: 0 | 引用: 0 | 查看次数: 156
发表评论
你没有权限发表留言!