How to help : To verify identification page submission page authentication code Ask you : on the stage names registered user input and validation code, the problem is the background to identify the user name, but the test code can be easily imported into the correct page. Page Recognition System certification submitted to ask you how Generation certification say, Thank you! 1:xiaoyanma.asp conditions for the export of authentication code pages 2:forget.asp conditions for the importation of user names and authentication code pages 3:getpsw.asp arrived at the conditions submitted to the certification pages forget.asp -------------------------------------------------- Forget.asp as follows "Form action=" getpsw.asp "method=" post "" "Td align=center width=100> Name "Td><input type=text name="_ftn1"" name "has been registered in the name size=27 maxlength=20 class=i> "Per "Tr bgcolor=#cccccc> "Td align=center width=100> authentication code "[Passages on congress progress omitted] "Input type=text name="_ftn1"" xiaoyanma "size=27 maxlength=20 class=i> "<img Defended" xiaoyanma.asp "" </table><p> "Center><input type=submit value=" next step "" "/form> ------------------------------------------------------------- Getpsw.asp as follows "!--#include File=" conn.asp "TOP 10 <% Dim rs ＝ Dim sgl Name=request ( "name") If name="_ftn1" "" then response.redirect ( "forget.asp") Set rs ＝ = server.createobject ( "adodb.recordset") Sql= "select * from [where name="_ftn1" '" + name + "'" Rs.open sgl, conn,3,3 Wenti=rs ( "wenti") %>

See xiaoyanma.asp Similar session ( "xxx") What is xxx Verification page judgment session ( "xxx") equivalent value on the list submitted by the user

