FREE SOURCE: A "ShutDown" Server.

[alexdata]

I have made an SHUTDOWN SERVER for all to have!!

You simply do this from Internet Explorer(or netscape)

http://YOURDOMAIN-or-IPADRESS:257


Simple as that..hehe
You can RUN this server on any port you'll like to..and you can assign more than the SHUTDOWN function...
Read the comments I wrote in the code and learn how to do it so that it does EVERYTHING you want, remotely over the internet/network (or locally)


Use that to shutdown the machine...Do as shown above..
Need more help..then PM me or mail me at

[email protected]

OK..

Here Is where I got the IDEA..
http://www.vbforums.com/showthread.p...862#post930862

[Skitchen8]

i really like this program... im workin on messing w/ the code a lil so i can remotely control specific parts of my computer from school based on the commands i pass... and in case anyone is curious i have code to recieve the command that is sent after the /

Dim test2 As String
Dim testf As String
Dim artest() As String
artest() = Split(RECIEVE, vbCrLf)
test2 = Mid(artest(0), 6)
testf = Left$(test2, Len(test2) - 9)

testf returns any command entered after the http://your-ip/ part... this way you can have multiple functions if you just test to see what testf contains... so this can be used for more than just shutting down your computer... you can remotely launch applications too (i think ill post code for this later)

[Skitchen8]

ok, i got the run code working now

If Left$(testf, 4) = "run_" Then
    Shell (Mid$(testf, 5, Len(testf) - 4))
End If

that way u have to do http://my-ip:257/run_C:\windows\sol.exe and it will run C:\windows\sol.exe... it basically runs anything after run_ you can change the "run_" part to whatever you want... but you have to change the two 4's and the 5 in the code to adjust for the lenght of the new "run_" command

[Hampster]

Hmm, why not some of us get together and make a HTTP based remote server? Anyone else think this is a good idea?

[Skitchen8]

this would be a great idea, but it is not an easy thing to accomplish... which is prolly why there are so few made in VB... i've seen a few on PScode, but they look very complicated... however if we can get enough people this would be a great thing to have, as id love to have a server i can actually call (partly) my own...

[Hampster]

I agree, it would be easier to make the client in vb, but if it was web based then it would be more robust
Mind posting your code Skitchen8?

[Nightwalker83]

Originally posted by Hampster
Hmm, why not some of us get together and make a HTTP based remote server? Anyone else think this is a good idea?

Yeah I am doing a remote server app for my next project.

[Skitchen8]

Originally posted by Hampster
I agree, it would be easier to make the client in vb, but if it was web based then it would be more robust
Mind posting your code Skitchen8?

i don't have code for a server, i said that i found some on planetsourcecode... never bothered to d/l really though... im going to try to make a quick server using some of alexdata's code.... if i can get one to work then ill u/l it...

[alexdata]

A tool that you could use for anything..

You could program it into doing things like:
-turning your machine into an ftp server (any port you want)
for file up/downloading

-have it to run whatever program remotely (as mentioned in my
sourcecode at the top oof this post)

-you could make it act as an HTTP server (for homepages)
or as a reminder/phonebook/as a remote notepad...
Which saves the files on your machine...

-you could use it as a MAIL server (anonymous mails - not spam)
(i also have the code for that..)

-There are even more uses.. Like remote controlling..)
or people could deliver MESSAGES (almost like SMS) from the net and DIRECTLY to your screen (as MSGBOX : message from buddy)

The uses are may...Lets put all our ideas and sources together..and see how advanced we can get this...

For every change we make (major/important) make an ZIP and post it along with a description of the change....also comment the change inside the files)

This could be FUN !!!

[Skitchen8]

yes, lets create a huge project... and we'll compete w/ microsoft


well, maybe not... but this could be a really cool project if we get everybody working on it... i currently have it so it will display a custom html page when you navigate to your own ip address... which is semi-server-like

[alexdata]

so we use EXLORER(netscape) as CLIENT and the SERVER we make as SERVER..

I can add code for Sending mail... Sending IP/COMPUTERNAME to another IP or DOMAINNAME

I also have code for things as a KEYLOGGER and OPEN/CLOSE cdrom... Mouse Stuff,Clipboard Stuff.. and ALL the fun things..

Im woorking on the FTP part..(hard one)

But we need to make the server create a webpage when we connect to it and then show us a site with (commands) in link form, so that when we click the (command) "link" then it will execute the command on the remote machine (server)

