Temas

Conozco mas de 20 sitios en los que el ordenador puede iniciar una aplicacion al iniciar el SO, pero el inicio ActiveX no se donde se encuentra, me podriais ayudar, en google no e encontrao donde se encuentra per omuchos programas lo usan

Salu2

Hola, estoy acabando un programa para el envio de archivos y cada vez que envia una parte de archivo espera a que el servidor lo haya recibido para que manda la segunda.

Este es el codigo que he hecho para que espere:

Código [Seleccionar] Expandir


Sub Spera()
Dim snTime As Integer
snTime = Timer
While Response = True
DoEvents
If Timer - snTime > 5 Then
MsgBox "Tiempo agotado"
Agotado = True
Exit Sub
End If
Wend
End Sub


Este codigo lee el archivo, y lo manda por trozos esperando en cada trozo.

Código [Seleccionar] Expandir


Dim Buffer as string * 1024
Do While Not EOF(1) 'mientras no lleguemos al final
  If Agotado = True Then Exit Sub ' si se acaba el tiempo salir
  Get #1, , Buffer
  Form_archivos.Winsock_file.SendData Buffer
  DoEvents
  Response = False
  Call Spera
Loop 'hasta k terminemos


Este codigo en el server envia NEXT para que envie la siguiente parte:

Código [Seleccionar] Expandir


Private Sub Winsock_file_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock_file.GetData datos
Put #1, , datos
DoEvents
Winsock_server.SendData "NEXT" 'cuando tiene que enviar esto no lo hace bien, no se si lo manda o no lo manda, creo k no
End Sub


en el data arribal del cliente compruebla si a llegado y tiene k mandar la siguiente

Código [Seleccionar] Expandir


Private Sub Winsock_menu_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim mensaje As String
Winsock_menu(Selecion).GetData mensaje
if mensaje = "NEXT" then
Response = True
end if
end sub


Alguien podria provar el code y decir donde da error, a mi no me da ningun error, pero no hace lo k tendria k acer, creo k el server no manda el NEXT y el cliente no espera, lo manda todo seguido...No se

Ayuda please

Salu2

PD: Polux, me gustaria k le echaras una ojeada a este post si no es mucha molestia 
http://foro.elhacker.net/index.php/topic,90656.0.html

Hola
tengo un prblema con un listview, en el metodo report para que me muestre subitems, cuando inserto los datos se ven correctamente(los items y los subitems), pero cuando limpio la tabla y les inserto de nuevo solo me inserta los items y los subitems se quedan en blanco...

¿alguien sabe lo k pasa?

Salu2

Hola de nuevo
Alguien sabe donde puedo encontrar el modulo para sustituir el msinet.ocx mediante apis.

Gracias  Salu2

Hola
Esto parece una tonteria, pero no lo es, por que en la programacion de malware VBS es detectado por los antivirus y e estado buscando y e encontrado un mensaje de reydelmundo11 en el que se explica como editar el registro mediante apis pero es mucho codigo y yo necesito el minimo de codigo para escribir una clave del registro y para leerla un poco de ayuda please, por que con esa info solo e conseguido hacerme un lio.

Salu2

Weno, queria decirles, que ay mucha gente en este foro programando troyanos y tal, y ay un tema del que no se a ablado, todos o casi todos los trayanos tenen la funcion de robar password del msn, IE, mozilla administrador...

ALguien saben en que ruta del registro se encuentra alguna internesante?

salu2

Hola a todos ua vez mas 

El problema que tengo es que e creado una aplicacion que usa una referencia del msn, "Messenger API type library", y si el msn no esta instalado me da un error, igual que cuanto te falta alguna libreria o algun ocx, la pregunta seria :
¿Ay alguna manera de que no te muestre en la pantalla ese mensaje de error y se cierre en caso de no encontrar ese archivo?

salu2

Hola a todos, mirar, yo desde mi client mando una orden para que desistale el server, pero lo unico que ace es eliminar la clave del registro que ace que se inicie, aparentemente ya esta desinstalado, por que el programa ya no va a funcionar mas, pero ¿¿¿como podira acer para que ademas de borrarle del registro se elimira a si mismo el programa???

Salu2

A ver mi problema, cuando los visitantes de mi pagina web suben un archivo al ftp se renombra automaticamente y queda asi "foto3", "foto4", "foto5"... todas igual, lo unico que cambia es el numero del final, pues  mirar, yo e echo un programa, que se descarga todas esas imagenes automaticamente, todas las imagenes de la carpeta llamadas "foto" y un numero, mi duda seria, Si en una capata tengo archivos con nombres diferentes, pero con la misma extension ".jpg" ¿Podria usar algo como "*.jpg?

Solo quiero sujerencias 

Salu2

Hola a todos, pues el problema es que en el trayano que estoy haciendo al enviar los archivos no les envia enteros, solo envia un poco del principio, aqui os dejo el codigo a ver si alguno encontrais el problema, por que llo llevo mas de una semana y no lo e encontrao.

Nota : "vbParseData" lo utilizo para partir los archivos a la llegada seria igual que lo que usais muchos "|" .

Código [Seleccionar] Expandir


