[求助]如何制作验证码

[B]以下是引用[I]冬冬[/I]在2005-9-10 12:29:13的发言：[/B][BR]
- I; c6 Q3 q+ z9 n, k1 G& i没有明天
4 t5 ]# x% Q7 m7 a0 Q很强啊

其实强人是很多了，哦对不老范[em07][em07][em07]

搜到一个，不晓得是不是你需要的

: Q5 T2 i& O5 G一共4个页面：form.asp; chk.asp; num.asp; count.asp
) N; o: v/ k  G8 s" @: |( C. R9 y得到一个随即数字。加密！
1 @6 }9 x0 ~: a. }6 O' O解密后成成XBM图片
利用session 判断

; ^  t/ s: }5 u$ t  C  pform.asp
<%
& s& e5 X, N3 P. p5 V7 f9 m\'### To encrypt/decrypt include this code in your page
\'### strMyEncryptedString = EncryptString(strString)
! f- v& [0 ~1 ]2 g5 \\'### strMyDecryptedString = DeCryptString(strMyEncryptedString)
\'### You are free to use this code as long as credits remain in place
! q- d3 @8 g6 c  f; L0 ~' k\'### also if you improve this code let me know.

Private Function EncryptString(strString)
- O( C2 k% c7 a: F- ~7 T) Q" J& i0 K\'####################################################################
\'### Crypt Function (C) 2001 by Slavic Kozyuk grindkore@yahoo.com ###
\'### Arguments: strString <--- String you wish to encrypt ###
# H- j4 h( Z8 O& h* A\'### Output: Encrypted HEX string ###
8 ?) A$ G% p, M' U6 l3 `\'####################################################################
5 r  M$ z7 g7 W- P7 m/ A0 }' b5 u
   Dim CharHexSet, intStringLen, strTemp, strRAW, i, intKey, intOffSet