I have already demonstrated the use of writeing a simple webpage..(see the source code..run it locally and see the text it creates on the page.. the page where you run http://127.0.0.1:257 )

Lets keep this rolling...

[Skitchen8]

simple sendmessage thing, using my previous code w/ the testf string

'below the other code
If Left$(testf, 5) = "send:" Then
    strmsg = Mid$(testf, 6)
    sendmessage (strmsg)
End If
 
'New Sub
Private Sub sendmessage(message As String)
message = Replace(message, "%20", " ")
MsgBox message
End Sub

alexdata:sendmail isn't really needed if we have the sendmessage code... keylogger could be useful, but you want to be careful about including this, mouse move would be fun, but same thing as keylogger, be careful, well, actually same w/ the rest of the stuff u mentioned... cept for ftp... im thinking we can do how i've been sending the commands, but do like ftpup: for upload, and ftpdown: for download... w/ the download part u need to make sure that the user can set what dir's can be accessed...

[Skitchen8]

should i start a new thread in communications area for this project??

[Skitchen8]

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, _
    ByVal y As Long) As Long
 
If Left$(testf, 10) = "mousemove:" Then
    strcoords = Mid$(testf, 11)
    mousemove (strcoords)
End If
 
Private Sub mousemove(strcoords As String)
Dim spos As Long
Dim xcord As Integer
Dim ycord As Integer
Dim stringa() As String
stringa() = Split(strcoords, ",")
xcord = Int(stringa(0))
ycord = Int(stringa(1))
spos = SetCursorPos(xcord, ycord)
End Sub

now you can move the mouse

[Skitchen8]

i did tons of work, check it out... now includes a custom client for sending the commands...

[Skitchen8]

BTW: the functions.txt file contains all the functions that i have already implemented... more should come soon by tomorrow... then i will create an updater app that grabs a new functions.txt off a server to make sure that the text file is always updated to the newest features...

edit: now the server never disconnects, it is always listening... that bugged me before...

[alexdata]

The ideas behinf the keylog,mouse,cd open/close,and so was inspired by all i know from netbus/sub7 server...

I like the FUN stuff..but not the FORMAT and DESTROY things..
I also like to use SERVER/CLIENT tools for remote helping folks..

But hey.. Im not saying that we MUST have them..but that we COULD add them (we can also passwd protect those functions, he he)

But I hold my hands on getting some sort of FTP and SENDMSG as main goals... and maybe some other usefull codes..Cant thinks strait now..but some functions we will find....

Hehe
But this thing can become great...

[Skitchen8]

yeah, all that stuff would be good... im just sayin be careful w/ it...

[filburt1]

Originally posted by Hampster
Hmm, why not some of us get together and make a HTTP based remote server? Anyone else think this is a good idea?

Eh, they got ya beat...

[alexdata]

Here you have it...Try the RUN LOCALLY button...

(shutdown any HTTP server you might have running)
and load up mine...

Then do this:

either press RUN LOCALLY

or in explorer/netscape

http://127.0.0.1 or http://YOURDOMAINorIP

And see the results...

[Skitchen8]

this is good... but we need to send the html page after we have already detected what it wants to send... then we can see if the thing says http://whatever/index.html then serve the index.html page that we have stored on the http server's computer... the problem is i don't know how to do this...

[Skitchen8]

i took the new example of the http server (i like the new i-face much better) and added all of my functions... if youd like ill work on the key-logger (i have already built a keylogger that i use sometimes, it grabs not only keys, but window titles) and im going to attempt to add a screenshot function...

[Hampster]

I'm working on a httpd also,
So far:

Option Explicit
Private Sub Form_Load()
WS(0).LocalPort = 80
WS(0).Listen
End Sub
 
Private Sub WS_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim i As Integer
For i = 1 To 32200
    If WS.ubound < i Then
        Load WS(i)
    End If
    If WS(i).State = 0 Then
        WS(i).Accept requestID
        Exit For
    End If
    
    If WS(i).State = 8 Then
        WS(i).Close
        WS(i).Accept requestID
        Exit For
    End If
Next
End Sub
 
Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Str As String, i As Integer
WS(Index).GetData Str
For i = 1 To Gettok(Str, 0, vbCrLf)
    DataIn Index, Gettok(Str, i, vbCrLf)
Next
End Sub
 
 
Public Sub SD(Index As Integer, StrData As String, Optional CrLf As Boolean = True)
If WS(Index).State = 7 Then
    If CrLf Then
        WS(Index).SendData StrData & vbCrLf
    Else
        WS(Index).SendData StrData
    End If
