Mensajes

jojo cierto se ve muy interesante la pagina  ; y por lo que se ve en la web vulnerable usan sql server 2000, asi que considerando que son vulnerables a injecciones tal vez el xp_cmdshell este activado xD

lo que pasa es que al hacer esto :

Código [Seleccionar] Expandir

directorioFerFull=right(linea,9)="\ortofoto"

estas comparando:

right(linea,9) con "\ortofoto"

que en este caso son lo mismo porque la función right toma la cantidad de caracteres desde la derecha, del texto que le envías como parámetro, es por esto que el valor true se guarda en la variable directorioFerFull.

Algo que puedes hacer es usar la función InstrRev que te devuelve la posición de una cadena dentro de otra, pero comenzando desde el final, un ejemplo usando tu caso:

Código [Seleccionar] Expandir


ruta="L:\programacion\FICHEROS-FERFULL\ortofoto"
pos=instrrev(ruta,"\")
nruta=left(ruta,pos-1)
msgbox(nruta)


lo puse detallado para que se entienda , ruta guarda la ruta, pos guarda la posición de la primera aparición de "\", pero buscando desde el final de la cadena, nruta guarda el valor que le devuelve la función left, que toma la cantidad de caracteres,desde la izquierda, que le envías como parámetro (en este caso pos -1, es decir 14) de la cadena que también se le envía como parámetro (en este caso la ruta).

esto funciona para cualquier ruta que le envies, a menos que le envies una ruta como esta:

"L:\programacion\FICHEROS-FERFULL\ortofoto\", como tiene un "\" al final te devolverá "L:\programacion\FICHEROS-FERFULL\ortofoto", que al final sería lo mismo, para eso primero deberías poner una condición, pero creo que ya le estoy dando muchas vueltas al asunto, espero que me hayas entendido  

jeje gracias por el dato, había intentado ejecutando el explorer, pero abría el explorador de windows xD, ya veo que primero debo terminar el proceso   

código para eliminar los elementos de la lista que se guarda cada vez que accedemos a una carpeta, programa o archivo desde "Ejecutar" o "Run".



esta lista se guarda en el registro así que trabajaremos con el objeto "Wscript.Shell" para manipular las llaves de registro.

Código [Seleccionar] Expandir


On Error Resume Next
Set objS = CreateObject("Wscript.Shell")
subclave = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU"
clave = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList"
lista = objS.regread(clave)
For i = 1 To Len(lista)
     objS.regdelete (subclave + "\" + Mid(lista, i, 1))
Next
objS.regdelete (clave)
MsgBox ("TAREA COMPLETADA")




Nota: una vez que se haya eliminado, la lista seguirá apareciendo xD,  a menos que reinicies, aunque esto no es del todo necesario, suficiente con que selecciones la opción de "apagar equipo" y aparezca el siguiente cuadro:



luego le das a cancelar y la lista ya no aparecerá  .

Elimina la lista de archivos abiertos recientemente.

Código [Seleccionar] Expandir


'creacion de objetos a utilizar
Set objS = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'define la ruta de la carpeta en donde se guardan los accesos
'directos a los archivos y carpetas abiertos recientemente
temp = objS.specialfolders("Recent") + "\"
'toma posesion de la carpeta
Set recent = objFSO.GetFolder(temp)
'un bucle que pasara por cada archivo
'que hay en la carpeta
For Each f In recent.Files
'elimina el archivo(acceso directo)
objFSO.DeleteFile (f.Path)
'sigue con el proximo archivo
Next
MsgBox ("TAREA COMPLETADA")


intenta reinstalando el netframework.