OVH Cloud OVH Cloud

Dessiner un nombre dans une image

9 réponses
Avatar
P.C.
Bonjour,

je cherche à générer en perl une image (gif, png ou autre) qui contienne un
nombre (fixé aléatoirement) à telle fin que l'utilisateur doit rentrer ce
nombre dans un champ de formulaire pour pouvoir poursuivre: ceci afin de
tordre le cou aux robots type spammeurs. J'ai vu ce genre de chose faite sur
un site écrit en php (mais je ne me souviens plus duquel) et sur le site
msn.com lorsqu'on se crée une nouvelle adresse e-mail. Est-ce qu'une ame
charitable pourrait m'indiquer où je pourrais me procurer un tel script?
Voire, me l'envoyer?

Je vous remercie d'avance,

Bien à vous,

P.C.

9 réponses

Avatar
Denis -esp2008-
Bonjour,


je cherche à générer en perl une image (gif, png ou autre) qui
contienne un nombre (fixé aléatoirement)


Pour générer une image contenant un texte, il suffit d'utiliser le
module GD::Text.
http://search.cpan.org/~mverb/GDTextUtil-0.86/Text.pm

--
Denis

P.S.: pour faire de la programmation web en perl, il vaut mieux s'équiper
de ce livre: http://www.oreilly.fr/catalogue/cgi_perl2.html

Avatar
P.C.
"Denis -esp2008-" a écrit dans le
message de
news:


Pour générer une image contenant un texte, il suffit d'utiliser le
module GD::Text.
http://search.cpan.org/~mverb/GDTextUtil-0.86/Text.pm



Merci. cependant, sur mon pc (sous Win2k) j'ai un perl qui ne semble pas
comprendre ce module (ActivePerl-5.8.0.806-MSWin32-x86). Est-ce normal? Faut
il télécharger cette bibliotheque, ou est elle en standard avec la version
actuelle de Perl qu'on peut trouver sur "la plupart" des serveurs hébergeant
ce langage?

Re-merci d'avance pour vos réponses,

P.C.

Avatar
stephane HAbeTT roux
In <41697af1$0$8676$, P.C. wrote:

Pour générer une image contenant un texte, il suffit d'utiliser le
module GD::Text.
http://search.cpan.org/~mverb/GDTextUtil-0.86/Text.pm



Merci. cependant, sur mon pc (sous Win2k) j'ai un perl qui ne semble pas
comprendre ce module (ActivePerl-5.8.0.806-MSWin32-x86). Est-ce normal?
Faut il télécharger cette bibliotheque, ou est elle en standard avec la
version actuelle de Perl qu'on peut trouver sur "la plupart" des serveurs
hébergeant ce langage?


Même problème ici avec GD et ActivePerl-5.8.x
Pas de package disponible sous ppm :-(

Pas de problème côté serveur perl 5.6.1 sur une Debian.

Avec une ActivePerl 5.6.x pas de problème en local mais bon.

--
|":._.:"| http://habett.com/
| (=) | http://habett.org/
|.,/:,.| Another really poor perl hacker


Avatar
Régis Caspar
P.C. wrote:
Merci. cependant, sur mon pc (sous Win2k) j'ai un perl qui ne semble pas
comprendre ce module (ActivePerl-5.8.0.806-MSWin32-x86). Est-ce normal? Faut
il télécharger cette bibliotheque, ou est elle en standard avec la version
actuelle de Perl qu'on peut trouver sur "la plupart" des serveurs hébergeant
ce langage?

Re-merci d'avance pour vos réponses,

P.C.


Bonsoir,

Regardez sur le repository theoryx (http://theoryx5.uwinnipeg.ca/) :
=================== Package 16:
Name: GDTextUtil
Version: 0.86
Author: Martien Verbruggen ()
Title: GDTextUtil
Abstract: text utilities for GD
Location: theoryx
Prerequisites:
1. GD 1.0
Available Platforms:
1. MSWin32-x86-multi-thread-5.8
===================
--
Régis Caspar

Avatar
Patrick Texier
Le Sun, 10 Oct 2004 20:11:38 +0200, "P.C."
a écrit :

Merci. cependant, sur mon pc (sous Win2k) j'ai un perl qui ne semble pas
comprendre ce module (ActivePerl-5.8.0.806-MSWin32-x86). Est-ce normal? Faut
il télécharger cette bibliotheque, ou est elle en standard avec la version
actuelle de Perl qu'on peut trouver sur "la plupart" des serveurs hébergeant
ce langage?


Utilisez ppm pour rechercher ce module.
--
Patrick Texier

Avatar
Denis -esp2008-
Bonsoir,


Merci. cependant, sur mon pc (sous Win2k) j'ai un perl qui ne semble pas
comprendre ce module (ActivePerl-5.8.0.806-MSWin32-x86). Est-ce normal?


Oui. Bonne chance pour l'installer sous windows!


Faut il télécharger cette bibliotheque, ou est elle en standard avec
la version actuelle de Perl qu'on peut trouver sur "la plupart" des
serveurs hébergeant ce langage?


Sur les serveurs web elle est habituellement présente (elle vient avec gd
qui est installé sur tous les serveurs web à ma connaissance). Si ce
n'est pas le cas aucun administrateur ne devrait refuser de l'installer
sur simple demande.

--
Denis

Avatar
stephane HAbeTT roux
Bonjour,

In <416984b6$0$304$, Régis Caspar wrote:

Regardez sur le repository theoryx (http://theoryx5.uwinnipeg.ca/) :


Excellent !

Pour information, on peut avoir une liste des repositories que vous
utilisez ?

--
|":._.:"| http://habett.com/
| (=) | http://habett.org/
| .:. | New alternative world order

Avatar
Régis Caspar
stephane HAbeTT roux wrote:
Bonjour,

In <416984b6$0$304$, Régis Caspar wrote:


Regardez sur le repository theoryx (http://theoryx5.uwinnipeg.ca/) :



Excellent !

Pour information, on peut avoir une liste des repositories que vous
utilisez ?



Bonjour,

J'utilise uniquement Activestate :
http://ppm.ActiveState.com/PPM/ppmserver-5.8-windows.plex?urn:/PPM/Server/SQL
et
http://ppm.ActiveState.com/cgibin/PPM/ppmserver-5.8-windows.pl?urn:/PPMServer
et Theoryx :
http://theoryx5.uwinnipeg.ca/ppms/


--
Régis Caspar


Avatar
Laurent Wacrenier
Denis -esp2008- écrit:
je cherche à générer en perl une image (gif, png ou autre) qui
contienne un nombre (fixé aléatoirement)


Pour générer une image contenant un texte, il suffit d'utiliser le
module GD::Text.
http://search.cpan.org/~mverb/GDTextUtil-0.86/Text.pm


Si c'est pour proteger un accès, ça ne suffit, pas, l'image décodable
par un bête OCR.