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: http://softinnov.org/rebol/captcha.shtml 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 http://www.rebol.net/builds/#section-1 rebcmd or rebcmd.exe - demo license available in the MAC download). } ] write/binary %Caliban.caf read/binary http://re-bol.com/Caliban.caf do http://re-bol.com/captcha.r 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"] ] ]