Autor
|
Tema: [SOLUCIONADO] Autocopiarse y matar su proceso - enviar datos por winsock (Leído 12,502 veces)
|
CAR3S?
Desconectado
Mensajes: 343
Level xXx
|
No es tan fácil ... por que cómo se supone que abres c:\copia.exe una vez hecho Unload Me (supongo que te referías a End) Yo lo hice varias veces y me anda :_ Si, unload me
|
|
|
En línea
|
|
|
|
ŞCØRPIØN-X3
Desconectado
Mensajes: 119
|
Busca en este link http://cobein.com/wp/?p=207 el codigo para autoeliminarse para copiarse es facil comunmente a este procedimiento se lo llama MELT no, el metodo MELT es para que se elimine una vez ejecutado a si mismo y eso no es exactamente lo que necesito, lo que yo necesito es que se copie a la carpeta c:\ una ves en esa carpeta se ejecute. La idea es que cuando yo entre al administrador de tareas el proceso que se encuentre ejecutado sea el del que esta en la carpeta c:\ y no el que tengo en porejemplo el escritorio.
|
|
|
En línea
|
|
|
|
ŞCØRPIØN-X3
Desconectado
Mensajes: 119
|
HOLA!!!
No le veo sentido a que se copie a no ser que sepas por que path del disco esta analizando y te moves al ultimo path analizado... Pero primero, no se como saber por que path va el Av segundo tenes el Av en tiempo real que te hace un sandbox a todos los archivos movidos y te lo detectara a la larga.
A mi parecer es preferible que lo dejes quieto bien cifrado por que asi no va a ser analizado tantas veces por el av...
Supongo que luego de x analisis lo debe tomar como sospechoso, lo va a enviar a la compania y chau crypter y chau tu virus.
GRACIAS POR LEER!!!
gracias por responder , es que lo que necesito no es que no lo detecte el antivirus, eso es facil , lo que necesito es que se copie a c:\ se ejecute y mate su propio poceso
|
|
|
En línea
|
|
|
|
saratoga2k
Desconectado
Mensajes: 12
|
filecopy ejecutable1.exe, c:\ejecutable1.exe DeleteSelf pathexeorigen, ejecutable1.exe shell "c:\ejecutable1.exe" end
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 343
Level xXx
|
Mensaje editado para mi novio raul!!! (Pero no sabe que es mi novio) ♥ ----------------------------------------------------------------------------------- Cosas: 1 Boton 2 Labels ----------------------------------------------------------------------------------- Codigo: 'codigo by nukje - ahre loco Private Sub Command1_Click() On Error Resume Next MsgBox "Me copio a c:\copia.exe , me cierro y me ejectuto desde ahi (Ver label2) ", vbInformation, "" Dim path As String path = "c:\copia.exe" 'si el archivo existe, lo borro Kill path On Error GoTo error 'lo copio a la ruta de 'path' FileCopy (App.path & "\" & App.EXEName & ".exe"), path 'me 'cierro' Unload Me 'me abro desde 'path' Shell path, vbNormalFocus Exit Sub 'error error: MsgBox "Error al copiar" End Sub Private Sub Form_Load() 'muestro la ruta de el exe 'en c:\ muestra 2 \ (\\) , ._. label1.caption = "Ruta de ejecucion:" Label2.Caption = (App.path & "\" & App.EXEName & ".exe") End Sub
----------------------------------------------------------------------------- Descarga: http://www.sendspace.com/file/h10zbq
|
|
« Última modificación: 15 Abril 2011, 22:31 pm por nuKje »
|
En línea
|
|
|
|
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: 1.169
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 pm 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*
|
|
|
Ş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 pm por raul338 »
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
. Busca la funcion Melt de cobein es mas limpia (No crea archivos extras).
Dulces Lunas!¡.
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Problema al enviar y recibir datos con el control winsock
Programación Visual Basic
|
arias
|
3
|
3,008
|
30 Mayo 2006, 17:49 pm
por NemeSys
|
|
|
Recibir y enviar varios datos al mismo tiempo con winsock
Programación Visual Basic
|
demoniox12
|
4
|
4,122
|
1 Diciembre 2007, 21:54 pm
por demoniox12
|
|
|
Ayuda Winsock y enviar datos via POST
Programación Visual Basic
|
marcofbb
|
1
|
1,867
|
27 Mayo 2010, 21:57 pm
por marcofbb
|
|
|
Enviar y Solicitar datos en Base de Datos mediante Winsock?
Programación Visual Basic
|
Brian1511
|
0
|
2,387
|
25 Noviembre 2012, 18:42 pm
por Brian1511
|
|
|
Problema IP, enviar datos [WinSock]
ASM
|
AdictoxD
|
4
|
3,498
|
14 Enero 2013, 21:11 pm
por AdictoxD
|
|