Código Fonte - O melhor conteúdo para programadores

Autor

ASP

Captcha

Compartilhe e guarde

Enquete

Que programa de afiliados é mais rentável?

Google adSense
Não sei
Mercado Livre
UOL Afiliados
Outros
Buscapé
Afilio (Hi-Midia)

Home Código Fonte ASP Segurança

Captcha aleatório sem plugin com ASP

Segurança contra Cadastros não humanos, de forma aleatória, ótimo para inclusão em seu formulário, fácil a adaptação não necessita o uso de plugin.

OBS: Captcha: é um mecanismo que garante que as edições das páginas sejam feita apenas por seres humanos e não por programas (bots) mal intencionados.

<%
'-----------------------------------------------------------------------
'----------------------Script desenvolvido por -------------------------
'----------------------Heber Almeida------------------------------------
'----------------------heber@heberonline.com.br-------------------------
'----------------------www.heberonline.com.br---------------------------
'-----------------------------------------------------------------------
%>
<!--#include file="senha.asp" -->
<html>
<head>
<script language="JavaScript" type="text/JavaScript">
<!--
function localizando_objeto(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=localizando_objeto(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function checar_formulario() { //v4.66
//copyright (c)ByBuRCUVA maxasp.org
  var args = checar_formulario.arguments; var myDot=true; var myV=''; var myErr='';var addErr=false;var myReq;
  for (var i=1; i<args.length;i=i+4){
    if (args[i+1].charAt(0)=='#'){myReq=true; args[i+1]=args[i+1].substring(1);}else{myReq=false}
    var myObj = localizando_objeto(args[i].replace(/\[\d+\]/ig,""));
    myV=myObj.value;
    if (myObj.type=='text'||myObj.type=='senha'||myObj.type=='hidden'){
      if (myReq&&myObj.value.length==0){addErr=true}
      if ((myV.length>0)&&(args[i+2]==1)){ //fromto
        var myMa=args[i+1].split('_');if(isNaN(myV)||myV<myMa[0]/1||myV > myMa[1]/1){addErr=true}
      } else if ((myV.length>0)&&(args[i+2]==2)){
          var rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-z]{2,4}$");if(!rx.test(myV))addErr=true;
      } else if ((myV.length>0)&&(args[i+2]==3)){ // date
        var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);
        if(myAt){
          var myD=(myAt[myMa[1]])?myAt[myMa[1]]:1; var myM=myAt[myMa[2]]-1; var myY=myAt[myMa[3]];
          var myDate=new Date(myY,myM,myD);
          if(myDate.getFullYear()!=myY||myDate.getDate()!=myD||myDate.getMonth()!=myM){addErr=true};
        }else{addErr=true}
      } else if ((myV.length>0)&&(args[i+2]==4)){ // time
        var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);if(!myAt){addErr=true}
      } else if (myV.length>0&&args[i+2]==5){ // check this 2
            var myObj1 = localizando_objeto(args[i+1].replace(/\[\d+\]/ig,""));
            if(myObj1.length)myObj1=myObj1[args[i+1].replace(/(.*\[)|(\].*)/ig,"")];
            if(!myObj1.checked){addErr=true}
      } else if (myV.length>0&&args[i+2]==6){ // the same
            var myObj1 = localizando_objeto(args[i+1]);
            if(myV!=myObj1.value){addErr=true}
      }
    } else
    if (!myObj.type&&myObj.length>0&&myObj[0].type=='radio'){
          var myTest = args[i].match(/(.*)\[(\d+)\].*/i);
          var myObj1=(myObj.length>1)?myObj[myTest[2]]:myObj;
      if (args[i+2]==1&&myObj1&&myObj1.checked&&localizando_objeto(args[i+1]).value.length/1==0){addErr=true}
      if (args[i+2]==2){
        var myDot=false;
        for(var j=0;j<myObj.length;j++){myDot=myDot||myObj[j].checked}
        if(!myDot){myErr+='* ' +args[i+3]+'\n'}
      }
    } else if (myObj.type=='checkbox'){
      if(args[i+2]==1&&myObj.checked==false){addErr=true}
      if(args[i+2]==2&&myObj.checked&&localizando_objeto(args[i+1]).value.length/1==0){addErr=true}
    } else if (myObj.type=='seleção-unica'||myObj.type=='seleção-multipla'){
      if(args[i+2]==1&&myObj.selectedIndex/1==0){addErr=true}
    }else if (myObj.type=='area-de-texto'){
      if(myV.length<args[i+1]){addErr=true}
    }
    if (addErr){myErr+='* '+args[i+3]+'\n'; addErr=false}
  }
  if (myErr!=''){alert('Erro encontrado !!!:\t\t\t\t\t\n\n'+myErr)}
  document.MM_returnValue = (myErr=='');
}
//-->
</script>
</head>
<body bgcolor="white" text="black">
<div align="center"> 
  <form action="entrar.asp" method="post" name="captcha" onSubmit="checar_formulario('captcha','form','#form2','6','O código de segurança não confere, por favor verifique.');return document.MM_returnValue">
