🚀 go-pugleaf

--=-GYn4UuxoYUz7COSXw+S9
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

Hola,

ver=C3=A9is, estoy desarrollando una aplicaci=C3=B3n, la cual tengo ya muy
adelanta, se trata de un instalador de portales perl para usuarios que
s=C3=B3lo pueden acceder a su espacio web a trav=C3=A9s del ftp.

La estoy desarrollando en C con gtk+. La versi=C3=B3n que tengo funciona
correctamente i realiza su cometido (tanto desde Linux 32 o 64 como
desde win 32)

El desarrollo de esta aplicaci=C3=B3n surgi=C3=B3, tras el intento de hacer=
 una
documentaci=C3=B3n que explicase como instalar dichas aplicaciones en el
servidor. ... llegu=C3=A9 a la conclusi=C3=B3n que era m=C3=A1s sencillo cr=
ear una
aplicaci=C3=B3n que crear la documentaci=C3=B3n que mostrase como instalarl=
o (que
es bien complicado en estos casos, sobre todo para personas que no se
dediquen a estos)

El proyecto lo tengo aqu=C3=AD:
https://projectes.lafarga.cat/projects/watinet

Bien. Mi problema. Tengo unas funciones de encriptaci=C3=B3n sencillas, que
utilizo tanto desde javaScript, como desde C, como desde Perl.

Despu=C3=A9s de varios intentos he conseguido (o eso creo yo) que funcionen
al igual entre ellas.

Bueno, yo no soy muy bueno, en todo esto. La verdad es que siempre me
considero un aprendiz, quiz=C3=A1s porqu=C3=A9 no tengo unos s=C3=B3lidos c=
onocimientos
sobre estos temas y siempre hayan llegado a mi de forma autodidacta.

Resulta que para la gente que en principio puede ir dirigida esta
aplicaci=C3=B3n, son usuarios de TiNET. Y el servidor es un Solaris con Per=
l
5.5. Y en la funci=C3=B3n de encriptaci=C3=B3n me encuentro con un problema=
 i es
que en perl me crea el n=C3=BAmero flotante suyo muy pronto sin dejar a la
funci=C3=B3n cumplir su cometido concretamente con valores por ejemplo
POSIX::floor((57016 * 1789749151 + 2 ) % 2147483647)
con el mod no hay problema je, je, es sencillete (o tambi=C3=A9n eso me cre=
o
yo O:))

Se puede ver aqu=C3=AD con un test que he creado para intentar solucionarlo
por mi mismo .. (pero no llego) en mi servidor personal (perl 5.8) y
otro en Tinet (perl 5.5) para que se vea la diferencia:

http://www.tinet.cat/~acl/cgi-bin/crypt/encript.pl
http://www.engendro.sytes.net/~acl/cgi-bin/crypt/encript.pl

Siento soltar todo este rollo, pero es que no me se explicar.

Pod=C3=A9is echarme un cable para solucionar este punto.

Gracias

--=-GYn4UuxoYUz7COSXw+S9
Content-Type: application/pgp-signature; name=signature.asc
Content-Description: Esta parte del mensaje =?ISO-8859-1?Q?est=E1?= firmada
	digitalmente

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.5 (GNU/Linux)

iQCVAwUARRlDcB535IyztBIVAQKwwgP/e0PRfGoUEf27oqozrsg6QbpqHwxOxScR
auSOF4zzRV5OvIuuesniDkE/d/MQxMBq4nh/tDSe53HPUKJAaIWA0FMY5891uZjk
7xwqTzicEZaPw0lteeWtGkhlU3sYJmsEhHIIgUdXiSrid5MdRnOuFIB3eP2yDcZ/
wIS2Jd8jvs8=
=KGKI
-----END PGP SIGNATURE-----

--=-GYn4UuxoYUz7COSXw+S9--