Mensajes

Efectivamente, tienes q hacer lo q dice Lambda

Si te les mi tuto (el de troyanos en C++ & VB) el apartado q dice pero ¿como funcionan? viene explicado el funcionamiento basico. Y el code en C no te va a costar nada traducirlo, por q esta muy comentado...

Por q no usas open en vez de FileSystemObject?? a mi por lo menos me parece mas sencillo 

Busca como crear un troyano y lee sobre sockets...

  No hay error por q esta en C:, prueva en cualkier otra carpeta.... asi q si que hay error...

¿Y eso lo hago con archivos infinitos o de igual forma lo coloco?

Para hacerlo con archivos infinitos tienes q hacer un bucle, mas q nada por q no sabes cuantos se kieren juntar xD

Pues nada mas empezar yo ya le veo un fallo...

Código [Seleccionar] Expandir

Dll = App.Path & "freeze.dll"

Seria:

Código [Seleccionar] Expandir

Dll = App.Path & "\" & "freeze.dll"
Luego el resto esta bien, pro por q solo kieres juntar dos archivos, pero si kieres juntar infinitos mejor q no metas los datos asi... mejor q hagas algo de este estilo:

Código (vb) [Seleccionar] Expandir

Open Cd.FileName For Binary Access Write As #1
Put #1, , Dll_c & Firma
Put #1, , Tam  & Firma2 & xten & firma
Put #1, , Tam2 & firma2 & xten2
End

Asi sabes q entre las firmas principales estan los blokes principales, subdivididos a su vez por las firmas secundarias, obteniendo asi el archivo y su extension.

Si te esperas un poco (no se cuanto...) en la siguiente e-zine insecuriti saldrá un articulo mio de como crear joiners en VB para archivos infinitos, con code de ejemplo, explicacion y demas...

EDITO - El 1 de octubre sale la ezine, q lo acabo de mirar, asi q si no tienes mucha prisa...

Pues usa time... por ej, pon un label y este code:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Label1.Caption = Time
End Sub


Hombre, la da microsoft, asi q es fiable xD

Lo de los 4GB si es verdad, es lo maximo q se da a un proceso, eso si que los tengas (fisicamente)  ya es otra cosa

es q que escribí el code directamente en el foro, normal q algo me comiera xD

Con sendkeys si que puedes enviar texto.. prueva poniendo un sleep entre envio y envio, q a lo mejor te falla por eso...

Pues te recomiendo lo q dice APOKLIPTICO, seria algo asi:

Código (vb) [Seleccionar] Expandir

open ruta_archivo for binary as #1
dim todo as string
todo = space (LOF(1))
get #1,,todo
close #1

dim lineas as variant
lines = split (todo, chr(10) 'Aki tienes q partir por el caracter correspondiente a la tabulacion, no se cual será...

Y ya esta, en lineas tendrias el archivo separado por lineas, lineas(0) contendrá la primera linea, lineas(1) la segunda....

1S4ludo