验证码的程序及原理

##### 版权所有 转载请保留 谢谢合作 & ^" N4 H* R- C& U/ U8 ?
##### 部分程序取自网络 3 e  n' r! p" U6 r* [7 t% O
##### 作者：扬子 + U, w7 v3 B' E( g
##### Email: yangzinet@hotmail.com + o5 e: S* @, ?3 N7 b' k5 `
##### QQ: 21112856
5 t) k7 k5 }) T$ X2 Y##### WebSite: www.tingfo.net
* d6 z9 B1 i) v, t. h) t9 N0 Z' U+ Y9 J% z% |/ d8 j' G3 d* L
  
7 s3 u, u8 j0 D, z* X' e) @9 Y- [2 q4 r1 w* _
  
' W0 Q- H& q+ E8 p1 D: h6 r
0 _7 f. r0 _/ I! ]! l. \( G" m1 m一共4个页面：form.asp; chk.asp; num.asp; count.asp
6 Q+ r& _9 Q" m* Q4 }8 w; @0 _得到一个随即数字。加密！4 q" k# H7 @; X' o& w6 t. U2 L8 d
解密后成成XBM图片
5 d, Z  q9 Q$ P8 e6 j" l9 q利用session 判断  
+ X% O/ }( X6 c& d; ]: ]) \2 P, E$ K/ w. P! Q7 a
form.asp  
8 v9 G% ~+ S. g  _0 p
! e% E8 `8 M' M' P( A: R3 |  i. V1 b, {7 m1 A* {. U8 N
%/ q7 |1 n- H1 I# d' d' s; F
'### To encrypt/decrypt include this code in your page
8 }% h5 a) H4 W2 p' n0 y) A'### strMyEncryptedString = EncryptString(strString)
9 g4 @0 ?4 e1 ^% }9 `'### strMyDecryptedString = DeCryptString(strMyEncryptedString)
" N. q% A- u/ ?' K7 a' ]4 @'### You are free to use this code as long as credits remain in place
8 W1 F6 h1 \9 q6 V+ p'### also if you improve this code let me know.  P( [) t/ l1 V, g9 a

* G- U- r" ?% t% m  c; _Private Function EncryptString(strString)
" b+ s6 f! \  g# V- H2 d'####################################################################7 O. R2 x. I: y: `4 B7 f6 w, I
'### Crypt Function (C) 2001 by Slavic Kozyuk grindkore@yahoo.com ###! F8 z' F& U& J0 B. z
'### Arguments: strString --- String you wish to encrypt ###
3 \7 g3 _* ^( F5 t'### Output: Encrypted HEX string ###2 u3 [8 \4 b" }  {. ?
'####################################################################2 P) r+ |" o3 a" [/ V* N7 N
- @" s8 ?" D8 Q0 J, T7 f$ `$ }
Dim CharHexSet, intStringLen, strTemp, strRAW, i, intKey, intOffSet: [; U& x$ W) I+ Z; l5 q
Randomize Timer
5 n4 F3 i! C/ T1 C/ `5 L1 E1 D& |
5 X% w6 Q, L4 O* z  v& T  |intKey = Round((RND * 1000000)   1000000) '##### Key Bitsize
" \6 k8 b! R' C/ ~8 BintOffSet = Round((RND * 1000000)   1000000) '##### KeyOffSet Bitsize
/ x8 O+ ]% W2 T4 j* k/ n
% I/ Q& ~8 p9 A' v! X! jIf IsNull(strString) = False Then! Y# h: b9 E' y3 y7 T7 ?+ R. B
strRAW = strString; M& `! c4 Q3 X8 d# n
intStringLen = Len(strRAW)% T5 f7 K; w7 X! K& i1 L9 {$ l

& |+ Y" K$ m! z8 nFor i = 0 to intStringLen - 1
- p, y4 T# N3 \0 p( w  hstrTemp = Left(strRAW, 1)
: u* y! u8 m/ Z; z) X0 ~' FstrRAW = Right(strRAW, Len(strRAW) - 1)
4 G$ [; b) z7 v! z8 Y7 \CharHexSet = CharHexSet  Hex(Asc(strTemp) * intKey) Hex(intKey)& w! ^5 S5 t. U6 _4 ]
Next
6 O: e* b& N3 w2 R2 L
9 j! |: ]% k0 U0 J/ _EncryptString = CharHexSet  "|"  Hex(intOffSet   intKey)  "|"  Hex(intOffSet)% t% n( q3 o3 T. j7 b
Else$ g% m  }2 R4 R% R3 N) L
EncryptString = ""
. |- [, \# A+ K( v! ]: U' QEnd If
& ~$ S( H& A) X; n' K5 \2 oEnd Function' T  j0 d  L: V, ?5 N# n' C" I

: \7 U7 V; x6 t: ~$ X* d( Y9 J8 }3 I* }
( X9 Z. U4 {. ^# Z/ g; `

