Temas

[Imprimir archivo:]

Wenas!!
Este código lo uso para imprimir archivos tipo .dod, .txt, .rtf

Imprimir archivo:

Código [Seleccionar] Expandir

Public Sub Imprimiu(Path As String)
   
    Dim AppWord
    Dim DocWord
   
        'Asignar el documento
        Set AppWord = CreateObject("word.application")
        Set DocWord = AppWord.Documents.Open(Path)
       
        'Imprimir en segundo plano
        AppWord.Documents(1).PrintOut
       
        'Comprobar que Word no sigue imprimiendo
        Do While AppWord.BackgroundPrintingStatus = 1
        Loop
        'Cerrar el documento sin guardar cambios
        AppWord.Documents.Close
        'Liberar
        Set DocWord = Nothing
        'Cargamos el objeto creado
        AppWord.Quit
        Set AppWord = Nothing

End Sub

Aunque con este código creo que hay que tener Word instalado para imprimir el documento..

Y por otra parte si el archivo es .pdf lo hago con ShellExecuteA(Me.hwnd, "print", Path, "", "", 1)...

¿Hay alguna forma de imprimir archivos de texto (y PDF) sin usar la API ShellExecuteA?

salu10!!

[svchost.exe]

Wenas a todos!

Viendo los reportes de virusnothanks que andan apareciendo ahora me ha dado por scanear mi server con el Multi-Engine Scanner y resulta que me lo detectan nada más que CUATRO antivirus!

File Info

Report generated: 22.1.2010 at 15.40.36 (GMT 1)
Filename: svchost.exe
File size: 266424 bytes
MD5 hash: 28dadc95537f1ec96688afaf463afcaf
SHA1 hash: D195C7649C892EE586713338A91DB5E84AA2C578
Detection rate: 4 on 24
Status: INFECTED

Detections

a-squared - -
Avira AntiVir - TR/Crypt.FKM.Gen
Avast - -
AVG - -
BitDefender - Gen:Trojan.Heur.qm1@Xqk1Qthi
ClamAV - -
Comodo - -
Dr.Web - -
Ewido - -
F-PROT6 - W32/VB-Backdoor-PSVR-based!Maximus
G-Data - -
Ikarus T3 - -
Kaspersky - -
McAfee - -
NOD32 v3 - -
Norman - -
Panda - -
QuickHeal - -
Solo Antivirus - -
Sophos - Mal/Behav-035
TrendMicro - -
VBA32 - -
VirusBuster - -
ZonerAntivirus - -

Scan report generated by
NoVirusThanks.org



¿Cómo hacer para saltarse la heurística?

PD: Los strings ASCII del ejecutable son lo más cantoso, tienen en cuenta estos strings los antivirus?
Si hay un par de strings concretos en un ejecutable lo declara como troyano¿ (por ejemplo si existe "Server" "Remote" y "KeyLogger" meterlo en alerta roja y asi??)
y Se conservan los nombres de las variables?
No tendría que codificarlos el compilador?? Por ejemplo con números?

Puedo admitir que es el server más DETECTABLE de todos los que habéis visto, tampoco me he dedicado a ello en esencia.. (eso me digna  ) pero no puedo negar que me ha bajado la moral bastante.. mucho

Hacer este scan ha sido mi perdición, agradecería que aclarárais las dudas genios!!

Wenas a tod@s!

Se dice por ahí que sí se puede ejecutar programas compilados en XP con VB6 y ejecutarlos en versiones como WindowsVista o Windows7..

Pero por lo que yo he visto los ejecutables creados en XP no terminan siendo compatibles en las nuevas versiones... para ejecutar el cliente de mi RAT en Windows7 me pide una librería dll que no está instalada en el SO y no deja instalarla con RegSvr32.. Y con el server.. ejecuta sin problemas (es más al ejecutar se le asigna el atributo "oculto" y en XP no me salía, luego lo demás no se como ira..) pero la cuestión por excelencia es que en el administrador de tareas aparece el nombre del .exe con (* 32)!! Cómo se puede hacer para que el exe pase a ser de 64 bits en vez de 32? Hay que compoilarlo en otro windows?? Es el fin de los 32 0s y 1s?

