Antibot

Soyez le premier à donner votre avis sur cette source.

Vue 13 335 fois - Téléchargée 792 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
475
Date d'inscription
jeudi 19 juin 2003
Statut
Membre
Dernière intervention
3 novembre 2008

Je suis de l'avis de Renfield.
Tiens, tu peux jeter un coup d'oeil sur mon antibot : http://www.aspfr.com/codes/IMAGE-ANTI-BOT-VALIDATION-FORMULAIRES_35334.aspx
J'utilise un handler afin de générer des images du côté serveur
bonne continuation
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
si qq'un veut vraiment brancher un bot sur ton site, il y parviendra....
le nom et chemin des images sont trop explicites...

0, 1, ...5....

faut ruser un brin

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.