aspの下の簡単な検証コードプログラム第1/3ページ
メインプログラムは全部で三つです 私の呼び出し方法 <スクリプト laguage=「javascript」 src=「/verify/num.asp」 認証方式 if trim（Loginum）<>trim（「Loginum」） then Resonse.Write Errer（「認証コードエラー！」） Resonse.End end if num.asp <% '### To encrypt/decrypt include this コード in ヨール page '### stMyEncrypedString = EcryptString（string） '### ストリップMyDecrypt String = DeCryptString（stMyEcrypttedString） '### You エリア free ト アメリカ this コード as long as クレディ remain in プレース '### also if あなた improve this コード let 私 know. Private Function EcryptString（string） '#################################################################### '### Crypt Function ? 2001 by Slavic Kzyuk [email protected] ### '### Agments: string <--- String あなた wish ト encrypt ### '### Output: Ecryped HEX ストリングス ### '#################################################################### ディム CharHexSet、 intStringLen、 ストリップ、 straW I， intKey intOffSet Randomize Timer intKey = Round((RND) * 100000） + 100000） '##### キー Bitsize intOffSet = Round((RND) * 100000） + 100000） '##### KeyOffSet Bitsize If。 IsNull(string) = False The n straW = string int StrigLen = Len(straW) For i = 0 ト int StrigLen - 1 struct Temp = Left（straW） 1） straW = Right（straw） Len(straW) - 1） CharHexSet = CharHexSet & Hex(Acc(streTemp) * intKey)& Hex(intKey) 次のテキスト EcryptString = CharHexSet & "|" & Hex(intOffSet + intKey） & "|" & Hex(intOffSet) Else EcryptString = "" End If。 End Function Private Function DeCrypt String（string） '#################################################################### '### Crypt Function ? 2001 by Slavic Kzyuk [email protected] ### '### Agments: Ecryped HEX ストリングス ### '### Output: Decrypt ASCII ストリングス ### '#################################################################### '### ノート this 機能 アメリカ HexConv() and ゲットするhxno() functions ### '### そ メーク sure they エリア not レモベ ### '#################################################################### ディム straW arHexCharSet、 I， intKey intOffset、 strawKey strexCrydata strawKey = Right（straCrypt String） Len(straCrypt String) - InStr（stript String） "|")) intOffSet = Right（strawKey） Len(strawKey) - InStr（strawKey，「124」） intKey = HexConv(Left(strawKey) InStr（strawKey） "|") - 1） - HexConv(intOffSet) strexCrydata = Left(straCrypt String) Len(straCrypt String) - (Len(strawKey) + 1） arHexCharSet = Split（strixCrypt） Hex(intKey) For i=0 ト Ubound（arHexCharSet） straW = straW & Chr(HexConv(arHexCharSet(i)/intKey) 次のテキスト DeCrypt String = straW End Function Private Function HexConv(hexVar) ディム hxx hxx_var multiplly IF hexVar <> "" THEN hexVar = UCASE(hexVar) hexVar = StrReverse(hexVar) DIM hx() REDIM hx(LEN(hexVar) hxx = 0 hxx_var = 0 FOR hxx = 1 TO LEN(hexVar) IF multiplly = "" THEN multiplly = 1 hx(hxx) = mid（hexVar，hxx，1） hxx_var = (ゲットするhxno(hx(hxx)) * multiply） + hxx_var multiplly = (multiplly * 16） NEXT hexVar = hxx_var HexConv = hexVar END IF End Function Private Function ゲットするhxno(ghx) If。 ghx = "A「 The n ghx = 10 ElseIf ghx = "B「 The n ghx = 11 ElseIf ghx = "C" The n ghx = 12 ElseIf ghx = "D" The n ghx = 13 ElseIf ghx = "E" The n ghx = 14 ElseIf ghx = "F「 The n ghx = 15 End If。 ゲットするhxno = ghx End Function ラドミゼ num = int（7999*rnd+2000） 'カウンタの値 num 2 = EcryptString(num) session(「Loginum」)=num %> document.write("img] src='/verify/count.asp？skysid=<%=num 2%>>“] ' ここは画像を呼び出すパスです。 count.asp
1 2 3 次のページ 全文を読む
1 2 3 次のページ 全文を読む