BMP output ASP
[2005-03-0612: 04: 25 | Penulis: Flashsoft]
Ukuran Font: Besar | Medium | Kecil
<%
CallCom_CreateValidCode ("ValidCode")
Subcom_CreateValidCode (PSN)
'Penulis: Layen
'QQ: 84815733
'E-mail: [email protected]
'Tidak ada caching
Response.expires = -9999
Response.addheader "pragma", "no-cache"
Response.addheader "cache-ctrol", "no-cache"
Response.contentType = "Image/BMP"
Mengacak
Dimi, II, III
Constcodds = 8'babilitas bintik -bintik lain yang muncul
ConstCamount = 36'number of Text
Constccode = "0123456789AbcDefgHijKlMnopQrStuVWxyz"
'Data warna (karakter, latar belakang)
Dimvcolordata (1)
vcolordata (0) = chrb (0) & chrb (0) & chrb (0) 'biru 0, hijau 0, merah 0 (hitam)
vcolordata (1) = chrb (250) & chrb (236) & chrb (211) 'biru 250, hijau 236, merah 211 (biru muda)
'Karakter yang dihasilkan secara acak
DIMVCODE (4), VCODES
Fori = 0to3
vcode (i) = int (rnd*camount)
vcodes = vcode & mid (ccode, vcode (i) +1,1)
Berikutnya
Sesi (psn) = rekaman vcodes ke dalam sesi
'Data karakter
Dimvnumberberdata (35)
vNumberData(0)="111000011111011110111101111011110100101111101001011111010010111110100101111101110111011110111101111011110111101111000111111110111110000111"
vNumberData(1)="111101111111100011111111111111111111011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111100000111"
VNumberberdata (2) = "11100001111111111111111111111111111111111111111111111111111111111111111111111111111111100001111" "
vNumberData(3)="11100001111110111110111111011111111011111111011111110111111110111111111011111111111011111110111111011111101111110111111011111101111110111110000111"
VNumbERData (4) = "1111111111111111111111111111111111111111111111111111111111111111111111111100000.000111111111111111111111110011" "
vNumberData(5)="11000000111111111111111110111111111011111101111110111111011111110111111111011111111011111110111111011111101111110111111011111101111110111111000111"
vNumberData(6)="11110001111110111110111111111111111101111111110111110111110111110111110111110111110111110111110111110111110111110111110111110111110111110111110000111"
VNumberberdata (7) = "11000000001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111" ""
vNumberData(8)="11100001111101111011110111101111011110111101111011110111100011111110111101111011111011110111110111110111110111110111110111110111110111110111110000111"
VNumberberdata (9) = "11100011111110111011101111111111111111111111110011111011111111111111111111111111111111111.0001111" ""
VNumberberdata (10) = "1111011111111111111111111111111111111111111111111111111111111111111111111100111111111111111111111111111.000111111111
vNumberData(11)="1000000111111011110111101111011110111101111011110111100001111111011111011110111101111011110111101111011110111101111011110111101111011110111000000111"