Supongo que ya se habrá hablado de esto en el foro.. si eso poner algún link..

gracias por respionder y saludos!

Wenas! Feliz Navidad a todos!

¿Cómo se puede hacer el edit server en visual basic?
Es buena idea meter el server-compilado en hexadecimal (por ejemplo), en el código del cliente (antes de compilarlo) y configurarlo para que escriba un archivo en el que meta esos datos?

Luego el server estaría configurado para establecer opciones (IP, puerto, loquesea) a partir de un .txt, .ini,... que también se crearía antes con el cliente...

Es lo bastante poco-retorcido para hacerlo?

Gracias de antemano

PD: He buscado en el buscador pero no he encontrado nada.

Wenas!
Me explico: lo que quiero hacer es hacer aparecer más de un MsgBox en la pantalla de la victima. Al ser el MsgBox un formulario "modal" (creo que va de eso) el servidor tiene que esperar a que se le de a aceptar en el MsgBox para proseguir con la ejecución del programa, por lo que al enviar más de un MsgBox, el primero salta pero luego los demás no aparecen. Por consecuencia los datos enviados desde el cliente al server de la victima se almacenan, y aparece el siguiente MsgBox (después de que yo le de a "Aceptar") con texto repetido en su interior.

¿Cómo hago para mostrar MsgBox no modales o independientes de la interacción de la victima?

Gracias de antemano

salu000000000010

Wenas! Querría saber cómo crear el server desde el cliente, sólo quiero alguna referencia... no todo explicado (aunque no estaría mal).. ¿¿Se podría meter el proyecto del server en el cliente, cambiar el código y después compilarlo mediante algún compilador VB portable¿¿ si es así cómo meto el proyecto? como lo cambió? siempre he querido hacerlo todo con el cliente..

Gracias de antemano

salu2!!

Wenas! Me podría decir álguien el nombre de la API para comparar imagenes?? es para la captura, quiero que si dos imagenes capturadas son iguales no guarde la imagen que es igual....

he buscado por el foro pero no he encontrado justo eso, lo que yo quiero es que compare el 100% de la imagen, si cambiara por ejemplo la hora de la barra de herramientas pues que guardára la imagen o no sé eso ya luego..

gracias de antemano!

salu2

kepatxa!!

Resulta que buscando y buscando sobre cómo girar la pantalla con vb he dado con la función keybd_event y he querido aportar lo que he aprendido de él...

La cuestión es que se puede qirar la pantalla usando la combinación de teclas Ctrl+Alt+Flechitas en WinXP y es por eso que necesitaba de keybd_event... pero aparte de brindarte todas las funciones que Windows implementa mediante las combinaciones de teclas (administrador de tareas, dialogo buscar, un gran etc...) la función keybd_event te permite por ejemplo mantener alguna tecla permanentemente...

Yo dejo el código para que se dé rienda suelta al tema...

La gran función keybd_event:

Código [Seleccionar] Expandir

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Algunas constantes..

Código [Seleccionar] Expandir

Const KEYEVENTF_KEYUP = &H2 'Para despulsar o soltar la tecla
Const KEYEVENTF_EXTENDEDKEY = &H1 'No sé lo que es
Const VK_DELETE = &H2E 'Del
Const VK_MENU = &H12 'Alt
Const VK_CONTROL = &H11
Const VK_DOWN = &H28
Const VK_RIGHT = &H27
Const VK_LEFT = &H25
Const VK_UP = &H26

Hay toda una lista de constantes de teclas algún foro chino...bueno por si no sabéis chino...os ayudo http://blog.csdn.net/caridle/archive/2007/06/26/1667741.aspx

un ejemplo: poner pantalla de lado [lo de arriba a la izquierda]

Código [Seleccionar] Expandir

Call keybd_event(VK_CONTROL, 0, 0, 0) 'Pulsar
Call keybd_event(VK_MENU, 0, 0, 0) 'Pulsar
Call keybd_event(VK_LEFT, 0, 0, 0) 'Pulsar
   
