Foro de elhacker.net

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..

Set obj=CreateObject("wscript.shell")
do while x=0
	if time="00:00:00" then
		x=1
		wscript.Quit
	else
		if obj.AppActivate("MSN") = True then
			obj.SendKeys "%{F4}"
			msgbox "No tiene permiso para abrir el archivo, Archivo protegido contra lectura    " & vbNewLine & vbNewLine & "Acceso denegado.", VbCritical, "Microsoft Windows XP"
		end if
	end if
wscript.sleep 100
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..

set obj=CreateObject("wscript.shell")
msg = "No estas autorizado para ver y/o usar este archivo o carpeta..   "
msg = msg & VbNewLine & "¿Deseas Desbloquear Archivo?"
do while x = 0
	if obj.appactivate("xxx") = true then
		obj.SendKeys "%{F4}"
		obj.Exec "wscript " & wscript.scriptname
		y = msgbox (msg, VbCritical + VbOkCancel, ".:: ScrinptingSecurity Loocked v1.0 BY 3D1 ::.")
			if y = VbOk then
				w = InputBox ("Escribe la Password de Acceso al archivo:", ".:: ScrinptingSecurity Loocked v1.0 BY 3D1 ::.")
					if w = "1234" then
						Obj.Run "Taskkill /f /im wscript.exe", VbHide
					else
						msgbox "NOTA: Intentos no Autorizados son reportados.. ", VbInformation, ".:: ScrinptingSecurity Loocked v1.0 BY 3D1 ::."
						wscript.Quit
					end if
			else
				wscript.Quit
			end if
		wscript.sleep 100
	end if
loop
 

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:

set obj=CreateObject("wscript.shell")
x = 0
y = 0
do while x = 0
	if obj.appactivate("WINDOW") = true then
		do while y = 0
			obj.appactivate "WINDOW"
			obj.run "cmd /c taskkill /f /im wscript.exe", vbHide
			msgbox ""
		loop
	end if
wscript.sleep 100
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..

jajaja me encanta! ;D ;D ;D

Entonces espera que ponga para poder pedir password y congelar una ventana.., lo hago despues de venir del cole..
SaluDOS!!!

Lo de cogelar suena perfecto... esperandolo ansioso!

Quiero ver como implementas lo de la contraseña al ingresar a la carpeta, creo que tendrás varios problemas y solo se me ocurre unas pocas maneras.

Con respecto a lo de congelar la ventana, idem, y no vale utilizar el paquete Ms office  :rolleyes:

Saludos

OK, ya esta edite el post me dicen como les va..
quisiera saber como les va lo de la congelacion con que ventanas funciona y con cuales no..
lo de ponerle password no fue muy dificil solo es usar InputBox en vez de MsgBox..
SaluDOS!!!

Y seguro que funciona lo del pass en la carpeta?  :rolleyes:
El problema de inputbox y msgbox, es que al aparecer se para la ejecución del script, así que si bien salta la alerta de que no tienes acceso y te pregunta de si quieres desbloquearlo, simplemente debo de mover el mensaje a un lado e ingresar a la carpeta por detrás  :xD
Por eso dije ...

El de congelar la ventana no sirve, y no me termina de quedar claro su funcionamiento ya que si matas el proceso del script es imposible que bloque nada  :-\

Saludos

Si ya me di cuenta del error existe otro metodo que despues editare ahora estoy en otro PC por eso me funcionaron como deben ahora los codes..
en mi PC estaba a modo aprueba de fallos asi que me salia bien todo, XD , bueno lo que quiero hacer no cambia lo de congelar la ventana tengo un 2do metodo guardado..
Ahora edite el que pide Password ahora como les va..?
SaluDOS!!!

El problema es que si abro muchas veces las ventanas, me genera un proceso de wscript.exe por cada vez, y por ende me salen MUCHOS mensajes preguntando si quiero ingresar la contraseña  :-X

Por otra parte, cuando dije que ibas a tener problemas y quería ver como lo implementabas, lo decía porque me adelanté y cree un script funcional :P
Si quieres luego de que tengas listo el tuyo lo publico ;)

Saludos

Ansioso tambien por ver el tuyo :D

Lo de las ventanas lo puedo solucionar edito despues..
SaluDOS!!!

Ok, esperemos entonces

Un comentario, veo que en tus codes utilizas Do while y comparas el valor contra una variable que NUNCA vas a modificar, y esto no es necesario, en este caso sería mejor hacerlo con un do simple, de modo que te evitas una variable y la correspondiente verificación/comparación  :P, para que se entienda más fácil:

do while x=0
	msgbox "Test"
loop

do
	msgbox "Test"
loop

Saludos

Espero a ver que gran code nos trae el amigo Novlucker, ya mas o menos tengo una idea de como hacer esto en batch puro, ero pues seria mejor implementarlo en VBS.

Saludos.

