Call COM_CREATVALIDCODE ("Validcode")
SUB COM_CREATVALIDCODE (PSN)
'Author: Layen'QQQ: 84815733'E-mail: support@ssaw.net
'Prohibition of cache response.expires = -9999 response.addheader "pragma", "no-cache" response.addheader "cache-ctrol", "no-cache" response.contenttype = "image / bmp"
Randomize
DIM I, II, III
Const Codds = 8 'Miscellaneous Disease Const Camount = 36' Text Quantity const ccode = "0123456789abcdefghijklmnopqrstuvwxyz"
'Color data (character, background) DIM VCOLORDATA (1) vcolordata (0) = chrb (0) & chrb (0) & chrb (0)' Blue 0, Green 0, Red 0 (black) Vcolordata (1) = Chrb (250) & chrb (236) & chrb (211) 'Blue 250, Green 236, Red 211 (Light Blue)
'Random character DIM VCODE (4), vcodesfor i = 0 to 3 vcode (i) = int (rND * camount) vcodes = vcodes & mid (ccode, vcode (i) 1, 1) Next
Session (PSN) = vcodes' records Session
'Data characters Dim vNumberData (35) vNumberData (0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111" vNumberData (1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111" vNumberData (2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011" vNumberData (3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111" vNumberData (4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011" vNumberData (5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111" vNumberData (6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111" vNumberData (7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111" vNumberData (8) = "1110 000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111 "vNumberData (9) =" 1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111 "vNumberData (10) =" 1111011111111101111111101011111110101111111010111111101011111100000111110111011111011101111000100011 "vNumberData (11) =" 1000000111110111101111011110111101110111110000111111011101111101111011110111101111011110111000000111 "vNumberData (12) =" 1110000011110111101110111110111011111111101111111110111111111011111111101111101111011101111110001111 "
vNumberData (13) = "1000001111110111011111011110111101111011110111101111011110111101111011110111101111011101111000001111" vNumberData (14) = "1000000111110111101111011011111101101111110000111111011011111101101111110111111111011110111000000111" vNumberData (15) = "1000000111110111101111011011111101101111110000111111011011111101101111110111111111011111111000111111" vNumberData (16) = "1110000111110111011110111101111011111111101111111110111111111011100011101111011111011101111110001111" vNumberData (17) = "1000100011110111011111011101111101110111110000011111011101111101110111110111011111011101111000100011" vNumberData (18) = "1100000111111101111111110111111111011111111101111111110111111111011111111101111111110111111100000111" vNumberData ( 19) = "1110000011111110111111111011111111101111111110111111111011111111101111111110111110111011111000011111" vNumberData (20) = "1000100011110111011111011011111101011111110001111111010111111101101111110110111111011101111000100011" vNumberData (21) = "100011111111011111111 1011111111101111111110111111111011111111101111111110111111111011110111000000011 "vNumberData (22) =" 1000100011110010011111001001111100100111110101011111010101111101010111110101011111010101111001010011 "vNumberData (23) =" 1000100011110011011111001101111101010111110101011111010101111101100111110110011111011001111000110111 "vNumberData (24) =" 1110001111110111011110111110111011111011101111101110111110111011111011101111101111011101111110001111 "vNumberData (25) =" 1000000111110111101111011110111101111011110000011111011111111101111111110111111111011111111000111111 "vNumberData (26) ="
1110001111110111011110111110111011111011101111101110111110111011111011101001101111011001111110001011 "vNumberData (27) =" 1000001111110111011111011101111101110111110000111111010111111101101111110110111111011101111000110011 "vNumberData (28) =" 1110000011110111101111011110111101111111111001111111111001111111111011110111101111011110111100000111 "vNumberData (29) =" 1000000011101101101111110111111111011111111101111111110111111111011111111101111111110111111110001111 "vNumberData (30) =" 1000100011110111011111011101111101110111110111011111011101111101110111110111011111011101111110001111 "vNumberData (31) =" 1000100011110111011111011101111101110111111010111111101011111110101111111010111111110111111111011111 "vNumberData (32) =" 1001010011110101011111010101111101010111110101011111001001111110101111111010111111101011111110101111 " vNumberData (33) = "1000100011110111011111101011111110101111111101111111110111111110101111111010111111011101111000100011" vNumberData (34) = "1000100011110111011111011101111110101111 111010111111110111111111011111111101111111110111111110001111 "vNumberData (35) =" 1100000011110111011111111101111111101111111110111111110111111111011111111011111111101110111100000011 " 'of the output image file header Response.BinaryWrite ChrB (66) & ChrB (77) & ChrB (230) & ChrB (4) & ChrB (0) & ChrB (0) & ChrB ( 0) & chrb (0) & chrb (0) & chrb (54) & chrb (0) & chrb (0) & chrb (0) & chrb (40) & chrb (0) & _ chrb ( 0) & chrb (0) & chrb (40) & chrb (0) & chrb (0) & chrb (0) & chrb (10) & chrb (0) & _ chrb (0) & chrb (0) & chrb ( 1) & chrb (0)
'Output Image Information Head Response.binaryWrite Chrb (24) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (176) & chrb (4) & _ chrb ( 0) & chrb (0) & chrb (18) & chrb (11) & chrb (0) & chrb (0) & chrb (18) & chrb (11) & _ chrb (0) & chrb (0) & chrb ( 0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & _ chrb (0) & chrb (0) for i = 9 to 0 step -1 'passing through For ii = 0 to 3 'passing through all words for III = 1 to 10' passing through all pixels 'progressive, typed, pixel output image data IF rND * 99 1 End Sub
