BMP de saída ASP
[2005-03-0612: 04: 25 | Autor: Flashsoft]
Tamanho da fonte: grande | Médio | Pequeno
<%
CallCom_CreatValidCode ("ValidCode")
Subcom_creatvalidcode (psn)
'Autor: Layen
'QQ: 84815733
'E-mail: [email protected]
'Sem cache
Response.Expires = -9999
Response.addheader "Pragma", "No-Cache"
Response.addheader "cache-ctrol", "sem cache"
Response.ContentType = "Image/BMP"
Randomizar
Dimi, II, III
ConstCodds = 8 'A probabilidade de pontos diversos aparecendo
ConstCamount = 36'Number of texto
ConstCCode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
'Dados coloridos (caracteres, fundo)
Dimvcolordata (1)
vcolordata (0) = chrb (0) e chrb (0) e chrb (0) 'azul 0, verde 0, vermelho 0 (preto)
vcolordata (1) = Chrb (250) e Chrb (236) e Chrb (211) 'Blue 250, Green 236, vermelho 211 (azul claro)
'Caracteres gerados aleatoriamente
Dimvcode (4), vcodes
Fori = 0to3
vcode (i) = int (rnd*counting)
vcodes = vcodes & Mid (ccode, vcode (i) +1,1)
Próximo
Sessão (psn) = registro de vcodes em sessão
Dados dos caracteres
DimvNumberData (35)
vNumberData(0)="111000011111011110111101111011110100101111101001011111010010111110100101111101110111011110111101111011110111101111000111111110111110000111"
vNumberData(1)="111101111111100011111111111111111111011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111100000111"
vNumberData (2) = "1110000001111111111111111111111111111111011111111111111111111111111111111111111111111111111111111111100000011
vNumberData(3)="11100001111110111110111111011111111011111111011111110111111110111111111011111111111011111110111111011111101111110111111011111101111110111110000111"
vNumberdata (4) = "11111111111111111111111111111111111111111111111111111111111111111111111111111111111110000011111111111111111111000011
vNumberData(5)="11000000111111111111111110111111111011111101111110111111011111110111111111011111111011111110111111011111101111110111111011111101111110111111000111"
vNumberData(6)="11110001111110111110111111111111111101111111110111110111110111110111110111110111110111110111110111110111110111110111110111110111110111110111110000111"
vNumberData (7) = "11000000111101110111111101110111111111111111111111111111111111111111111111111111111111111111111111111111111111"
vNumberData(8)="11100001111101111011110111101111011110111101111011110111100011111110111101111011111011110111110111110111110111110111110111110111110111110111110000111"
vNumberData (9) = "1110001111111111111111011111111111111111111111111111111100010111111111111111111111111111111111111000111111111111111111111111111111111111111000111111
vNumberData (10) = "111101111111111101111111111111111111111111111111111111111111111111111111111111111111000011111111111111111111111111111001111111"
vNumberData(11)="1000000111111011110111101111011110111101111011110111100001111111011111011110111101111011110111101111011110111101111011110111101111011110111000000111"