Internet Captcha

HOME

EXAMPLES

ASP No iframes	PHP No iframes
Files to include in your web server
exampleasp.html <!DOCTYPE html> <head> <title>exampleasp</title> <!--[if lt IE 9]><script type='text/javascript' src='excanvas.js'></script><![endif]--> <script type='text/javascript' src='icaptcha.js'></script> </head> <body onload="icaptcha(2,'#0000FF','Wrong Code',10,'asp')"> <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> <div id='icaptcha' style='border-top:1px solid lightGray;border-left:1px solid lightGray;border-bottom:1px solid black;border-right:1px solid black;height:50px;width:200px;background-color:#FFFF7F'></div> <br> <!-- This line is optional. It's to repeat other scurity code //--> <a onClick="loadicaptcha()" style="cursor:pointer">Generate another code</a> <br><br> Write security code: <br> <input type="text" id="code" size="7" maxlength="5" value="" /> <br> <input type="button" id="send" value="SEND" onclick="checking_icaptcha()"> </form> </body>	examplephp.html <!DOCTYPE html> <head> <title>examplephp</title> <!--[if lt IE 9]><script type='text/javascript' src='excanvas.js'></script><![endif]--> <script type='text/javascript' src='icaptcha.js'></script> </head> <body onload="icaptcha(1,'#000000','Wrong Code',10,'php')"> <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> <div id='icaptcha' style='height:50px;width:200px;background-color:#FFFFFF'></div> <br> <!-- This line is optional. It's to repeat other scurity code //--> <a onClick='loadicaptcha()' style='cursor:pointer'>Generate another code</a> <div id='icaptcha' style='height:70px;width:250px;background-color:#FFFFFF'></div> <input type='text' id='code' size='7' maxlength='5' value='' /> <input type='button' name='send' value='SEND' onclick='checking_icaptcha()'> </form> </body>
icaptcha.asp <% Const Distortion=0 Const Distance=0 Const Turn=0 Const Doping=0 Dim r(15),n(4),c(80) 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" r(10) = "cmasbpegcmdjgmegfjgmishpcmemdmemgmfm" r(11) = "agasamagcgbgamcmbmascsbscgijigcmijimcmipimcsipis" r(12) = "biegcgbiamakhieggghqesgsbqescsbqamao" r(13) = "agamajamasapagcgbgascsbscghigghiimikimhqiohqcsgs" r(14) = "agamajamasapagegcgasescsegigggesisgsamgmcm" r(15) = "agamajamasapagegcgegigggamgmcm" Const PI=3.1416 randomize cont=-1 code="" for f=0 to 4 n(f)=int(rnd15)+1 code=code+Hex(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((rnd2)-1)Turn/100 for g=0 to (len(r(n(f)))/6)-1 ala=n(f) if (rnd200<Doping) and (g>0) then g=g-1:ala = int(rnd15)+1 cont=cont+1 c(cont)="" for h=0 to 2 nx = ((asc(mid(r(ala),(g6)+(h2)+1,1))-96)5)-25 ny = ((asc(mid(r(ala),(g6)+(h2)+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+hipcos(ian)+(int(rnd(Distortion/5))-(Distortion/10))+(dist+50f) ny = 65+hipsin(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(rndcont) 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',0); define ('Distance',0); define('Turn',0); define('Doping',0); $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'; $r[10]='cmasbpegcmdjgmegfjgmishpcmemdmemgmfm'; $r[11]='agasamagcgbgamcmbmascsbscgijigcmijimcmipimcsipis'; $r[12]='biegcgbiamakhieggghqesgsbqescsbqamao'; $r[13]='agamajamasapagcgbgascsbscghigghiimikimhqiohqcsgs'; $r[14]='agamajamasapagegcgasescsegigggesisgsamgmcm'; $r[15]='agamajamasapagegcgegigggamgmcm'; $cont=-1; $code=''; for ($f=0;$f<5;$f++) { $n[$f]=rand(1,15); $code.=dechex($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<(strlen($r[$n[$f]]))/6;$g++){ $ala=$n[$f]; if ((rand(0,200)<Doping) and ($g>0)){ $g--; $ala=rand(1,15); } $cont++; $c[$cont]=''; for ($h=0;$h<3;$h++){ $nx=((ord(substr($r[$ala],($g6)+($h2),1))-96)5)-25; $ny=((ord(substr($r[$ala],($g6)+($h2)+1,1))-96)5)-65; $ian=atan2($ny,$nx); $ian=$ian+$ang; $hip=sqrt(pow($nx,2)+pow($ny,2)); $nx=25+$hipcos($ian)+rand(-Distortion/5,Distortion/5)+($dist+50$f); $ny=65+$hipsin($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 ((UCASE(code)=UCASE(session("code"))) and (code<>"")) then response.write("ok=True") session("code")="ok" else response.write("ok=False") session("code")="" end if %>	validate.php <? session_start(); if(isset($_POST['code'])){$code=$_POST['code'];}else{$code='';} if ((strtoupper ($code)===strtoupper ($_SESSION["code"])) && ($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 $_POST["text"]; } ?> <br> <a href="http://www.icaptcha.com/icaptcha/examplephp.html">Back</a>
Add icaptcha.js and excanvas.js. These files you can download from: Download Page