Call keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0) 'Soltar
Call keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0) 'Soltar
Call keybd_event(VK_LEFT, 0, KEYEVENTF_KEYUP, 0) 'Soltar


Acordaros de "soltar" la tecla porque sino se puede quedar alguna tecla pulsada y se lía gorda porque las demás teclas pueden funcionar como combinación... a mi me ha pasao que he puesto VKK_CONTROL (sin Option Explicit) y se me ha quedao la pantalla palla y las teclas paca... estrujando el cerebro para mover bien el ratón y hacer copy&past de VK-UP y ejecutar    

que lo disfruten !! salu10!! 

El asunto es que merodeando un poco por el Panel de Control y tal... me he encontrado con una opción que hace que rote la pantalla [90, 180 o 270 grados] adaptando además también el ratón al volteo y quería implementar esa opción al apartado Fun/Miscellaneos de mi ratoncito perez...

La cuestión es que mirando por ahí encontre la API ChangeDisplaySettingsEx que tiene como parámetro un tipo de datos (DEVMODE) en el cual se almacenan las características de la pantalla: la resolución, opciones de color,.. y entre ellas está dmOrientation que es la que se supone que almacena la orientación o ángulo de la pantalla...

Pues resulta que el API que yo he encontrado no tenía declaradas las constantes que usa dmOrientation y además le faltan algunas constantes más.... el API en concreto es http://allapi.mentalis.org/apilist/D30C6FE933807D158AFF771D2F780906.html.
Además he encontrado otros ejemplos que se centraban más en eso de rotar el ángulo de la pantalla y he visto que el tipo de datos DEVMODE tenía además más características, tenía aparte del dmOrientation un dmDisplayOrientation (que luego he leído que era el que se necesita para la pantalla y que el otro era para la impresión....). Bueno total que intento tras intento no he conseguido darle la vuelta a la pantalla y he decidido postear....

Agradecería infinitamente que postearan la API ChangeDisplaySettingsEx completa si es que existe

Q pasa peña, la cuestión es que tengo un chat en forma de matrix con la pantalla toda negra, las letras verdes y tal, y para que ocupe toda la pantalla (que tape la barra de tareas de windows y todo) hago el form lo más grande que puedo en la pantalla de diseño y lo pongo en vbMaximized.
Resulta que en el ordenador de casa el form encaja perfectamente en la pantalla, como digo tengo puesto vbMaximized en WindowState y CenterScreen en StartUpPosition y el form ocupa toda la pantalla y aparece todo. Pero cuando lo uso en el portátil (tiene la pantalla más alargada) la parte de abajo (que es donde aparece lo que escribe la "victima") no aparece en pantalla...
¿No se supone que al darle a vbMaximized se tiene que adaptar?, o es que el form es demasiado grande (más pixeles de altura) de lo que puede dar la pantalla...

Supongo que podría hacer un If en Form_Load que revise el tamaño de la pantalla y adaptar el form manualmente?? Cómo lo hago?? No hay alguna otra forma de hacerlo ??

Si se le ocurre a alguien alguna ocurrencia....

PD: Una dudilla = ¿Visual Basic pone como tope para el tamaño del form el tamaño de la pantalla en la que se está usando?

salu10 y gracias de antemano..

La cuestión es que con el código que uso los archivos se mandan por paquetes de 8 kilobytes y se mandan muuy lento (unos dos minutos para mandar un archivo de 300KB con un ping de poco más de 500ms) y no es muy util para la captura de pantalla...

Eso de los 8KB me parece que lo leí por ahí, que es el peso maximo que pueden tener o algo... Este es código que uso:

Código [Seleccionar] Expandir

