GENERACION DE PASWORD EN LENGUAJE: BASIC "C" Y PASCAL

UNIDAD PROFESIONAL INTERDISCIPLINARIA DE INGENIERIA Y CIENCIAS SOCIALES Y ADMINISTRATIVAS

INGENIERIA INDUSTRIAL:

JARAMILLO CORTES GUADALUPE

PASWORD EN C

main().
int main(void) {
const char USUARIO[] ="usuario";
const char CONTRASENA[] ="contrasena";
const int numIntentos =3;
int i;
char usuario[100];
char contrasena[100];


for (i=0; i<numIntentos; i++) {
printf("usuario: ");
scanf("%s", usuario);
if (strcmp(USUARIO, usuario) != 0) {
printf("\tusuario no registrado\n");
continue;
}
printf("contrasena: ");
scanf("%s", contrasena);
if (strcmp(CONTRASENA, contrasena) != 0) {
printf("\tcontrasena invalida\n");
continue;
}
printf("\n*** Bienvenido al programa ***\n");
break;
}
if (i == numIntentos) {
printf("\nPrograma no ejecutado.\n");
return 1;
}
printf("\nPrograma ejecutando...\n");
//programa
return 0;
}

Si no te interesa que revise el nombre de usuario, solo la contraseña, sería el siguiente:
int main(void) {
const char CONTRASENA[] ="contrasena";
const int numIntentos =3;
int i;
char contrasena[100];


for (i=0; i<numIntentos; i++) {
printf("contrasena: ");
scanf("%s", contrasena);
if (strcmp(CONTRASENA, contrasena) != 0) {
printf("\tcontrasena invalida\n");
continue;
}
printf("\n*** Bienvenido al programa ***\n");
break;
}
if (i == numIntentos) {
printf("\nPrograma no ejecutado.\n");
return 1;
}
printf("\nPrograma ejecutando...\n");
//programa
return 0;
}

PROGRAMA EN PASCAL

TForm1.BitBtn1Click(Sender: TObject);
var
login:string;
password:string;

begin
login:=edit1.text;
password:=edit2.Text;
Table1.Open;
with Table1 do
Locate('Login; Password', vararrayof([login,password]), []);
if Table1.Locate('Login; Password', vararrayof([login,password]), []) then
begin
ModalResult:=mrOk;
Hide;
//Form2.show;
end else
ShowMessage('Login o password incorrecto!');
Edit1.SetFocus;
end;


PROGRAMACIN EN BASIC

1. Option Explicit
4. ' Flag
5. Dim OK As Boolean
8. Private Sub cmdEntrar_Click()
10. ' Cadena de conexión ( INDICAR EL PATH DE LA BASE DE DATOS )
11. Const C_CADENA = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
12. "Data Source=" & "c:\bd1.mdb" & ";"
14. ' Variable para el recordset
15. Dim Rst_Login As Recordset
17. ' crea el recordset
18. Set Rst_Login = New Recordset
20. Dim SQL As String
22. ' consulta SQL ( Campos: Nombre y Password) _
23. Textbox ( txt_Usuario y txt_Password) _
24. Tabla: Usuarios
26. SQL = "SELECT Nombre, Password " & _
27. "FROM Usuarios " & _
28. "WHERE Nombre = '" & txt_Usuario.Text & "'" _
29. & "AND Password = '" & txt_Password.Text & "'"
31. With Rst_Login
32. ' Abre el recordset
33. .Open SQL, C_CADENA
35. ' Si el recordset está vacío es por que es incorrecto
36. If .EOF Then
37. MsgBox " El usuario o Password es incorrecto ", _
38. vbCritical, " Login incorrecto "
39. ' Cierra y descarga el Recordset
40. Rst_Login.Close
41. Set Rst_Login = Nothing
42. Exit Sub
43. End If
44. End With
46. ' Cierra y descarga el Recordset
47. Rst_Login.Close
48. Set Rst_Login = Nothing
50. 'Cambia el Flag para que no cierre el programa con End
51. OK = True
53. ' Descarga el formulario y prosigue en el SubMain
54. Unload Me
56. End Sub
58. Private Sub cmdSalir_Click()
59. OK = False
60. Unload Me
61. End Sub
63. Private Sub Form_Unload(Cancel As Integer)
64. Set frmLogin = Nothing
65. If OK = False Then
66. End
67. End If
68. End Sub