NBW Publication Source File
(C)1993-2003 NeoSoft Corp.
Title= Posible ejemplo de generador de contraseñas
Author=David Esperalta
Language=US
NeoBookVer=4,11
ScreenColors=16777216
ScreenWidth=358
ScreenHeight=282
BkndColor=0
LinkColor=16711680
WindowStyle=0
WindowOrder=0
WindowProps=29
UseUpdateTimer=Yes
ReturnTime=60
SubroutineAction=¶.------------------------------------------------------------------------------------------------------------------------¶.Esta subrutina, a partir del juego de caracteres elegido (minúsculas, mayúsculas, etc),¶.generará una cadena de tres caracteres aleatoriamente escogidos¶:generar_3¶StrLen "[caracteres]" "[n_caracteres]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[1]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[2]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[3]"¶¶SetVar "[contrasena]" "[1][2][3]"
¶Return¶.------------------------------------------------------------------------------------------------------------------------¶¶.------------------------------------------------------------------------------------------------------------------------¶.Esta subrutina, a partir del juego de caracteres elegido (minúsculas, mayúsculas, etc),¶.generará una cadena de cuatro caracteres aleatoriamente escogidos¶:generar_4¶StrLen "[caracteres]" "[n_caracteres]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[1]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[2]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[3]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[4]"¶¶SetVar "[contrasena]" "[1][2][3][4]"
¶Return¶.------------------------------------------------------------------------------------------------------------------------¶¶.------------------------------------------------------------------------------------------------------------------------¶.Esta subrutina, a partir del juego de caracteres elegido (minúsculas, mayúsculas, etc),¶.generará una cadena de cinco caracteres aleatoriamente escogidos¶:generar_5¶StrLen "[caracteres]" "[n_caracteres]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[1]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[2]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[3]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[4]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[5]"¶¶SetVar "[contrasena]" "[1][2][3][4][5]"
¶Return¶.------------------------------------------------------------------------------------------------------------------------¶¶.------------------------------------------------------------------------------------------------------------------------¶.Esta subrutina, a partir del juego de caracteres elegido (minúsculas, mayúsculas, etc),¶.generará una cadena de seis caracteres aleatoriamente escogidos¶:generar_6¶StrLen "[caracteres]" "[n_caracteres]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[1]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[2]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[3]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[4]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[5]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[6]"¶¶SetVar "[contrasena]" "[1][2][3][4][5][6]"
¶Return¶.------------------------------------------------------------------------------------------------------------------------¶¶.------------------------------------------------------------------------------------------------------------------------¶.Esta subrutina, a partir del juego de caracteres elegido (minúsculas, mayúsculas, etc),¶.generará una cadena de siete caracteres aleatoriamente escogidos¶:generar_7¶StrLen "[caracteres]" "[n_caracteres]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[1]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[2]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[3]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[4]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[5]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[6]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[7]"¶¶SetVar "[contrasena]" "[1][2][3][4][5][6][7]"
¶Return¶.------------------------------------------------------------------------------------------------------------------------¶¶.------------------------------------------------------------------------------------------------------------------------¶.Esta subrutina, a partir del juego de caracteres elegido (minúsculas, mayúsculas, etc),¶.generará una cadena de ocho caracteres aleatoriamente escogidos¶:generar_8¶StrLen "[caracteres]" "[n_caracteres]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[1]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[2]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[3]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[4]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[5]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[6]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[7]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[8]"¶¶SetVar "[contrasena]" "[1][2][3][4][5][6][7][8]"
¶Return¶.------------------------------------------------------------------------------------------------------------------------¶¶.------------------------------------------------------------------------------------------------------------------------¶.Esta subrutina, a partir del juego de caracteres elegido (minúsculas, mayúsculas, etc),¶.generará una cadena de nueve caracteres aleatoriamente escogidos¶:generar_9¶StrLen "[caracteres]" "[n_caracteres]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[1]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[2]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[3]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[4]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[5]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[6]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[7]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[8]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[9]"¶¶SetVar "[contrasena]" "[1][2][3][4][5][6][7][8][9]"
¶Return¶.------------------------------------------------------------------------------------------------------------------------¶¶.------------------------------------------------------------------------------------------------------------------------¶.Esta subrutina, a partir del juego de caracteres elegido (minúsculas, mayúsculas, etc),¶.generará una cadena de diez caracteres aleatoriamente escogidos¶:generar_10¶StrLen "[caracteres]" "[n_caracteres]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[1]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[2]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[3]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[4]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[5]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[6]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[7]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[8]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[9]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[10]"¶¶SetVar "[contrasena]" "[1][2][3][4][5][6][7][8][9][10]"
¶Return¶.------------------------------------------------------------------------------------------------------------------------¶¶.------------------------------------------------------------------------------------------------------------------------¶.Esta subrutina, a partir del juego de caracteres elegido (minúsculas, mayúsculas, etc),¶.generará una cadena de once caracteres aleatoriamente escogidos¶:generar_11¶StrLen "[caracteres]" "[n_caracteres]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[1]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[2]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[3]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[4]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[5]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[6]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[7]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[8]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[9]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[10]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[11]"¶¶SetVar "[contrasena]" "[1][2][3][4][5][6][7][8][9][10][11]"
¶Return¶.------------------------------------------------------------------------------------------------------------------------¶¶.------------------------------------------------------------------------------------------------------------------------¶.Esta subrutina, a partir del juego de caracteres elegido (minúsculas, mayúsculas, etc),¶.generará una cadena de doce caracteres aleatoriamente escogidos¶:generar_12¶StrLen "[caracteres]" "[n_caracteres]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[1]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[2]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[3]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[4]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[5]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[6]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[7]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[8]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[9]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[10]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[11]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[12]"¶¶SetVar "[contrasena]" "[1][2][3][4][5][6][7][8][9][10][11][12]"
¶Return¶.------------------------------------------------------------------------------------------------------------------------¶¶.------------------------------------------------------------------------------------------------------------------------¶.Esta subrutina, a partir del juego de caracteres elegido (minúsculas, mayúsculas, etc),¶.generará una cadena de trece caracteres aleatoriamente escogidos¶:generar_13¶StrLen "[caracteres]" "[n_caracteres]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[1]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[2]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[3]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[4]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[5]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[6]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[7]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[8]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[9]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[10]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[11]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[12]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[13]"¶¶SetVar "[contrasena]" "[1][2][3][4][5][6][7][8][9][10][11][12][13]"
¶Return¶.------------------------------------------------------------------------------------------------------------------------¶¶.------------------------------------------------------------------------------------------------------------------------¶.Esta subrutina, a partir del juego de caracteres elegido (minúsculas, mayúsculas, etc),¶.generará una cadena de catorce caracteres aleatoriamente escogidos¶:generar_14¶StrLen "[caracteres]" "[n_caracteres]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[1]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[2]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[3]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[4]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[5]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[6]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[7]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[8]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[9]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[10]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[11]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[12]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[13]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[14]"¶¶SetVar "[contrasena]" "[1][2][3][4][5][6][7][8][9][10][11][12][13][14]"
¶Return¶.------------------------------------------------------------------------------------------------------------------------¶¶.------------------------------------------------------------------------------------------------------------------------¶.Esta subrutina, a partir del juego de caracteres elegido (minúsculas, mayúsculas, etc),¶.generará una cadena de quince caracteres aleatoriamente escogidos¶:generar_15¶StrLen "[caracteres]" "[n_caracteres]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[1]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[2]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[3]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[4]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[5]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[6]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[7]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[8]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[9]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[10]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[11]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[12]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[13]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[14]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[15]"¶¶SetVar "[contrasena]" "[1][2][3][4][5][6][7][8][9][10][11][12][13][14][15]"
¶Return¶.------------------------------------------------------------------------------------------------------------------------¶¶.------------------------------------------------------------------------------------------------------------------------¶.Esta subrutina, a partir del juego de caracteres elegido (minúsculas, mayúsculas, etc),¶.generará una cadena de dieciséis caracteres aleatoriamente escogidos¶:generar_16¶StrLen "[caracteres]" "[n_caracteres]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[1]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[2]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[3]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[4]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[5]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[6]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[7]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[8]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[9]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[10]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[11]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[12]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[13]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[14]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[15]"¶Random "[n_caracteres]" "[n_aleatorio]"¶SubStr "[caracteres]" "[n_aleatorio]" "1" "[16]"¶¶SetVar "[contrasena]" "[1][2][3][4][5][6][7][8][9][10][11][12][13][14][15][16]"
¶Return¶.------------------------------------------------------------------------------------------------------------------------¶¶¶.-------------------------------------------------------------------------------------------------------------------------------------¶.* NOTA: Soy consciente de que el código de estas "subrutinas" podría mejorarse en algo,¶.no sé en qué, pero seguro que puede mejorarse, y no poco... lo que digo es que si esto¶.lo haces tú, puedes comunicármelo en: davidesperalta@wanadoo.es. Y, si soy capaz de¶.hacerlo yo, sencillamente, "actualizaré" este ejemplo e informaré de ello en www.neobook.tk¶.-------------------------------------------------------------------------------------------------------------------------------------¶¶¶
ShapeTransColor=536870912
CompiledName=C:\Documents and Settings\bubi.htm\Escritorio\pup_genera_password\pub_genera_password.exe
CompileType=0
MediaType=0
FilesIncluded=1
FontsIncluded=2
FontsToCompile=|
CopyExternalFiles=No
SetupMedia=3
SetupInstDir=C:\MyProgram
SetupTitle=Configuración
SetupColors=16711680|0|65535
CustomFontName=MS Sans Serif
CustomFontSize=8
CustomFontStyle=0
CustomCharset=1
CacheSize=30
ExtractOp=132
L_OK=Aceptar
L_CANCEL=Cancelar
L_YES=Sí
L_NO=No
L_CLOSE=Cerrar
L_ERRORTITLE=Error
L_FINDTITLE=Buscar
L_FINDPROMPT=Buscar &qué
L_FINDFIRST=Buscar &primero
L_FINDNEXT=Buscar &siguiente
L_FINDERROR=No se encontró el texto.
L_PWORDTITLE=Se requiere contraseña 
L_PWORDMSG=Antes de continuar debe primero|proporcionar la contraseña correcta.
L_PWORDPROMPT=&Contraseña:
L_PWORDERROR=¡Esa no es la contraseña correcta!
L_MEDIAERROR=Debe instalar el equipo y/o programa de multimedia apropiado para ejecutar este tipo de fichero.
L_INTERNETERROR=No se encontró el programa para navegar por Internet.
L_ABORTFUNCTION=Imprimiendo página:
L_EXTRACTERROR=¿Desea cancelar esta función?
L_INSTDIRPROMPT=Este fichero no pudo extraerse y por tanto no puede ejecutarse.
L_INSTFOLDERPROMPT=Por favor, teclee el lector y el directorio donde desee instalar el programa. Use la tecla Intro para aceptar el lector y directorio predeterminado.
L_INSTRUNPROMPT=¿Desea crear un archivo de programa?
L_INSTDISKPROMPT=¿Desea ejecutarlo?
L_INSTDISKERROR=Por favor, inserte el disco #
L_INSTGENERROR=Ese disquete no es el correcto, inténtelo de nuevo.
L_INSTEXITPROMPT=Instalación completada.
L_INSTWINTITLE=¿Desea cancelar la instalación?
L_INSTPROGTITLE=Configuración
L_SENDEMAIL=Enviando correo...
L_MAILSERVER=Proporcione el nombre de su servidor SMTP de correo electrónico saliente: 
L_TRAYOPEN=Abrir
L_TRAYCLOSE=Cerrar
L_COPY=Cortar
L_SELECTALL=Seleccionar todo
MasterPage
NewPage=inicio
PageStyle=0
PageColor=16777215
PageGradient1=16711680
PageGradient2=255
PageGradientDir=1
WallpaperStyle=0
EffectSpeed=5
PgEnterAction=¶.Hago que el elemento predeterminado de la lista "ln_caracteres" sea "8"¶SetVar "[ln_caracteres]" "8"¶¶.Y que la casilla "c_minusculas" aparezca marcada¶SetVar "[c_minusculas]" "Checked"
ObjectType=3
Name=boton_generar_contrasena
X=5
Y=253
W=210
H=24
Text=generar una contraseña
Align=2
ImageStyle=0
BevelWidth=1
ObjAction=¶.Ahora comprobaré la casilla que está marcada, y que determinará el "juego" de caracteres¶.a utilizarse.¶¶.Compruebo si es la casilla "minúsculas" la elegida¶If "[c_minusculas]" "=" "Checked"¶.Si es así doy el valor al "juego de caracteres" como sigue¶SetVar "[caracteres]" "abcdefghijklmnopqrstuvwxyz"¶  .A continuación llamo a la subrutina que genera los caracteres,¶  .cuyo número será el número de la lista "ln_caracteres"¶  GoSub "generar_[ln_caracteres]"¶  GotoLine "SALIR"¶ EndIf¶EndIf¶¶.Compruebo si es la casilla "mayúsculas" la elegida¶If "[c_mayusculas]" "=" "Checked"¶.Si es así doy el valor al "juego de caracteres" como sigue¶SetVar "[caracteres]" "ABCDEFGHIJKLMNOPQRSTUVWXYZ"¶  .A continuación llamo a la subrutina que genera los caracteres,¶  .cuyo número será el número de la lista "ln_caracteres"¶  GoSub "generar_[ln_caracteres]"¶  GotoLine "SALIR"¶ EndIf¶EndIf¶¶.Compruebo si es la casilla "números" la elegida¶If "[c_numeros]" "=" "Checked"¶.Si es así doy el valor al "juego de caracteres" como sigue¶SetVar "[caracteres]" "0987654321"¶  .A continuación llamo a la subrutina que genera los caracteres,¶  .cuyo número será el número de la lista "ln_caracteres"¶  GoSub "generar_[ln_caracteres]"¶  GotoLine "SALIR"¶ EndIf¶EndIf¶¶.Compruebo si es la casilla "números y minúsculas" la elegida¶If "[c_numeros_y_min]" "=" "Checked"¶.Si es así doy el valor al "juego de caracteres" como sigue¶SetVar "[caracteres]" "abcdefghijklmnopqrstuvwxyz0987654321"¶  .A continuación llamo a la subrutina que genera los caracteres,¶  .cuyo número será el número de la lista "ln_caracteres"¶  GoSub "generar_[ln_caracteres]"¶  GotoLine "SALIR"¶ EndIf¶EndIf¶¶.Compruebo si es la casilla "números y mayúsculas" la elegida¶If "[c_numeros_y_may]" "=" "Checked"¶.Si es así doy el valor al "juego de caracteres" como sigue¶SetVar "[caracteres]" "ABCDEFGHIJKLMNOPQRSTUVWXYZ0987654321"¶  .A continuación llamo a la subrutina que genera los caracteres,¶  .cuyo número será el número de la lista "ln_caracteres"¶  GoSub "generar_[ln_caracteres]"¶  GotoLine "SALIR"¶ EndIf¶EndIf¶¶.Compruebo si es la casilla "minúsculas y mayúsculas" la elegida¶If "[c_min_y_may]" "=" "Checked"¶.Si es así doy el valor al "juego de caracteres" como sigue¶SetVar "[caracteres]" "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"¶  .A continuación llamo a la subrutina que genera los caracteres,¶  .cuyo número será el número de la lista "ln_caracteres"¶  GoSub "generar_[ln_caracteres]"¶  GotoLine "SALIR"¶ EndIf¶EndIf¶¶.Compruebo si es la casilla "otros caracteres" la elegida¶If "[c_otros_caracteres]" "=" "Checked"¶.Si es así doy el valor al "juego de caracteres" como sigue¶SetVar "[caracteres]" "¡!¿?=()/\&%$[#34]!"¶  .A continuación llamo a la subrutina que genera los caracteres,¶  .cuyo número será el número de la lista "ln_caracteres"¶  GoSub "generar_[ln_caracteres]"¶  GotoLine "SALIR"¶ EndIf¶EndIf¶¶.Compruebo si es la casilla "todos caracteres" la elegida¶If "[c_todos_caracteres]" "=" "Checked"¶.Si es así doy el valor al "juego de caracteres" como sigue¶SetVar "[caracteres]" "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ09876543210987654321¡!¿?=()/\&%$[#34]!"¶  .A continuación llamo a la subrutina que genera los caracteres,¶  .cuyo número será el número de la lista "ln_caracteres"¶  GoSub "generar_[ln_caracteres]"¶  GotoLine "SALIR"¶ EndIf¶EndIf¶¶.La línea SALIR se usa para terminar con el proceso¶:SALIR¶
LineColor=12632256
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=8
FontStyle=1
FontCharset=1
TextColor=0
TabOrder=1
ObjectType=8
Name=info_num_caracteres
X=5
Y=5
W=155
H=22
Font=Arial
FontSize=8
FontStyle=1
FontCharset=1
TextColor=8421504
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b N\'famero de caracteres:}}¶}
HMargin=0
VMargin=2
LineColor=12632256
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=4
ObjectType=11
Name=ln_caracteres
X=161
Y=5
W=54
H=22
Text=3¶4¶5¶6¶7¶8¶9¶10¶11¶12¶13¶14¶15¶16
VarName=[ln_caracteres]
VarType=0
LineColor=12632256
LineWidth=1
LineStyle=0
FillColor=15987699
FillPattern=0
Font=Arial
FontSize=8
FontStyle=1
FontCharset=1
TextColor=0
TabOrder=2
ObjectType=8
Name=info_caracteres
X=5
Y=30
W=210
H=190
Font=Arial
FontSize=8
FontStyle=1
FontCharset=1
TextColor=8421504
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\b Caracteres a utilizar:}}¶}
HMargin=0
VMargin=5
LineColor=12632256
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=3
ObjectType=12
Name=c_minusculas
X=20
Y=55
W=149
H=18
Text=minúsculas
Align=1
VarName=[c_minusculas]
InitState=0
ObjAction=¶.Las casillas se "excluyen" entre ellas, o sea, que, si esta está marcada,¶.cualquiera otra será "desmarcada"  en caso de estarlo (si no lo estuviera¶.ninguna, no pasa nada, sencillamente, esta se marcaría y el resto de a-¶.cciones no se tendrían en cuenta.¶¶If "[c_minusculas]" "=" "Checked"¶SetVar "[c_mayusculas]" ""¶SetVar "[c_numeros]" ""¶SetVar "[c_numeros_y_min]" ""¶SetVar "[c_numeros_y_may]" ""¶SetVar "[c_otros_caracteres]" ""¶SetVar "[c_todos_caracteres]" ""¶SetVar "[c_min_y_may]" ""¶EndIf
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
Font=Arial
FontSize=8
FontStyle=0
FontCharset=1
TextColor=8421504
TabOrder=12
ObjectType=12
Name=c_mayusculas
X=20
Y=75
W=146
H=18
Text=mayúsculas
Align=1
VarName=[c_mayusculas]
InitState=0
ObjAction=¶.Las casillas se "excluyen" entre ellas, o sea, que, si esta está marcada,¶.cualquiera otra será "desmarcada"  en caso de estarlo (si no lo estuviera¶.ninguna, no pasa nada, sencillamente, esta se marcaría y el resto de a-¶.cciones no se tendrían en cuenta.¶¶If "[c_mayusculas]" "=" "Checked"¶SetVar "[c_minusculas]" ""¶SetVar "[c_numeros]" ""¶SetVar "[c_numeros_y_min]" ""¶SetVar "[c_numeros_y_may]" ""¶SetVar "[c_otros_caracteres]" ""¶SetVar "[c_todos_caracteres]" ""¶SetVar "[c_min_y_may]" ""¶EndIf¶
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
Font=Arial
FontSize=8
FontStyle=0
FontCharset=1
TextColor=8421504
TabOrder=7
ObjectType=12
Name=c_numeros
X=20
Y=95
W=145
H=18
Text=números
Align=1
VarName=[c_numeros]
InitState=0
ObjAction=¶.Las casillas se "excluyen" entre ellas, o sea, que, si esta está marcada,¶.cualquiera otra será "desmarcada"  en caso de estarlo (si no lo estuviera¶.ninguna, no pasa nada, sencillamente, esta se marcaría y el resto de a-¶.cciones no se tendrían en cuenta.¶¶If "[c_numeros]" "=" "Checked"¶SetVar "[c_minusculas]" ""¶SetVar "[c_mayusculas]" ""¶SetVar "[c_numeros_y_min]" ""¶SetVar "[c_numeros_y_may]" ""¶SetVar "[c_otros_caracteres]" ""¶SetVar "[c_todos_caracteres]" ""¶SetVar "[c_min_y_may]" ""¶EndIf
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
Font=Arial
FontSize=8
FontStyle=0
FontCharset=1
TextColor=8421504
TabOrder=6
ObjectType=12
Name=c_numeros_y_min
X=20
Y=114
W=145
H=18
Text=números y minúsculas
Align=1
VarName=[c_numeros_y_min]
InitState=0
ObjAction=¶.Las casillas se "excluyen" entre ellas, o sea, que, si esta está marcada,¶.cualquiera otra será "desmarcada"  en caso de estarlo (si no lo estuviera¶.ninguna, no pasa nada, sencillamente, esta se marcaría y el resto de a-¶.cciones no se tendrían en cuenta.¶¶If "[c_numeros_y_min]" "=" "Checked"¶SetVar "[c_minusculas]" ""¶SetVar "[c_mayusculas]" ""¶SetVar "[c_numeros]" ""¶SetVar "[c_numeros_y_may]" ""¶SetVar "[c_otros_caracteres]" ""¶SetVar "[c_todos_caracteres]" ""¶SetVar "[c_min_y_may]" ""¶EndIf
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
Font=Arial
FontSize=8
FontStyle=0
FontCharset=1
TextColor=8421504
TabOrder=5
ObjectType=12
Name=c_numeros_y_may
X=20
Y=134
W=170
H=18
Text=números y mayúsculas
Align=1
VarName=[c_numeros_y_may]
InitState=0
ObjAction=¶.Las casillas se "excluyen" entre ellas, o sea, que, si esta está marcada,¶.cualquiera otra será "desmarcada"  en caso de estarlo (si no lo estuviera¶.ninguna, no pasa nada, sencillamente, esta se marcaría y el resto de a-¶.cciones no se tendrían en cuenta.¶¶If "[c_numeros_y_may]" "=" "Checked"¶SetVar "[c_mayusculas]" ""¶SetVar "[c_minusculas]" ""¶SetVar "[c_numeros]" ""¶SetVar "[c_numeros_y_min]" ""¶SetVar "[c_otros_caracteres]" ""¶SetVar "[c_todos_caracteres]" ""¶SetVar "[c_min_y_may]" ""¶EndIf
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
Font=Arial
FontSize=8
FontStyle=0
FontCharset=1
TextColor=8421504
TabOrder=11
ObjectType=12
Name=c_otros_caracteres
X=20
Y=172
W=177
H=18
Text=otros caracteres (¡!¿?=()/\&%$"!)
Align=1
VarName=[c_otros_caracteres]
InitState=0
ObjAction=¶.Las casillas se "excluyen" entre ellas, o sea, que, si esta está marcada,¶.cualquiera otra será "desmarcada"  en caso de estarlo (si no lo estuviera¶.ninguna, no pasa nada, sencillamente, esta se marcaría y el resto de a-¶.cciones no se tendrían en cuenta.¶¶If "[c_otros_caracteres]" "=" "Checked"¶SetVar "[c_mayusculas]" ""¶SetVar "[c_minusculas]" ""¶SetVar "[c_numeros]" ""¶SetVar "[c_numeros_y_min]" ""¶SetVar "[c_numeros_y_may]" ""¶SetVar "[c_todos_caracteres]" ""¶SetVar "[c_min_y_may]" ""¶EndIf
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
Font=Arial
FontSize=8
FontStyle=0
FontCharset=1
TextColor=8421504
TabOrder=9
ObjectType=12
Name=c_todos_caracteres
X=20
Y=192
W=177
H=18
Text=de todos un poco...
Align=1
VarName=[c_todos_caracteres]
InitState=0
ObjAction=¶.Las casillas se "excluyen" entre ellas, o sea, que, si esta está marcada,¶.cualquiera otra será "desmarcada"  en caso de estarlo (si no lo estuviera¶.ninguna, no pasa nada, sencillamente, esta se marcaría y el resto de a-¶.cciones no se tendrían en cuenta.¶¶If "[c_todos_caracteres]" "=" "Checked"¶SetVar "[c_mayusculas]" ""¶SetVar "[c_minusculas]" ""¶SetVar "[c_numeros]" ""¶SetVar "[c_numeros_y_min]" ""¶SetVar "[c_numeros_y_may]" ""¶SetVar "[c_otros_caracteres]" ""¶SetVar "[c_min_y_may]" ""¶EndIf
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
Font=Arial
FontSize=8
FontStyle=0
FontCharset=1
TextColor=8421504
TabOrder=8
ObjectType=12
Name=c_min_y_may
X=20
Y=153
W=170
H=18
Text=minúsculas y mayúsculas
Align=1
VarName=[c_min_y_may]
InitState=0
ObjAction=¶.Las casillas se "excluyen" entre ellas, o sea, que, si esta está marcada,¶.cualquiera otra será "desmarcada"  en caso de estarlo (si no lo estuviera¶.ninguna, no pasa nada, sencillamente, esta se marcaría y el resto de a-¶.cciones no se tendrían en cuenta.¶¶If "[c_min_y_may]" "=" "Checked"¶SetVar "[c_mayusculas]" ""¶SetVar "[c_minusculas]" ""¶SetVar "[c_numeros]" ""¶SetVar "[c_numeros_y_min]" ""¶SetVar "[c_otros_caracteres]" ""¶SetVar "[c_todos_caracteres]" ""¶SetVar "[c_numeros_y_may]" ""¶EndIf
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
Font=Arial
FontSize=8
FontStyle=0
FontCharset=1
TextColor=8421504
TabOrder=10
ObjectType=8
Name=info_decoracion
X=217
Y=5
W=136
H=271
Font=Arial
FontSize=8
FontStyle=2
FontCharset=1
TextColor=8421504
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs16\cf0\i [contrasena]}}¶}
HMargin=1
VMargin=1
LineColor=12632256
LineWidth=1
LineStyle=0
FillColor=15790320
FillPattern=0
TabOrder=14
ObjectType=3
Name=boton_copiar
X=161
Y=224
W=54
H=25
Text=copiar
Align=2
ImageStyle=0
BevelWidth=1
ObjAction=¶.Compruebo que variable "contrasena" no esté aún vacía...¶If "[contrasena]" "=" ""¶.Si es así, lo advierto, y salgo del proceso¶AlertBox "Generador de contraseñas" "|No hay ninguna contraseña|que copiar al portapapeles..."¶GotoLine "SALIR"¶EndIf¶¶.En caso de no salir del proceso... o sea, de que contenga algún valor "contrasena", ¶.dicho valor se pasa a la variable "ClipBoard", que es el "portapapeles" de Windows.¶SetVar "[ClipBoard]" "Contraseña: [contrasena]"¶AlertBox "Generador de contraseñas" "|¡Ya tienes la contraseña|   en el portapapeles!||Utiliza [#34]CTRL+V[#34] para|   pegarla donde quieras."¶¶.La línea "SALIR" se usa para terminar el proceso¶:SALIR
LineColor=12632256
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=8
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=13
ObjectType=8
Name=info_contrasena
X=5
Y=224
W=153
H=25
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0\b [contrasena]}}¶}
HMargin=1
VMargin=4
LineColor=12632256
LineWidth=1
LineStyle=0
FillColor=15724527
FillPattern=0
TabOrder=15
ObjectType=7
Name=Linea1
X1=-2
Y1=265
X2=-54
Y2=265
LineColor=0
LineWidth=1
LineStyle=0
FillColor=0
FillPattern=0
TabOrder=16
ObjectType=8
Name=info_boton_generar
X=-292
Y=251
W=278
H=44
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 En este bot\'f3n tienes parte de las acciones\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 que se utilizan en este ejemplo.}}¶}
HMargin=1
VMargin=4
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=17
ObjectType=7
Name=Linea2
X1=364
Y1=215
X2=389
Y2=215
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=18
ObjectType=8
Name=info_cuadro_decorativo
X=390
Y=192
W=147
H=46
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 Es cuadro es solamente\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 decorativo... \'bfte place?}}¶}
HMargin=1
VMargin=4
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=19
ObjectType=7
Name=Linea3
X1=216
Y1=288
X2=216
Y2=318
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=20
ObjectType=8
Name=info_boton_copiar
X=129
Y=302
W=177
H=63
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 El bot\'f3n "copiar" sirve para\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 pasar la contrase\'f1a al\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 portapapeles de Windows}}¶}
HMargin=1
VMargin=4
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=21
ObjectType=7
Name=Linea4
X1=187
Y1=-4
X2=187
Y2=-21
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=22
ObjectType=8
Name=Texto8
X=21
Y=-70
W=261
H=58
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 En esta lista se elige el n\'famero\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 de caracteres que tendr\'e1 la\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 contrase\'f1a, por defecto, ocho}}¶}
HMargin=1
VMargin=4
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=23
ObjectType=7
Name=Linea5
X1=-4
Y1=64
X2=-42
Y2=64
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=24
ObjectType=8
Name=info_casillas
X=-245
Y=28
W=219
H=61
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 Las distintas casillas se excluyen\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 unas a otras, o sea, no m\'e1s puede\par¶\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 estar seleccionada una de ellas}}¶}
HMargin=1
VMargin=4
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=26
ObjectType=7
Name=Linea6
X1=-4
Y1=169
X2=-34
Y2=169
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14080254
FillPattern=0
TabOrder=25
ObjectType=8
Name=Texto11
X=-364
Y=108
W=338
H=85
Font=Arial
FontSize=9
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 \par\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs18\cf0 Tienes las acciones de este ejemplo en las "subrutinas" (propiedades del \plain\f0\fs18\cf0 libro) y en las acciones al "cargar la p\'e1gina" (propiedades de la esta p\'e1gina)}}}
HMargin=1
VMargin=4
LineColor=255
LineWidth=1
LineStyle=0
FillColor=14080254
FillPattern=0
TabOrder=27