[--([-S7N-])--]

underscore3: Thanks for pointing that out, fixed.

Thanks for your comment xronaldx.

[proisr]

I've add 'try' to dat( ) so the client won't crash if the data wouldn't sent successfully:
Spoiler (Click to View)

Code

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim failure As Boolean

        Try
            dat("1*" + TextBox4.Text)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            failure = 1
        End Try
        If failure = 0 Then
            MessageBox.Show("MSG sent successfully!")
        End If
    End Sub

But when I press the 'send' button, even if I'm not even logged in to a server, the "sent successfully" message is still being viewed.

If u didn't understand my lame English:
Press 'send' --> a message shown: ex.message --> a message show: "MSG sent successfully" (Even when not logged in)
How can I make the succeed message be shown only when the data has been sent successfully?


edit:
Another question: how I can connect the server to the client via NO-IP?
So when the RAT server is opened, it will search for activity of his belong NO-IP server?

[CustomiZer]

Nice tutorial. I'll try this out for sure..;)

[--([-S7N-])--]

I've add 'try' to dat( ) so the client won't crash if the data wouldn't sent successfully:
Spoiler (Click to View)

Code

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim failure As Boolean

        Try
            dat("1*" + TextBox4.Text)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            failure = 1
        End Try
        If failure = 0 Then
            MessageBox.Show("MSG sent successfully!")
        End If
    End Sub

But when I press the 'send' button, even if I'm not even logged in to a server, the "sent successfully" message is still being viewed.

If u didn't understand my lame English:
Press 'send' --> a message shown: ex.message --> a message show: "MSG sent successfully" (Even when not logged in)
How can I make the succeed message be shown only when the data has been sent successfully?


edit:
Another question: how I can connect the server to the client via NO-IP?
So when the RAT server is opened, it will search for activity of his belong NO-IP server?

You don't need to be logged in for this Basic RAT. It is not advanced like Cybergate or something.

And I don't know about No-IP.

[proisr]

You don't need to be logged in for this Basic RAT. It is not advanced like Cybergate or something.

And I don't know about No-IP.

I want the server to recognize me every time when I'm activating the client, and add him self to my 'online servers list'.
But when I'm trying to connect my NO-IP account (in the IP field- www.mydomain.no-ip.biz) I'm getting an error.

[corey]

I've add 'try' to dat( ) so the client won't crash if the data wouldn't sent successfully:
Spoiler (Click to View)

Code

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim failure As Boolean

        Try
            dat("1*" + TextBox4.Text)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            failure = 1
        End Try
        If failure = 0 Then
            MessageBox.Show("MSG sent successfully!")
        End If
    End Sub

But when I press the 'send' button, even if I'm not even logged in to a server, the "sent successfully" message is still being viewed.

If u didn't understand my lame English:
Press 'send' --> a message shown: ex.message --> a message show: "MSG sent successfully" (Even when not logged in)
How can I make the succeed message be shown only when the data has been sent successfully?


edit:
Another question: how I can connect the server to the client via NO-IP?
So when the RAT server is opened, it will search for activity of his belong NO-IP server?

You have this

Code

Dim failure As Boolean

Boolean is true or false. not a number. You cannot make a boolean into a number.

Try this

Code

Dim failure As Boolean

        Try
            dat("1*" + TextBox4.Text)
            failure = true 'Might not be the exact syntax, I'm not in VS
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            failure = false
        End Try
        If failure = true Then
            MessageBox.Show("MSG sent successfully!")
else
            MessageBox.Show("There was an error sending your string!") 'Remove this if you want! :3
        End If
    End Sub

[Joey K]

Very nice example.

I will try this out.

[--([-S7N-])--]

Very nice example.

I will try this out.

OK, please post back with your results.

[proisr]

How can I convert my NO-IP url into an IP or just to connect via url? 'cuz when I'm trying to ping it via CMD I'm getting an error:
Spoiler (Click to View)Ping request could not find host www.%mynoipdomain%.no-ip.biz. Please check the name and
try again. (in $mynoipdomain% I've inserted my domain)

And when I'm trying just to connect the no-ip address (without converting it to an IP address) I'm getting an error (something about only vaild IP are allowed).

[--([-S7N-])--]

How can I convert my NO-IP url into an IP or just to connect via url? 'cuz when I'm trying to ping it via CMD I'm getting an error:
Spoiler (Click to View)Ping request could not find host www.%mynoipdomain%.no-ip.biz. Please check the name and
try again. (in $mynoipdomain% I've inserted my domain)

And when I'm trying just to connect the no-ip address (without converting it to an IP address) I'm getting an error (something about only vaild IP are allowed).

If you are trying to use No-IP with this RAT, it doesn't work with No-IP DNS or whatever...
If you are facing problems with No-IP, post about the problem somewhere else.

[proisr]

If you are trying to use No-IP with this RAT, it doesn't work with No-IP DNS or whatever...
If you are facing problems with No-IP, post about the problem somewhere else.

Why not? 'cuz it's DC and not RC?
In any way, how can I connect to a NO-IP DNS

Another question: I've tried changing id(0) from number into string like this:
client side:

Code

dat("SomeString*")

server side:

Code

ElseIf id(0) = "SomeString" Then
                    MessageBox.Show("working")
                End If

But the server didn't show anything.
When replaced the string with a number, it worked.
So does the id(0) must have numeric value?

[corey]

Why not? 'cuz it's DC and not RC?
In any way, how can I connect to a NO-IP DNS

Another question: I've tried changing id(0) from number into string like this:
client side:

Code

dat("SomeString*")

server side:

Code

ElseIf id(0) = "SomeString" Then
                    MessageBox.Show("working")
                End If

But the server didn't show anything.
When replaced the string with a number, it worked.
So does the id(0) must have numeric value?

No it works with me, For example.
My remote desktop feature works like this

Code

dat(RemoteDesktop*User or IP*1) 'or 0 if I'm turning it off. then each client does a check, if there username or ip matches. It begins sending me a stream of there system.

Then they would reply with a stream of their system like this

Code

dat(RemoteStream*User/IP*STREAM DATA)

And my stream would go into a picture box. It works the same way with a webcam, and keylogger. So this should work.

Code

if id(0) = "RemoteStream" then
'Stream to pic box here
end if

The id's work like this. you have a string, with a * after it.

Code

string*

That means "String" is id 0. So in the function

Code

if id(0) = "String" then
msgbox(id(0))
end if

That should have a msgbox appear with the word "String".

But if you were making id 0 a flag of sorts. It would work like this

Code

you would need to send the flag + * + the 2nd id, like this
dat("Flag*2nd string!")
if id(0) = "Flag" then
msgbox(id(1))
end if

That should make a msgbox come up with the words "2nd string!".

Code

You base each id of of the *. So F*L*O*P
F = 0
L = 1
O = 2
P = 3

But if you made it like this

Code

F*L*O*P*

Then there would be an id 4.
But it would be null.

/End my rant on id's

[Learn4Life]

Guys, do some one can help me, give me some idea how to make the server to have multi connection?

[corey]

Guys, do some one can help me, give me some idea how to make the server to have multi connection?

Look into threading. or asynchronous tcp.

[proisr]

Thanks correy, it's working now :)
Do you have any suggestions on how to connect my 'victim' into my client via NO-IP server (reverse connection)
Because when I'm trying to connect to the URL I'm getting an error (the ip must have xx.xx.xx.xx form)