🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: es.comp.os.linux.programacion
6 messages
6 total messages Started by AnimAlf Tue, 26 Sep 2006 15:12
[Sorry, mesaje largo] perl 5.5 vs 5.8
#765
Author: AnimAlf
Date: Tue, 26 Sep 2006 15:12
80 lines
4189 bytes
--=-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--
Re: [Sorry, mesaje largo] perl 5.5 vs 5.8
#773
Author: Jos� Luis P�rez Diez
Date: Wed, 27 Sep 2006 07:31
18 lines
1971 bytes
In article <1159283568.6866.30.camel@general.engendro.sytes.net>, AnimAlf 
wrote:
> Bien. Mi problema. Tengo unas funciones de encriptación sencillas, que
> utilizo tanto desde javaScript, como desde C, como desde Perl.
> 
> Se puede ver aquí 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:


El solaris necesita el perl 5.5 pero nada te impide instalarle un perl actual 
y usar este ( este tema suele salir bastante en los grupos de perl)


--
Los programadores esta ocupados intendtado mejorar los programas a prueba de 
idiotas. Mientras tanto el universo  intenta mejorar los idiotas. El universo 
va ganando
Re: [Sorry, mesaje largo] perl 5.5 vs 5.8
#775
Author: AnimAlf
Date: Wed, 27 Sep 2006 08:10
64 lines
3558 bytes
--=-qO/Ax46FimzgWjh936Xo
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

El dc, 27-09-2006 a las 09:31 +0200, Jos=C3=A9 Luis P=C3=A9rez Diez escribi=
=C3=B3:
> In article <1159283568.6866.30.camel@general.engendro.sytes.net>, AnimAlf=
=20
> wrote:
> > Bien. Mi problema. Tengo unas funciones de encriptaci=C3=83=C2=B3n senc=
illas, que
> > utilizo tanto desde javaScript, como desde C, como desde Perl.
> >=20
> > Se puede ver aqu=C3=83=C2=AD con un test que he creado para intentar so=
lucionarlo
> > 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:
>=20
>=20
> El solaris necesita el perl 5.5 pero nada te impide instalarle un perl ac=
tual=20
> y usar este ( este tema suele salir bastante en los grupos de perl)

S=C3=AD. En este grupo tambi=C3=A9n se ha hablado de ello, un poco, al meno=
s, que
forma parte del sistema operativo de Solaris.

Pero la aplicaci=C3=B3n va destinada a terceros. Estos terceros, s=C3=B3lo =
pueden
acceder por medio del ftp a su espacio personal y sus conocimientos
pueden no tener nada que ver con el tema :))

=C2=BFSe os ocurre alg=C3=BAna formula para poder seguir adelante con esa
operaci=C3=B3n, alg=C3=BAn algoritmo, o algun contenedor para estos datos p=
ara no
deformarlos en 5.5?

Estoy encabezonado en que me gustaria utilizar ese metodo. Aunque sea
una tonteria: no enviar el nombre de usuario ni el pasword de forma
plana por la red a traves de la comunicaci=C3=B3n con el servidor web, cuan=
do
esos mismos datos son enviados planos al ftp para la identificaci=C3=B3n ..=
.
pero ... me gustaria O:)) poder continuar con ello.

gr=C3=A1cias

--=-qO/Ax46FimzgWjh936Xo
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)

iQCVAwUARRoyAR535IyztBIVAQIi3gP8DoXLfJWDRzjZqEgYAWws8EdgTxf2RtOn
Q/ddhz5/wdx+og8NDPyye0IjZ7cj/W+P+Ov9SFxrtNZ62M818ptFgTzEl0IUxp55
oCC9pOyUB0xsukcYA1sbtzFXaDlZXyPHY5r+boQ17B4QDscQ1d4gjaY7e+ccg3Zd
co3Ill1qNJc=
=9fNo
-----END PGP SIGNATURE-----

--=-qO/Ax46FimzgWjh936Xo--
Re: [Sorry, mesaje largo] perl 5.5 vs 5.8
#778
Author: Alberto Cabello Sanchez
Date: Thu, 28 Sep 2006 08:41
11 lines
1365 bytes
AnimAlf wrote:
> 
> Pero la aplicación va destinada a terceros. Estos terceros, sólo pueden
> acceder por medio del ftp a su espacio personal y sus conocimientos
> pueden no tener nada que ver con el tema :))
> 


