Código fuente Vb
¿Oscuro? ¿SS? ¿Como? ¿Cadena? La variable ss se define como un tipo de cadena y el valor inicial predeterminado es una cadena vacía.
¿Privado? ¿Sub? Comando1_Clic()? Comando de botón Evento de 1 clic.
¿ss? =?ss? y amplificador? UCase("abcdefghijklmnopqrstuvwxyz")? Las funciones de UCase están en formato mayúscula.
¿ss? =?ss? y amplificador? abcdefghijklmnopqrstuvwxyz. Es una función de concatenación de cadenas.
¿ss? =?ss? y amplificador? "0123456789"
ss? =?ss? y amplificador? "~!@#$%^&*()_+{ } |:& lt;& gt?[]\;',./"
En este punto, SS = " abcdefghijklmnopkrstuvxyzabcdefghijklmnopkrstuvxyz 0123456789 ~! @#$%^&*()_+{ } |:& lt;& gt? []\;',./"
¿Dim? ¿Contraseña? ¿Como? "Doble" define la variable contraseñalen como de tipo doble, que se utiliza para establecer la longitud máxima de la contraseña.
¿Oscuro? ¿Cuento? ¿Como? ¿Doble? Defina la variable icount como de doble precisión,
dim? t1? ¿Como? ¿Cadena? Defina la variable s1 para que sea de tipo cadena.
¿Oscuro? I,? j? ¿Como? ¿Doble? Defina la variable I como variante y j como doble precisión.
¿Oscuro? ¿Contar? ¿Como? "Doble" define el recuento de variables como un modelo de doble precisión.
¿Oscuro? contraseña()? ¿Como? ¿Cadena? ¿Definir contraseña de matriz dinámica ()? ¿Es un tipo de cadena?
¿Dim? tempstr? ¿Como? "Cadena" define la variable tempstr como un tipo de cadena,
contraseñalen? =?Val(Text1.text)' El tipo de carácter en el texto 1 se convierte a tipo numérico y se almacena en la variable contraseñalen.
¿Y si? ¿Contraseña? <? 1? Cuando la contraseña es menor que 1.
¿Cuadro de mensajes? Introduzca la longitud máxima de la contraseña. vbInformación,? ¿"Generador de diccionario"? Cuadro de diálogo emergente
Texto1. ¿Establecer enfoque? El cuadro de texto Text1 recibe el foco.
¿Salir? ¿Sub? Salga del subproceso.
¿Fin? Si
Lista1. Borrar inicialización, lista vacía del cuadro de lista 1.
¿cuenta? =?Len(ss)? Coloque el valor de longitud 90 del carácter Chuang ss en la variable icount.
¿Para qué? ¿I? =?1?¿Adónde ir? Bucle 'Icount'for, el valor inicial es 1, el valor final es 90 y el tamaño del paso es 1.
¿Raedim? ¿ahorrar? ¿Contraseña(1)? Redefina la contraseña de la matriz dinámica () a I (el límite superior es 0) y Preservar para retener y no reemplazar.
¿Contraseña (1)? =?Mid$(ss,?I,?1)?Cada elemento de la contraseña de la matriz es la posición I-ésima en la cadena ss.
Lista1. ¿Agregar artículo? 'Contraseña(i)' muestra todos los elementos de la matriz en el cuadro de lista Lista1.
¿Siguiente? Yo
¿Para qué? ¿I? =?2?¿Adónde ir? ¿Contraseña? De 2 a la longitud máxima de la contraseña contraseñalen
¿Contraseña? =?Zuch(contraseña,?icount,?ss)? Llamar grupo de funciones y
¿Siguiente? Yo
¿Terminar? Submarino
¿Público? ¿Función? ascendencia y (temp()? como? cadena,? icount? como? doble,? ss? como? cadena)? ¿Como? Cadena()? La función definida zuhe
tiene tres variables independientes: la matriz temp() es de tipo cadena y icount es de tipo doble precisión. Ss es un tipo de cadena.
¿Oscuro? ¿Contar? ¿Como? ¿Doble? El recuento de variables se define como de doble precisión.
¿Oscuro? t1? ¿Como? 'Cadena' define la variable s1 como tipo de cadena,
dim? ¿I? ¿Como? ¿Doble? La variable I se define como doble.
¿Oscuro? j? ¿Como? ¿Doble? La variable j se define como doble.
¿Contar? =?UBound(temp)'poner temperatura de matriz()? Guárdelo en el recuento de variables la próxima vez.
¿Oscuro? contraseña()? ¿Como? "Cadena" define la contraseña de matriz() como un tipo de cadena,
¿Dim? ¿índice? ¿Como? "Doble" define la variable iindex como doble precisión.
¿Índice? =?' 1 'Dale a iindex un valor inicial de 1.
¿Oscuro? tempstr? ¿Como? ¿Cadena? La variable tempstr se define como de tipo cadena.
¿Para qué? ¿I? =?1?¿Adónde ir? Contar
¿Para qué? j? =?1?¿Adónde ir? icuenta
s1? =?Mid$(ss,?j,?1)?La función mid toma 1 bit del bit j en la cadena ss y lo asigna a la variable s 1.
La función de retardo de DoEvents evita que el programa finja la muerte,
Radim? ¿ahorrar? ¿Contraseña (índice)? Redefinir la contraseña de la matriz dinámica()
¿Contraseña(iindex)? =?temperatura(yo)? y amplificador? t1? La matriz temp(i) y la cadena s1 se concatenan y asignan a la matriz contraseña().
Lista1. ¿Agregar artículo? Contraseña(iindex)' muestra los elementos de la matriz Contraseña() en el cuadro de lista Lista1.
¿Siguiente? j
¿Siguiente? Yo
¿Zuhe? =?Contraseña? Asigne la contraseña de la matriz a la variable zuhe como valor de la función.
¿Fin? Función