4 w; b/ t7 I$ j. P3 O. f, n7 }8 ^# b   Randomize Timer
1 R: J7 M  [7 c% L% L
   intKey = Round((RND * 1000000) + 1000000) \'##### Key Bitsize
   intOffSet = Round((RND * 1000000) + 1000000) \'##### KeyOffSet Bitsize
1 X3 g; H' G. r; x9 _+ O
   If IsNull(strString) = False Then
4 S+ G7 K, I8 L4 }4 {0 s# @       strRAW = strString
       intStringLen = Len(strRAW)

1 b6 D& y3 `. M; ]7 n6 j. Z       For i = 0 to intStringLen - 1
1 ]1 a+ r  ~$ `% J           strTemp = Left(strRAW, 1)
8 r6 g* O. X+ Z           strRAW = Right(strRAW, Len(strRAW) - 1)
' h# ~; t) e: K3 S4 }8 ?% U9 Y           CharHexSet = CharHexSet & Hex(Asc(strTemp) * intKey)& Hex(intKey)
5 ]: \! `2 D% C! o- `; f2 F       Next
7 t0 y! ~0 n% Z
* `* _2 Q) D2 c; M       EncryptString = CharHexSet & \"|\" & Hex(intOffSet + intKey) & \"|\" & Hex(intOffSet)
   Else
       EncryptString = \"\"
   End If
End Function


5 x; \4 l% l% _2 W, Q" B
Private Function DeCryptString(strCryptString)
8 L4 @' r0 C* F" q* p9 K\'####################################################################
# i6 F: p: Q, d\'### Crypt Function (C) 2001 by Slavic Kozyuk grindkore@yahoo.com ###
\'### Arguments: Encrypted HEX stringt ###
\'### Output: Decrypted ASCII string ###
' j  e4 h1 b( ]: j\'####################################################################
\'### Note this function uses HexConv() and get_hxno() functions ###
" \4 I8 z& O. ^- z! M, F3 {\'### so make sure they are not removed ###
' r/ j. @( K2 b7 B" h\'####################################################################

% N; c! H' A. {4 l+ [   Dim strRAW, arHexCharSet, i, intKey, intOffSet, strRawKey, strHexCrypData
' R! s$ a( A& O6 A# j
   strRawKey = Right(strCryptString, Len(strCryptString) - InStr(strCryptString, \"|\"))
   intOffSet = Right(strRawKey, Len(strRawKey) - InStr(strRawKey,\"|\"))
   intKey = HexConv(Left(strRawKey, InStr(strRawKey, \"|\") - 1)) - HexConv(intOffSet)
   strHexCrypData = Left(strCryptString, Len(strCryptString) - (Len(strRawKey) + 1))
. w% t# J5 N8 o- t! C$ A& E0 w
" M1 b. w7 X# ?# F   arHexCharSet = Split(strHexCrypData, Hex(intKey))
$ W7 B% s: p4 w* @% \$ {
1 V; E- d9 m# p* @7 t. [& M   For i=0 to UBound(arHexCharSet)
7 W) t% }0 l( j9 a$ O- q- G' R2 e       strRAW = strRAW & Chr(HexConv(arHexCharSet(i))/intKey)
   Next

4 @  @+ c6 q9 Q6 d0 t( r, s9 M   DeCryptString = strRAW
4 Y2 @9 @2 r1 m5 jEnd Function
' T0 q2 E. N9 @0 E) s
) U8 J: e/ q( \5 U0 \. X  T6 t; W/ J
9 f0 Z: W8 \1 g5 S) lPrivate Function HexConv(hexVar)
/ }$ B' ]' H; g   Dim hxx, hxx_var, multiply
2 v) T& r2 {5 K3 ^7 E) L" V   IF hexVar <> \"\" THEN
3 [/ ?) g& t5 g9 Z" X' O5 y: y! Z2 S       hexVar = UCASE(hexVar)
1 Q) N# |3 M4 l' n% R1 G       hexVar = StrReverse(hexVar)
       DIM hx()
       REDIM hx(LEN(hexVar))
       hxx = 0
9 ?( w, y$ w+ k0 {& S- d       hxx_var = 0
6 g2 D: {3 @- v       FOR hxx = 1 TO LEN(hexVar)
           IF multiply = \"\" THEN multiply = 1
           hx(hxx) = mid(hexVar,hxx,1)
( x3 t( F2 m4 B2 X7 B8 b' S' s. `           hxx_var = (get_hxno(hx(hxx)) * multiply) + hxx_var
4 c" Q- v$ N$ \; ~' c' h, y           multiply = (multiply * 16)
       NEXT
! w. Q5 Q; {1 R/ ]% Y       hexVar = hxx_var
       HexConv = hexVar
   END IF
End Function
: ~2 e% M. Z0 q. G. \& P$ I
! m% m+ K; ?7 F2 p2 U" ^; yPrivate Function get_hxno(ghx)
   If ghx = \"A\" Then
; J; @; _+ T5 @0 K3 \" d8 ]       ghx = 10
   ElseIf ghx = \"B\" Then
       ghx = 11
   ElseIf ghx = \"C\" Then
       ghx = 12
   ElseIf ghx = \"D\" Then
( P* Z  v2 @# e# z' t3 r$ }       ghx = 13
   ElseIf ghx = \"E\" Then
/ X" b( A# K, V- j: w       ghx = 14
   ElseIf ghx = \"F\" Then
: }  L% ?" T1 r$ [       ghx = 15
6 A9 S9 z! m6 {- }2 S6 B   End If
   get_hxno = ghx
End Function
$ W' X) c6 @! H$ q: |%>

