Mensajes

@puntoinfinito: Sabiendo como actua el malware que corre por la red hoy día cabe la posiblidad (bastante alta) de que sea un virus, segun lo que el usuario dice Hay gusanos que obtienen las credenciales de tu correo y se autoproagan enviando correos a tus contactos donde se hace referencia a un link. Si lo visitas dicho enlace te redirecciona a una página donde te solicita que te descarges X complemento para X cosa. Una vez instalado el famoso complemento estás infectado.

Y bueno, nunca es malo pasarse un antivirus, por mucha seguridad que implementes. Es demasiado fácil saltarse la protección de un antivirus.

Saludos.

No te muestra dimensiones porque no has iniciado el array con índices.

En .NET:

Código (VB.NET) [Seleccionar] Expandir


dim a as integer= 1
Dim matriz(10) as integer ' pon los elementos que vayas a recorrer dentro del parentesis
for contador as integer = 0 to matriz.length -1
a*=90 'es igual a a=a*90
matriz(contador)=a
next


Saludos.

Buen aporte, no hay muchos ejemplos del uso de la API en vb.net, esa web de pinvoke a mi tambien me ha ayudado mucho, pero lo malo es que la mayoria de ejemplos estan en C#, lo bueno es que el sharpdevelop convierte proyectos de C# a vb  

Saludos.

Gracias por tu comentario La verdad es que encontré bastantes ejemplos para .NET pero no tenía ni papa (entonces) sobre APIs Por cierto, lo probé junto a un par de módulos más en XP y no funciona.. También por lo que he leído sobre Hooks a bajo nivel de teclado, éstos no son recomendables emplearlos en Win7 (me funciona de maravilla).

Recomiendan el uso de Raw Input, cada uno verá como rinde su app junto con los hooks. Sobre todo porque no funciona en XP, pues ni idea, quizá deba implementarlo de diferente manera.

Saludos.

Hombre!! cerrarla es una medida muy radical... Puede que estés infectado por algun bichito o que alguien haya capturado tus credenciales de correo.

Lo primero que haría sería pasar un escaner de cualquier Antivirus (los hay Online) como el ESET, AVG, Comodo. Después cambia la contraseña de tu cuenta de correo y cerciórate de que no vuelva a suceder. De ésta forma reestableceras el acceso a tu cuenta. Y ya que estás borra esos mensajes enviados (sin abrirlos )

Saludos.

[Movedlo a .NET]

Movedlo a .NET

Sabía que iba a solucionarlo (con o sin ayuda....), en media horilla conseguí implementar lo que quería... El envío de archivos es asincronico, y se guardan con su respectivo nombre y formato. Los datos no llegan corruptos

Dejo las funciones de envío y de recibo (sólo en las que envío/proceso los datos) :

En el Servidor:

Código (VB.NET) [Seleccionar] Expandir


Private Sub Enviar_Datos(ByVal Ruta_Archivo As String, ByVal Cliente As TcpClient, _
                            ByVal Nombre_Archivo As String)
       If Cliente.Connected = True Then
           Try
               Dim Flujo_Red As NetworkStream = Cliente.GetStream()
               Dim fileNameByte() As Byte = Encoding.ASCII.GetBytes(Nombre_Archivo)
               Dim fileData() As Byte = My.Computer.FileSystem.ReadAllBytes(Ruta_Archivo)
               Dim clientData() As Byte = New Byte(4 + fileNameByte.Length + fileData.Length) {}
               Dim fileNameLen() As Byte = BitConverter.GetBytes(fileNameByte.Length)
               fileNameLen.CopyTo(clientData, 0)
               fileNameByte.CopyTo(clientData, 4)
               fileData.CopyTo(clientData, 4 + fileNameByte.Length)
               ListBox1.Items.Add(fileData.Length / 1024)
               Flujo_Red.BeginWrite(clientData, 0, clientData.Length, _
                                    New AsyncCallback(AddressOf Enviar_Datos_CallBack), Flujo_Red)
           Catch ex As Exception
               MsgBox(ex.Message)
           End Try
       Else
           Escuchar()
       End If


En el Cliente:

Código (VB.NET) [Seleccionar] Expandir


   Private Sub RecibirDatos_CallBack(ByVal ar As IAsyncResult)
       Try
           Dim Buffer() As Byte = CType(ar.AsyncState, Byte())
           Dim ns As NetworkStream = ClienteG.GetStream
           ListBox1.Items.Add(Buffer.Length / 1024)
           Dim Bytes_Leidos As Int32 = ns.EndRead(ar)
           Dim fileNameLen As Byte = BitConverter.ToInt32(Buffer, 0)
           Dim fileName As String = Encoding.ASCII.GetString(Buffer, 4, fileNameLen)
           If Bytes_Leidos > 0 Then
               Dim file As New FileStream(CurDir() & "\" & fileName, FileMode.Create, FileAccess.Write)
               file.Write(Buffer, 4 + fileNameLen, Bytes_Leidos - 4 - fileNameLen)
               file.Close()
           Else
               ReceiveDone.Set()
           End If
       Catch ex As Exception
       End Try
   End Sub


Saludos.

Probe directa e inversa :S Pero tio el puerto 80 siempre esta abierto como no me va a funcionar 

Es un puerto en uso, por el cual circulan datos de conexiones de la máquina a un servidor web y viceversa. La verdad, nunca utilicé el puerto 80, por lo que no sé si estoy en lo correcto.

Para utilizar nc siempre empleé la conexión inversa y seteando un puerto (ej:1234). El puerto lo tienes que abrir en el router para que puedan pasar los datos.
Con eso sería suficiente. Sino prueba a agregar excepciones al NC en tu firewall, puede que algo esté cortando la conexion al netcat.

Saludos.

No necesitas emprender una carrera universitaria para tener conocimientos sobre programación e implementarlos (incluso a nivel profesional).
Basta con que la curiosidad te pique lo suficiente como para leer libros sobre programación y llevarlos a la práctica.

Cuando tengas las nociones básicas sobre dicho lenguajes puedes ampliar tus conocimientos buscando en foros de la red sobre procedimientos, funciones, APIs que desconozcas.
Tu mismo puedes consultar la página web de la universidad a la que quieras ir y visualizar el contenido que se imparte en los cursos de dicha modalidad...

Saludos.

Buenas.. Te dejo posible info que pueda servirte sobre dicho ejecutable -> http://www.alegsa.com.ar/Proceso/rundll32.exe.php

Suena potencialmente a amenaza, pasa un escaner online/offline a todo el sistema, igual detecta otras cosillas.

Te dejo los pasos a seguir:

Descarga, Actualiza, y ejecuta Malwarebytes antimalware, haciendo un analisis en su modo completo y quitando al final todo lo que te salga -> http://www.infospyware.com/antispyware/malwarebytes-antimalware/
Descarga y ejecuta Ccleaner, pasalo primero en modo de limpiador y luego de registro haciendo copia de seguridad cuando te lo pida -> http://www.infospyware.com/herramientas/ccleaner/

De esta forma podrás detectar posible malware instalado en tu ordenador, incluso aquello que puedas desconocer y esté situado en tu PC.

Un saludo.

No me gustaría tener que empezar a matar gatitos...

Vamos ¿ni una simple recomendación? será que no me he buscado la vida lo suficiente por la red... ¬¬

No os pido el code, si no una breve explicación con la que poder implementar lo que digais.

Saludos.

Eso es que no abriste bien los puertos o que falla algo en la configuración de tus troyanos....

Como ejecutas las conexiones, ¿de forma directa o inversa?