Incluye una distribución binaria de Perl 5.8 para Solaris en la 
aplicación, y que se instale en el directorio del usuario. No veo el 
problema.
Re: [Sorry, mesaje largo] perl 5.5 vs 5.8
#781
Author: AnimAlf
Date: Thu, 28 Sep 2006 11:47
43 lines
2754 bytes
--=-594CWXgPYos0hKF5VNk4
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

El dj, 28-09-2006 a las 10:41 +0200, Alberto Cabello Sanchez escribi=C3=B3:
> AnimAlf wrote:
> >=20
> Incluye una distribuci=C3=B3n binaria de Perl 5.8 para Solaris en la=20
> aplicaci=C3=B3n, y que se instale en el directorio del usuario. No veo el=
=20
> problema.

S=C3=AD mirar=C3=A9 a ver que ocupa el paquete, es interesante verlo as=C3=
=AD. Pero el
espacio de usuario es limitado 15 Mb. Y luego est=C3=A1 el cambiar la
ubicaci=C3=B3n del interprete en los scripts.

Mejor realizar=C3=A9 la autentificaci=C3=B3n de otro modo, estoy planteando=
me un
sistema por cookies alternativo. Evaluar la versi=C3=B3n de perl i actuar
como est=C3=A1 ahora o por medio de cookies si es la versi=C3=B3n antigua. =
No se.
   _     __
 /_/ \/ /_
/_/  / /_

--=-594CWXgPYos0hKF5VNk4
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)

iQCVAwUARRu2Px535IyztBIVAQLKuwQA1ubYrRnhPtVM+LBkBULfLK/x9zpRGLSZ
UeLwMY72cdErQo61+ehUfhxkxw9AOIBGqOGtyP4dT3TrVUgIprp2xYfixzPzuVQy
grCWAYgsBZT/YOeWWhVeF/6qetruJl3NIkRX2jinFsQTXeKCuDfBNwmcoW7/tdNg
OSEDqREEGxY=
=lpCm
-----END PGP SIGNATURE-----

--=-594CWXgPYos0hKF5VNk4--
Re: [Sorry, mesaje largo] perl 5.5 vs 5.8
#801
Author: AnimAlf
Date: Sun, 01 Oct 2006 21:22
69 lines
3354 bytes
--=-6PjhkBVmHF9zNcO+lGlo
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

El dt, 26-09-2006 a las 17:12 +0200, AnimAlf escribi=C3=B3:
> Hola,
>=20

He diferenciado entre versiones y hago la entrada de diferentes modos.
=C2=BFSabeis a partir de que versi=C3=B3n de perl puede funcionar .. o la m=
a=C5=9B
probable? ahora he puesto la 5.8.5 pero es muy nueva tambi=C3=A9n. Quer=C3=
=ADa
poner la 5.6 pero no lo se seguro.

Otra cosa.

Je, je

Tengo una funci=C3=B3n recursiva de borrado de un directorio, me ocurre que
necesito utilizar un valor DIRHANDLE que no sea constante, en las
versiones reciente utilizo un valor variable como DIRHANDLE, pero en las
versiones antiguas no puede ser. Es decir hoy
   if (opendir (my $DIRECTORI,$dirActual))
y me funciona. Pero en versiones antiguas me da error, ha de ser
constante.

Puedo hacer esta funci=C3=B3n de otro modo =C2=BFen estas condiciones? o =
=C2=BFcual
seria el modo correcto de hacerlo en aquel entonces?

sub borraTotElDir {
  my $dirActual=3Dshift;
  if (opendir (DIRECTORI,$dirActual)){
    my $dinsDir;
    while ($dinsDir=3Dreaddir(DIRECTORI)){
      my $strViatjer =3D $dirActual . "/" . $dinsDir;
      if (-d $strViatjer){
        if ($dinsDir ne "." && $dinsDir ne ".."){
          borraTotElDir ($strViatjer);
        }
      } else {
        unlink ($strViatjer);
      }
    }
    closedir(DIRECTORI);
  }
  rmdir($dirActual);
}
 =20
> Gracias

--=-6PjhkBVmHF9zNcO+lGlo
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)

iQCVAwUARSAxgx535IyztBIVAQLOBAP+MXGe+osC8AGaUyndhR5aZ5TxLfH3wrco
j5T2F09ndO0LQ3odHkGW5kFXCKUBjhaGnrN74ZVYc8tck93kPEnKnY8A6oUl8Pt/
/kWdwO2LrV+gkhUljAdi+tMAP/aTTbuJixY6aAfX/5rf+b7Whk/IzvjB5h40mStl
+j3BqdfROX8=
=p2d/
-----END PGP SIGNATURE-----

--=-6PjhkBVmHF9zNcO+lGlo--
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads