Cómo agregar códigos de verificación en software escrito en un lenguaje sencillo

.Subrutina Genera CAPTCHA, texto, dibuja el código de verificación en el tablero de dibujo especificado y devuelve el código de verificación

. Parámetros tablero, tablero, dibuja el código de verificación en el tablero especificado

. Longitud del parámetro, número entero, longitud del código de verificación

. Tipo de parámetro, entero, anulable, el tipo de código de verificación, 1 es un número, 2 es una letra, 3 es un número + letra y los demás se seleccionan al azar

. Captcha de variable local, tipo de texto

. Recuento de variables locales, número entero

. Variable local recuento2, número entero

. Cruz de variable local, número entero

Variable local Número aleatorio (número aleatorio), tipo de texto

Variable local Letra aleatoria (letra aleatoria), tipo de texto

. .Variable local número aleatorio más letras, tipo de texto

. Si es verdadero (longitud > 0)

Mesa de trabajo. Borrar (, , , )

Mesa de trabajo. fuente. Tamaño de fuente = Tome un número aleatorio (20, 23)

Coloque una semilla de número aleatorio ()

.Cuente el bucle primero (longitud,)

Número aleatorio = Aleatorio Número + al texto (tome un número aleatorio (0, 9))

.Contar el final del bucle ()

.Contar el bucle primero (longitud,)

Aleatorio Alfabetos = Alfabetos aleatorios + Seleccionar(Aleatorio(1, 2) = 1, a mayúsculas(Caracteres(Aleatorio(97, 122))), Caracteres(Aleatorio(97, 122)))

.Bucle de conteo End()

Cuente la primera vez en el bucle (longitud,)

Número aleatorio más letra = número aleatorio más letra + selección (tome el número aleatorio (1, 2) =. 1, tome la mitad del texto (número aleatorio, tome el número aleatorio (1, longitud), 1), tome la mitad del texto (letra aleatoria, tome el número aleatorio (1, longitud), 1))

. Finalice el ciclo de conteo ( )

Código de verificación = opción múltiple (seleccione (escriba > 0 y escriba < 4, escriba, tome un número aleatorio (1, 3)), número aleatorio, letra aleatoria, número aleatorio más letra)

. Finalizar si es verdadero

Primero haz un bucle de conteo (panel. ancho, conteo)

.

Si es verdadero (tome el número aleatorio (1, 3) = 1)

. Primero realice un ciclo de conteo (panel. altura, conteo 2)

. Si es verdadero (tome el número aleatorio ( 1, 10) = 1)

Tablero. Dibujar punto (contar, contar 2, tomar valor de color (tomar número aleatorio (0, 255), tomar número aleatorio (0, 255), tomar número aleatorio ( 0, 255))

.Finalizar si es verdadero

.Calcular la hora de finalización del bucle ()

.Finalizar si es verdadero

.Fin count Loop()

Si es verdadero (longitud > 0)

Comienza a contar el bucle (longitud, conteo)

cross = toma un número aleatorio (cross). + recuento × 3 + 5, cruz + 20 + longitud)

texto de depuración de salida (cruz, "")

color del texto = obtener valor de color (tomar número aleatorio (0), 255), toma un número aleatorio (0, 255), toma un número aleatorio (0, 255))

Fuente Ángulo = toma un número aleatorio (0, 500)

Posición del tablero de dibujo (Horizontal, toma un número aleatorio (23, Tablero de dibujo. Altura - 23), toma el medio del texto (Captcha, Contar, 1))

Contar el bucle final ()

.Si es verdadero final

Devuelve (CAPTCHA).