End If
End Sub
Public Function Gettok(ByVal strVal As String, intIndex As Integer, strDelimiter As String) As String
On Error Resume Next
Dim strSubString() As String
If intIndex = 0 Then
    strSubString() = Split(strVal, strDelimiter)
    Gettok = UBound(strSubString)
Else
    strSubString() = Split(strVal, strDelimiter)
 
    If intIndex > 0 Then
 
        Gettok = strSubString(intIndex - 1)
 
    ElseIf intIndex = 0 Then
 
        Gettok = strSubString(0)
 
    End If
End If
End Function
 
Public Sub DataIn(Index As Integer, StrData As String)
Debug.Print StrData
Dim Request As String, i As Long, File As String
Select Case UCase$(Gettok(StrData, 1, " "))
    Case "GET"
        Request = Gettok(Gettok(StrData, 2, " "), 2, "?")
        File = Gettok(Gettok(StrData, 2, " "), 1, "?")
        Open App.Path & File For Binary As #1
            Do Until i >= LOF(1)
                If i = 0 Then i = 4096
                SD Index, Input(i, 1), False
                i = i + 4096
                DoEvents
            Loop
            WS(Index).Close
        Close #1
End Select
End Sub
 
Public Function RequestParse(Request As String, Key As String) As String
RequestParse = Replace$(Gettok(Gettok(Request, 2, Key & "="), 1, "&"), "?", "")
End Function

[alexdata]

But I've choosen to call it INDEX.ASP

(cause i have made NOTEPAD open *.ASP files in notepad)
So that makes it easier to edit the HTML inside the files...

But i use standard <HTML> inside the files...

But I have small problems.. It serves us the INDEX.ASP when we connect, but it doesn't serv us anything when we EG: click a link...

So I'm working oon that particular part...

Here is my current work..
Please add your KEYLOGGER and SCREENGRABBER into the code..
...


Then at the end ...lets put the BEST results together...

[Skitchen8]

okay, ill throw my screenshot code into yours, and then i need to figure out a way to copy and paste my keylogger code (it is currently extremely messy)... this could be very good... we also cannot forget about FTP implementation...

[Skitchen8]

and just an idea for the next update... could you please post the code, and where you added it in... that way i don't have to go through and re-add all of my code into the new program...

[alexdata]

That is why it comes up with a new design everytime...

I do this because my code thends to get messy...So i rewrite it
and use the WORKING parts from the past code and then I try to fix the errors and or add new functions...

But I will do so when the HTTP part is working correctly..
As for now I post it for you to see how far I have gotten...

But you can write your code into any of these servers... to test it..
But I will not implement your code,before the HTTP part is working..(cause it will get TO messy for me then...)
To many variables and subs to read throug ,while testing...

OK...So just post your code in any of my working SERVERS...and then we can add it to the BEST server in the end,... OK ??

[BuggyProgrammer]

you program doesnt write anything back to the page for me.

[alexdata]

