# Этот файл может помочь в создании структуры файлов с изображениями, используемыми классом AntispamTuringCaptcha. # 1. Найдите и скачайте программу font2gif.zip # 2. Запустите её и создайте наборы символов, которые будут использоваться в тесте Тюринга. # При генерации файлов используйте в качестве имени файлов ASCII коды и используйте буквы чёрного цвета. # Если набор используемых символов выходит из диапазона [a-zA-Z0-9], то добавьте новые символы в таблицу $tReplace # 3. Скопируйте каталоги с создаными наборами символов в одну директорию, например: # /../data/capture_src/ # /../data/capture_src/arial/ # /../data/capture_src/arial/img_char/ # /../data/capture_src/tahoma/ # /../data/capture_src/tahoma/img_char/ # итд # 4. При необходимосте исправьте $sDirSrc и $sDirDest # 5. Выполните этот файл. Он скопирует всё в структуру, которую понимает класс AntispamTuringCaptcha: # /../data/capture/0/ # /../data/capture/0/arial_1.gif # /../data/capture/0/tahoma_1.gif # /../data/capture/1/ # /../data/capture/1/arial_1.gif # /../data/capture/1/tahoma_1.gif # итд @USE FileSystem.p @main[] $sDirSrc[/../data/captcha_src] $sDirDest[/../data/captcha] ^FileSystem:dirDelete[$sDirDest;$.bRecursive(true)] $tFont[^file:list[$sDirSrc]] ^tFont.menu{ $sFontName[$tFont.name] $sSrc[$sDirSrc/$sFontName/img_char] $tChar[^file:list[$sSrc]] ^tChar.menu{ $sChar[^tChar.name.match[^^(\d+)\.gif^$][]{^match.1.replace[$tReplace]}] $sChar[^sChar.lower[]] $n(1) ^while(-f "$sDirDest/$sChar/${sFontName}_${n}.gif"){ ^n.inc(1) } ^FileSystem:copy[$sSrc/$tChar.name;$sDirDest/$sChar/${sFontName}_${n}.gif] } } done. @auto[] $tReplace[^table::create{a b 48 0 49 1 50 2 51 3 52 4 53 5 54 6 55 7 56 8 57 9 65 A 66 B 67 C 68 D 69 E 70 F 71 G 72 H 73 I 74 J 75 K 76 L 77 M 78 N 79 O 80 P 81 Q 82 R 83 S 84 T 85 U 86 V 87 W 88 X 89 Y 90 Z 97 a 98 b 99 c 100 d 101 e 102 f 103 g 104 h 105 i 106 j 107 k 108 l 109 m 110 n 111 o 112 p 113 q 114 r 115 s 116 t 117 u 118 v 119 w 120 x 121 y 122 z }]