I submit written certification can help complete this page, which is xiaoyanma.asp codes, I was a novice, help! Thank you! <% Dim a (10,10) A (0,1) = "0x3c" 'Digital 0 A (0,2) = "0x66" A (0, 3) = "0xc3" A (0,4) = "0xc3" A (0,5) = "0xc3" A (regimens) = "0xc3" A (0.7) = "0xc3" A (0,8) = "0xc3" A (0,9) = "0x66" A (NO2) = "0x3c" A (1,1) = "0x18" 'number one A (1,2) = "0x1c" A (1,3) = "0x18" A (1,4) = "0x18" A (1,5) = "0x18" A (1,6) = "0x18" A (7th) = "0x18" A (JIN) = "0x18" A (1,9) = "0x18" A (NO2) = "0x7e" A (2,1) = "0x3c" 'number two A (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 and MMP-9) = "0x06" A (2,10) = "0x7e" A (3,1) = "0x3c" 'Digital 3 A (3,2) = "0x66" A (3,3) = "0xc0" A (3,4) = "0x60" A (3,5) = "0x1c" A (3,6) = "0x60" A (3,7) = "0xc0" A (44, 45) = "0xc0" A (Tc) = "0x66" A (3,10) = "0x38" A (4,1) = "0x38" 'Digital 4 A (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 (Numbers under) = "0x30" A (4,10) = "0xfe" A (n ,1) = "0xfe" 'Digital 5 A (haplotypes) = "0xfe" A (5,3) = "0x06" A (5,4) = "0x06" A (5,5) = "0x3e" A (5, 6) = "0x60" A (5,7) = "0xc0" A (Homozygous) = "0xc3" A (5,9) = "0x66" A (5,10) = "0x3c" A (6,1) = "0x60" 'six figures A (6,2) = "0x30" A (6,3) = "0x18" A (6 of) = "0x0c" A (6,5) = "0x3e" A (6,6) = "0x63" A (6, 7) = "0xc3" A (6 and 8) = "0xc3" A (mimetic) = "0x66" A (15ml/L) = "0x3c" A (7,1) = "0xff" 'Figures 7 A (， 7 ，) = "0xc0" A (81,016) = "0x60" A (7,4) = "0x30" A (7,0) = "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" 'figure 8 A (8,2) = "0x66" A (8,3) = "0xc3" A (8,4) = "0x66" A (pesticides) = "0x3c" A (8 ,6 FROM) = "0x66" A (8,7) = "0xc3" A (8,8) = "0xc3" A (8 9) = "0x66" A (8,10) = "0x3c" A (9,1) = "0x3c" 'digital 9 A (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" %>     <% 'Encrypt/decrypt ### To 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 let me know if you improve this code.       Private Function EncryptString (strString)      '#################################################################### '### Crypt Function (C) 2001 by Slavic Kozyuk grindkore@yahoo.com ### 'Arguments : strString ### "-- String you wish to encrypt ### 'Encrypted HEX string ### : ### Output      '####################################################################       Dim CharHexSet, intStringLen, strTemp, strRAW, i, intKey, intOffSet Randomize Timer       IntKey = Round ((RND * 1000000) + 1000000) '##### Key Bitsize IntOffSet = Round ((RND * 1000000) + 1000000) '##### KeyOffSet Bitsize       If IsNull (strString) = False Then StrRAW = strString IntStringLen = Len (strRAW)       For i = 0 to intStringLen-1 StrTemp = Left (strRAW, 1) StrRAW = Right (strRAW, Len (strRAW) - 1) CharHexSet = CharHexSet & Hex (CAV (strTemp) * intKey) & Hex (intKey) Next       EncryptString = CharHexSet & "|" & Hex (intKey intOffSet +) & "|" & Hex (intOffSet) Else EncryptString = "" End If End Function                         Private Function DeCryptString (strCryptString)      '#################################################################### '### Crypt Function (C) 2001 by Slavic Kozyuk grindkore@yahoo.com ### 'Encrypted HEX stringt ### : ### Arguments 'Decrypted ASCII string ### : ### Output      '#################################################################### 'Note this function uses HexConv ### () and get_hxno () functions ### '### So make sure they are 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 (strCryptString) - (Len (strRawKey) + 1))             ArHexCharSet = Split (strHexCrypData, Hex (intKey))       For ≥ to UBound (arHexCharSet) StrRAW = strRAW & Chr (HexConv (arHexCharSet (i)) /intKey) Next       DeCryptString = strRAW End Function                   Private Function HexConv (hexVar) Dim hxx, hxx_var, multiplying IF hexVar "" "" THEN HexVar = UCASE (hexVar) HexVar = StrReverse (hexVar) Tion αhx () REDIM αhx (LEN (hexVar)) Hxx = 0 Hxx_var = 0 FOR hxx = 1 TO LEN (hexVar) IF multiplying = "" THEN multiplying = 1 Αhx (hxx) = mid (hexVar, hxx,1) Hxx_var = (get_hxno (αhx (hxx)) * multiplying) + hxx_var Multiplying = (multiplying * 16) NEXT HexVar = hxx_var HexConv = hexVar Sound IF End Function       Private Function get_hxno (ghx) If ghx = "A" Then Ghx = 10 ElseIf ghx = "B" Then Ghx = 11 ElseIf ghx = "C" Then Ghx = 12 ElseIf ghx = "D" Then Ghx = 13 ElseIf ghx = "E" Then Ghx = 14 ElseIf ghx = "F" Then Ghx = 15 End If Get_hxno = ghx End Function             Randomize Also published = int (7999*rnd+2000) 'counter value Num2 = EncryptString (also published) Session ( "CheckCode") =num %> <% Dim Image Dim Width, Height Dim also published Dim digtal Dim Length Dim sort Length = 4 'length counter set Redim sort (Length) Num=cint (DeCryptString (num2)) Digital = "" For I = 1 To Length -Len (also published) 'fill 0 Digital digital & = "0" Next For I = 1 To Len (also published) Digital = digital & Mid (also published, I, 1) Next For I = 1 To Len (digital) Sort (I) = Mid (digital, I, 1) Next Width = 8 * Len (digital) 'image width Height = 10 'image height, in this case for the value of fixed Response.ContentType= "image/x-xbitmap" Hc=chr (13) & Christians (10) Image = "# counter_width" & Width & morphology Image Image & = "# counter_height" & Height & morphology Image = Image & "static unsigned char counter_bits[]={" & morphology For I = 1 To Height For J = 1 To Length Image = Image & a (sort (J), I) & "" Next Next Image = Left (Image, Len (Image) - 1) 'the last comma removed Image Image & = ")" & morphology %> <% Response.Write Image %>

[ Closed window ]