1 % Module permettant la génération de captcha.
2 % Dépend de la lib 'erlycairo', il faut que son c-node soit démarré.
9 -include("../include/euphorik_defines.hrl").
12 % Crée un captcha de longueur L dans le dossier Dossier.
13 % renvoie {Mot crypté:string(), Nom du fichier:string()}
15 Mot
= common:generer_mot(L
),
16 Mot_crypt
= common:crypt(Mot
),
17 Nom_fichier
= Mot_crypt
++ ".png",
18 erlycairo:new_image_blank(length(Mot
) * 8, 14),
19 erlycairo:set_source_rgba(0, 0, 0, 1),
20 erlycairo:select_font_face("Courier", 0, 1),
21 erlycairo:set_font_size(12),
22 erlycairo:move_to(2, 10),
23 erlycairo:show_text(Mot
),
24 erlycairo:move_to(2, 10),
25 erlycairo:line_to(length(Mot
) * 8 - 2, 10),
26 erlycairo:set_line_width(1),
28 erlycairo:write_to_png(Dossier
++ "/" ++ Nom_fichier
),
29 erlycairo:close_image(),
30 {Mot_crypt
, Nom_fichier
}.