Skrypt do zewnętrznej kontroli komputera | Klient<->Serwer

[ZakuG]

Witajcie, miałem to na kompie, ale że chciałem poczyścić to pomyślałem, że to wrzuce. Skrypt nie jest mój. Możliwe, że wielu ciekawskich to zna. Nie chciało mi się zmieniać ikonki więc jest domyślna.

 

oto skan:

https://www.virustotal.com/file/893b54f33e0395018b9eacb30de54f49b62276787e0dc24e8b00f5ef74cfad87/analysis/1338747179/

albo KLIK!

 

w programach z AutoIta taki badziew wyskakuje...

a tutaj download:

http://mm.pl/~er/Pliki/CC.rar

albo KLIK!

 

 

 

a tutaj SS:

 

 

 

Source Klienta:

 

#Region
#AutoIt3Wrapper_Res_Description=Klient do serwera kontroli komputera.
#AutoIt3Wrapper_Res_Fileversion=1.0.0.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_Language=1045
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/sf /sv /cf /cv
#EndRegion
#include <NamedPipes.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GuiConstantsEx.au3>

Global Const $BUFSIZE = 4096
Global Const $DEFCMD = "cmd.exe /c dir c:\windows /s"
Global Const $PIPE_NAME = "\\$\\pipe\\AutoIt3"
Global Const $ERROR_MORE_DATA = 234

Global $iEdit, $iMemo, $iSend, $iServer, $hPipe


CreateGUI()
MsgLoop()


Func CreateGUI()
Local $hGUI = GUICreate("Pipe Client", 500, 400, -1, -1, $WS_SIZEBOX)
GUICtrlCreateLabel("Server:", 2, 14, 52, 20, $SS_RIGHT)
$iServer = GUICtrlCreateEdit("<local>", 56, 10, 200, 20, $SS_LEFT)
GUICtrlCreateLabel("Command:", 2, 36, 52, 20, $SS_RIGHT)
$iEdit = GUICtrlCreateEdit($DEFCMD, 56, 32, 370, 20, $SS_LEFT)
$iSend = GUICtrlCreateButton("Send", 430, 32, 60, 20)
$iMemo = GUICtrlCreateEdit("", 0, 62, _WinAPI_GetClientWidth($hGUI), 332)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()
EndFunc

Func LogError($sMessage)
$sMessage &= " (" & _WinAPI_GetLastErrorMessage() & ")"
GUICtrlSetData($iMemo, GUICtrlRead($iMemo) & $sMessage & @CRLF)
EndFunc

Func LogMsg($sMessage)
GUICtrlSetData($iMemo, GUICtrlRead($iMemo) & $sMessage & @CRLF)
EndFunc

Func MsgLoop()
While True
Switch GUIGetMsg()
Case $iSend
SendCmd()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
EndFunc
Func OpenPipe()
Local $sName, $sPipe

$sName = GUICtrlRead($iServer)
If $sName = "<local>" Then $sName = "."
$sPipe = StringReplace($PIPE_NAME, "$", $sName)
$hPipe = _WinAPI_CreateFile($sPipe, 2, 6)
If $hPipe <> -1 Then Return True
LogError("OpenPipe failed")
Return False
EndFunc

Func ReadMsg()
Local $bSuccess, $iRead, $pBuffer, $tBuffer

$tBuffer = DllStructCreate("char Text[4096]")
$pBuffer = DllStructGetPtr($tBuffer)
GUICtrlSetData($iMemo, "")
While 1
$bSuccess = _WinAPI_ReadFile($hPipe, $pBuffer, $BUFSIZE, $iRead, 0)
If $iRead = 0 Then ExitLoop
If Not $bSuccess Or (_WinAPI_GetLastError() = $ERROR_MORE_DATA) Then ExitLoop
GUICtrlSetData($iMemo, StringLeft(DllStructGetData($tBuffer, "Text"), $iRead), 1)
WEnd
EndFunc

Func SendCmd()
If OpenPipe() Then
SetReadMode()
WriteMsg(GUICtrlRead($iEdit))
ReadMsg()
_WinAPI_CloseHandle($hPipe)
EndIf
EndFunc

Func SetReadMode()
If Not _NamedPipes_SetNamedPipeHandleState($hPipe, 1, 0, 0, 0) Then
LogError("SetReadMode: _NamedPipes_SetNamedPipeHandleState failed")
EndIf
EndFunc

Func WriteMsg($sMessage)
Local $iWritten, $iBuffer, $pBuffer, $tBuffer

