Script Library: 1238 scripts


REBOL [ title: "Captcha Example" date: 8-Apr-2010 file: %captcha-example.r author: Nick Antonaccio purpose: { A minimal example demonstrating how to use the captcha library by SOFTINNOV: NOTE: the first part of this script CAN be used to create catchpa images in a non-graphic environment. You can, for example, run the first 6 lines of this script on your web server - just be sure to use REBOL/command (available for free in the REBOL SDK Beta at rebcmd or rebcmd.exe - demo license available in the MAC download). } ] write/binary %Caliban.caf read/binary do captcha/set-fonts-path %./ captcha/level: 4 write/binary %captcha.png captcha/generate write %captcha.txt captcha/text view center-face layout [ image (load %captcha.png) text "Enter the captcha text:" f1: field [ either f1/text = (read %captcha.txt) [alert "Correct"] [alert "Incorrect"] ] ]
halt ;; to terminate script if DO'ne from webpage