Foro de elhacker.net

Private Sub btconectar_Click()
txtpass = pass

Shell "C:\programa\programa.exe -password pass"

Private Sub Main()
Dim longitud as integer 'Longitud total de la cadena que va despues del nombre del EXE
Dim distancia as integer 'Distancia desde la izquierda hasta la contraseña
Dim contraseña as string 'La contraseña correcta
contraseña = "SERGI"
longitud = len(command) 'Cogemos la longitud de lo que hayan escrito despues del nombre del EXE
distancia = longitud - 10 'Le restamos el tamaño del argumento "-password(espacio)", osea 10 caracteres
If Command = "" Then 'Si está vacío,
Password.Show 'mostramos el cuadro de la contraseña
Exit Sub
Else
If Not (Left,9(Command)) = "-password " 'Si no empieza por
Password.Show ' "-password", tambien
ExitSub
Else 'En caso contrario miramos si la pass es correcta
If Right(Command,distancia) = contraseña
Then
'Contraseña Correcta
Else
'Contraseña incorrecta
Password.Show 'mostramos el cuadro de la contraseña
Exit Sub
End If
End If