Esta es una muy simple VBScript (. Vbs) lo k el codigo hace es k al hacer clic en el script (que puede ser fácilmente ocultada como un atajo de la aplicación que desea proteger con contraseña), se abrirá una ventanilla que pedira una contraseña. Si la contraseña es correcta la aplicación se abrirá, si no lo es se repetira un mensaje de autenticacion hasta que la contraseña es correcta.
Dim X
X = MsgBox ("You requested to open Firefox, Password Identification required, Continue?",4+16,"Notice")
password = "Password"
Do
returnvalue = InputBox ("Input Password","Identification","**********")
Select Case returnvalue
Case password
answer = true
MsgBox "Correct."
Dim shl
set shl = CreateObject("WScript.Shell")
WScript.sleep 100
shl.Run """C:Documents and Settingshs studentMy DocumentsMy MusicMozartMozillafirefox"""
Exit Do
Case Else
answer = false
MsgBox "Incorrect."
End Select
Loop
Este tema no va en esta sección, postea en la sección apropiada:
http://foro.elhacker.net/programacion_vb-b50.0/ (http://foro.elhacker.net/programacion_vb-b50.0/)
espero un moderador lo mueva please, no sabia, sorry...
ahora si ya se..........
mientras que corren el tema...
tengo curiosidad... si encuentro un XSS en hotmail, puedo hacer un script que habra una ventana que diga "VALIDE SU CONTRASEÑA".. y luego de q introduzca la contraseña que compruebe mediante un METHOD POST si esa contraseña es correcta.. y de no serla.. que devuelva al script para q pida devuelta validar contraseña?
Tanto como hotmail como cualquier otra pagina
Bueno,.. así lo haría yo (no quiere decir que el tuyo este mal)
If msgbox("You requested to open Firefox, Password Identification required, Continue?",4+16,"Notice") = 7 then
wscript.quit
end if
password = "elpass"
do
returnvalue = InputBox ("Input Password","Identification","**********")
if returnvalue = password then
msgbox "Correct."
set shl = createobject("wscript.shell")
shl.run "notepad"
wscript.quit
else
msgbox "Incorrect."
end if
loop
He puesto el ejecutable del notepad para que sea más entendible y sobre todo, he sustituido el uso de select case ya que para pocas opciones es mejor el if ;)
Saludos
hey muy bueno, gracias, como dije solo se lo basico y me gusta que me corrijan mis errores ya k solo de errores se aprende, muxisimas gracias y salu2.
el motivo de estar en este foro es pa aprender y ayudar con lo k yo, nunca se termina de aprender.
Claro, todos estamos continuamente aprendiendo algo nuevo...
También aclarar... que este post no va en VB, creo que un moderador lo movió sin darse cuenta, o prestando atención a uno de los mensajes anteriores :xD
Va en http://foro.elhacker.net/scripting-b64.0/... esto es vbscript, y no VB :rolleyes:
Saludos