[SOLUCIONADO] Autocopiarse y matar su proceso - enviar datos por winsock

[CAR3S?]

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 

[ŞCØRPIØN-X3]

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.

[ŞCØRPIØN-X3]

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

[saratoga2k]

filecopy ejecutable1.exe, c:\ejecutable1.exe
DeleteSelf pathexeorigen, ejecutable1.exe
shell "c:\ejecutable1.exe"
end

[CAR3S?]

Mensaje editado para mi novio raul!!! (Pero no sabe que es mi novio) ♥

-----------------------------------------------------------------------------------

Cosas:

1 Boton

2 Labels

-----------------------------------------------------------------------------------

Codigo:

Código (vb) [Seleccionar] Expandir

'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

[Edu]

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

Código (vb) [Seleccionar] Expandir


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.

[ŞCØRPIØN-X3]

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

[79137913]

HOLA!!!

Aca te arme una manera facil de hacer lo que queres .

Seguramente va a recibir criticas pero fue XD.

Código (vb) [Seleccionar] Expandir

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!!!

[ŞCØRPIØN-X3]

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

[BlackZeroX]

.
Busca la funcion Melt de cobein es mas limpia (No crea archivos extras).

Dulces Lunas!¡.