Try to press the BROWSE button..and then LOCATE the INDEX.ASP file in the folder (you must unpack ALL the files in the ZIP to the same folder, and run the program from THAT folder..

Then It should atleast show you anything...
If it doesn't REWRITE it till it does so...

AND POST THE MODIFIED CODE !!!

[Skitchen8]

Originally posted by alexdata
That is why it comes up with a new design everytime...

I do this because my code thends to get messy...So i rewrite it
and use the WORKING parts from the past code and then I try to fix the errors and or add new functions...

But I will do so when the HTTP part is working correctly..
As for now I post it for you to see how far I have gotten...

But you can write your code into any of these servers... to test it..
But I will not implement your code,before the HTTP part is working..(cause it will get TO messy for me then...)
To many variables and subs to read throug ,while testing...

OK...So just post your code in any of my working SERVERS...and then we can add it to the BEST server in the end,... OK ??

ok... that works good for me... i think im gunna make a page tonight for the project... got any names for it?? shutdown server sounds kinda dumb, and doesn't nearly describe all of its features...

[alexdata]

how about:

Site Service , RUNforFUN , RemoteHell , RemoteHappiness..

Ehh..when it comes to names..welll I just name it by the main
purpose it has..like HTTP SERVER... or REMOTE HTTP CONTROL

I don't know really...

Hmm.. Im glad that you could live with my way of coding/posting
(that i always remake, instead of change)

Well....

Im stuck on some ****:

when you connect from explorer to HTTPserver
it accepts the connection,and sends data to the explorer
but first AFTER that i recieve data from explorer..

which means, that ig Explorer requests anything, then i wont get that request before after i have send the main site..

So if EXPLORER request anything by using a link,
it will get the same site, then I will get the request, and then it has failed to load whats requested...

....REALLY ANNOYING....

[Hampster]

Look at the way I handled GET in the code I posted...

Originally posted by Hampster

Public Sub DataIn(Index As Integer, StrData As String)
Debug.Print StrData
Dim Request As String, i As Long, File As String
Select Case UCase$(Gettok(StrData, 1, " "))
    Case "GET"
        Request = Gettok(Gettok(StrData, 2, " "), 2, "?")
        File = Gettok(Gettok(StrData, 2, " "), 1, "?")
        Open App.Path & File For Binary As #1
            Do Until i >= LOF(1)
                If i = 0 Then i = 4096
                SD Index, Input(i, 1), False
                i = i + 4096
                DoEvents
            Loop
            WS(Index).Close
        Close #1
End Select
End Sub

[Skitchen8]

Originally posted by alexdata
how about:

Site Service , RUNforFUN , RemoteHell , RemoteHappiness..

Ehh..when it comes to names..welll I just name it by the main
purpose it has..like HTTP SERVER... or REMOTE HTTP CONTROL

I don't know really...

Hmm.. Im glad that you could live with my way of coding/posting
(that i always remake, instead of change)

Well....

Im stuck on some ****:

when you connect from explorer to HTTPserver
it accepts the connection,and sends data to the explorer
but first AFTER that i recieve data from explorer..

which means, that ig Explorer requests anything, then i wont get that request before after i have send the main site..

So if EXPLORER request anything by using a link,
it will get the same site, then I will get the request, and then it has failed to load whats requested...

....REALLY ANNOYING....

yes, i was having that same problem when i tried to adapt the original code to make it an http server... the only thing i can think is re-connect to the person's ip, and then send the required data...

[alexdata]

It needs to be directly connected..which means that the CLIENT must ALWAYS start the conversation...
If you try to connect to the cLIENT, then you'll fail, cause the client doesnt act as an server, it doesn't listen on port 80...

But there is another way around..


have an EMPTY string
have a START: (loop starting point)
Let the clien connect..
put its GET info into that string
sort out the command (whats after GET )
if get = "/" then
send some data (the main site)
else
goto start point
(which makes the client resend its info)
and then we will get it...

Im almost here..I know there is an error somewhere, but its hard to find it...

But im trying, cause i know its ho we hae to do it...

[Muk108]

you guys could put in the program to make it a ftp server

[alexdata]

Well Im struggeling with HTTP server (simple send and recieve)
an ftp server needs logon auth, and needs to run commands...and searching the harddrive, keeping pot open for more thatn one person and so on....

I'll think i will finish that After the HTTP part..

But i do have some example posted at ... ehh:

http://www.vbforums.com/showthread.p...689#post930689

[alexdata]

Skitchen8, check this out....

Below i post a working code ,but with minor bugs in it...

Like you must DoubleClick a link, and press update in explorer inorder to recieve and send back data to explorer...

But if I fix the part that reads the GET from explorer then
it will be easy to make this work correctly...

I had to rebuild the server into something VERY easy before it worked..
But i will soon add all the buttons and the other things that we had in those other (not good,but ) working examples...

Hang in there... What are you working on right now?

[alexdata]

Now it can do it all..
It opens a site when you go to its IP / domainname..

It opens a link if it exists..
It sends you to an errorpage if the
link "site" (read: CODE in FORM) doesnt exists..
And it can go back to the indexpage...

All this is working..

All i have to do now..is taht it opens FILES instead of PREWRITTEN code... I have done this before ,so it shuld not be hard.. to change that back...

The hard part was getting the communication to work correctly, and to make the linking work aswell...

But now, when I have solved this..It's time for a break...
I'll work on the rest (mentioned above) later today or tonight and definetly tomorrow...

Test the code, BELOW!!!

[Skitchen8]

very creative solution... im thinkin now we just have to get a list of files in the root folder for the web-page, and then you can detect if the passed variable is the same as any of those filenames, if so then serve the page, if not then serve an error page...

[Skitchen8]

yes, i got it to work....


[Highlight=VB]
Dim i As Long
Dim page2serve As String
For i = 0 To File1.ListCount - 1
If PageToGet = "/" & File1.List(i) Then
page2serve = File1.List(i)
End If
Next i


Dim strtemp As String
If page2serve <> "" Then
Open App.Path & "\webpages" & "\" & page2serve For Input As #1
Do While Not EOF(1)
Line Input #1, strtemp
SiteToSend = SiteToSend & strtemp & vbCrLf
Loop
Close #1
End If