<table width="75%" border="0" bgcolor="#CCCCCC" height="26">
      <tr>
        <td height="22"><table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr> 
              <td width="18%" bordercolor="#FFFFFF" bgcolor="#E8E8E8">
              <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
              Código de Segurança: </font></td>
              <td width="18%" bgcolor="#FFFFFF"> 
<%
dim randnum 
randnum = aleatorio(5,1,2)

For intWriteDigitLoopCount = 1 to Len(randnum)

	Response.Write("<img src=""images/") 
	Response.Write(Mid(randnum, intWriteDigitLoopCount, 1) & ".gif""") 
	Response.Write("alt=""" & Mid(randnum, intWriteDigitLoopCount, 1) & """>")
Next
%>
              </td>
              <td width="35%" bordercolor="#FFFFFF" bgcolor="#E8E8E8"> &nbsp;&nbsp; 
                <input type="text" name="form" size="20"></td>
              <td width="29%" bordercolor="#FFFFFF" bgcolor="#E8E8E8"> 
                <input type="submit" name="Submit" value="Entrar"> 
                <input name="form2" type="hidden" id="textfield22" value="<%=randnum%>"></td>
            </tr>
          </table></td>
      </tr>
    </table>
  </form>
</div>
<p><font size="2" face="Arial">*Maiúsculas</font></p>
<p><font face="Arial" size="2">
<a target="_blank" href="http://www.heberonline.com.br">www.heberonline.com.br</a>&nbsp;
</font></p>
</body>
</html>

<%
'-----------------------------------------------------------------------
'----------------------Script desenvolvido por -------------------------
'----------------------Heber Almeida------------------------------------
'----------------------heber@heberonline.com.br-------------------------
'----------------------www.heberonline.com.br---------------------------
'-----------------------------------------------------------------------
%>

<html>
<head>
<script language="JavaScript" type="text/JavaScript">
<!--
function localizando_objeto(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=localizando_objeto(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

For intWriteDigitLoopCount = 1 to Len(randnum)

Response.Write("<img src=""images/") 
	Response.Write(Mid(randnum, intWriteDigitLoopCount, 1) & ".gif""") 
	Response.Write("alt=""" & Mid(randnum, intWriteDigitLoopCount, 1) & """>")
Next
%>
              </td>
              <td width="35%" bordercolor="#FFFFFF" bgcolor="#E8E8E8"> &nbsp;&nbsp; 
                <input type="text" name="form" size="20"></td>
              <td width="29%" bordercolor="#FFFFFF" bgcolor="#E8E8E8"> 
                <input type="submit" name="Submit" value="Entrar"> 
                <input name="form2" type="hidden" id="textfield22" value="<%=randnum%>"></td>
            </tr>
          </table></td>
      </tr>
    </table>
  </form>
</div>
<p><font size="2" face="Arial">*Maiúsculas</font></p>
<p><font face="Arial" size="2">
<a target="_blank" href="http://www.heberonline.com.br">www.heberonline.com.br</a>&nbsp;
</font></p>
</body>
</html>

Arquivo	Tipo	Tamanho	Hits
captcha-HeberOnline.zip	Arquivo ZIP	63,3 Kb	157

Este código foi útil para você?

Nota	Comentário
Ainda não foi enviado nenhum comentário.

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
A pontuação de comentários de conteúdo do próprio membro não serão computados.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Há um limite de 10 comentários por dia para cada membro.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação:

Equipe | Tabela de Pontos e Estrelas | Política de Privacidade | Mapa do Site | Fale Conosco