Jump to content
Sign in to follow this  
7h331337

telnet server help

Recommended Posts

7h331337

can anyody recomend an tasks or commands that i could add to my telnet server

Share this post


Link to post
Share on other sites
7h331337

sorry i forgot to add the script lol

CODE

#include <guiconstants.au3>

Global $rcount, $time, $main, $acc, $data, $send, $123, $recv

$ruser = InputBox("Username", "Input Usernme") ;input your username

$rpass = InputBox("Password", "Input password", "", "*") ;input your password

$ucount = StringLen($ruser);how long the string is

$pcount = StringLen($rpass);how long the string is

;create the gui

GUICreate("telnet", 400, 200)

$edit = GUICtrlCreateEdit("", 10, 50, 190, 150)

$user = GUICtrlCreateInput("", 300, 10, 90, 30)

$pass = GUICtrlCreateInput("", 300, 50, 90, 30)

$command = GUICtrlCreateInput("", 300, 90, 90, 30)

GUICtrlCreateLabel("username used", 210, 10, 90, 30)

GUICtrlCreateLabel("password used", 210, 50, 90, 30)

GUICtrlCreateLabel("last command", 210, 90, 90, 30)

GUICtrlCreateLabel("Command log", 10, 10, 90, 30)

GUISetState()

;gets the ip and port

$ip = "192.168.1.101"

$port = 23

If $ip = "127.0.0.1" Then

$ip = @IPAddress2

EndIf

;main connection

connect()

Func connect()

TCPStartup()

$main = TCPListen($ip, $port, 1000)

Sleep(400)

Do

$acc = TCPAccept($main)

Until $acc > -1

$rcount = 0;rcount = wrong trys you only get 3

$time = 0;my servers connection times out every 10 min after you connected

;set user and passboxes to defalt

GUICtrlSetData($user, "")

GUICtrlSetData($pass, "")

;sends welcome message

$send = TCPSend($acc, " ******************************************" & @CRLF)

$send = TCPSend($acc, " ** This server is pete's server **" & @CRLF)

$send = TCPSend($acc, " ******************************************" & @CRLF)

$recv = TCPRecv($acc, 100)

user()

EndFunc ;==>connect

;for the user name

Func user()

$send = TCPSend($acc, "Username:")

Do

$recv = TCPRecv($acc, 100)

GUICtrlSetData($user, GUICtrlRead($user) & $recv);sends the recved data to the user box

Until $recv = @CRLF

$string = StringLeft(GUICtrlRead($user), $ucount)

;the reson iv used this way of checking the username is correct is becouse i could not strip the @crlf away from th string

If $string = $ruser Then

$rcount = 0

pass()

EndIf

$rcount = $rcount + 1;if password is wrong then this adds to the wrong counter once it gets to 3 connection is cut

If $rcount >= 3 Then

TCPCloseSocket($main)

TCPShutdown()

connect()

EndIf

$send = TCPSend($acc, "username wrong" & @CRLF)

GUICtrlSetData($user, "")

user()

EndFunc ;==>user

;for the password

Func pass()

$send = TCPSend($acc, "please type password for user" & @CRLF)

$send = TCPSend($acc, "password:")

Do

$recv = TCPRecv($acc, 10000)

GUICtrlSetData($pass, GUICtrlRead($pass) & $recv)

Until $recv = @CRLF

$string = StringLeft(GUICtrlRead($pass), $pcount)

If $string = $rpass Then

$rcount = 0

TCPSend($acc, "connected..." & @CRLF)

$file = FileOpen("j.bmp", 0)

TCPSend($acc, "************************************************" & @CRLF)

TCPSend($acc, "* help shows commands *" & @CRLF)

TCPSend($acc, "* process help shows process comands *" & @CRLF)

TCPSend($acc, "* conections shows current connections *" & @CRLF)

TCPSend($acc, "* Exit well it close the connection *" & @CRLF)

TCPSend($acc, "* firewall shows firewall status *" & @CRLF)

TCPSend($acc, "************************************************" & @CRLF)

TCPSend($acc, @ScriptDir & ">")

connected()

EndIf

$rcount = $rcount + 1

If $rcount >= 3 Then

TCPCloseSocket($main)

TCPShutdown()

connect()

EndIf

TCPSend($acc, "pass wrong" & @CRLF)

GUICtrlSetData($pass, "")

pass()

EndFunc ;==>pass

;when your connected

Func connected()

Do

$time = $time + 100

$recv = TCPRecv($acc, 10000)

If $recv > "" Then

$data = ""

GUICtrlSetData($edit, GUICtrlRead($edit) & $recv)

GUICtrlSetData($command, GUICtrlRead($command) & $recv)

$data = GUICtrlRead($command)

cmds()

EndIf

If $recv = @CRLF Then

cmds()

TCPSend($acc, @ScriptDir & ">")

GUICtrlSetData($command, $data)

GUICtrlSetData($command, "")

EndIf

ToolTip($time, 0, 0)

Sleep(100)

If $time = 600000 Then

TCPCloseSocket($main)

TCPShutdown()

connect()

EndIf

Until 1 = 2

EndFunc ;==>connected

Func cmds()

If $data = "exit" & @CRLF Then

$123 = 1

TCPSend($acc, @CRLF)

Do

$str = StringSplit("ook bye bye", "")

$123 = $123 + 1

TCPSend($acc, $str[$123])

Sleep(400)

Until $123 >= $str[0]

Sleep(100)

TCPCloseSocket($main)

TCPShutdown()

connect()

EndIf

If $data = "help" & @CRLF Then

TCPSend($acc, @CRLF)

TCPSend($acc, "************************************************" & @CRLF)

TCPSend($acc, "* help shows commands *" & @CRLF)

TCPSend($acc, "* process help shows process comands *" & @CRLF)

TCPSend($acc, "* conections shows current connections *" & @CRLF)

TCPSend($acc, "* Exit well it close the connection *" & @CRLF)

TCPSend($acc, "* firewall shows firewall status *" & @CRLF)

TCPSend($acc, "************************************************" & @CRLF)

TCPSend($acc, @ScriptDir & ">")

GUICtrlSetData($command, "")

EndIf

If $data = "process list" & @CRLF Then

TCPSend($acc, @CRLF)

$list = ProcessList()

For $i = 1 To $list[0][0]

TCPSend($acc, $list[$i][0] & @CRLF)

If $i = $list[0][0] Then

GUICtrlSetData($command, "")

$data = ""

TCPSend($acc, @ScriptDir & ">")

GUICtrlSetData($command, "")

connected()

EndIf

Next

EndIf

EndFunc ;==>cmds

iv still got losts of work to do with it lol

Edited by 7h331337

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×