'Este código es una función de carácter chino agregada sobre la base de otros. Muchas gracias, y gracias por el fogata fantasma y el humo del lobo.
'El código de verificación de imagen anterior se rompió fácilmente, por lo que es difícil descifrarlo en función de él para generar caracteres chinos.
uso:
Inserte el código donde se debe mostrar la imagen del código de verificación <imgsrc = "code.asp">
Al mismo tiempo, la sesión ("PSN") se genera automáticamente y la sesión de verificación de envío del formulario es suficiente.
La copia del código es la siguiente:
<%
'--------------------
'Código de verificación de imagen de personaje chino
'Este código es una función de carácter chino agregada sobre la base de otros. Muchas gracias, y gracias por el fogata fantasma y el humo del lobo.
'El código de verificación de imagen anterior se rompió fácilmente, por lo que es difícil descifrarlo en función de él para generar caracteres chinos.
'Cada número adicional de interferencias -> El costo del método exhaustivo aumenta en aproximadamente 100*100 veces
'Como establece adecuadamente las probabilidades de los puntos diversos, puede reducir efectivamente la corrección del reconocimiento de software
'--------------------
OpcionExpliCit
Callcom_creatValidCode ("SessionName")
REM genera imagen del código de verificación
Subcom_creatValidCode (PSN)
Constcodelen = 4'verification Code Número de dígito
Constcodds = 4'El Probabilidad de que aparezcan manchas misceláneas
ConstdbtTimes = 1 'Número de interferencias (consideraciones de seguridad, es mejor no ser inferior a 2)
Constcamount = 85 'Cantidad de la biblioteca de fuentes
Constccode = "El sol es tan hermoso que no hay luna, y la luna es tan hermosa que la montaña es tan hermosa que el fuego es tan grande que la madera del oeste es tan brillante. son solo un pie cuadrado.
ConstunitWidth = 28 'Word Width (para ser múltiplos de 4)
Constunitheight = 28 'altura de palabras
ConstdotsLimit = 2'UPPER LIMIT para cada puntos válidos eliminados (evitando la falta de autoridad)
ConsttryCount = 2 'Evite eliminar el número de intentos que exceden el límite superior de los puntos válidos
'-----------
Aleatorizar
Dimi, II, III
'No almacenado en caché
Respuesta.expires = -9999
Respuesta.AddHeader "Pragma", "No-Cache"
Respuesta.AddHeader "Cache-Ctrol", "No-Cache"
Respuesta.ContentType = "Image/BMP"
'Datos de color (caracteres, fondo)
Dimvcolordata (1)
VColordata (0) = CHRB (0) y CHRB (0) & CHRB (0) 'Azul 0, verde 0, rojo 0 (negro)
VColordata (1) = CHRB (211) y CHRB (255) y CHRB (250) 'Azul 250, verde 236, rojo 211 (azul claro)
'Datos de caracteres (puede modificarlo usted mismo. Si modifica el tamaño, recuerde cambiar la configuración anterior también)
DimvNumberData (85)
vnumberData (0) = ""