X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=modules%2Ferl%2Fold%2Fcaptcha.erl;fp=modules%2Ferl%2Fold%2Fcaptcha.erl;h=e8852396d3b8d114aa0cb24806eff0a7bfa18c43;hb=3d3bb0ea14b30705c2a26a1117374e6568ba59bb;hp=0000000000000000000000000000000000000000;hpb=3bd76df122c257d6bfda6619f95f7a207f458d47;p=euphorik.git

diff --git a/modules/erl/old/captcha.erl b/modules/erl/old/captcha.erl
new file mode 100755
index 0000000..e885239
--- /dev/null
+++ b/modules/erl/old/captcha.erl
@@ -0,0 +1,31 @@
+% Module permettant la génération de captcha.
+% Dépend de la lib 'erlycairo', il faut que son c-node soit démarré.
+% Auteur : G.Burri
+% Date : 05.11.2007
+
+-module(captcha).
+-export([create/2]).
+
+-include("../include/euphorik_defines.hrl").
+
+
+% Crée un captcha de longueur L dans le dossier Dossier.
+% renvoie {Mot crypté:string(), Nom du fichier:string()}
+create(L, Dossier) ->
+   Mot = common:generer_mot(L),
+   Mot_crypt = common:crypt(Mot),
+   Nom_fichier = Mot_crypt ++ ".png",
+   erlycairo:new_image_blank(length(Mot) * 8, 14),
+   erlycairo:set_source_rgba(0, 0, 0, 1),
+   erlycairo:select_font_face("Courier", 0, 1),
+   erlycairo:set_font_size(12),
+   erlycairo:move_to(2, 10),
+   erlycairo:show_text(Mot),
+   erlycairo:move_to(2, 10),
+   erlycairo:line_to(length(Mot) * 8 - 2, 10),
+   erlycairo:set_line_width(1),
+   erlycairo:stroke(),
+   erlycairo:write_to_png(Dossier ++ "/" ++ Nom_fichier),
+   erlycairo:close_image(),
+   {Mot_crypt, Nom_fichier}.
+   
\ No newline at end of file