autenticacion de clave antes que el programa corra

[d3xt34]

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.

Código [Seleccionar] Expandir

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

[Flakito81]

Este tema no va en esta sección, postea en la sección apropiada:
http://foro.elhacker.net/programacion_vb-b50.0/

[d3xt34]

espero un moderador lo mueva please, no sabia, sorry...
ahora si ya se..........

[EvilGoblin]

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

[Novlucker]

Bueno,.. así lo haría yo (no quiere decir que el tuyo este mal)

Código (vb) [Seleccionar] Expandir

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

[d3xt34]

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.

[Novlucker]

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 

Va en http://foro.elhacker.net/scripting-b64.0/... esto es vbscript, y no VB   

Saludos