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

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 [16] 17 18 19
151  Programación / Scripting / [VBS] Denegar acceso a una carpeta o archivo o pedir una Password en: 6 Mayo 2009, 18:08 pm
Esto se me ocurrio en un momento de aburrimiento pero al seguir con el code vi lo que podia hacer..
este code lo que hace es buscar la ventana abierta y cerrarla en ese mismo instante y mostrar un mensaje acceso denegado, eso pueden modificarlo ustedes..
lo de poner password para ver una carpeta lo pongo luego...
este es el code:
EDIT:
Denegacion de acceso a una carpeta y/o archivo..
Código
  1. Set obj=CreateObject("wscript.shell")
  2. do while x=0
  3. if time="00:00:00" then
  4. x=1
  5. wscript.Quit
  6. else
  7. if obj.AppActivate("MSN") = True then
  8. obj.SendKeys "%{F4}"
  9. msgbox "No tiene permiso para abrir el archivo, Archivo protegido contra lectura    " & vbNewLine & vbNewLine & "Acceso denegado.", VbCritical, "Microsoft Windows XP"
  10. end if
  11. end if
  12. wscript.sleep 100
  13. loop
Solo cambian MSN por el nombre de la carpeta o archivo que se debe de cerrar aqui todas las carpetas o archivos que contengan el nombre MSN se cierran
osea les manda Alt+f4 y muestra un mensaje eso lo pueden modificar a su gusto..
por si comenten un error le puse para que puedan ponerle asta que hora estara activa la proteccion expresado en HH:MM:SS y luego deja de funcionar la proteccion..
Espero les guste sobre todo si no quieren que vean alguna carpeta suya o les abran un archivo..

Denegacion de acceso a una carpeta y/o archivo usando una  password
Aqui esta como prometi..
Código
  1. set obj=CreateObject("wscript.shell")
  2. msg = "No estas autorizado para ver y/o usar este archivo o carpeta..   "
  3. msg = msg & VbNewLine & "¿Deseas Desbloquear Archivo?"
  4. do while x = 0
  5. if obj.appactivate("xxx") = true then
  6. obj.SendKeys "%{F4}"
  7. obj.Exec "wscript " & wscript.scriptname
  8. y = msgbox (msg, VbCritical + VbOkCancel, ".:: ScrinptingSecurity Loocked v1.0 BY 3D1 ::.")
  9. if y = VbOk then
  10. w = InputBox ("Escribe la Password de Acceso al archivo:", ".:: ScrinptingSecurity Loocked v1.0 BY 3D1 ::.")
  11. if w = "1234" then
  12. Obj.Run "Taskkill /f /im wscript.exe", VbHide
  13. else
  14. msgbox "NOTA: Intentos no Autorizados son reportados.. ", VbInformation, ".:: ScrinptingSecurity Loocked v1.0 BY 3D1 ::."
  15. wscript.Quit
  16. end if
  17. else
  18. wscript.Quit
  19. end if
  20. wscript.sleep 100
  21. end if
  22. loop
  23.  
Solo reemplazar "FIND WINDOW" por el nombre del titulo de las ventanas que se va a denegar el acceso..
luego reemplazar "CONTRASEÑA" por la contraseña ha usar para desactivar la proteccion..

Congelar una ventana (Por el momento en pruebas)
En pruebas por que estoy con la pc fregada solo puedo entrar en modo a prueba de fallos asi que no puedo abrir todos los programas, les pido que lo prueben con conversacion del MSN haber si sale..
pero con las ventanas de las carpetas Block de Notas, etc funciona muy bien..
El code es asi:
Código
  1. set obj=CreateObject("wscript.shell")
  2. x = 0
  3. y = 0
  4. do while x = 0
  5. if obj.appactivate("WINDOW") = true then
  6. do while y = 0
  7. obj.appactivate "WINDOW"
  8. obj.run "cmd /c taskkill /f /im wscript.exe", vbHide
  9. msgbox ""
  10. loop
  11. end if
  12. wscript.sleep 100
  13. loop