$iBuffer = StringLen($sMessage) + 1
$tBuffer = DllStructCreate("char Text[" & $iBuffer & "]")
$pBuffer = DllStructGetPtr($tBuffer)
DllStructSetData($tBuffer, "Text", $sMessage)
If Not _WinAPI_WriteFile($hPipe, $pBuffer, $iBuffer, $iWritten, 0) Then
LogError("WriteMsg: _WinAPI_WriteFile failed")
EndIf
EndFunc

 

 

 

a tu source serwera:

 

#Region
#AutoIt3Wrapper_Res_Description=Serwer do kontroli komputera.
#AutoIt3Wrapper_Res_Fileversion=1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_Language=1045
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/sf /cf /cv /sv
#EndRegion
#include <NamedPipes.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>


Global Const $DEBUGGING = False
Global Const $BUFSIZE = 4096
Global Const $PIPE_NAME = "\\.\\pipe\\AutoIt3"
Global Const $TIMEOUT = 5000
Global Const $WAIT_TIMEOUT = 258
Global Const $ERROR_IO_PENDING = 997
Global Const $ERROR_PIPE_CONNECTED = 535


Global $hEvent, $iMemo, $pOverlap, $tOverlap, $hPipe, $hReadPipe, $iState, $iToWrite


CreateGUI()
InitPipe()
MsgLoop()

Func CreateGUI()
Local $hGUI

$hGUI = GUICreate("Pipe Server", 500, 400, -1, -1, $WS_SIZEBOX)
$iMemo = GUICtrlCreateEdit("", 0, 0, _WinAPI_GetClientWidth($hGUI), _WinAPI_GetClientHeight($hGUI))
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()
EndFunc

Func InitPipe()

$tOverlap = DllStructCreate($tagOVERLAPPED)
$pOverlap = DllStructGetPtr($tOverlap)
$hEvent = _WinAPI_CreateEvent()
If $hEvent = 0 Then
LogError("InitPipe ..........: API_CreateEvent failed")
Return
EndIf
DllStructSetData($tOverlap, "hEvent", $hEvent)


$hPipe = _NamedPipes_CreateNamedPipe($PIPE_NAME, _
2, _ ; The pipe is bi-directional
2, _ ; Overlapped mode is enabled
0, _ ; No security ACL flags
1, _ ; Data is written to the pipe as a stream of messages
1, _ ; Data is read from the pipe as a stream of messages
0, _ ; Blocking mode is enabled
1, _ ; Maximum number of instances
$BUFSIZE, _ ; Output buffer size
$BUFSIZE, _ ; Input buffer size
$TIMEOUT, _ ; Client time out
0) ; Default security attributes
If $hPipe = -1 Then
LogError("InitPipe ..........: _NamedPipes_CreateNamedPipe failed")
Else
; Connect pipe instance to client
ConnectClient()
EndIf
EndFunc   ;==>InitPipe

; ===============================================================================================================================
; This function loops waiting for a connection event or the GUI to close
; ===============================================================================================================================
Func MsgLoop()
Local $iEvent

Do
$iEvent = _WinAPI_WaitForSingleObject($hEvent, 0)
If $iEvent < 0 Then
LogError("MsgLoop ...........: _WinAPI_WaitForSingleObject failed")
Exit
EndIf
If $iEvent = $WAIT_TIMEOUT Then ContinueLoop
Debug("MsgLoop ...........: Instance signaled")

Switch $iState
Case 0
CheckConnect()
Case 1
ReadRequest()
Case 2
CheckPending()
Case 3
RelayOutput()
EndSwitch
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc   ;==>MsgLoop

; ===============================================================================================================================
; Checks to see if the pending client connection has finished
; ===============================================================================================================================
Func CheckConnect()
Local $iBytes

; Was the operation successful?
If Not _WinAPI_GetOverlappedResult($hPipe, $pOverlap, $iBytes, False) Then
LogError("CheckConnect ......: Connection failed")
ReconnectClient()
Else
LogMsg("CheckConnect ......: Connected")
$iState = 1
EndIf
EndFunc   ;==>CheckConnect

; ===============================================================================================================================
; This function reads a request message from the client
; ===============================================================================================================================
Func ReadRequest()
Local $pBuffer, $tBuffer, $iRead, $bSuccess

$tBuffer = DllStructCreate("char Text[" & $BUFSIZE & "]")
$pBuffer = DllStructGetPtr($tBuffer)
$bSuccess = _WinAPI_ReadFile($hPipe, $pBuffer, $BUFSIZE, $iRead, $pOverlap)

