C'est un petit antibot qui génère un code HTML ...
Il NE génère PAS d'image, il les utilise !
Source / Exemple :
'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>
Conclusion :
pas de bugs connus pour l'instant ...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.