ANTIBOT

'Dans Lib.asp : 

<%
 Option Explicit
 
 '####################################################
 '########## Par Ghuysmans99(Codes-Sources) ##########
 '####################### 2006 #######################
 '## Url : www.codes-sources.com/code.aspx?Id=00000 ##
 '####################################################
 
 '#################################################### LIB #################################################
 
 Const ImagePath = ".\Images\"
 Public String
 
 Function Random(Max)
  Randomize
  Random = Int(Rnd * Max)
 End Function 'Random
 
 Function GenerateHTML(Color, Lenght)
  String = ""
  Dim i
  Dim TmpHTML, HTML
  Dim Number
  HTML = "<TABLE BORDER=0 BGCOLOR='" & Color & "'>"
  HTML = HTML & "<COL>"
  HTML = HTML & "<TR>"
  HTML = HTML & "<TD>"
  For i = 1 To Lenght '36 = 10 Nums + 26 Letters
   Number = Random(36)
   String = String & MyCHR(Number)
   TmpHTML = "<IMG BORDER=0 NAME='"
   TmpHTML = TmpHTML & MyCHR(Number)
   TmpHTML = TmpHTML & "' SRC='"
   TmpHTML = TmpHTML & ImagePath & MyCHR(Number) & ".gif"
   TmpHTML = TmpHTML & "'>"
   HTML = HTML & TmpHTML
  Next
  HTML = HTML & "</TD>"
  HTML = HTML & "</TR>"
  HTML = HTML & "</TABLE>"
  GenerateHTML = HTML
 End Function 'GenerateHTML
 
 Function Headers()
  %>
   <LINK REL="stylesheet" TYPE="text/css" HREF="./Styles/Styles.css">
   <HR COLOR="#FF0000">
   <DIV ALIGN="center">AntiBot</DIV>
   <HR COLOR="#FF0000">
   <BR>
  <%
 End Function
 
 Function ListASCII()
  Dim i
  For i = 32 To 255
   response.write Chr(i)
  Next
 End Function
 
 Function MyCHR(Number)
  If Number > 36 Then Err.Raise "1","AntiBot_Lib","Incorrect Number"
  Select Case Number
   Case 0
    MyCHR = 0
   Case 1
    MyCHR = 0
   Case 2
    MyCHR = 1
   Case 3
    MyCHR = 2
   Case 4
    MyCHR = 3
   Case 5
    MyCHR = 4
   Case 6
    MyCHR = 5
   Case 7
    MyCHR = 6
   Case 8
    MyCHR = 7
   Case 9
    MyCHR = 8
   Case 10
    MyCHR = 9
   Case 11
    MyCHR = "a"
   Case 12
    MyCHR = "b"
   Case 13
    MyCHR = "c"
   Case 14
    MyCHR = "d"
   Case 15
    MyCHR = "e"
   Case 16
    MyCHR = "f"
   Case 17
    MyCHR = "g"   
   Case 18
    MyCHR = "h"
   Case 19
    MyCHR = "i"
   Case 20
    MyCHR = "j"
   Case 21
    MyCHR = "k"
   Case 22
    MyCHR = "l"
   Case 23
    MyCHR = "m"
   Case 24
    MyCHR = "n"
   Case 25
    MyCHR = "o"
   Case 26
    MyCHR = "p"
   Case 27
    MyCHR = "q"
   Case 28
    MyCHR = "r"
   Case 29
    MyCHR = "s"
   Case 30
    MyCHR = "t"
   Case 31
    MyCHR = "u"
   Case 32
    MyCHR = "v"
   Case 33
    MyCHR = "w"
   Case 34
    MyCHR = "x"
   Case 35
    MyCHR = "y"
   Case 36
    MyCHR = "z"    
  End Select
 End Function
 
 '############################################### MAIN #####################################################
%>

'Dans default.asp : 

<!-- #include file="./Libs/Lib.asp" -->
<%
 response.Expires=-1
 Headers
 If Request.Form("Str") <> "" Then
  If Request.Form("Str") = Session("String") Then
   %>OK !<BR><BR><%
    Else 
	 %>ERR!<BR><BR><%
  End If	 
  'response.end
 End If
 Response.Write GenerateHTML("#4A84EF",4)
 'Response.Write "<BR>" & String
 Session("String") = String
%>
<BR>
<FORM ACTION="./default.asp" METHOD=POST>
<INPUT TYPE="text" NAME="Str" SIZE=40 MAXLENGTH=40>
<INPUT TYPE="submit" VALUE="OK">
</FORM>