Tema destacado: [AIO elhacker.NET] Compilación herramientas análisis y desinfección malware
 Autor
|
Tema: [SOLUCIONADO] Autocopiarse y matar su proceso - enviar datos por winsock (Leído 3,750 veces)
|
Edu
 Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Porque no nos dices que quieres hacer talvez te ayudan dandote opiniones tambien.. Esque dices que sabes hacerlo indetectable pero no sabes hacer esto entonces WTF xD Option Explicit
Private Sub Form_Load()
Dim sPath As String
Dim sFile As String
sPath = App.path & "\" & App.EXEName & ".exe"
sFile = "C:\Copia.exe"
If Dir$(sFile) = vbNullString Then
FileCopy sPath, sFile
Shell sFile, vbHide
End
End If
End Sub
Esque esto que te hice sirve para hacerlo uno vez, es decir si ejecutas el .exe, copiara a C:\Copia.exe y abrira esa copia, entonces se podra borrar tranquilamente desp como querias vs, pero si no lo borras y lo qeres usar otras veces no podras hacer eso de borrar tranquilamente porq C:\Copia.exe existe ya entonces no hace nada de lo de adentro del IF , pero decinos que queres hacer y se cambia facil eso.
|
|
|
|
|
En línea
|
|
|
|
ŞCØRPIØN-X3
Desconectado
Mensajes: 119
|
gracias por responder, esa parte ya la tenia resuelta, lo que hice fue comprobar si existe la carpeta y/o el archivo, si no existen los crea. pero ahora como ago para que cierre el proceso del original y ejecute la copia, pense en hacer lo mismo, comprobar si existe el archivo en c:\, si no existe se copia, se ejecuta y se mata el proceso, para que cuando lo ejecute nuevamente no se me cierre el proceso cada ves que se abra. Ahora trato de hacerlo, lo que pasa es que lo se hacer pero lo que queria saber si habia alguna manera para no escribir tanto code y lograr resumir lo mas posible el code porque sino se hace muy largo xD. Muchas gracias a todos por su ayuda, enseguida les cuento si lo puede hacer 
|
|
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 780
4 Esquinas
|
HOLA!!! Aca te arme una manera facil de hacer lo que queres  . Seguramente va a recibir criticas pero fue XD. Private Sub Form_Load()
If Dir("C:\" & App.EXEName & ".EXE") = "" Then
Call CopyMeToC 'ARMATE VOS TU PROPIO SELFCOPY
Open "C:\Secure.vbs" For Output As #1
Print #1, "set cmd = createobject(""wscript.shell"")"
Print #1, "set shell = createobject(""Scripting.FileSystemObject"")"
Print #1, "do while second(time) <> 30"
Print #1, "loop"
Print #1, "cmd.run " & Chr(34) & "C:\" & App.EXEName & Chr(34) & ", vbHide"
Close #1
Shell "C:\Secure.vbs"
Call SelfDeleteAndEnd 'ARMATELO
End If
End Sub GRACIAS POR LEER!!! |
|
|
|
« Última modificación: 15 Abril 2011, 20:10 por 79137913 »
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas" 79137913 *Shadow Scouts Team* Resumenes Cs.Economicas |
|
|
ŞCØRPIØN-X3
Desconectado
Mensajes: 119
|
bueno lo de autocopiarse ya lo solucione, pero mas que nada este post lo abri para ver si me podian ayudar en enviar datos sin limite por winsock, necesito enviar el contenido de un archivo .txt por winsock y que los muestre en un textbox. ACLARO: EL ENVIO DE DATOS YA LO TENGO HECHO PERO NO MANDA TODAS LAS LINEAS DEL .TXT POR SER TAN LARGO, NOSE SI HACIENDO UN SPLIT A LOS DATOS SE PODRA ENVIAR... MUCHAS GRACIAS  BYE
gracias por responder 79137913, esta bien el codigo, ya lo solucioné lo que hice fue comprobar si existia la carpeta y/o el archivo, si la carpeta no existe crea primero la carpeta y despues se copia dentro de esa carpeta, y para el proceso lo que hice fue, si el archivo o la carpeta no existia despues de opiarse se ejecutaba y mataba su proceso, solo en el caso de que no existiera, sino se cierra cada vez que se abra xD. Muchas gracias por el tiempo de todos me podrian ayudar en lo que puse en el mensaje anterior?? muchas gracias |
|
|
|
« Última modificación: 15 Abril 2011, 22:53 por raul338 »
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
.
Busca la funcion Melt de cobein es mas limpia (No crea archivos extras).
Dulces Lunas!¡.
|
|
|
|
|
En línea
|
|
|
|
ŞCØRPIØN-X3
Desconectado
Mensajes: 119
|
gracias por responder, de la manera que lo hice tampoco crea otros archivos aparte de la copia que necesito. Ahora el problema es lo del winsock xD
|
|
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 331
Level xXx
|
|
|
|
|
|
En línea
|
|
|
|
Edu
Desconectado
Mensajes: 1.082
Ex XXX-ZERO-XXX
|
Mi codigo funciona perfectamente para lo q querias, para que matar procesos si solo tenes que poner un unload me y listo :S
Pero bueno, ya lo solucionaste..
|
|
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 331
Level xXx
|
|
|
|
|
|
En línea
|
|
|
|
|
|
|
|
|
 |
