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 次のページ 全文を読む