A total of 4 pages: form.asp; chk.asp; num.asp; count.asp Get an additional number. encryption! After decryption, it is used to use the session judgment.
Form.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 TIMER
INTKEY = ROUND ((RND * 1000000) 1000000) '##### Key BitsizeInToffset = Round ((RND * 1000000) 1000000)' #### kyoffset bitsize
IF isnull (strstring) = false trenstrraw = strstringintstringlen = LEN (STRRAW)
For i = 0 to INTSTRINGLEN - 1STRTEMP = Left (Strraw, 1) Strraw = Right (Strraw, Len (Straw) - 1) Charhexset = Charhexset & HEX (ASC (STRTEMP) * INTKEY) & HEX (intKey) NEXT
EncryptString = Charhexset & "|" & HEX (INTOFFSET INTKEY) & "| & HEX (INTOFFSET) ElseEncryptstring =" "End IFEND FUNCTION
Private function decryptstring (strcryptstring) '################################################################################################################################################################################################################################################################### ################## ### Crypt Function (c) 2001 by Slavic Kozyuk Grindkore@yahoo.com ### '### Arguments: Encrypted Hex Stringt ### '### Output: Decrypted ASCII String ###' ########################################################################################################################################################################################################################################################## ################################ ### Note this function uses hexconv () And get_hxno () functions ### '### so make Sure the isy not removed ###' ##################################################################################################################################################################################################################################################################### ################################## DIM STRRAW, Arhexcharset, I, intKey, INTOFFSET, STRRAWKEY, STRHEXCRYPDATA
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 (Strrawkey) 1))
Arhexcharset = split (strhexcrypdata, hex (intKey))
For i = 0 to ubound (arhexcharset) strraw = strraw & chr (HEXCONV (Arhexcharset (i)) / intKey) Next
Decryptstring = STRRRAWEND FUNCTION
Private 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 = "" THEN multiply = 1hx (hxx) = mid (hexVar, hxx, 1) hxx_var = (get_hxno (hx (hxx)) * multiply) hxx_varmultiply = (multiply * 16) NEXThexVar = hxx_varHexConv = Hexvarend IFEND FUNCTION
Private function get_hxno (ghx) if ghx = "a" lifeX = 10ELSEIF GHX = "b" lifehx = 11ELSEIF GHX = "c" belseif ghx = "c" belse = 12ELSEIF GHX = "d" lifeHX = 14ELSEIF GHX = "= 14ELSEIF GHX =" F "lifeHX = 15nd ifget_hxno = ghxend function%>
<% randomizenum = int (7999 * RND 2000) 'counter Num2 = EncryptString (NUM) Session ("PWDT") = Num%>