Выход ASP BMP
[2005-03-0612: 04: 25 | Автор: Flashsoft]
Размер шрифта: большой | Средний | Маленький
<%
Callcom_creatvalidcode ("ValdCode")
Subcom_creatvalidcode (psn)
Автор: Layen
'QQ: 84815733
'E-mail: [email protected]
'Нет кэширования
Response.expires = -9999
Ответ.
Ответ.
Response.contenttype = "Image/bmp"
Рандомизировать
DiMi, II, III
Constcodds = 8' -вероятность появления разных пятен
Constcamount = 36' -number of text
Constccode = "0123456789abcdefghijklmnopqrstuvwxyz"
'Цветные данные (символы, фон)
Dimvcolordata (1)
vcolordata (0) = chrb (0) & chrb (0) & chrb (0) 'синий 0, зеленый 0, красный 0 (черный)
vcolordata (1) = Chrb (250) и Chrb (236) и Chrb (211) 'Blue 250, Green 236, Red 211 (светло -голубой)
'Случайно сгенерированные символы
DimVCode (4), VCODES
Fori = 0to3
vcode (i) = int (rnd*camount)
vcodes = vcodes & mid (ccode, vcode (i) +1,1)
Следующий
Session (PSN) = запись VCODES в сеанс
'Данные символов
DimvnumberData (35)
vnumberdata (0) = "11100001111111111111111111111110111111111011111111111011111111111011111111111111111111 собой.
vNumberData(1)="111101111111100011111111111111111111011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111100000111"
vNumberData(2)="1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"
vNumberData(3)="11100001111110111110111111011111111011111111011111110111111110111111111011111111111011111110111111011111101111110111111011111101111110111110000111"
vnumberdata (4) = "11111111111111111111111111111111111111111111111111111111111111100001111111Я1111111111111111111111111000001111111111111100001111111111111100000001111111111111Ж1100001111"
vNumberData(5)="11000000111111111111111110111111111011111101111110111111011111110111111111011111111011111110111111011111101111110111111011111101111110111111000111"
vnumberdata (6) = "1111000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111100001111111111111111111111111111111110000111"
vnumberdata (7) = "110000001111111111111111111111111111111111111111111111111111111111111111111111111111111"
vNumberData(8)="11100001111101111011110111101111011110111101111011110111100011111110111101111011111011110111110111110111110111110111110111110111110111110111110000111"
vNumberData(9)="1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"
vnumberdata (10) = "1111011111111111111111111111111111111111111111111111111111111111110000111111111111111111111111111111110011111111111111111111110001111111111100111111111111111111111110001001111111111110011111111111111111 собой.
vnumberdata (11) = "100000000111111111111111111111111111111111111111111111001111111111011111111111111011111111111111111111111111 собой111111111111111111111111111111111111111111111111111 собой.