1 p- N5 h* v, @7 y- M8 A  e' sPrivate Function DeCryptString(strCryptString)# T1 U5 K' F4 [6 O0 _; K
'####################################################################
: [$ y5 T* ?9 x1 _, Q0 \# {'### Crypt Function (C) 2001 by Slavic Kozyuk grindkore@yahoo.com ###: V$ `, S# G$ v& B, Q/ s! @
'### Arguments: Encrypted HEX stringt ###" y2 ^0 B! f1 D& c2 E; m8 m# O. W2 M
'### Output: Decrypted ASCII string ###
8 y7 E$ X) O3 O( L3 d9 l'####################################################################
& g& Z# n6 x8 f8 Q'### Note this function uses HexConv() and get_hxno() functions ###
) U8 X3 i( m- `% m9 R! o8 g. t% s'### so make sure they are not removed ###9 g* j+ }$ V: Y: m% M
'####################################################################- B! D9 p! }+ q0 d+ H; t4 m

8 ]5 G" x/ v- D" kDim strRAW, arHexCharSet, i, intKey, intOffSet, strRawKey, strHexCrypData7 u8 P  p* x: Q1 _! y
* u! K' J, D6 C9 i1 W: r

9 {8 c& T* O6 C0 y5 MstrRawKey = Right(strCryptString, Len(strCryptString) - InStr(strCryptString, "|"))
& c4 j/ O- t! e8 D  hintOffSet = Right(strRawKey, Len(strRawKey) - InStr(strRawKey,"|")); R. W9 F+ B% K8 x% F
intKey = HexConv(Left(strRawKey, InStr(strRawKey, "|") - 1)) - HexConv(intOffSet)
1 {; K! P/ @- S+ v  ostrHexCrypData = Left(strCryptString, Len(strCryptString) - (Len(strRawKey)   1))  j7 v. R) h3 T. G( b

5 |& [, G( J2 I1 }" d: p
5 Y$ e; f9 n4 a* ]: JarHexCharSet = Split(strHexCrypData, Hex(intKey))9 O3 G3 _+ r3 I, Z0 t
5 ^( ?; W8 W, ]- {5 z' M% k7 Y
For i=0 to UBound(arHexCharSet)% {& p1 J/ {: t& `" H# b8 H
strRAW = strRAW  Chr(HexConv(arHexCharSet(i))/intKey)
0 K0 T! q6 G( B( d) y: s6 m! ^Next
. n& i; @5 i/ `' B7 q# S- f8 n( r" S5 Z! T* \8 m+ i5 D/ l
DeCryptString = strRAW
) v) W$ r; M4 S, {7 D/ M9 EEnd Function0 `1 o: @; e! ^) e2 y. A: S
. t% n& c& {; j, B; l8 U7 h! r
' _, P; x2 N; \' D
9 u# c4 i# J/ W' G9 ]7 d
Private Function HexConv(hexVar)
0 W7 S; z5 [( u2 X5 WDim hxx, hxx_var, multiply 1 a& Y8 Q7 P' }* \' }' a
IF hexVar  "" THEN
! a& B# k) L, ChexVar = UCASE(hexVar)$ u4 U+ X: O) R1 @1 M
hexVar = StrReverse(hexVar)  T% ^4 w2 {+ z9 c' m, Y
DIM hx()
% d/ {6 ?" L% V7 m$ K9 YREDIM hx(LEN(hexVar))
( _, W. A3 U1 h- Y+ ]0 H5 C7 ihxx = 0; e2 d5 M1 o7 F  h
hxx_var = 0
: G8 t& L! w) T) C$ s, C9 `FOR hxx = 1 TO LEN(hexVar): C  T; i8 @# p( n0 K7 n
IF multiply = "" THEN multiply = 1
% C1 I8 f# Z4 X' j- l* C- Y7 whx(hxx) = mid(hexVar,hxx,1)1 i- T# S  b! n) N+ C: v
hxx_var = (get_hxno(hx(hxx)) * multiply)   hxx_var
+ S6 W( n5 m# ]) {" w% k( smultiply = (multiply * 16)% p) R& b: l; Y8 u
NEXT
! q. p6 n" M4 @" G& f5 y# GhexVar = hxx_var6 V  x, [& C, T' Q. \
HexConv = hexVar; j1 i. r$ F/ W. v2 D3 y. p; p
END IF! O7 J# y4 ^! m9 P. y2 f+ x
End Function
; C$ j% V$ j$ r* y& I4 j( g) V" S7 Z$ A$ g. }+ o9 Y
Private Function get_hxno(ghx)
, C! m) W7 B; `' o! B; IIf ghx = "A" Then. c2 B' N' h+ K- b3 A
ghx = 10
; Q5 ^) M6 I. U$ x; KElseIf ghx = "B" Then* q- u) g( ^% p$ I! n7 O
ghx = 11! r2 _0 X1 h/ D' t8 o  a
ElseIf ghx = "C" Then; _' x! _/ ]# E- [
ghx = 12  {0 s3 v1 I  ^; k. d% O( b; M
ElseIf ghx = "D" Then
! E3 X; S2 x8 ^* m7 C: Tghx = 13+ M8 p! i! T. ?; P* ~. j/ l
ElseIf ghx = "E" Then& B" f) w. x$ _* B
ghx = 14
% l- ~$ l6 o$ j4 I$ jElseIf ghx = "F" Then6 ]" W8 _" t0 {; k( `
ghx = 154 A, o  e' ]2 `: S5 c" L$ y( Z
End If
' K( k1 g0 `. ?$ A/ x0 C; Iget_hxno = ghx. n: s; ~' }6 g. P: E
End Function/ s, C" I9 l* r9 p. W

( Y. v# j! {/ M9 ]5 W2 A7 ~( L: @8 k+ }7 b. Q
%  ) `) A. X3 j( ]

4 @: P/ Z4 v5 A: n4 G/ M) h: R5 h" q
%
1 W- l/ z3 G6 m) Wrandomize
' A3 C3 Z, M& S0 g9 l2 J0 r$ Jnum = int(7999*rnd 2000) '计数器的值8 s. x! R" A  Z- }" y$ A
num2 = EncryptString(num)
/ Y/ }  m7 r2 u  W9 U5 ?$ z! _session("pwdt")=num- f( q2 |  o/ K2 d4 q' V
%
) O. o+ z) H: q; I+ O# e3 Qform action="chk.asp" method=post% \* d! v/ T4 I+ W1 n. @
请输入验证码： input type="text" name="pwds"
8 C. p7 P: g9 s! D- h3 Z5 nimg src="count.asp?sksid=%=num2%" input type=submit value=提交
; h9 Q+ ?2 }! o5 B/ I+ @/form  
  a: x) j/ O0 X1 }
! b( z* X, y) |& V1 Y2 k3 M) @* J3 B( J9 y, D* V
chk.asp' x) H9 x& T* G2 L" H
%6 r" |, \1 l: e2 ?& @; d7 H9 {
if trim(request.form("pwds"))trim(session("pwdt")) then/ v# E5 O  j% V7 }' s+ ?* g
%* b! P# ~9 b3 D# Y9 x
输入错误： 应该为：%=session("pwdt")%，可你输入的是:%=request.form("pwds")%/ I( U" v- W7 f# Z7 F7 ?8 A$ Y
%- h, j& s+ ]9 [/ R/ }2 ^
else
' d& E: H# j4 x) q0 I8 L( }%) Z, B, W  k) e
输入正确6 R1 k1 ?' ?  ]% Q) a
%end if%  ' k) h& F$ h" e  h
) n. B+ c$ y2 q! a
count.asp  / P# q7 d: a. k1 p5 `9 T

' u3 \' l0 }( w/ H$ k) S4 ~!--#include file="num.asp"--  # z9 V' I9 W! M  }" `& ]- N: G

& ~8 _. `8 _0 }/ E/ q! V# z%8 h0 j( q; N6 T/ D& ]
'### To encrypt/decrypt include this code in your page % Y! l0 r- y7 W9 Q% w6 X( R2 {' H
'### strMyEncryptedString = EncryptString(strString)
: c% v6 Q" {/ u. Z'### strMyDecryptedString = DeCryptString(strMyEncryptedString)
' O( ^, q, G: S5 B# @'### You are free to use this code as long as credits remain in place1 ?( _  [1 d# F* I  j& b7 S0 b
'### also if you improve this code let me know.
: m9 ?6 y, t8 P: S- O/ Q! S2 o
0 `* w' W% q: X; @4 r$ u  rPrivate Function EncryptString(strString)
& p1 r7 d% }7 C'####################################################################
) E5 |) T" z7 G/ o! {/ N2 F'### Crypt Function (C) 2001 by Slavic Kozyuk grindkore@yahoo.com ###
( Y7 S& ^9 {- b'### Arguments: strString --- String you wish to encrypt ###
+ N0 \* ^- v8 {'### Output: Encrypted HEX string ###+ S" x! H) F. Q" {+ P
'####################################################################$ s* x" m) @; K" \9 F
# T. Q( C1 _8 u( J+ @
Dim CharHexSet, intStringLen, strTemp, strRAW, i, intKey, intOffSet1 R/ f* H: ?9 F0 x) d
Randomize Timer
8 y  ~9 c/ d7 J1 Y% h/ P$ b. g
3 v! V$ I- i5 h1 rintKey = Round((RND * 1000000)   1000000) '##### Key Bitsize
' |5 j% Z) H& A) q" QintOffSet = Round((RND * 1000000)   1000000) '##### KeyOffSet Bitsize, T" ~5 h9 @, s' t
& G" `# U+ P0 D, Y! N+ T& T$ s4 [
If IsNull(strString) = False Then7 a  M9 {6 V) [+ |! n! p
strRAW = strString2 p$ X/ x' T0 `' M8 E
intStringLen = Len(strRAW)' T$ U$ z: S" N* l$ _; O7 a
# ?5 T! s  G' ]4 z/ R( M$ U
For i = 0 to intStringLen - 1
, }. }% @# O+ Y6 Q% G. ustrTemp = Left(strRAW, 1)
$ u4 d! n( _- O5 e9 ^2 G9 PstrRAW = Right(strRAW, Len(strRAW) - 1)1 u+ v* Z- W) V& e
CharHexSet = CharHexSet  Hex(Asc(strTemp) * intKey) Hex(intKey)4 m$ ?/ q, ^& g. }
Next7 M" e3 O; C" T7 r5 b
) h+ z6 x$ p0 g( B& D" w0 i
EncryptString = CharHexSet  "|"  Hex(intOffSet   intKey)  "|"  Hex(intOffSet)
/ @2 B/ v" I9 T8 _7 ^Else1 `% m- D9 W( a, Y! X7 U6 [
EncryptString = ""  [& X( `7 I  M7 M0 S
End If
$ ~  j. z/ G& y) `& qEnd Function
: x/ v9 N4 M9 \
1 y. Z2 a/ R! I+ k2 M5 [
* D& L4 N6 h: d% `, T( g8 I: @0 _' c2 o1 y  q

: W8 f) V! H* H4 `+ t3 R+ z$ VPrivate Function DeCryptString(strCryptString)
  U& h  ?" K% U6 H'####################################################################+ V& q! P0 w( W7 B/ |2 {
'### Crypt Function (C) 2001 by Slavic Kozyuk grindkore@yahoo.com ###
7 I" R6 l) v* D. _1 n'### Arguments: Encrypted HEX stringt ###- g/ z+ Z- v7 c5 J
'### Output: Decrypted ASCII string ###9 r4 F4 M' n' M  i* |9 K' H
'####################################################################' J  [0 J! G  Q) l2 p1 y
'### Note this function uses HexConv() and get_hxno() functions ###
8 _+ W" F+ o8 Q& d7 N$ P2 K; K9 R'### so make sure they are not removed ###
& C6 T9 T! C! C2 a'####################################################################
( P% ]3 t& s, A+ P/ Z5 s$ h2 `) W/ h: N+ z2 L
Dim strRAW, arHexCharSet, i, intKey, intOffSet, strRawKey, strHexCrypData
" X# b; N  Q# _& {2 I" X. A0 y& o' ]* u
  s8 R8 y- l; i3 x" U1 r0 {8 K
strRawKey = Right(strCryptString, Len(strCryptString) - InStr(strCryptString, "|"))
/ U8 x% C6 f$ F0 H  fintOffSet = Right(strRawKey, Len(strRawKey) - InStr(strRawKey,"|"))3 H) D$ _' Z, d  ^5 f
intKey = HexConv(Left(strRawKey, InStr(strRawKey, "|") - 1)) - HexConv(intOffSet)9 S- d" E- E4 Q
strHexCrypData = Left(strCryptString, Len(strCryptString) - (Len(strRawKey)   1))
" u/ g  z/ M" u, M  e8 d
( A" Z0 c1 S4 N+ c- k% A% P( V! [9 u! `: c. p! Z  U9 o
arHexCharSet = Split(strHexCrypData, Hex(intKey))
. ~$ l: X! s/ g2 U( a# W& _2 A! A! Q! b; z0 I4 P' Q9 Y
For i=0 to UBound(arHexCharSet)9 U* c! f1 I6 ~6 Q: N
strRAW = strRAW  Chr(HexConv(arHexCharSet(i))/intKey)
- J( |1 s9 ]5 w* k4 YNext; c9 U. v6 ]9 _* c
6 e8 Q* S" c' N
DeCryptString = strRAW+ W# U8 E- G' g' P: |, D) j
End Function
) ?0 A4 I3 K" Y. l; u6 ~6 j! F& t& k9 O; @* }) J0 J# k# K

- w- c* l* N  \) I, H$ ?; u( M8 e- @, C' F8 B) L) h
Private Function HexConv(hexVar)
# D6 ?, x' j* S5 F& X& P3 r6 `Dim hxx, hxx_var, multiply
3 [7 D& N0 P1 c; u0 u% ~4 E9 {3 LIF hexVar  "" THEN; U( V; ~! ]4 i: U3 x2 o# z
hexVar = UCASE(hexVar): f% ~' L: @/ I$ y
hexVar = StrReverse(hexVar)5 ?1 l. q4 Z( J, e, \* D
DIM hx()4 L' n9 R7 s' ]- G# H
REDIM hx(LEN(hexVar))
* [) F1 E" U6 L$ x5 b0 G: A! Bhxx = 0
3 L. c* v. {  x5 P& ]hxx_var = 0
+ E1 W; @9 m4 u7 LFOR hxx = 1 TO LEN(hexVar)
& y2 q* M& m* Y9 u8 [$ I( ?IF multiply = "" THEN multiply = 1% w% E$ o9 ]7 r$ e
hx(hxx) = mid(hexVar,hxx,1)
% W5 z' t! n1 S) K% lhxx_var = (get_hxno(hx(hxx)) * multiply)   hxx_var
' T+ ^' x, r" w) M  u- E2 Kmultiply = (multiply * 16)
3 u+ U2 f, @" D2 l3 A* S/ ONEXT
3 ?* P0 C# T2 `! D' Y: O2 lhexVar = hxx_var
; A  w* p* O% B- ~: GHexConv = hexVar# }" R& j, R0 X! f9 M" K1 C; V- }
END IF" R, V; k/ i# d( X. g& O" u( J, ]  t. ?
End Function/ v+ J( H+ J' Y7 t

, a" b- C, v/ v  z& g! cPrivate Function get_hxno(ghx)1 H% _. ?* s" E/ r' U/ _& H
If ghx = "A" Then
! Y9 Q% s: d" G! Xghx = 10
+ F0 {7 q9 `+ u9 p4 KElseIf ghx = "B" Then
6 Z# }% S4 n6 y, G: Y# F  lghx = 11. r/ L  ~. S2 d
ElseIf ghx = "C" Then. Y( O4 u  ]! R6 n
ghx = 12& O: l+ [, V4 b% C6 d7 N, P3 R: Y) C2 m
ElseIf ghx = "D" Then* M5 ]! m& y% }# O: Q$ i
ghx = 13# G0 U0 C6 F$ ^7 n" k" {0 ?+ `
ElseIf ghx = "E" Then
7 B, z% {9 j; P+ N( Sghx = 14
' H+ A9 O) J3 D9 m( @9 ?( uElseIf ghx = "F" Then8 X4 ~0 ~. y6 T. X$ \
ghx = 15
; R5 b3 g/ Q! }3 v* KEnd If# N: ~$ h  L+ ~* u2 `: s* X  ~
get_hxno = ghx
! g: n; L! i" ^& F0 o/ aEnd Function
+ f! \/ s# w0 Q: t) C! [  x9 B5 P
- W! q* J; X& E" j' [
& a% N5 l: w1 E4 N( Y& @7 x%  
7 Z( D* f4 K. s7 j+ N8 j8 q; s: O2 h7 Y8 `/ G$ p

6 ~& P2 k/ ~6 J7 ^$ t3 s, O" h%& x9 I" v5 S1 a0 L5 }5 j# L
Dim Image8 ~2 C1 J2 w1 j& m8 y
Dim Width, Height
% d9 s' P$ h( F) q1 x' wDim num
5 ]. Z1 D% ^  J7 _+ ODim digtal* ?* r$ O: W$ m: ~, _
Dim Length
1 @- i+ R" V& k5 H" O: Q9 IDim sort+ j  G  M3 |1 Q! [
Length = 4 '自定计数器长度  ; G: n8 t8 `/ _: d9 a- V

" o2 }; P# m; a7 HRedim sort( Length )  
" X! Q! E8 F) a- a( i
3 j/ O* j4 z' L' z6 y* E8 N+ i- Fnum=cint(DeCryptString(request.querystring("sksid")))! m; e( @: y7 K* `  p
digital = ""
) u1 Q5 N! d7 p! LFor I = 1 To Length -Len( num ) '补0( p3 r: q' n' m; I; w
digital = digital  "0"
: y0 k8 V' L8 a; F/ }0 q8 ]7 H$ oNext: i+ c7 R- ]4 [# Q" [- t2 D
For I = 1 To Len( num )7 u' P- O$ l. u% x$ U1 @
digital = digital  Mid( num, I, 1 )4 k  ~! @! y1 U/ i  R) f
Next% t( L0 q1 d9 s6 r* V7 a' C
For I = 1 To Len( digital )+ x# s2 u+ o! Z4 E
sort(I) = Mid( digital, I, 1 )* ~6 h& Z( S1 k
Next! i7 d4 B- j6 {4 Q1 c- O
Width = 8 * Len( digital ) '图像的宽度
, W8 q# e. P: K+ iHeight = 10 '图像的高度，在本例中为固定值  
' I+ f/ `% P# Y# z/ A$ a1 `, b3 C& }) N* c& Q, n+ q

. {* i" T% M* u' m, H$ \% uResponse.ContentType="image/x-xbitmap"  
; A, o1 D3 \0 m( a1 L  t
1 Y$ v  A3 I* `5 b2 `4 _5 Z) R  thc=chr(13)  chr(10)   ) E$ y" f7 H) n" q- x

8 R! F9 k0 ]8 U1 IImage = "#define counter_width "  Width  hc) [) f+ s4 S! \, p  m: P& X+ O$ w
Image = Image  "#define counter_height "  Height  hc
, H/ m" S8 v" n# ^Image = Image  "static unsigned char counter_bits[]={"  hc  0 p# i7 e9 D% p" [& S/ B

" h. z4 z4 H# Y# i  k1 ~. s+ AFor I = 1 To Height! U5 r% l4 `2 _/ R
For J = 1 To Length
: @0 T) a! i  U0 l9 }Image = Image  a(sort(J),I)  ","
4 h  g7 r& }  x" [8 r; ONext$ `+ W  l& }; X6 w( C5 |3 V
Next  ( P2 r( B3 }9 G/ \' c' Y+ u

  P! `6 u3 {6 r+ i" ~- YImage = Left( Image, Len( Image ) - 1 ) '去掉最后一个逗号0 z: _- c9 z0 Z7 Q1 [% J1 h
Image = Image  "};"  hc
% C: o$ r/ t; j+ }%
+ y0 K: G" p& v* T/ V) h%
3 z  j1 C! }9 g$ s+ j: [Response.Write Image  
! w9 m) b" E. `. E: W$ D
9 O! `1 ~% \* K3 E%  
' B: m' s7 L' `1 R  g, O: h% D9 T" M* E6 b7 s! u; [1 G. _% I" V
num.asp  
2 p5 z$ x1 P5 ]2 K( o9 I9 X/ Q
7 _4 `+ J% G9 g3 R%
$ s$ a4 L/ t! @0 P! ?& RDim a(10,10)  ; y4 M& m) g( h
1 N7 a% e% n/ L" B# f, ]
a(0,1) = "0x3c" '数字0- q& t7 I+ |; y+ A
a(0,2) = "0x66"5 n1 x$ j$ e' ?7 `) y
a(0,3) = "0xc3"1 |" ]5 Q3 y' S1 G" o) s8 w* r$ v! b: p
a(0,4) = "0xc3"+ V8 V& y6 i  ^/ Q: {  T( W
a(0,5) = "0xc3"2 z4 B1 E3 R2 p7 W% k0 q- K
a(0,6) = "0xc3"
* n, n) _; R( x- y, O3 Y4 za(0,7) = "0xc3"
* r$ D/ }$ y0 A& E/ o  `/ ?a(0,8) = "0xc3"& L8 B$ N- Y7 a% [2 t
a(0,9) = "0x66"" r  T2 x7 |, Y. M! j+ _% J2 D
a(0,10)= "0x3c"  0 ~: K  k0 w4 P2 L3 n
% }. D$ s) V; J! _! R
a(1,1) = "0x18" '数字1
  e+ U; a7 A; P& m! i8 |: La(1,2) = "0x1c"
+ b7 T) q; B# g2 b# ma(1,3) = "0x18"3 m# o( Z8 N/ l& C7 w
a(1,4) = "0x18"! u9 ?8 g4 I- m, P
a(1,5) = "0x18"1 x# K+ o3 v. L; e! U) X
a(1,6) = "0x18"$ L  z3 B; N9 W, r* \4 [; b; [
a(1,7) = "0x18"
; d1 P! G) e8 U, d& la(1,8) = "0x18". {; v5 A. x' v  w( A% l
a(1,9) = "0x18"; m) X* l0 ]; I
a(0,10)= "0x7e"  
0 D2 Q# y+ \- n' M3 C0 Z9 i. |
3 b1 A; J) V+ P. M# O- b2 }0 C8 A& {4 m. I' F. k7 r
a(2,1) = "0x3c" '数字2
6 u/ E- @$ T  A( Ha(2,2) = "0x66"7 R5 I2 W5 t8 W! H, _6 B5 g
a(2,3) = "0x60"
  |* M9 h8 c* d# u5 U( la(2,4) = "0x60"( c5 U  M9 q  T! x5 R/ X3 t: @
a(2,5) = "0x30"  d' N- h9 w6 o: a) [2 k
a(2,6) = "0x18"
" I' n( p/ p7 c$ pa(2,7) = "0x0c"4 i4 o! E) E9 i9 N/ m$ J$ |5 t
a(2,8) = "0x06"
5 L5 e% J% R& La(2,9) = "0x06"4 k) q: R5 c2 t! u
a(2,10)= "0x7e"  ! V! j5 g  {2 H( e' n) v8 ]1 Y
* P1 I" }( u0 h, N4 H! ~7 B* M
a(3,1) = "0x3c" '数字3( u/ y( F2 b* T& D% E- b# t& t
a(3,2) = "0x66"
* C6 U% b2 T" X$ f/ t* n: Ya(3,3) = "0xc0"$ \! s& f" ?, u: N7 n
a(3,4) = "0x60"
. w) S. @9 Y) E2 a" D) na(3,5) = "0x1c"
$ Q8 y4 I" W9 P7 ga(3,6) = "0x60"! w2 Q( n# R, |. [3 L6 @3 f& P
a(3,7) = "0xc0"7 W& o8 }. \) }  D, R9 Z% s3 o
a(3,8) = "0xc0"; v8 t' h* t" ]/ H; x
a(3,9) = "0x66"
/ Y& L) q' F+ X" _) Ga(3,10)= "0x38"  1 n8 m/ f  @3 `' a) P$ s+ z; M

* W) ?8 {# U8 w: s6 I' Ia(4,1) = "0x38" '数字4# d, ]4 t5 U3 q/ Y" I% c/ b- i& m
a(4,2) = "0x3c") Y1 E0 L$ ^1 v! A# T
a(4,3) = "0x36"
( i6 b8 x3 |/ k/ m/ Qa(4,4) = "0x33"
6 c; u5 C( H) Z5 t# ~a(4,5) = "0x33"
0 \) t  V, Q( U- t; La(4,6) = "0x33"
7 X, g  m/ H: j; ]3 ~' Ja(4,7) = "0xff"
* k; B% G4 m* I  Da(4,8) = "0x30"
' u: v: a, J% x: F$ z8 T' @a(4,9) = "0x30"
9 E; \! ?8 ]* S0 D# ]& f1 U. Ra(4,10)= "0xfe"  / `: A" Q) o3 K8 K' A

1 n8 H: Y) L, [% ~  T" va(5,1) = "0xfe" '数字5  M( p: s+ M* z  C0 r
a(5,2) = "0xfe"
: m7 j2 q  k0 ja(5,3) = "0x06"
: h! e# G* j" T$ p5 H; ~/ a/ Ma(5,4) = "0x06"
/ P4 P# E; E/ l9 J: N4 ka(5,5) = "0x3e"
, Z: H* z" o3 [2 Aa(5,6) = "0x60"
+ Q+ n: _4 Y* @$ d0 fa(5,7) = "0xc0": }: R* Q: ]! W& g. W! o
a(5,8) = "0xc3"2 k+ _& [) |9 M' H7 p1 o5 m
a(5,9) = "0x66"
7 n* P' M6 R; e4 ]9 @- wa(5,10)= "0x3c"  ! o9 i' m& F7 d8 g2 E5 X% N% w" f" F
# G) y6 Q* ^  y: B0 ~
a(6,1) = "0x60" '数字6
/ g' H- v# X: d+ a! `5 Xa(6,2) = "0x30"4 n5 a( W/ E# c  u, E9 T/ }" _
a(6,3) = "0x18"
  d$ z+ h. u0 Q0 g2 b* O- w) la(6,4) = "0x0c"
9 [3 ~8 l+ J& j( ta(6,5) = "0x3e"
# r) O# P# s2 i4 z3 M: m3 Fa(6,6) = "0x63"$ L7 X/ M: a5 `1 V1 M! U
a(6,7) = "0xc3"
! b4 X8 L& W' |4 w6 sa(6,8) = "0xc3"
$ i5 s/ F. y/ R3 q4 Za(6,9) = "0x66"
/ h, I  Z, _" G3 F7 Aa(6,10) ="0x3c"  
2 b) |' G2 }7 J, O# O& Q. `: Z% r2 o" d
a(7,1) = "0xff" '数字7" x8 |5 Q0 F: G- N/ C) g9 j% L# F
a(7,2) = "0xc0"
& X. ^! D1 m2 H' h8 j) Ja(7,3) = "0x60"
+ x* R3 p7 g0 @6 m  Fa(7,4) = "0x30"
$ z9 Q( s( v# p1 _a(7,5) = "0x18", G: p; }4 g# n& C; y
a(7,6) = "0x18"
1 w  I4 o% v+ E9 X: O% n6 g, ha(7,7) = "0x18"
  O2 H: [- l/ ^% W- U% e/ Na(7,8) = "0x18"
" N" F$ Q9 n, i5 \3 H5 F# K% Ia(7,9) = "0x18"; s  Y+ r- T) a  V1 |
a(7,10)= "0x18"  
1 @. C1 l! f& H/ Q1 z7 ?) c; l; C8 f% e7 p9 Y1 W; a. _( {
a(8,1) = "0x3c" '数字8! H' _+ e, E' U& k, |- i. p# f& S% r
a(8,2) = "0x66"2 ~0 S: `% m2 K1 b
a(8,3) = "0xc3"  H1 B9 l- S* z, j  D9 c) ]
a(8,4) = "0x66"" F: N) }# C# A
a(8,5) = "0x3c"4 k# |7 s' ]$ r( x6 M8 Y; @
a(8,6) = "0x66"
2 a0 T( h/ r% Z4 r, ?5 A" s  q- Pa(8,7) = "0xc3"1 n1 l/ z! W' S  K! m( }7 o
a(8,8) = "0xc3"
% g' V& n5 A- I9 G) Za(8,9) = "0x66"
& h; A- A( f9 p  S, R; ]a(8,10)= "0x3c"  : Z. X8 y! E/ W! F( ~
4 h; Y5 R+ T9 R8 r, A# b; Q& ~8 T
a(9,1) = "0x3c" '数字9
6 X, ]' N" m  k* x0 L7 {& Pa(9,2) = "0x66"/ D2 v8 f$ d& R, C8 i( o6 G
a(9,3) = "0xc3"4 U! G  L2 Q& z" i2 R9 Q2 M
a(9,4) = "0xc3"
0 Z& g. o( Z# Q! Ka(9,5) = "0x66"
4 |" V, Y& \' R- Ia(9,6) = "0x3c"
2 {# d* h7 ]1 \a(9,7) = "0x18"
! D5 q; _% R5 x: ^a(9,8) = "0x0c"/ i; ]- D; S  _6 e! G9 Y2 ~3 l. N
a(9,9) = "0x06"+ w' f- D- P* U! C
a(9,10)= "0x03"  
% s! P8 H9 t; J6 s7 q
* q" W% J1 C  a0 q! U3 X%