Jetons un coup d'œil à la comparaison de rendu: code de vérification des caractères: → Code de vérification additive:
avantage:
① Par rapport aux codes de vérification des caractères purs, ce programme empêche la reconnaissance automatique de la plupart des machines publicitaires (plus de 99%). Même le code de vérification chinois peut être reconnu par certaines machines publicitaires sur le marché.
② Par rapport au code de vérification chinois, il évite le problème de changer la méthode d'entrée lorsque les utilisateurs entrent dans le nom d'utilisateur, le code de vérification du mot de passe.
Les amis intéressés peuvent également l'étendre à d'autres opérations, comme la multiplication, la soustraction, la multiplication, etc.
Comment utiliser: Enregistrez le code suivant en tant que fichier dv_getcode.asp et remplacez le fichier dans le forum réseau dynamique. La couleur d'arrière-plan et la couleur de la police peuvent être modifiées dans le code.
Remarque: Ce programme nécessite l'espace du site Web pour prendre en charge les composants et les polices ASPJPEG de Kaiyi_GB2312.
À l'avenir, je publierai une version qui ne nécessite pas la prise en charge des composants et des polices. Si vous êtes intéressé, suivez mon blog.
La copie de code est la suivante:
<%
'=============================================================================================================================.
'Dongwang Forum Addition Code de vérification (version ASPJPEG)
'Auteur: Cuixiping
'Blog (csdn): http://blog.csdn.net/cuixiping/
'Blog (Blog Park): http://www.cnblogs.com/cuixiping/
'Date: novembre 2008
'Créer un code de vérification d'image 100x20 JPEG, le contenu est similaire à "25 + 64 égal?"
«L'espace du site Web nécessite une prise en charge du composant ASPJPEG (Persits.jpeg).
"Si le serveur n'a pas la police" Kaiti_GB2312 ", veuillez le modifier dans une autre police et ajuster la position de caractère.
«Méthode d'utilisation: Remplacez le contenu dans le fichier dv_getcode.asp du forum de réseau dynamique, ne laissez pas de lignes vierges au début et à la fin du fichier.
'=============================================================================================================================.
Const Fontcolor = & H000000 'Couleur de police
Const bgcolor = & hffccff de la couleur d'arrière-plan
Appel CreatValidCode ("getCode")
Sub CreatValidCode (PSN)
Dim x, jpeg
Randomiser
x = array (1 + int (rnd () * 9), int (rnd () * 10), 1 + int (rnd () * 9), int (rnd () * 10), 0, 0, "+")
x (4) = x (0) * 10 + x (1)
x (5) = x (2) * 10 + x (3)
'Session (PSN) = CSTR (EVAL (X (4) & X (6) & X (5)))
Session (PSN) = CSTR (x (4) + x (5))
Définir jpeg = server.createObject ("Persits.jpeg")
JPEG.NEW 100,20, BGCOLOR
Jpeg.quality = 100
Avec jpeg.canvas
.Font.bold = true
.Font.size = 16
.Font.rotation = 0
.Font.family = "kaiti_gb2312"
.Font.color = Fontcolor
.PrintText 4, 3, CSTR (x (0))
.PrintText 14, 3, CSTR (x (1))
.PrintText 26, 3, x (6)
.PrintText 38, 3, CSTR (x (2))
.PrintText 48, 3, CSTR (x (3))
.Font.rotation = 15
.PrintText 55, 3, "etc."
.PrintText 70, 3, "ON"
.PrintText 85, 3, "?"
Se terminer avec
'Pas de mise en cache
Response.ContentType = "Image / JPEG"
Response.expires = -9999
Response.Addheader "Pragma", "No-Cache"
Réponse.addheader "cache-ctrol", "no-cache"
Response.Addheader "Content-Disposition", "inline; filename = vCode.jpg"
Jpeg.sendbinary
Jpeg.close
Définir JPEG = rien