Internet Captcha
HOME
CONFIG
EXAMPLES
DOWNLOAD
HELP
FORUM
ASP
No iframes
PHP
No iframes
Files to include in your web server
exampleasp.html
<head> <script language="JavaScript"> <!-- function again(){ document.icaptcha.SetVariable("again","OK"); } function checking(){ document.icaptcha.SetVariable("code",document.validate.code.value); } function send(){ document.validate.submit(); } //--> </script> </head> <body> <form action="save.asp" method="post" name="validate"> <!-- Here put form's imputs to send //--> Text to send: <br> <input type="text" name="text" size="20" maxlength="20" value="" /> <br><br> <object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0" width="200" height="50" id="icaptcha"> <param name="FlashVars" value="ok=Correct&wrong=Wrong Code&c1=2&c2=1&c3=0&c4=1&c5=1&mar=10&gro=7&vel=80&vim=50&leng=asp&color=16711680"> <param name="movie" value="icaptcha.swf" /> <param name="bgcolor" value="#7FFFFF" /> <param name="scale" value="exactfit" /> <embed src="icaptcha.swf" FlashVars="ok=Correct&wrong=Wrong Code&c1=2&c2=1&c3=0&c4=1&c5=1&mar=10&gro=7&vel=80&vim=50&leng=asp&color=16711680" scale="exactfit" bgcolor="#7FFFFF" width="200" height="50" name="icaptcha" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /> </object><br> <!-- This line is optional. It's to repeat other scurity code //--> <a onClick="again()" style="cursor:pointer"><u><font color="#0000FF">Generate another code</font></u></a> <br><br> Write security code: <br> <input type="text" name="code" size="7" maxlength="5" value="" /> <br> <input type="button" name="send" value="SEND" onclick="checking()"> </form> </body>
examplephp.html
<head> <script language="JavaScript"> <!-- function again(){ document.icaptcha.SetVariable("again","OK"); } function checking(){ document.icaptcha.SetVariable("code",document.validate.code.value); } function send(){ document.validate.submit(); } //--> </script> </head> <body> <form action="save.php" method="post" name="validate"> <!-- Here put form's imputs to send //--> Text to send: <br> <input type="text" name="text" size="20" maxlength="20" value="" /> <br><br> <object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0" width="200" height="50" id="icaptcha"> <param name="FlashVars" value="ok=Correct&wrong=Wrong Code&c1=1&c2=1&c3=0&c4=2&c5=2&mar=10&gro=7&vel=80&vim=50&leng=php&color=255"> <param name="movie" value="icaptcha.swf" /> <param name="bgcolor" value="#FFFF00" /> <param name="scale" value="exactfit" /> <embed src="icaptcha.swf" FlashVars="ok=Correct&wrong=Wrong Code&c1=1&c2=1&c3=0&c4=2&c5=2&mar=10&gro=7&vel=80&vim=50&leng=asp&color=255" scale="exactfit" bgcolor="#FFFF00" width="200" height="50" name="icaptcha" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /> </object> <br> <!-- This line is optional. It's to repeat other scurity code //--> <a onClick="again()" style="cursor:pointer"><u><font color="#0000FF">Generate another code</font></u></a> <br><br> Write security code: <br> <input type="text" name="code" size="7" maxlength="5" value="" /> <br> <input type="button" name="send" value="SEND" onclick="checking()"> </form> </body>
icaptcha.asp
<% Const Distortion=20 Const Distance=50 Const Turn=50 Const Doping=0 Dim r(9),n(4),c(80) r(0) = "biegcgbiamakhieggghiimikhqimiohqesgsbqescsbqamao" r(1) = "ckegdiegeieheielekelenemeneqeoeqeserescsdsesgsfs" r(2) = "bhegcgbhakaihheggghhijiiasescsesisgsijgmikgmasdp" r(3) = "bhegcgbhajaiegijigdmijimdmipimbrescsbrapaqesipis" r(4) = "egckdiaockbmaocobocoeodoeogofogoiohogignglgngsgq" r(5) = "agegcgegigggigiiihagamakamekakekioikesioisaqesas" r(6) = "biegcgbiaoakaoekakekioikesioiseghhggbrescsbraoaq" r(7) = "agaiahagcgbgcgegdgegggfgggighgiggkhigkeofmeocsdq" r(8) = "ajegagegijigajemamemijimapemamemipimapesasesipis" r(9) = "hqesgshqikinikeoioeoakaoegakagesbrcshheggghhikii" Const PI=3.1416 response.write("v=") randomize cont=-1 code="" for f=0 to 4 n(f)=int(rnd*10) code=code+cstr(n(f)) dist = 0 if f=0 then dist = int(rnd*(Distance/4)) elseif (f = 4) then dist = -int(rnd*(Distance/4)) else dist = int(rnd*(Distance/2)-(Distance/4)) end if ang = 1.5*((rnd*2)-1)*Turn/100 for g=0 to 7 ala=n(f) if (rnd*200<Doping) and (g>0) then g=g-1:ala = int(rnd*10) cont=cont+1 c(cont)="" for h=0 to 2 nx = ((asc(mid(r(ala),(g*6)+(h*2)+1,1))-96)*5)-25 ny = ((asc(mid(r(ala),(g*6)+(h*2)+2,1))-96)*5)-65 if nx=0 then ian=sgn(ny)*PI/2 elseif nx<0 then ian = atn(ny/nx)+(PI) else ian = atn(ny/nx) end if ian = ian+ang hip = sqr((nx^2)+(ny^2)) nx = 25+hip*cos(ian)+(int(rnd*(Distortion/5))-(Distortion/10))+(dist+50*f) ny = 65+hip*sin(ian)+(int(rnd*(Distortion/5))-(Distortion/10)) if (nx<1) then nx =1 if (nx>250) then nx = 250 x = right("0"+cstr(hex(nx)),2) y = right("0"+cstr(hex(ny)),2) c(cont)=c(cont)+x+y next next next for f=0 to 20 g=int(rnd*cont) h=int(rnd*cont) x=c(g) c(g)=c(h) c(h)=x next session("code")=code for f=0 to cont response.write(c(f)) next %>
icaptcha.php
<? session_start(); define ("Distortion",20); define ("Distance",50); define("Turn",50); define("Doping",0); $r[0]="biegcgbiamakhieggghiimikhqimiohqesgsbqescsbqamao"; $r[1]="ckegdiegeieheielekelenemeneqeoeqeserescsdsesgsfs"; $r[2]="bhegcgbhakaihheggghhijiiasescsesisgsijgmikgmasdp"; $r[3]="bhegcgbhajaiegijigdmijimdmipimbrescsbrapaqesipis"; $r[4]="egckdiaockbmaocobocoeodoeogofogoiohogignglgngsgq"; $r[5]="agegcgegigggigiiihagamakamekakekioikesioisaqesas"; $r[6]="biegcgbiaoakaoekakekioikesioiseghhggbrescsbraoaq"; $r[7]="agaiahagcgbgcgegdgegggfgggighgiggkhigkeofmeocsdq"; $r[8]="ajegagegijigajemamemijimapemamemipimapesasesipis"; $r[9]="hqesgshqikinikeoioeoakaoegakagesbrcshheggghhikii"; echo "v="; $cont=-1; $code=""; for ($f=0;$f<5;$f++) { $n[$f]=rand(0,9); $code.=(string)$n[$f]; $dist=0; if ($f==0){ $dist = rand(0,Distance/4); }elseif ($f==4){ $dist=-rand(0,Distance/4); }else{ $dist=rand(-Distance/4,Distance/4); } $ang=rand(-1500,1500)*Turn/100000; for ($g=0;$g<8;$g++){ $ala=$n[$f]; if ((rand(0,200)<Doping) and ($g>0)){ $g--; $ala=rand(0,9); } $cont++; $c[$cont]=""; for ($h=0;$h<3;$h++){ $nx=((ord(substr($r[$ala],($g*6)+($h*2),1))-96)*5)-25; $ny=((ord(substr($r[$ala],($g*6)+($h*2)+1,1))-96)*5)-65; $ian=atan2($ny,$nx); $ian=$ian+$ang; $hip=sqrt(pow($nx,2)+pow($ny,2)); $nx=25+$hip*cos($ian)+rand(-Distortion/5,Distortion/5)+($dist+50*$f); $ny=65+$hip*sin($ian)+rand(-Distortion/5,Distortion/5); if ($nx<1){ $nx=1; } if ($nx>250){ $nx=250; } $x=substr("0".dechex($nx),-2); $y=substr("0".dechex($ny),-2); $c[$cont].=$x.$y; } } } for ($f=0;$f<21;$f++) { $g=rand(0,$cont); $h=rand(0,$cont); $x=$c[$g]; $c[$g]=$c[$h]; $c[$h]=$x; } $_SESSION["code"]=$code; for ($f=0;$f<=$cont;$f++){ echo $c[$f]; } ?>
validate.asp
<% code=Request.Form("code") if code=session("code") then response.write("ok=True") session("code")="ok" else response.write("ok=False") session("code")="" end if %>
validate.php
<? session_start(); $code=$HTTP_POST_VARS["code"]; if ($code==$_SESSION["code"]) { echo "ok=True"; $_SESSION["code"]="ok"; } else { echo "ok=False"; $_SESSION["code"]=""; } ?>
save.asp
<% if session("code")="ok" then session("code")="" 'Here put the asp code to menage your form info response.write(Request.Form("text")) end if %> <br> <a href="http://www.icaptcha.com/icaptcha/exampleasp.html">Back</a>
save.php
<? session_start(); if ($_SESSION["code"]=="ok") { $_SESSION["code"]=""; //Here put the php code to menage your form info; echo $HTTP_POST_VARS["text"]; } ?> <br> <a href="http://www.icaptcha.com/icaptcha/examplephp.html">Back</a>
These files you can download from:
Download Page