Salida ASP BMP
[2005-03-0612: 04: 25 | Autor: FlashSoft]
Tamaño de fuente: grande | Medio | Pequeño
<%
Callcom_creatValidCode ("validCode")
Subcom_creatValidCode (PSN)
'Autor: Layen
'QQ: 84815733
'Correo electrónico: [email protected]
'No almacenado en caché
Respuesta.expires = -9999
Respuesta.AddHeader "Pragma", "No-Cache"
Respuesta.AddHeader "Cache-Ctrol", "No-Cache"
Respuesta.ContentType = "Image/BMP"
Aleatorizar
Dimi, II, III
Constcodds = 8'El Probabilidad de que aparezcan manchas misceláneas
Constcamount = 36'Number of Text
Constccode = "0123456789abcdefghijklmnopqrstuvwxyz"
'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 (250) y CHRB (236) y CHRB (211) 'Azul 250, verde 236, rojo 211 (azul claro)
'Caracteres generados al azar
Dimvcode (4), Vcodes
Fori = 0to3
Vcode (i) = int (rnd*Camount)
Vcodes = VCodes & Mid (Ccode, Vcode (i) +1,1)
Próximo
Session (PSN) = VCodes 'Registro en la sesión
'Datos de personajes
Dimvnumberdata (35)
vnumberData (0) = "1110000111111111011110111101111010010111111101001011111010010111010010111110111011110111101111011110111111111111111111111111100100111"
vnumberData (1) = "111101111111100011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111.
vnumberData (2) = "11100001111111111011110111101111111111111111101111111111111111111101111111101111111111111111100000011"
vnumberData (3) = "111000011111101111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111001001001110011111"
vnumberData (4) = "11111111111111111111111111111111111111111111111111111111111111111111111111111111110000011111111111111111000011"
vnumberData (5) = "11000000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 caer caer111111111111111111111111.
vnumberData (6) = "11110001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111001001110011111001111111"
vnumberData (7) = "11000000111101110111111101111111111111111111111111111110111111111111111111111111111111111111111111111" "
vNumberData(8)="11100001111101111011110111101111011110111101111011110111100011111110111101111011111011110111110111110111110111110111110111110111110111110111110000111"
VNumberData (9) = "111000111111101110111111110111101111011110111001111110001111111111111111111111101111111111000111111"
vnumberData (10) = "11110111111111111111111110111111011111110111111011111111111111111111111111111100001111111111111111011110111111000100111111" "
vNumberData(11)="1000000111111011110111101111011110111101111011110111100001111111011111011110111101111011110111101111011110111101111011110111101111011110111000000111"