If $bSuccess And ($iRead <> 0) Then
; The read operation completed successfully
Debug("ReadRequest .......: Read success")
Else
; Wait for read Buffer to complete
If Not _WinAPI_GetOverlappedResult($hPipe, $pOverlap, $iRead, True) Then
LogError("ReadRequest .......: _WinAPI_GetOverlappedResult failed")
ReconnectClient()
Return
Else
; Read the command from the pipe
$bSuccess = _WinAPI_ReadFile($hPipe, $pBuffer, $BUFSIZE, $iRead, $pOverlap)
If Not $bSuccess Or ($iRead = 0) Then
LogError("ReadRequest .......: _WinAPI_ReadFile failed")
ReconnectClient()
Return
EndIf
EndIf
EndIf

; Execute the console command
If Not ExecuteCmd(DllStructGetData($tBuffer, "Text")) Then
ReconnectClient()
Return
EndIf

; Relay console output back to the client
$iState = 3
EndFunc   ;==>ReadRequest

; ===============================================================================================================================
; This function relays the console output back to the client
; ===============================================================================================================================
Func CheckPending()
Local $bSuccess, $iWritten

$bSuccess = _WinAPI_GetOverlappedResult($hPipe, $pOverlap, $iWritten, False)
If Not $bSuccess Or ($iWritten <> $iToWrite) Then
Debug("CheckPending ......: Write reconnecting")
ReconnectClient()
Else
Debug("CheckPending ......: Write complete")
$iState = 3
EndIf
EndFunc   ;==>CheckPending

; ===============================================================================================================================
; This function relays the console output back to the client
; ===============================================================================================================================
Func RelayOutput()
Local $pBuffer, $tBuffer, $sLine, $iRead, $bSuccess, $iWritten

$tBuffer = DllStructCreate("char Text[" & $BUFSIZE & "]")
$pBuffer = DllStructGetPtr($tBuffer)
; Read data from console pipe
_WinAPI_ReadFile($hReadPipe, $pBuffer, $BUFSIZE, $iRead)
If $iRead = 0 Then
LogMsg("RelayOutput .......: Write done")
_WinAPI_CloseHandle($hReadPipe)
_WinAPI_FlushFileBuffers($hPipe)
ReconnectClient()
Return
EndIf

; Get the data and strip out the extra carriage returns
$sLine = StringLeft(DllStructGetData($tBuffer, "Text"), $iRead)
$sLine = StringReplace($sLine, @CR & @CR, @CR)
$iToWrite = StringLen($sLine)
DllStructSetData($tBuffer, "Text", $sLine)
; Relay the data back to the client
$bSuccess = _WinAPI_WriteFile($hPipe, $pBuffer, $iToWrite, $iWritten, $pOverlap)
If $bSuccess And ($iWritten = $iToWrite) Then
Debug("RelayOutput .......: Write success")
Else
If Not $bSuccess And (_WinAPI_GetLastError() = $ERROR_IO_PENDING) Then
Debug("RelayOutput .......: Write pending")
$iState = 2
Else
; An error occurred, disconnect from the client
LogError("RelayOutput .......: Write failed")
ReconnectClient()
EndIf
EndIf
EndFunc   ;==>RelayOutput

; ===============================================================================================================================
; This function is called to start an overlapped connection operation
; ===============================================================================================================================
Func ConnectClient()
$iState = 0
; Start an overlapped connection
If _NamedPipes_ConnectNamedPipe($hPipe, $pOverlap) Then
LogError("ConnectClient .....: ConnectNamedPipe 1 failed")
Else
Switch @error
; The overlapped connection is in progress
Case $ERROR_IO_PENDING
Debug("ConnectClient .....: Pending")
; Client is already connected, so signal an event
Case $ERROR_PIPE_CONNECTED
LogMsg("ConnectClient .....: Connected")
$iState = 1
If Not _WinAPI_SetEvent(DllStructGetData($tOverlap, "hEvent")) Then
LogError("ConnectClient .....: SetEvent failed")
EndIf
; Error occurred during the connection event
Case Else
LogError("ConnectClient .....: ConnectNamedPipe 2 failed")
EndSwitch
EndIf
EndFunc   ;==>ConnectClient

; ===============================================================================================================================
; Dumps debug information to the screen
; ===============================================================================================================================
Func Debug($sMessage)
If $DEBUGGING Then LogMsg($sMessage)
EndFunc   ;==>Debug

; ===============================================================================================================================
; Executes a command and returns the results
; ===============================================================================================================================
Func ExecuteCmd($sCmd)
Local $tProcess, $tSecurity, $tStartup, $hWritePipe

; Set up security attributes
$tSecurity = DllStructCreate($tagSECURITY_ATTRIBUTES)
DllStructSetData($tSecurity, "Length", DllStructGetSize($tSecurity))
DllStructSetData($tSecurity, "InheritHandle", True)

