ASP Ausgang BMP
[2005-03-0612: 04: 25 | Autor: FlashSoft]
Schriftgröße: groß | Medium | Klein
<%
Callcom_creatvalidcode ("validCode")
Subcom_creatvalidcode (PSN)
'Autor: Layen
'QQ: 84815733
E-Mail: [email protected]
'Kein Caching
Response.expires = -9999
Response.addHeader "Pragma", "No-Cache"
Response.addHeader "Cache-Ctrol", "No-Cache"
Antwort.ContentType = "Bild/BMP"
Randomisieren
Dimi, II, III
ConstCodds = 8'Die Wahrscheinlichkeit, dass verschiedene Flecken erscheinen
Constcamount = 36'number des Textes
ConstCcode = "0123456789abcdefghijklmnopqrstuvwxyz"
'Farbdaten (Zeichen, Hintergrund)
Dimvcolordata (1)
vcolordata (0) = chrb (0) & chrb (0) & chrb (0) 'blau 0, grün 0, rot 0 (schwarz)
Vcolordata (1) = CHRB (250) & CHRB (236) & CHRB (211) 'Blue 250, Green 236, Rot 211 (hellblau)
'Zufällig generierte Zeichen
Dimvcode (4), VCodes
Fei = 0to3
vcode (i) = int (rnd*camount)
vcodes = vcodes & Mid (CCODE, VCODE (I) +1,1)
Nächste
Sitzung (PSN) = VCODES 'Datensatz in die Sitzung
'Charakterdaten
DimvnumberData (35)
vnumberData (0) = "1110000111111111111111111111111101111110011111100111111001011111111111111111111111111111111111111111111110000111"
vnumberData (1) = "11111111111111100011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
vnumberData (2) = "1110000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111000011"
VNumberData (3) = "11100001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111001111" "
VNUMBERDATA (4) = "1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111000011"
vnumberData (5) = "1100000011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
vnumberData (6) = "111100011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111110000111"
vnumberData (7) = "110000001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
vnumberData (8) = "111000011111111111111111110111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111001111"
vnumberData (9) = "11100011111111111111111111111111111111111001111111111111111111111111111111111111111111111111111111111111"
VNUMBERDATA (10) = "11110111111111111111111111111111111111111111111111111111111111111111111111111111110011111111111111111111110001001111"
vNumberData(11)="1000000111111011110111101111011110111101111011110111100001111111011111011110111101111011110111101111011110111101111011110111101111011110111000000111"