'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>