INSTRUCCIONES PARA GENERAR UN PASSWORD

VISUAL BASIC
 
DEFINT I-N ‘Declara entera toda variable que comience

con letras I a N
iTrue = -1 ‘Flag en Verdadero
INPUT “¿Cuál es su nombre”, NombreUsuario$
PRINT “Bienvenido al ‘asterisco’, “, NombreUsuario$
DO
PRINT
INPUT “¿Con cuántos asteriscos inicia [Cero sale]:”;
NroAsteriscos
IF NroAsteriscos<=0 THEN EXIT DO Asteriscos$ =””
FOR I=1 TO NroAsteriscos Asteriscos$=Asteriscos$ +
“¥” NEXT I PRINT “AQUI ESTAN; “; Asteriscos$ DO INPUT
“Desea más asteriscos:”;SN$ LOOP UNTIL SN$<>””
IF SN$<>”S” AND SN$<>”s” THE EXIT DO ‘Salida
INPUT “CUANTAS VECES DESEA REPETIRLOS [Cero
sale]:”;¡Veces
IF ¡Veces<=0 THEN EXIT DO ‘SalidaFOR I = 1 TO
¡Veces PRINT Asteriscos$; NEXT I PRINT LOOP WHILE
¡True


C++
 
#include

#include
#include
void main(){
char passw[20], actual; //vector para guardar la
contraseña y el caracter qeu se va ingresando
int contador=0; //contador de caracteres
do{
actual=getch();
printf(“*”);
passw[contador]=actual;
contador++;
}while(actual!=13);
contador-=1 ; // esto seria para pisar el \n que se yo si
funciona
passw[contador]=´\0´; \\ aca terminamos la cadena
printf(“La contraseña es: %s\n” ,passw);
system(“pause”);
}

PASCAL

Function LeerContrasena:string;

Var Kb:Char;
Cadena:String;
Begin
Cadena:=’ ‘;
Repeat
If Keypressed then
Begin
Kb:=Readkey;
If Kb<>Ctrl{13}
Begin
Cadena:=Cadena+Kb;
Write{‘*};
End;
End;
Until Kb = Ctrl{13}
LeerContrasena:=Cadena;
End;