Open Artxibu For Binary As #sfreefile
        byteread = LOF(sfreefile)
        Do While Not EOF(sfreefile)
             filebuffer = Space$(read)
                read = 8192 ' 8 KB-eko zatixetan batzendou
                If totalread + read > byteread Then
                    read = byteread - totalread
                End If
                filebuffer = Input(read, #sfreefile) ' irakurtendabena bufferrin sartzendou
                totalread = totalread + read
                GREATS.SendData filebuffer
                If Not Len(filebuffer) = 8192 Then: Exit Do
            Loop
        GREATS.SendData "END"
        Close #sfreefile

Lo que quiero es que por lo menos se acerque un poco al maximo de subida...


Gracias de antemano y salu10

Alguna sugerencia ??
No llega a coger ninguna coordenada, ni siquiera carga la página..

Código [Seleccionar] Expandir


Private Sub cmdLocateHops_Click()

    HopCounter = 1
    WebBrowser2 = "para diferenciar los valores"
   
    TimerBusy.Interval = 200
    TimerBusy.Enabled = True

End Sub


Private Sub TimerBusy_Timer()

If Not WebText = WebText Then

    If HopCounter > 128 Or Hops(HopCounter) = HostIP Then TimerBusy.Enabled = False: Exit Sub

    If Not Hops(HopCounter) = "" Then IPLocator.Navigate "http://api.hostip.info/get_html.php?ip=" & Hops(HopCounter) & "&position=true"
   
    WebText = WebText2
   
    If Not IPLocator.Busy = True Then
        IPLocator.SetFocus
        IPLocator.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT 'Seleccionar todo
        IPLocator.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT 'Copia
        WebText = Clipboard.GetText
        If InStr(1, WebText, "Latitude", vbTextCompare) > 0 Then
            txtLocator.Text = txtLocator.Text & vbCrLf & "[" & Hops(HopCounter) & "]" & vbCrLf & WebBrowser
            HopCounter = HopCounter + 1
        End If
    End If
   
End If

End Sub

Wola:

Al final he conseguido que el módulo GoogleMaps ande por sí solo. Aquí lo dejo por si queréis investigarlo.

http://geuretxoku.bravehost.com/Downloads/GoogleMaps.rar

La aplicación se divide en tres partes:
1- Por una parte tiene el traceroute, que lista los nodos por los que pasan nuestros paquetes de datos
2- Por otra parte un "API" que se ocupa de conseguir las coordenadas a partir de la dirección IP. (mediante una página web)
3- Y por último el GoogleMaps que se ocupa de ubicar las coordenadas que se le dan mediante los textbox.

Lo que quiero hacer es lo siguiente:
1- Listar los nodos por los que pasan los datos en el textbox y pasarlos al array.
2- Conseguir las coordenadas ( si se puede ) de cada nodo y listarlos en el otro textbox, y pasarlos a otro array.
3- Con el array de coordenadas, crear marcas en el mapa creado por google y unir las marcas con rayas. (mediante html)

Así conseguiría un GeoTraceRoute donde podría ver el recorrido que hacen mis paquetes para llegar donde tengan que llegar....

De momento el problema es que no consigo hacer un bucle donde se consigan las coordenadas de cada salto(nodo) que se lista en el paso anterior. Puedo conseguir las coordenadas una a una pero no consigo hacerlo de forma automatica para que cree un array donde se almacenen las coordenadas de cada salto....

Bajaos el código y echadle una buena ojeada, el módulo ICMP está interesante y lo de GoogleMaps a mí me apasionó

Benga salu10 y gracias de antemano.

Mi duda es la suguiente, se puede conectar a mi PC desde mi PC, saliendo para eso a internet para después volver?
Lo que quiero hacer es simplemente probar a ver si se puede conectar a mi PC mediante el cliente de mi troyano pero usando la cuenta no-ip. Me explico:

Yo tengo creado un server y un cliente con conexion inversa es decir el server se conecta al cliente, pero yo lo que quiero es tener en casa siempre un server activo de forma que yo aunque este en el culo del mundo me pueda descargar el cliente desde una cuenta ftp y conectarme a mi ordenador de casa usando la cuenta no-ip.

El problema es que cuando meto la cuenta no-ip para conectarme me rechaza la conexión y no conecta; pero si meto la direccion IP de la red local 192.168.1.41 si que me conecta, oseake el problema es que no llega hasta 192.168.1.41. Ademas en el 127.0.0.1 tampoco me conecta.

Yo lo que creo es que en el protocolo TCP/IP en sí no es posible hacer una conexion de ese tipo salir a internet para luego volver:
Mi PC - No-IP - Mi PC

Si alguien sabe explicar todo esto le agradecería mucho que me aclare estas dudas que siempre he tenido.

Se necesita estar fuera de la red local para usar la cuenta no-ip, la cuenta no-ip devuelve la direccion publica de nuestro ordenador, es decir la direccion IP que usa nuestro router para entrar a internet quiere decir eso que especifica el ordenador de la red local, o si tu usas la No-IP estas conectandote al router y no al ordenador? cada ordenador en una lan tiene una IP publica diferente?? una no-ip diferente?

me gustaría saber todo eso....

gracias

salu10 a tod10

Estoy incorporando un traceroute a mi programilla y le he metido tambien la api google map y bueno lo que quiero hacer es marcar las coordenadas de cada salto del trace en el mapa de google.

De momento el problema lo tengo con el WebBrowser. Bueno explico el proceso que me he planteado:
1. Primero hago el trace route y listo los hops en un listbox. [Eso ya lo hago]
2. Después hay que conseguir las coordenadas de cada salto a partir del IP para hacer las marcas.
3. Hacer marcas en API Google Maps con todos los hops (saltos)
4. Unirlos mediante rayas.
5. Mostrar mapa

Para eso tengo un WebBrowser que se encarga de cargar la pagina .htm que voy creando a partir de las opciones; y otro para conseguir las coordenadas (que tendría que ir en .visible = false). El problema es que meto en un for:

Código [Seleccionar] Expandir

For i = 1 To 128
    If Not Host(i) = "" Then 'Los saltos estan en el array Host()
         WebBrowser.Navigate http://api.hostip.info/get_html.php?ip=" & Hops(i) & "&position=true" 'Direccion que devuelve las coordenadas
         IPLocator.SetFocus
         IPLocator.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT 'Seleccionar todo
         IPLocator.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT 'Copia
         Coord = Clipboard.GetText
         txtLocator.Text = txtLocator.Text & Coord
    End If
Next i

Pues las cosas así me da solo las coordenadas de la ultima direccion, osea la direccion final y lo raro es que se repite (por cada i).

Si alguien me hechase una mano...

si quereis subo el form para que lo veais, esta tambien lo de google...

Gracias de antemano,

Salu10

Estoy incorporando un traceroute a mi programilla y le he metido tambien la api google map y bueno lo que quiero hacer es marcar las coordenadas de cada salto del trace en el mapa de google.

De momento el problema lo tengo con el WebBrowser. Bueno explico el proceso que me he planteado:
1. Primero hago el trace route y listo los hops en un listbox. [Eso ya lo hago]
2. Después hay que conseguir las coordenadas de cada salto a partir del IP para hacer las marcas.
3. Hacer marcas en API Google Maps con todos los hops (saltos)
4. Unirlos mediante rayas.
5. Mostrar mapa

Para eso tengo un WebBrowser que se encarga de cargar la pagina .htm que voy creando a partir de las opciones; y otro para conseguir las coordenadas (que tendría que ir en .visible = false). El problema es que meto en un for:
For i = 1 To 128

Cómo puedo obtener la posición de un objeto en pantalla y las medidas para luego crear un RECT (rectángulo) donde pueda restringir el cursor.

Algo como GetObjectDimensions (ByVal hWnd As Long) As RECT

o GetObjectTop, GetObjectLeft, Width y Heigh para luego crear el RECT manualmente.

Lo que necesito es alguna funcíon que devuelva la posición y medidas de un objeto mediante su handle.

Salu10 y Gracias de antemano

Lo que me gustaría hacer es poner un par de banderitas en una esquina del form principal para que al hacerles click se cambie el idioma de los labels, etc..

Lo único que se me ha ocurrido es meter la lista de todos los labels, combobox, listbox en un Label1_Click() y cambiarles el .caption uno a uno traduciendo cada uno  , Pero pensándolo mejor seguro que hay alguna otra alternativa muucho mejor

No sé si hay que crear algún archivo .lang con los .caption de los labels o si hay que crear una instalación o qué. Recuerdo que en el Cactus Joiner de MadAntrax había unas banderitas en la esquina superior pero al darles aparecía un MsgBox diciendo que todavía no se había agregado ningún idioma. No sé si lo habrá hecho.

Si alguien sabe cómo hacerlo pues ya sabe, ya está tardando.

Gracias de antemano

Salu10 

El problema es que quiero que cuando el programa abra un pequeño form para insertar una contraseña, el cursor (el foco) se instale en el textbox para insertar el pass.

He intentado poniendo txtPass.SetFocus en el Form_load y me salta "llamada a procedimientos o argumentos no válidos".
Se me ocurre que podría ser porque el textbox o el form en sí no está cargado aún y no se puede aplicar el SetFocus, es decir que das la orden de establecer foco a un objeto que todavía no se ha creado y que se creará cuando finalize el form_load.
Quiero decir que podría ser porque está antes de las lineas de crear el form, el textbox y eso, aunque no se vea, claro. Algo así:

Private Sub Form_load()
     txtPass.SetFocus
     [lineas que no se ven y que son las que crean el form o los objetos en dicho form]
End Sub

He intentado con la propiedad Tab en el Form poniendola a 1 o a 0 pero nada, y el default tampoco se puede poner aunque lo tengo en un command, para que introduzca el pass al darle al enter.

La idea es simplificar el trabajo haciendo que el cursor se ponga en el textbox para así escribir directamente la clave (sin llevar el cursor con el ratón) y luego al darle al enter que siga a delante.

Se me ocurre insertar un timer en el form_load con unos milisegundos y después llamar al setfocus desde el timer aunque sería un poco chapuza no??

Que alguien me ayude a solucionar esta chorradilla!!

benga foro.fos

El problema es que quiero que cuando el programa abra un pequeño form para insertar una contraseña, el cursor (el foco) se instale en el textbox para insertar el pass.

He intentado poniendo txtPass.SetFocus en el Form_load y me salta "llamada a procedimientos o argumentos no válidos".
Se me ocurre que podría ser porque el textbox o el form en sí no está cargado aún y no se puede aplicar el SetFocus, es decir que das la orden de establecer foco a un objeto que todavía no se ha creado y que se creará cuando finalize el form_load.
Quiero decir que podría ser porque está antes de las lineas de crear el form, el textbox y eso, aunque no se vea, claro. Algo así:

Private Sub Form_load()
     txtPass.SetFocus
     [lineas que no se ven y que son las que crean el form o los objetos en dicho form]
End Sub

He intentado con la propiedad Tab en el Form poniendola a 1 o a 0 pero nada, y el default tampoco se puede poner aunque lo tengo en un command, para que introduzca el pass al darle al enter.

La idea es simplificar el trabajo haciendo que el cursor se ponga en el textbox para así escribir directamente la clave (sin llevar el cursor con el ratón) y luego al darle al enter que siga a delante.

Se me ocurre insertar un timer en el form_load con unos milisegundos y después llamar al setfocus desde el timer aunque sería un poco chapuza no??

Que alguien me ayude a solucionar esta chorradilla!!

benga foro.fos

El asunto es que he encontrado un programilla que sirve para hacer videos capturando la pantalla (hay muchos por ahí), pero como explican en su web [http://www.screen-record.com/SSCV2.htm] no usa codecs avi, mpeg ni nada que pesan mogollón al crear videos de la pantalla. Usa un codec creado por los desarrolladores de dicho programa que según explican mantiene muy bien el texto y al mismo tiempo tiene una buena calidad de imagen.

Lo peculiar, por lo menos yo nunca lo había visto, es que te crea un archivo .exe en vez de usar un formato de video y es ejecutable en TODOS los windows. El programa es "Screen2exe". Si no lo conocéis os recomiendo que lo bajéis y hagas una prueba. http://www.screen-record.com/dl/SCREXESetup.exe

Yo creo que ese codec sería ideal para implementarlo (no se cómo) al VB6 y crear una captura de pantalla muuuuuuy buena. Si alguien sabe cómo se podría conseguir ese codec o como hace el prgrama para crear un video en .exe o que sepa algo pues ya sabe, a compartir...

Igual es un codec que te lo venden por millones, pero por aquí fijo que hay peña que lo saca 

Insisto descargar el programa y grabar un par de minutos, si no anda el link buscar en google que aparecen 200 links para descargar.

Salu10

Hola foro-fos:

Mi problema es que cuando intento conectarme a mi server local (un programa server-cliente que he hecho yo) desde otro ordenador en LAN me da el error 10061 creo que es Connection refused.

Tengo un portátil donde pongo el cliente y un ordenador grande donde pongo el server local (no tiene reverse-connection, se pone a la escucha el server y espera a que el cliente se conecte, es para que yo me pueda conectar a mi ordenador de donde sea, con no-ip en el ordenador de sobremesa). El problema es que me rechaza la conexión. He hecho varias pruebas y el programa en sí creo que está bien, poniendo el cliente y el servidor los dos en cualquiera de los ordenadores se conecta y te deja usar todas las funciones, en LAN (usando las direcciones 192.168.1.xxx) me deja conectarme al portátil desde el grande (teniendo el localserver en el portátil) pero no al revés (el pequeño no le puede al grande, jeje).
En resumen. Puedo conectarme sin salir a internet (+ o - puedo, me da también connection refused al intentar conectarme al grande desde el portatil) pero no puedo conectarme a mi ordenador de sobremesa desde internet (fuera mi propia red, desde la red de redes) que es lo que quiero yo. El error que da es ese de rechazo de la conexión y por lo que dicen en MSDN es porque el ordenador rechaza activamente la conexion entrante, a causa de que no hay ningun programa, servicio, proceso que "se haga cargo de ello" (es lo que he entendido). Como he dicho el programa creo que está bien, tiene el sub accept connection request bien, el puerto está bien configurado, etc.
No tengo firewall instalado ni tampoco está activado el de windows (aunque creo que tengo todavía el zone alarm instalado porque no lo puedo quitar, tampoco se pueden borrar los archivos en "archivos de programa") pero puede que no sea ese el problema porque el antivirus en sí no funciona, el proceso zalarm.exe (creo q era) no corre.
Aparte de todo eso tengo la venda en el emule y como he dicho tengo los puertos abiertos (router Xavi de telefonica, me meti en la pagina de configuración, add reserved mapping, abrí los puertos uno a uno, guardé y reinicié) y antes no tenía ID baja y podia también conectarme al ordenador de sobremesa desde el portátil y no sólo al revés. Creo que el problema está en este ordenador (el grande) porque además el emule también va bien en el portátil.
Un último detalle el portátil usa vista pero eso creo que no es ninguna traba para la conexión porque desde el grande (XP) me conecto al Vista...

Espero que entendáis la situación (he intentado dar la información más relevante) y me ayudéis a resolver el problema, aunque sea el del emule pero me temo que va de lo mismo...

Gracias de antemano y felicidades por el foro !!

Wola a tod@s:

No suelo escribir muchos posts en el foro aunque ando mucho en él y aprendo constantemente de los miembros del foro, por eso yo también quería poner mi granito de arena en está excelente playa de conocimiento haciendo lo que considero un buen aporte.

Antes de todo quiero añadir que yo hago lo que hago con fines totalmente éticos y con intención de entretenerme y aprender; que por cierto animo a la gente que le vaya el tema a que se adentre en ello. Lo digo simplemente porque no quiero que se me tome como un desquiciado programador de malware que sólo se interesa en saber cómo poder tener control sobre otros o peor aún de querer hacer el mal en ellos simplemente jodiéndo discos duros.
Bueno la cuestión es que después de recopilar las funciones que consideraba "básicas" para un troyano (explorer, chat, keylogger, captura, info, chorradilas: imprimir texto, abrir cd, desaparecer cursor y demás) pensé al de tiempo en agregarle otras nuevas funciones como por ejemplo la de que el server reproduzca lo que se escribe en el cliente, como si fuera un mensaje de voz.
Se me ocurrió porque tenía en una de mis recónditas carpetas un .exe de nombre TalkIt! (algunos fijo que también lo tendreis) que reproducía lo que escribías con diferentes voces (todas bastante robóticas). Total que empezé a buscar información de sobre como hacerlo y llegué a http://www.codeproject.com/KB/vbscript/texttospeech.aspx.
Me costo bastante hacerme con la <googclave>, al final resultó ser "text to speech in visual basic", suele pasar.

Descargué el archivo http://activex.microsoft.com/activex/controls/sapi/spchapi.exe
que contiene las librerias .dll que necesitas para que rule la boca que habla y conseguí hacer un pequeño form con un textbox que hacía que dijeras lo que escribías (con acento robolatino en este caso, que fue algo más de agrado). La pregunta final es, ¿Sabe alguien cómo puedo hacer para implementar la .dll que se necesita para reproducir el texto (Xvoice.dll) en el .exe del server para que funcione en ordenadores que no tengan instalada y registrada la .dll? Por ejemplo alguna API (creo que la dll no esta por defecto instalada porque he probado en un viejo portatil con XP y no va, y además al poner "Xvoice.dll" en google no aparecen mas que links para des-cargar por lo que será que windows no te lo "carga" al instalarlo.)
Otra opción y me temo que más chapucera aunque eficiente sería subir la .dll al ordenador remoto, meterla en C:\WINDOWS\speech\Xvoice.dll, que es donde se instaló (junto con otras dll's cuando ejecute el .exe ese que se descarga de la página esa) y registrarla mediante un batch (con el comando regsvr32).

Si a alquien se le ocurre alguna otra idea o quiere añadir cualquier otra cosa y quiere compartirla (solo para que valoremos su gran ingenio y conocimiento, jeje es broma) y le la da gana de escribir un post para hacerlo pues no tiene más, se lo agradecere mucho. Tampoco tengo mucha prisa, esto es para mi mero ocio, no soy un lammer que está deseando de hacer la chorradita del més.

Si alguien está haciendo algun troyano en visual basic y quiere compartir sus conocimientos, ideas, reflexiones... que hable, yo siempre compartiré los míos. Yo he llamado a mi proyecto GREAT (es que va sobrao) y su source (en VB) la he dejado en la ftp de mi web. No intentéis descifrar la web ni los labels, ni los comentarios del proyecto porque no vais a poder, no es que esté codificado en MD5 pero es que está en euskera (soy vasco, sí de esa tierra que parece tan recóndita para algunos, bueno como veis no estamos tan perdidos, jeje) La web es de la kuadrila; hay un par de fotos y videos de YouTube, lo único pena de no poder reíros de los chistes, están tucos.

Respecto a la source, una vez el deseo de querer compartir lo que llevas haciendo en mucho tiempo supera tu consciencia del peligro que conlleva hacerlo (el .exe podría hacerse detectable, podrían acusarme de algún delito quizá.. aunque digo otra vez que no tengo ninguna intención de delinquir) he decidido disminuir ese peligro con algunos medios que se me han ocurrido, un poco rebuscados pero valdrán para algo (para filtrar lammers que quieran usar mi troyano para hacer chorradas, por ejemplo). Lo primero es que todos los archivos del source están comprimidos en .rar y el archivo tiene contraseña; además el fichero .rar tiene la cabezera quitada con un editor hexadecimal (los primeros 8 bytes), hay que hacer otro archivo .rar para copiar la cabezera. 
El link del Source es éste www.geuretxoku.bravehost.com/Proyecto GREAT.rar
El password del .rar es "foro.elhacker.net"

Sin más que decir, os pido que escribáis algún post en el tema, aunque sea para decir que el troyano en VB es una mierd-a. Y felicidades a todos que hacen posible que este foro exista, eso si que es tener ética.

Disfrutad haciendo lo que hacéis, el conocimiento te hace libre.

=GuReA=