BMP de sortie ASP
[2005-03-0612: 04: 25 | Auteur: Flashsoft]
Taille de la police: grand | Medium | Petit
<%
Callcom_creatValidCode ("validcode")
Subcom_creatvalidcode (psn)
'Auteur: Layen
'QQ: 84815733
'E-mail: [email protected]
'Pas de mise en cache
Response.expires = -9999
Response.Addheader "Pragma", "No-Cache"
Réponse.addheader "cache-ctrol", "no-cache"
Response.ContentType = "Image / BMP"
Randomiser
Dimi, II, III
Constcodds = 8 'la probabilité de places diverses apparaissant
Constcamount = 36'mbumber de texte
Constccode = "0123456789abcdefghijklmnopqrstuvwxyz"
'Données de couleur (caractères, arrière-plan)
Dimvcolordata (1)
vColordata (0) = chrb (0) & chrb (0) & chrb (0) 'bleu 0, vert 0, rouge 0 (noir)
VColordata (1) = Chrb (250) & Chrb (236) & Chrb (211) 'Blue 250, Green 236, rouge 211 (bleu clair)
'Caractères générés au hasard
Dimvcode (4), vcodes
Fori = 0to3
vCode (i) = int (rnd * camount)
vcodes = vcodes et mid (ccode, vcode (i) +1,1)
Suivant
Session (PSN) = enregistrement de Vcodes en session
'Données de caractère
Dimvnumberdata (35)
VNumberdata (0) = "11100000011111111111111111111111110011111110011111110011111111100111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
vNumberData(1)="111101111111100011111111111111111111011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111100000111"
VNumberdata (2) = "1110000111111111111111111111111111111111111111111111111111111111111111111111111100000011"
VNumberdata (3) = "111000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
VNumberdata (4) = "111111111111111111111111111111111111111111111111111111111111111111000001111111111111111000011"
VNumberdata (5) = "1100000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
VNumberdata (6) = "1111000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
VNumberdata (7) = "11000000111111111111111111111111111111111111111111111111111111111111111111111111111111"
VNumberdata (8) = "1110000001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
VNumberdata (9) = "111000111111111111111111111111111111111111001111000101111111111111111111111111111 0001111"
VNumberdata (10) = "111101111111111111111111111111111111111111111111111111111111111111110000111111111111111111111101100111111"
VNumberdata (11) = "1000000111111111111111111111111111111111111111111000011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"