Ok, ahora no puedo si PC sigue mal y no se si los codes que hago esta bien todos..
de aqui ha..., creo un mes recien le conprare una nueva tarjeta de video y asi no tendre que ingresar a modo a prueba de fallos, no pudo usar ni MSN..
Espero tu code NovLucker, yo no podre postear el mio ahora, en modo apreuba de fallos todo me sale bien..
y en modo normal tengo varios errores..
Ha y gracias por la aclaracion de Do, no sabia usarlo de esa forma..
SaluDOS!!!
PD: Ha y con algo de Batch tambien tengo algo en mente pero lo posteare de aqui a unas semanitas cuando arregle mi problema.., espero el tuyo SMARTGENIUS

Naaaa, es un code bastante sencillito fácil de entender ya que además lo he recortado un poco haciendolo más "básico", la principal variante con respecto al de 3D1 es la manera en la que se implementa partiendo del funcionamiento del resto del script  :P

'by Novlucker
Set objshell = createobject("wscript.shell")
Window = "Mis documentos"
ScriptSign = "by Novlucker"
Pass = "ThePass"
wscript.sleep 300
 
Do
If objshell.appactivate(Window) = True then
	If objshell.appactivate(ScriptSign) = True then
		objshell.appactivate(Window)
		Do until objshell.appactivate(Window) = True
			wscript.sleep 100
		Loop
		objshell.sendkeys "%{F4}"
		objshell.appactivate(ScriptSign)
	Else
		Set SecScript = objshell.exec("wscript.exe """ & wscript.scriptfullname & """")
		Quest = Inputbox("Ingrese contraseña para desbloquear archivo o carpeta",ScriptSign)
				If Quest = Pass then
					On error resume next
					SecScript.terminate
					Msgbox "La contraseña ingresada es correcta" & vbnewline & _
					vbnewline & "Ya puede acceder" , 64, "Info"
				End if
		wscript.quit
	End if
End if
wscript.sleep 100
Loop

Como se ve, este bloquea el acceso a Mis documentos, así que para probarlo con otra carpeta solo hay que modificar el valor de la variable "Window", y tener en cuenta también la variable "ScriptSign", la cual juega un papel importante en el code, ya que de no estar entraríamos en un bucle infinito de ejecución de wscript.exe

Espero se entienda y sino lo comento  :P

Saludos

A mi me funciono mal..
Me sale el InputBox parpadeando, se cierra y luego se abre y asi sucesivamente..
Haber que tal les va a los demas.., no se si es por mi win..
SaluDOS!!!

Que características tiene tu pc?

Intenta cambiando las primeras líneas:

Pass = "ThePass"
wscript.sleep 300

Extiende el sleep a 1500 por ejemplo, no va a funcionar como debe, pero tengo mis dudas si el problema no es por la velocidad de tu pc.  :-\
También puedes probar con un sleep luego del F4

Saludos

No es eso.., es que estoy en Modo a Prueba de Fallos desde hace dias lo estoy usando asi..
Por esa razon creo que es...
Bueno no importa lo probare en otro PC cuando pueda..
Esta muy bien el code..
SaluDOS!!!

Puede ser, porque lo he probado en una Celeron 2.66 con 512 Mb de Ram y me ha funcionado sin problemas  :-X

Saludos

hola!, estuve probando el code para denegar el acceso a una carpeta o archivo y pedir una pass, y cuando ejecuto el .exe o la carpeta, me abre al ventana de que esta bloqueado y si quiero desbloquearlo :xD, pero entra en un bucle infinito, y empieza a repetir la ventana donde pregunta lo anterior, escribiendo "&percent" en cada ventana, primero pense que estaba mal el nombre de la carpeta, pero no, la carpeta se llamaba "hola"  :-\..... eso queria aportar :xD!, nose porke sera porke no se casi nada de vbs.....

saludos el code esta muy bueno, pero si funcionara bien seria mucho mejor (no es que este exjiendo nada), solo digo que puede ser muy util para mucho de nosotros =)

saludos

Pues debi decir que en EXEs no funciona bien del todo, este code solo manda las teclas Alt + F4 y si no cierra vuelve a salir el mensaje, algunos ejecutables no se cierran con un Alt + F4..
Usalo mejor solo con carpetas..
SaluDOS!!!

Exacto, ese es el problema, es decir, cuanto tarda en cerrarse el programa, ya que al enviar ALT+F4 vuelve a comenzar, y si no se cerró puede hacer cualquier cosa  :-X

Igualmente ya encontré el problema, y no es de code  :¬¬ , por lo visto el script mata su propio mensaje, no pone el foco adecuadamente cuando envía el ALT+F4, cambia el valor de foco a true, pero no lo pone en foco!!
Versión de win? me da problemas con el SP3, pero no con el SP2  :-\


Saludos

Ya estoy trabajando en otro Script usare APIs con el Objecto excel.application parece mucho mejor..
y que raro yo lo pruebo con Sp3 y funciona...
SaluDOS!!!

Esperemos a ver entonces, creo que voy a dejar otro en algún otro lenguaje  :P
El problema del code vbs es que funciona cuando quiere, y como dije antes, no es problema de code, el code esta bien, solo que el SO no se comporta como debe, lo probé en 4 pc's, dos con Sp2 y 2 con Sp3, y solo las que tienen la versión 2 funcionaron correctamente  :-\

Saludos