; Create a pipe for the child process's STDOUT
If Not _NamedPipes_CreatePipe($hReadPipe, $hWritePipe, $tSecurity) Then
LogError("ExecuteCmd ........: _NamedPipes_CreatePipe failed")
Return False
EndIf

; Create child process
$tProcess = DllStructCreate($tagPROCESS_INFORMATION)
$tStartup = DllStructCreate($tagSTARTUPINFO)
DllStructSetData($tStartup, "Size", DllStructGetSize($tStartup))
DllStructSetData($tStartup, "Flags", BitOR($STARTF_USESTDHANDLES, $STARTF_USESHOWWINDOW))
DllStructSetData($tStartup, "StdOutput", $hWritePipe)
DllStructSetData($tStartup, "StdError", $hWritePipe)
If Not _WinAPI_CreateProcess("", $sCmd, 0, 0, True, 0, 0, "", DllStructGetPtr($tStartup), DllStructGetPtr($tProcess)) Then
LogError("ExecuteCmd ........: _WinAPI_CreateProcess failed")
_WinAPI_CloseHandle($hReadPipe)
_WinAPI_CloseHandle($hWritePipe)
Return False
EndIf
_WinAPI_CloseHandle(DllStructGetData($tProcess, "hProcess"))
_WinAPI_CloseHandle(DllStructGetData($tProcess, "hThread"))

; Close the write end of the pipe so that we can read from the read end
_WinAPI_CloseHandle($hWritePipe)

LogMsg("ExecuteCommand ....: " & $sCmd)
Return True
EndFunc   ;==>ExecuteCmd

; ===============================================================================================================================
; Logs an error message to the display
; ===============================================================================================================================
Func LogError($sMessage)
$sMessage &= " (" & _WinAPI_GetLastErrorMessage() & ")"
ConsoleWrite($sMessage & @LF)
EndFunc   ;==>LogError

; ===============================================================================================================================
; Logs a message to the display
; ===============================================================================================================================
Func LogMsg($sMessage)
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>LogMsg

; ===============================================================================================================================
; This function is called when an error occurs or when the client closes its handle to the pipe
; ===============================================================================================================================
Func ReconnectClient()
; Disconnect the pipe instance
If Not _NamedPipes_DisconnectNamedPipe($hPipe) Then
LogError("ReconnectClient ...: DisonnectNamedPipe failed")
Return
EndIf

; Connect to a new client
ConnectClient()
EndFunc   ;==>ReconnectClient

 

 

 

 

Pozdro.

 

@edit screen nie działał..

 

@edit2

była prośba o source...

[wojtek333314]

Jeszcze dodaj source kodu i będzie świetnie

Ogólnie jest to zwykła obsługa TCP/IP gdzie serwer ma podłączoną pod odbiór funkcję execute jesli sie nie myle ;p

Ale mysle ze dla zrozumienia działania się przyda

Like

[jackraymund]

sądzę że bardziej stderrread i stdinwrite + run patrząc na ss

[ZakuG]

@refresh

[ZakuG]

@F5

[RobeM]

na podstawie tego : http://msdn.microsof...0(v=vs.85).aspx

 

 

w sumie to działa tylko na własnym kompie albo po lan w tej samej siec

 

jeszcze jako ciekawostkę mogę dodać że autorem jest ten sam człowiek co napisał większość funkcji i przykładów w helpie autoita

[ZakuG]

na podstawie tego : http://msdn.microsof...0(v=vs.85).aspx

 

 

w sumie to działa tylko na własnym kompie albo po lan w tej samej siec

 

jeszcze jako ciekawostkę mogę dodać że autorem jest ten sam człowiek co napisał większość funkcji i przykładów w helpie autoita

 

albo na hamachi

nawet nie porównywałem nazwisk, ale pewnie masz rację ^_^

 

 

@reog

wypier*alaj z forum, na wieki wieków.

amen.

[ZakuG]

@refresh

[ZakuG]

@F5

[ZakuG]

@rifresz

[ZakuG]

@refreshing continued

[ZakuG]

@refresh

[ZakuG]

@0DŚ\/\/!3RZA^/\/\

[wojtek333314]

Wrzuciłeś - super, jeśli komuś będzie potrzebne i się przyda to skorzysta więc po co te refreshe ? Już 8 jest a to lekka przesada

[FructoN]

.

[Phoenix_PL]

Noo, kawał dobrej roboty, mi się to kiedyś pewnie przyda

Gorsze to niz taki CrossLoop, ale...