Program and principle of verification code

Count.asp

<% '### To encrypt / decrypt include this code in your page' ### strMyEncryptedString = EncryptString (strString) '### strMyDecryptedString = DeCryptString (strMyEncryptedString)' ### You are free to use this code as long as Credits Remain in Place '### Also if you improve this code let me know.private function encryptstring (strstring)' ############################################################################################################################################################################################################################################################### ##################################### '### Crypt Function C) 2001 by Slavic Kozyuk grindkore@yahoo.com ### '### Arguments: strstring <- string you wish to encrypt ###' ### output: Encrypted hex string ### '#### ######################################################################################################################################################################################################################################################################################################## ############## DIM CHARHEXSET, INTSTRINGLEN, STRTEMP, STRRAW, I, INTKEY, INTOFFSETRANDOMIZE TIMERINTKEY = ROUND ((RND * 1000000) 1000000) '##### key bitsizeintoffset = Round ((RND * 1000000) 1000000) '##### KeyOffSet BitsizeIf IsNull (strString) = False ThenstrRAW = strStringintStringLen = Len (strRAW) For i = 0 to intStringLen - 1strTemp = Left (strRAW, 1) strRAW = Right ( Strraw, L en (strRAW) - 1) CharHexSet = CharHexSet & Hex (Asc (strTemp) * intKey) & Hex (intKey) NextEncryptString = CharHexSet & "|" & Hex (intOffSet intKey) & "|" & Hex (intOffSet) ElseEncryptString = "" End ifnd functionprivate function decryptstring (struntptstring) '################################################################################################################################################################################################################################################################################ ############################################################################################################################################################################################################################################# '### arguments: Encrypted Hex Stringt ###' ### Output: Decrypted ASCII String ### '####################################################################################################################################################################################################################################################### ###########################

### Note this function uses HEXCONV () and get_hxno () functions ### '### So Make Sure The isy area ############################################################################################################################################################################################################################################################# ######################################################################################################################################################################################################################################################################################################## #Dim strRAW, arHexCharSet, i, intKey, intOffSet, strRawKey, strHexCrypDatastrRawKey = 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)) arHexCharSet = Split (strHexCrypData, Hex (intKey)) For i = 0 to UBound (arHexCharSet) strRAW = strRAW & Chr (HexConv (arHexCharSet (i)) / intKey) NextDeCryptString = strRAWEnd FunctionPrivate Function HexConv (hexVar) Dim hxx, hxx_var, multiply If Hexvar <> "" Thenhexvar = ucase (HEXVAR) Hexvar = Strreverse (Hexvar) DIM HX () Redim HX (Len (HEXVAR)) HXX = 0HXX_VAR = 0for HXX = 1 to Len (HEXVAR) IF MULTIPLY = "" "" " = 1HX (HXX) = MID (HEXVAR, HXX, 1) HXX_ var = (get_hxno (hx (hxx)) * multiply) hxx_varmultiply = (multiply * 16) NEXThexVar = hxx_varHexConv = hexVarEND IFEnd FunctionPrivate Function get_hxno (ghx) If ghx = "A" Thenghx = 10ElseIf ghx = "B" Thenghx = 11ElseIf ghx = "C" Thenghx = 12ElseIf ghx = "D" Thenghx = 13ElseIf ghx = "E" Thenghx = 14ElseIf ghx = "F" Thenghx = 15End Ifget_hxno = ghxEnd Function%> <% Dim ImageDim Width, HeightDim numDim digtalDim LengthDim sortLength = 4 'Customary Counter Length

Redim Sort (Length)

Num = CINT (Request.QueryString ("SKSID")))) Digital = "" for i = 1 to length -len (num) '补 0digital = Digital & "0" Nextfor i = 1 to Len (NUM) Digital = Digital & Mid (Num, I, 1) Nextfor I = 1 to Len (Digital) Sort (i) = MID (Digital, I, 1) NextWidth = 8 * LEN (DIGITAL) 'Image of the width = 10' image The height, in this example, fixed value response.contentType = "image / x-xbitmap"