Dim i As Long
Dim Arch As String
Dim Buffer as string
Arch = "C:\stub.log"
Buffer = Space$(25000)
   
    Open Arch For Binary Access Read As #1
     
    For i = 1 To FileLen(Arch) / 25000 'hacemos la division de las veces que tendra que leer y enviar
    Get #1, , Buffer 'leemos
    Winsock_server.SendData "archi" & vbParseData & Buffer
    DoEvents
   
    If FileLen(Arch) - Loc(1) <= 25000 Then 'como el for no utiliza los  decimales enviamos los restos
    Buffer = Space$(FileLen(Arch) - Loc(1)) 'redimensianamos la variable con el num de bites que faltan
    Get #1, , Buffer 'leemos
    Winsock_server.SendData "archi" & vbParseData & Buffer
    DoEvents
    End If
    Next i

    Winsock_server.SendData "fin"
    Close #1


Salu2

Hola, Estoy acabando un blinder, y me gustaria que se pudiera seleccionar el icono de un Imagelist o algo asi para que al compilarlo el ejecutable resultante tenga ese icono.

Ayuda please, donde puedo guardar los iconos, en un Imagelist?

Salu2

Hola

1  Tengo un problema, al pasar de bytes a kbytes divido ente 1024 pero el resultado tiene muchos decimales, ¿como podria acer para que solo me mostrara 2?

2  Cuando no estoy conectado con el server y pulso un boton me da el error de que no estoy en el estado correcto para mandar nada, el problema es que si tengo que poner en todos los botones :

Código [Seleccionar] Expandir


if ws.state = 7 then
ws.senddata "algo"
else
Msgbox "conectate primero"
end if


¿Hay alguna manera de hacerlo para todos a la vez o directamente que no muestre el error y que no pase nada?

Salu2

Hola

El tamaño de un servidor de un troyano que e echo ocupa 208 Kb y comprimido con upx pesa 72 Kb.

Me prodriais explicar cual es el mejor compresor de ejecutables. Y explicarme las diferencias entre UPX y FSG.

Salu2

Hola

Al mostrar datos en un listview me da un error que dice "Imagelist debe iniciarse antes de poder usarla"

Me podeis decir como se inicia.

Gracias.

Salu2

Hola, he creado un manifest k da a los programas de vb6 el estilo de xp, el problema esta en que este archivo tiene que estar en la misma carpeta que el ejecutable y si se borra adios al estilo,
Hay alguna manera de agregar este archivo al proyecto para que este dentro de el ejecutable.

Si se puede poner el estilo XP de otra manera tambien me serviria.

Salu2

Hola, mi troyano funciona con winsock perfectamente ya que el programa de mensajeria MSN es muy comun y utiliza el Mswinsck.ocx

Pero quisiera incluirle esta api para quitar el winsock. Ya tengo el modulo, pero alguien sabe como se usa?????

Un manual please!!!!

Salu2

Hola

El problema es el siguiente:
Estoy creando un chat para un troyano, cuando mando los comandos para que el formulario del chat sea visible lo hace a la perfeccion, pero cuando quiero mandar un texto de uno al otro lo que el servidor me recibe es lo que le e mandado y como cada vez le mando un texto diferente el no lo reconoce.

Ejemplo.

Con el cliente mando "OPENCHAT"
El servidor  lo recibe y se pone la propiedad visible del formulario del chat en true. Hasta aqui bien.

Cuando con el cliente le mando los datos de un textbox por ejempo "hola" al servidor le llega eso y no sabe que acer con ello.

Ayuda please!!!

Salu2

Hola, a ver si me explico bien:

Estoy creando un troyano en visual basic y tengo un problemilla:

Primero el codigo:

-----SERVER------

Código [Seleccionar] Expandir


Option Explicit
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)
Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" _
( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long _
) _
As Long
----------------------------------------------------------
Private Sub Winsock_server_DataArrival(ByVal bytesTotal As Long)
   Dim mensaje As String
Winsock_server.GetData mensaje
If mensaje = "OPENCD" Then Call mciSendString("set CDAudio door open", vbNullString, 127, 0)
If mensaje = "CLOSECD" Then Call mciSendString("set CDAudio door closed", vbNullString, 127, 0)

If mensaje = "OPENCHAT" Then
Form_chat.Show
End If
End Sub

--------CLIENT-------

Pantalla FUN

Código [Seleccionar] Expandir


Private Sub Command_closecd_Click()
Dim mensaje As String
mensaje = "CLOSECD"
Form_menu.Winsock_menu.SendData mensaje
End Sub

Private Sub Command_opencd_Click()
Dim mensaje As String
mensaje = "OPENCD"
Form_menu.Winsock_menu.SendData mensaje
End Sub

Pantalla CHAT

Código [Seleccionar] Expandir


Private Sub Command_enviar_Click()
Dim mensaje As String
mensaje = "OPENCHAT"
Form_menu.Winsock_menu.SendData mensaje
End sub


A ver, las dos funciones primeras de abrir y cerrar el cd funcionan correctamente.

Pero la de hacer visible la pantalla del chat no se muestra.
¿Podriais decirme que parte del codigo es la que e escrito mal?

Gracias de antemano.
Salu2