Antibot

Télécharger le projet
Commenter

Description

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 ...
Télécharger le projet

Codes Sources

S'inscrire maintenant

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.

Du même auteur (ghuysmans99)