3 l( I8 V% ~3 {8 j* m* Y! b' ~<%
randomize
) l; b" Z8 X- A9 knum = int(7999*rnd+2000) \'计数器的值
' s* D2 o' C5 M5 Gnum2 = EncryptString(num)
" r# F; R+ Y+ c6 k! P9 t9 \) Bsession(\"pwdt\")=num
%>
<form action=\"chk.asp\" method=post>
2 b8 t+ x2 |3 e5 N1 L请输入验证码： <input>
<img src=\"count.asp?sksid=<%=num2%>\"> <input type=submit value=提交>
* C* b" N% J+ [3 a, i! a2 g</form>

chk.asp
<%
% p1 A( N! M6 Rif trim(request.form(\"pwds\"))<>trim(session(\"pwdt\")) then
" ~0 }9 P# R, T%>
输入错误： 应该为：<%=session(\"pwdt\")%>，可你输入的是:<%=request.form(\"pwds\")%>
7 _4 L' o) T6 e! o* y9 x# S<%
) R9 E$ l/ e1 k2 k6 Y% L2 ~else
%>
输入正确
+ o; v/ N- O0 o/ c, L<%end if%>
1 q' Z8 E) ?& J: G5 r
! E! z+ j: R/ \. D) X2 Bcount.asp
<!--#include file=\"num.asp\"-->
" a+ q9 N. m9 Y3 k7 c* ]- r% O! \<%
) q7 h3 U; u& Q$ B( Z5 `4 V8 f  {\'### To encrypt/decrypt include this code in your page
4 \2 f  B- Q3 J) r3 m( Q0 U\'### strMyEncryptedString = EncryptString(strString)
) E/ W. ?: |4 \4 ?: b\'### strMyDecryptedString = DeCryptString(strMyEncryptedString)
\'### You are free to use this code as long as credits remain in place
6 D' N; ~5 V8 ]" g: J$ Z\'### also if you improve this code let me know.

% \7 w2 R1 o; w, r7 q& ?8 m3 DPrivate Function EncryptString(strString)
\'####################################################################
5 K- ?, D0 O8 X+ s! d4 p\'### Crypt Function (C) 2001 by Slavic Kozyuk grindkore@yahoo.com ###
2 o- n, v' d) F7 |\'### Arguments: strString <--- String you wish to encrypt ###
) i3 H4 `. y9 D2 v" C( Y1 c\'### Output: Encrypted HEX string ###
+ T4 U3 V: ?5 X* u$ a/ T0 \+ }\'####################################################################
0 u( M  n  ]4 G+ W
   Dim CharHexSet, intStringLen, strTemp, strRAW, i, intKey, intOffSet
   Randomize Timer
8 W4 g$ g1 `+ j. l* s5 W( O
% a6 c& S" B  w   intKey = Round((RND * 1000000) + 1000000) \'##### Key Bitsize
   intOffSet = Round((RND * 1000000) + 1000000) \'##### KeyOffSet Bitsize

   If IsNull(strString) = False Then
       strRAW = strString
7 n) @- p" D9 A! ~- M0 |       intStringLen = Len(strRAW)

; M3 B& V, W4 ~! p" D       For i = 0 to intStringLen - 1
1 k4 \/ n8 n& j( q( A: N( d7 V' G           strTemp = Left(strRAW, 1)
           strRAW = Right(strRAW, Len(strRAW) - 1)
           CharHexSet = CharHexSet & Hex(Asc(strTemp) * intKey)& Hex(intKey)
       Next
( b- u  l$ S6 {% d/ f: k
$ [, J6 m- ?1 `0 A' y* j0 W       EncryptString = CharHexSet & \"|\" & Hex(intOffSet + intKey) & \"|\" & Hex(intOffSet)
+ K7 {! [8 _9 X/ q2 h   Else
       EncryptString = \"\"
   End If
$ {$ z0 ]- l; \- b2 c" Z9 J# j3 h5 uEnd Function


Private Function DeCryptString(strCryptString)
\'####################################################################
9 t3 O4 l, W5 J8 C, V- G! Z& ]\'### Crypt Function (C) 2001 by Slavic Kozyuk grindkore@yahoo.com ###
\'### Arguments: Encrypted HEX stringt ###
4 J" [# r. C( N2 S/ V\'### Output: Decrypted ASCII string ###
% D/ ]7 {: p4 l& N" D" C( p\'####################################################################
( u+ R- E9 q2 a& X\'### Note this function uses HexConv() and get_hxno() functions ###
8 D* ^& B# o0 t' G# f. q4 e\'### so make sure they are not removed ###
\'####################################################################

   Dim strRAW, arHexCharSet, i, intKey, intOffSet, strRawKey, strHexCrypData
; E+ m/ U8 k0 M! g8 O3 H3 q1 U
   strRawKey = Right(strCryptString, Len(strCryptString) - InStr(strCryptString, \"|\"))
3 m) L& o1 f8 k   intOffSet = Right(strRawKey, Len(strRawKey) - InStr(strRawKey,\"|\"))
8 ]( O+ y8 \$ J8 W4 r6 h   intKey = HexConv(Left(strRawKey, InStr(strRawKey, \"|\") - 1)) - HexConv(intOffSet)
7 l5 c' {& d5 B. F/ q   strHexCrypData = Left(strCryptString, Len(strCryptString) - (Len(strRawKey) + 1))

   arHexCharSet = Split(strHexCrypData, Hex(intKey))
. k6 C6 j" j( W
   For i=0 to UBound(arHexCharSet)
' A) }1 O1 }+ c) A# W/ r       strRAW = strRAW & Chr(HexConv(arHexCharSet(i))/intKey)
6 @( h# J: D6 x   Next
6 [( W, h8 B. {* ~# X- V" C
   DeCryptString = strRAW
End Function

/ d7 s5 J6 ^8 f1 A; ?) _' Z
, B$ o* _8 W8 Q- q7 Z9 c5 cPrivate Function HexConv(hexVar)
   Dim hxx, hxx_var, multiply
3 Z" A$ k5 i1 K   IF hexVar <> \"\" THEN
       hexVar = UCASE(hexVar)
       hexVar = StrReverse(hexVar)
$ @/ ]9 ^8 H- J) {1 w* e       DIM hx()
       REDIM hx(LEN(hexVar))
       hxx = 0
       hxx_var = 0
       FOR hxx = 1 TO LEN(hexVar)
           IF multiply = \"\" THEN multiply = 1
, U' m, W% {/ s* |$ @+ K           hx(hxx) = mid(hexVar,hxx,1)
           hxx_var = (get_hxno(hx(hxx)) * multiply) + hxx_var
           multiply = (multiply * 16)
& E1 Q: R8 L- A# q' g       NEXT
8 U7 }, A% r1 x4 |       hexVar = hxx_var
/ g: t( K7 z) K- J, H! G       HexConv = hexVar
% m1 ?; c- b7 r. ]  B   END IF
End Function
# C% F3 C0 k8 N) S4 n' f
Private Function get_hxno(ghx)
0 _8 D& t) D7 n$ t7 S) p3 i5 |   If ghx = \"A\" Then
       ghx = 10
7 c. V/ K1 F6 {+ p   ElseIf ghx = \"B\" Then
       ghx = 11
0 G  Z2 B7 D  u3 d0 P! T, c   ElseIf ghx = \"C\" Then
7 j3 R7 ?, ~3 v/ ^6 R       ghx = 12
   ElseIf ghx = \"D\" Then
       ghx = 13
   ElseIf ghx = \"E\" Then
" m3 S: L- P8 F       ghx = 14
( X: Y, S% `2 Z. N  t   ElseIf ghx = \"F\" Then
7 q1 O4 K: t1 }* V, ^       ghx = 15
   End If
   get_hxno = ghx
; O% v# L9 R3 p. s* yEnd Function
%>

9 w$ x" k2 A' \6 y. m: J
' T% b2 l$ X! ?5 o$ L, F1 }, h* F, f<%
Dim Image
* i2 J9 ~" G  |5 Z' YDim Width, Height
+ q; {; w- x- V. ]: W/ h7 N' PDim num
Dim digtal
4 Y: L7 i' z* e- p4 u2 n+ }0 vDim Length
4 i; o  t! w$ U0 Y+ KDim sort
) Z% I1 w5 n. b6 X8 P3 b* [* m1 ]Length = 4 \'自定计数器长度

Redim sort( Length )
& G. r1 a! F3 {7 @( g
num=cint(DeCryptString(request.querystring(\"sksid\")))
digital = \"\"
; G  g( Q: q0 R; fFor I = 1 To Length -Len( num ) \'补0
   digital = digital & \"0\"
Next
% G2 e# ~. V( U* P# dFor I = 1 To Len( num )
   digital = digital & Mid( num, I, 1 )
& `7 }6 l. z0 l  e' J" L& U3 pNext
2 L# m* @3 W/ w* p2 C* U- C' ^; R) e' TFor I = 1 To Len( digital )
$ y% Z& ?: ]+ t. s9 H0 V& P   sort(I) = Mid( digital, I, 1 )
Next
Width = 8 * Len( digital ) \'图像的宽度
Height = 10 \'图像的高度，在本例中为固定值

Response.ContentType=\"image/x-xbitmap\"
! ]5 p# V! M/ K$ x
6 `) n* W" X, a1 c$ z: F0 uhc=chr(13) & chr(10)

Image = \"#define counter_width \" & Width & hc
Image = Image & \"#define counter_height \" & Height & hc
! E) f; \7 X% ]' M3 s  ~- s7 LImage = Image & \"static unsigned char counter_bits[]={\" & hc

; X* \3 W. ]* B; d3 kFor I = 1 To Height
' v! D' `; ^2 d6 g3 E& a4 z   For J = 1 To Length
       Image = Image & a(sort(J),I) & \",\"
   Next
Next

Image = Left( Image, Len( Image ) - 1 ) \'去掉最后一个逗号
Image = Image & \"};\" & hc
%>
: P- Q2 O6 b5 z; s6 `<%
Response.Write Image
+ M: o: N- U  W' y5 _* V%>

) c" }9 K/ D; q5 rnum.asp
' \' U! @( j6 R7 \5 R6 d- \7 X$ F<%
Dim a(10,10)
* B0 n5 f6 E) k7 j+ Z6 x2 m
a(0,1) = \"0x3c\" \'数字0
a(0,2) = \"0x66\"
a(0,3) = \"0xc3\"
& M  e6 }0 w, n' P9 La(0,4) = \"0xc3\"
a(0,5) = \"0xc3\"
# o2 C9 N' X: i) ?a(0,6) = \"0xc3\"
- @* o" L/ j: Q* {1 ha(0,7) = \"0xc3\"
! ~/ v/ V# a% |6 `% r1 O* oa(0,8) = \"0xc3\"
a(0,9) = \"0x66\"
a(0,10)= \"0x3c\"
9 N3 E0 t# {! _( x) \* L! K6 U- R
* ~) W* }! B, o3 V+ m$ W* Ga(1,1) = \"0x18\" \'数字1
/ [' i, F9 ?" p! C; H4 Aa(1,2) = \"0x1c\"
" H6 \. b. y7 a" d# ea(1,3) = \"0x18\"
a(1,4) = \"0x18\"
: Q% l& ]( S0 u8 _+ F; N# ]/ Ja(1,5) = \"0x18\"
  m4 l6 }( U% |# ja(1,6) = \"0x18\"
: w8 _1 s# j! v9 D, p+ @  O: _a(1,7) = \"0x18\"
, W5 R8 E. [! g3 m6 \a(1,8) = \"0x18\"
, k# C, m7 V. [4 h% D& q' [9 ?6 M8 la(1,9) = \"0x18\"
a(0,10)= \"0x7e\"
: u" _2 |9 c+ d2 }
% \- I8 l9 _1 k- _; t* @+ ?
a(2,1) = \"0x3c\" \'数字2
4 \  m5 K/ j* u$ i4 }6 q& K0 aa(2,2) = \"0x66\"
; l( t( p9 |! O4 c- {" N2 na(2,3) = \"0x60\"
a(2,4) = \"0x60\"
0 I- h/ U+ q. }; S( F8 r) ^( ca(2,5) = \"0x30\"
: \8 g& p( Q2 z$ o, i) {6 ?  [3 p: Za(2,6) = \"0x18\"
a(2,7) = \"0x0c\"
2 w- W' f1 e/ {  l5 ga(2,8) = \"0x06\"
a(2,9) = \"0x06\"
' A% Q$ v; c0 R" Q6 Y4 ra(2,10)= \"0x7e\"

a(3,1) = \"0x3c\" \'数字3
a(3,2) = \"0x66\"
2 D0 J. c" S9 m6 pa(3,3) = \"0xc0\"
a(3,4) = \"0x60\"
& ]  N* O' C9 |" \  j1 da(3,5) = \"0x1c\"
" ?& l' X5 C" B" D  |a(3,6) = \"0x60\"
a(3,7) = \"0xc0\"
a(3,8) = \"0xc0\"
- E. e$ t$ j7 {% X+ x! ^4 ~5 [0 ha(3,9) = \"0x66\"
5 ?& g; B! u# Y8 n$ pa(3,10)= \"0x38\"
6 @; ]2 I, ^- O, _
3 G/ C( X* M5 S1 A* p6 Ta(4,1) = \"0x38\" \'数字4
a(4,2) = \"0x3c\"
  ]! {* ~! \7 b: R& |a(4,3) = \"0x36\"
! G  ]; ^4 u6 W7 ha(4,4) = \"0x33\"
' c3 }2 `& J4 W& R2 ga(4,5) = \"0x33\"
a(4,6) = \"0x33\"
a(4,7) = \"0xff\"
a(4,8) = \"0x30\"
) F1 b' a  K6 m  [$ R4 N  Pa(4,9) = \"0x30\"
a(4,10)= \"0xfe\"

a(5,1) = \"0xfe\" \'数字5
3 ]9 N$ K& L: ]3 e: p, y8 sa(5,2) = \"0xfe\"
9 S* |- ?! S5 H% p* B1 q5 Sa(5,3) = \"0x06\"
+ {0 U9 m& q- r/ v% X: Na(5,4) = \"0x06\"
% {" r8 j- L3 e* K% b$ Ua(5,5) = \"0x3e\"
" n+ L! B8 m1 `% |a(5,6) = \"0x60\"
a(5,7) = \"0xc0\"
a(5,8) = \"0xc3\"
a(5,9) = \"0x66\"
  a9 t. U$ Z7 D$ R/ B9 ^( r1 i- Ea(5,10)= \"0x3c\"

' ], A% K0 G0 A; \0 \a(6,1) = \"0x60\" \'数字6
4 J7 A/ q& P1 Ia(6,2) = \"0x30\"
a(6,3) = \"0x18\"
a(6,4) = \"0x0c\"
a(6,5) = \"0x3e\"
a(6,6) = \"0x63\"
0 U) y3 `/ U1 [4 {) k6 q7 na(6,7) = \"0xc3\"
a(6,8) = \"0xc3\"
a(6,9) = \"0x66\"
4 l- b& \: Z3 a' Ra(6,10) =\"0x3c\"

- W$ C& W4 X" ~9 j8 da(7,1) = \"0xff\" \'数字7
a(7,2) = \"0xc0\"
a(7,3) = \"0x60\"
a(7,4) = \"0x30\"
+ N1 T6 A* [. O& F+ X5 B& }. @4 Ka(7,5) = \"0x18\"
a(7,6) = \"0x18\"
a(7,7) = \"0x18\"
5 t; @. H( b4 @  V6 A2 b) E0 `a(7,8) = \"0x18\"
a(7,9) = \"0x18\"
3 J5 M+ E$ \6 \  b. t& ~a(7,10)= \"0x18\"

a(8,1) = \"0x3c\" \'数字8
; A# h. [' e( J& \* i3 w3 ba(8,2) = \"0x66\"
a(8,3) = \"0xc3\"
3 F0 J- ^9 ^! B3 \: \a(8,4) = \"0x66\"
& d" Q4 E1 x. Y0 I5 Q. ca(8,5) = \"0x3c\"
/ n0 [* X, v$ F4 ca(8,6) = \"0x66\"
! ?6 q( O) Q* n- I, l, ]a(8,7) = \"0xc3\"
a(8,8) = \"0xc3\"
5 d, G. o9 }) M2 U! F& _8 F/ ta(8,9) = \"0x66\"
a(8,10)= \"0x3c\"

a(9,1) = \"0x3c\" \'数字9
7 Y5 y! d" V3 ~) sa(9,2) = \"0x66\"
4 O! q  s. k3 v, p  _( m3 T0 b$ Ka(9,3) = \"0xc3\"
a(9,4) = \"0xc3\"
a(9,5) = \"0x66\"
a(9,6) = \"0x3c\"
a(9,7) = \"0x18\"
a(9,8) = \"0x0c\"
a(9,9) = \"0x06\"
a(9,10)= \"0x03\"

  [  V. \7 T+ r, _& f. r' c3 O0 k* m%>

分析动网的就好了.
1 x' x+ V! `3 |1 [$ o给你一下参考代码.
$ o1 U: q6 Z) O  |" B. G4 ybody.fix跟head.fix文件动网内有,
% g' Z" `) e; S- y! O3 |$ p" A把下边代码做成网页.然后用img src=调出来就是了.

<%Response.buffer=true
6 ]2 e2 j0 O  Y' ]1 T+ e  ENumCode
; L: t4 L: H# e5 N  L0 u  dFunction NumCode()
. a6 {$ l' }  E$ Q2 C6 L Response.Expires = -1
8 C: l6 P0 S. R# h+ ~+ C1 h Response.AddHeader \"ragma\",\"no-cache\"
; A3 D4 ~/ a0 N. o# A Response.AddHeader \"cache-ctrol\",\"no-cache\"
On Error Resume Next
Dim zNum,i,j
/ o9 {  {) O* V* B: h1 k5 A  J- h$ l) k Dim Ados,Ados1
Randomize timer
; x, ~% }: ~2 m' H: p- Q zNum = CLng(8999*Rnd+1000)
6 L( N$ B- R9 `; f session(sCode) = zNum
* a! ?& O+ V7 B9 Y( G Dim zimg(4),NStr
: M( k% Y3 N  S: h/ l1 n NStr=cstr(zNum)
For i=0 To 3
: R( H/ D7 ~- y4 E  zimg(i)=CLng(mid(NStr,i+1,1))
3 Q: k2 i5 c# l) A, |* V9 o Next
Dim Pos
$ M( k  R$ z  C4 l% c Set Ados=Server.CreateObject(\"Adodb.Stream\")
, j# {$ k2 T. v. z" F Ados.Mode=3
) A! S  h; P. ^6 L Ados.Type=1
7 R$ D8 z/ l7 h- ]( G5 y0 Q Ados.Open
Set Ados1=Server.CreateObject(\"Adodb.Stream\")
2 T, Z: d, V$ ^, Q  W4 ?8 w: E, S Ados1.Mode=3
% x3 |) Q6 q) z" ? Ados1.Type=1
Ados1.Open
Ados.LoadFromFile(Server.mappath(\"body.Fix\"))
& M3 n0 b2 n0 {. I3 u3 y Ados1.write Ados.read(1280)
For i=0 To 3
  Ados.Position=(9-zimg(i))*320
  Ados1.Position=i*320
+ n9 x$ ~2 g5 [4 z9 r. }  Ados1.write ados.read(320)
Next
( q: E8 @8 }7 T) Y  ^ Ados.LoadFromFile(Server.mappath(\"head.fix\"))
$ N3 ~& Y( j5 \1 c; C, u  a3 Y Pos=lenb(Ados.read())
/ {" m4 t- i2 V9 a, w( V" s, Q Ados.Position=Pos
  x2 e- j0 ]  |1 ?7 a( Z5 ? For i=0 To 9 Step 1
  For j=0 To 3
% M" d9 G3 a7 ]5 o; `   Ados1.Position=i*32+j*320
& u- _, p5 B% D- W   Ados.Position=Pos+30*j+i*120
% Y: t) f  L- _5 o" v" @   Ados.write ados1.read(30)
  Next
% Y- f6 Y; G& o$ X& M, Y Next
Response.ContentType = \"image/BMP\"
' u8 x. ^1 B0 e1 v Ados.Position=0
4 R) _7 i* y) C2 s& E; S4 S; k Response.BinaryWrite Ados.read()
Ados.Close:set Ados=nothing
* V; x9 N1 {- @6 }, W Ados1.Close:set Ados1=nothing
$ o% {% c/ E: s If Err Then session(sCode) = 9999
3 l7 P# V, e) C7 rEnd Function
\'Asp code Created by BlueIdea.COM Web Team V37 2003-7-25
% p2 k* c  E6 r- t  P6 h%>