Solo reemplazar WINDOW por la ventana a congelar..
Espero les guste, estos codes los ise simples para que los puedan entender facil, de aqui sacan mas ideas y hacen su propio protector a su gusto..
SaluDOS!!!  ;D
PD: Podrian probarlo con ventanas del MSN la congelacion, haber si sale, por que lo estoy haciendo a la adivinanza ya que no puedo usarlo..
152  Programación / Scripting / Re: filnspect [VBS] en: 6 Mayo 2009, 17:59 pm
Ju :-X, estas seguro de haber copiado mi code? porque si te fijas, la línea 59 tiene eso, sino que tiene Definition = replace(Definition,""", """"), es más, lo que comentas no esta en ningún sitio :xD

Saludos
Si acabo de darme cuenta, creo que hay algunos errores en esto, copie el code y lo pege en el Block de notas pero lo pego todo en una linea..
luego puse citar en tu post y lo copie de ahi por esa razon salio asi..
no se si sera solo ami pero al copiar el code asi y pegarlo lo pega en una sola linea todo sin salto de linea, pero igual ya lo puse correctamente y funciona bien..
SaluDOS!!!
153  Programación / Scripting / Re: filnspect [VBS] en: 6 Mayo 2009, 17:26 pm
Citar
Definition = replace(Definition,""", """")
Esa linea me fue mal es la linea 59 despues lo edite y le aunmente una comilla que creo que faltaba y recien funciono..asi:
Citar
Definition = replace(Definition,"""", """")
Creo que faltaba no se, pero asi recien me funciono..
bueno lo demas esta muy bien me funciona perfecto..  :)
SaluDOS!!!
154  Programación / Scripting / Re: Problema con fecha en programa . bat... en: 5 Mayo 2009, 03:53 am
El problema que veo es determinar si el mes tiene 30 o 31 días (28/29 febrero), sería realmente sencillo hacerlo en vbs, pero en batch  :-\

Saludos

Ok, amigo, gracias, yo de vbs nada, sera q me puedes orientar como combino el script con vbs, donde puedo encontrar informacion para guiarme?, gracias por la ayuda  ::)
Aqui mismo en el foro hay un tuto colgado y es el de NovLucker:
http://foro.elhacker.net/scripting/tutorial_vbscript-t229032.0.html
Para cuando aprendas, usa Time en VBS para hacer eso..
SaluDOS!!!
155  Programación / Programación Visual Basic / Re: Excel + VB en: 4 Mayo 2009, 05:09 am
Usa el objeto Excel.Aplication , te vas a proyecto/referencias luego buscas..
"Microsoft Excel 11.0 Object Library" lo agregas y le das click en Aceptar..
ahora solo creas una variable a nivel general:
Código
  1. Dim LOQUESEA As New Excel.Application
puedes reemplazar la variable LOQUESEA por otra en eso no hay problema..
ahora solo es aprenderte algunas funciones con las que puedes manejar ya excel
SaluDOS!!!
156  Programación / Programación Visual Basic / Re: Necesito un buen manual para vb en: 4 Mayo 2009, 04:44 am
5Ol3R, que bien que decides por comenzar con VB..
mira, como yo aprendi fue de un libro, en realidad fue de dos libros uno basico que
es parecido a este tuto que postearon el link ya mas arriba:
Aprenda VB como si estuviera en primero
Lo vi y esta muy bien para que comienzes, eso es lo basico y lo escencial que se debe de aprender..
para iniciarte en la programacion..
Suerte..
SaluDOS!!!
157  Programación / Scripting / Re: Tip sobre acentos en Batch. en: 2 Mayo 2009, 05:11 am
Si ya se como se hace, lo que sugeria era que pusieras el como se hace al principio, bueno no importa...
de todos modos esta muy bien.. ;D
SaluDOS!!!
158  Programación / Scripting / Re: Tip sobre acentos en Batch. en: 2 Mayo 2009, 01:55 am
Esta muy bien yo hago lo mismo y no solo para sacar los acentos tambien para estos caracteres:
Código:
☺☻♥♦♣♠•◘○◙♂♀♪♫☼►, etc
deberias añadirlo para que otros aprendan a sacarlos sobre todo estos caracteres muy buenos ☺☻..
SaluDOS!!!
159  Programación / Scripting / Re: (Batch) Es Posible hacer password char en batch? (Pregunta) en: 30 Abril 2009, 02:55 am
el código de timo pienso que tiene un problema, que es cuando presionas backspace.

Por ejemplo:
si escribes en la primera password:
qbasic
y en la segunda escribes:
qbasic[backspace,borramos la c]c
dice que no concuerdan.


Si yo tambien le acabo de notar ese error..
Para mi mejor, que no muestre asteriscos.  ::)
Bueno eso a veces depende, ahi veces que ise Batch que te piden user y pass y como hay users inexpertos como no se ven los asteriscos
dicen que no escribe o no funciona el code...
SaluDOS!!!
160  Programación / Scripting / Re: (Batch) Es Posible hacer password char en batch? (Pregunta) en: 29 Abril 2009, 18:29 pm
Ese no muestra asteriscos, es igual al que posteo NovLucker...
solo no muestra lo que escribes..
SaluDOS!!!
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 [16] 17 18 19
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines