elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


  Mostrar Mensajes
Páginas: [1]
1  Seguridad Informática / Nivel Web / Re: Blind SQL injection en una Web de las fuerzas des-armadas de USA en: 14 Enero 2010, 17:54 pm
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
2  Programación / Scripting / Re: leer un trozo de linea de texto de un fichero en: 24 Octubre 2009, 08:00 am
lo que pasa es que al hacer esto :

Código:
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:
ruta="L:\programacion\FICHEROS-FERFULL\ortofoto"
pos=instrrev(ruta,"\")
nruta=left(ruta,pos-1)
msgbox(nruta)

lo puse detallado para que se entienda :D, 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  :xD

3  Programación / Scripting / Re: [VBS] Eliminar RunMRU List en: 24 Octubre 2009, 07:39 am
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   :xD
4  Programación / Scripting / [VBS] Eliminar RunMRU List en: 20 Octubre 2009, 15:53 pm

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:
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á  ;D.
5  Programación / Scripting / [VBS] Eliminar documentos recientes. en: 16 Octubre 2009, 05:48 am
Elimina la lista de archivos abiertos recientemente.

Código:
'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")

6  Programación / .NET (C#, VB.NET, ASP) / Re: Conectar VB.NET Con Base de Datos Access? en: 13 Septiembre 2009, 19:29 pm
intenta reinstalando el netframework.
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines