Código fuente del diccionario
¿Oscuro? ¿SS? ¿Como qué? ¿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? ¿amperio? ¿UCase("abcdefghijklmnopqrstuvwxyz")? Las funciones de UCase están en formato mayúscula.
¿SS? =?SS? ¿amperio? abcdefghijklmnopqrstuvwxyz. Es una función de concatenación de cadenas.
¿SS? =?SS? ¿amperio? "0123456789"
¿SS? =?SS? ¿amperio? "~!@#$^amp;*()_{}|：lt;gt?[]\;',./"
En este momento, SS="abcdefghijklmnopkrstuvxyzabcdefghijklmnopkrstuvxyz 0123456789 ~!@# $ ^amp;*()_{}|：lt;gt?[]\;',./"
¿Oscuro? ¿Contraseña? ¿Como qué? "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 qué? ¿Doble? Defina la variable icount como de doble precisión,
dim? t1? ¿Como qué? ¿Cadena? Defina la variable s1 para que sea de tipo cadena.
¿Oscuro? I,? j? ¿Como qué? ¿Doble? Defina la variable I como una variable y j como un doble.
¿Oscuro? ¿Contar? ¿Como qué? "Doble" define el recuento de variables como un modelo de doble precisión.
¿Oscuro? contraseña()? ¿Como qué? ¿Cadena? ¿Definir contraseña de matriz dinámica ()? ¿Es un tipo de cadena?
¿Dim? tempstr? ¿Como qué? "Cadena" define la variable tempstr como un tipo de cadena,
contraseñalen? =?val(texto 1. texto) ‘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? ¿Es? 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
Texto 1. ¿Establecer enfoque? El cuadro de texto Text1 recibe el foco.
¿Salir? ¿Sub? Salga del subproceso.
¿Fin? si
Lista 1. Inicialización "borrar", 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? icount'for bucle, el valor inicial es 1, el valor final es 90 y el tamaño del paso es 1.
¿Raedim? ¿ahorrar? ¿Contraseña (yo)? Redefina la contraseña de la matriz dinámica () a I (el límite superior es 0), la preservación se conserva y no se reemplaza.
¿Contraseña (I)? =?mid$(ss,?i,?1)?Cada elemento de la contraseña de la matriz es la posición I en la cadena ss.
Lista 1. ¿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 a la función zuhe
¿Siguiente? Yo
¿Terminar? Submarino
¿Público? ¿Función? ascendencia (temp()? como? cadena,? icount? como? doble? ss? como? cadena)? ¿Como qué? 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 qué? ¿Doble? El recuento de variables se define como de doble precisión.
¿Oscuro? t1? ¿Como qué? "Cadena" define la variable s1 como un tipo de cadena,
¿Dim? ¿I? ¿Como qué? ¿Doble? La variable I se define como doble.
¿Oscuro? j? ¿Como qué? ¿Doble? La variable j se define como doble.
¿Contar? =?UBound(temp) ‘¿La matriz temp()? Siguiente guardado del recuento de variables.
¿Oscuro? contraseña()? ¿Como qué? La contraseña de la matriz de definición de "cadena" () es de tipo cadena,
¿Dim? ¿índice? ¿Como qué? "Doble" define la variable iindex como doble precisión.
¿Índice? =?'1'da el valor inicial de iindex como 1.
¿Oscuro? tempstr? ¿Como qué? ¿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 de la cadena ss y lo asigna a la variable s 1.
La función de retardo de DoEvents evita que el programa suspenda la animación,
¿Redim? ¿ahorrar? ¿Contraseña (índice)? Redefinir la contraseña de la matriz dinámica()
¿Contraseña(iindex)? =?Temperatura (I)? ¿amperio? t1? La matriz temp(I) y la cadena s1 se concatenan y asignan a la matriz contraseña().
Lista 1. ¿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