HC = CHR (13) & chr (10)

Image = "#define counter_width" & width & hcimage = image "&" #define counter_height "& height & hcimage = image &" static unsigned char counter_bits [] = {"& HC

For i = 1 to Heightfor J = 1 to LengthImage = Image & A (Sort (j), i) & "," NextNext

Image = left (image, len (image) - 1) 'Remove the last comma image = image & "};" & hc%> <% response.write image

%>

Num.asp

<% DIM A (10, 10)

A (0, 1) = "0x3c" 'Digital 0A (0, 2) = "0x66" A (0, 3) = "0xC3" A (0, 4) = "0xc3" A (0, 5) = " 0xC3 "A (0, 6) =" 0xc3 "A (0, 7) =" 0xC3 "A (0, 8) =" 0xC3 "A (0, 9) =" 0x66 "A (0, 10) =" 0x3c "

A (1, 1) = "0x18" 'Number 1A (1, 2) = "0x1c" A (1, 3) = "0x18" A (1, 4) = "0x18" A (1, 5) = " 0x18 "A (1,6) =" 0x18 "A (1, 7) =" 0x18 "A (1, 8) =" 0x18 "A (1, 9) =" 0x18 "A (0, 10) =" 0x7e "

A (2, 1) = "0x3c" 'Number 2A (2, 2) = "0x66" A (2, 3) = "0x60" A (2, 4) = "0x60" A (2, 5) = " 0x30 "A (2, 6) =" 0x18 "A (2, 7) =" 0x0C "a (2, 8) =" 0x06 "A (2, 9) =" 0x06 "A (2, 10) =" 0x7e "a (3, 1) =" 0x3C "'number 3a (3, 2) =" 0x66 "A (3, 3) =" 0xc0 "A (3, 4) =" 0x60 "A (3, 5) = "0x1c" a (3, 6) = "0x60" A (3, 7) = "0xc0" A (3, 8) = "0xc0" A (3, 9) = "0x66" A (3, 10) = "0x38"

A (4, 1) = "0x38" 'Number 4A (4, 2) = "0x3c" A (4, 3) = "0x36" A (4, 4) = "0x33" A (4, 5) = " 0x33 "A (4, 6) =" 0x33 "A (4, 7) =" 0xFF "A (4, 8) =" 0x30 "A (4, 9) =" 0x30 "A (4, 10) =" 0xfe "

A (5, 1) = "0xfe" 'Number 5A (5, 2) = "0xfe" A (5, 3) = "0x06" A (5, 4) = "0x06" A (5, 5) = " 0x3e "a (5,6) =" 0x60 "A (5, 7) =" 0xc0 "A (5, 8) =" 0xC3 "A (5, 9) =" 0x66 "A (5, 10) =" 0x3c "

A (6, 1) = "0x60" 'Number 6A (6, 2) = "0x30" A (6, 3) = "0x18" A (6, 4) = "0x0c" A (6, 5) = " 0x3e "a (6,6) =" 0x63 "A (6, 7) =" 0xc3 "A (6, 8) =" 0xC3 "A (6, 9) =" 0x66 "A (6, 10) =" 0x3c "

A (7, 1) = "0xFF" 'Number 7A (7, 2) = "0xc0" A (7, 3) = "0x60" A (7, 4) = "0x30" A (7, 5) = " 0x18 "A (7, 6) =" 0x18 "A (7, 7) =" 0x18 "A (7, 8) =" 0x18 "A (7, 9) =" 0x18 "A (7, 10) =" 0x18 "

A (8, 1) = "0x3c" 'Number 8A (8, 2) = "0x66" A (8, 3) = "0xC3" A (8, 4) = "0x66" A (8, 5) = " 0x3C "A (8, 6) =" 0x66 "A (8, 7) =" 0xc3 "A (8) =" 0xc3 "A (8, 9) =" 0x66 "A (8, 10) =" 0x3c "a (9, 1) =" 0x3c "'number 9A (9, 2) =" 0x66 "A (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"

%>