[12725] in Perl-Users-Digest
Perl-Users Digest, Issue: 135 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 13 20:21:00 1999
Date: Tue, 13 Jul 1999 17:17:52 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 13 Jul 1999 Volume: 9 Number: 135
Today's topics:
Re: what does this crypto script do? gampid@hotmail.com
Re: what does this crypto script do? (Larry Rosler)
Re: what does this crypto script do? (Tramm Hudson)
What's faster: GDBM or Storable nkaiser@my-deja.com
Re: Where is perlcc? byteperl? (Anno Siegel)
Re: Where is perlcc? byteperl? rlw_ctx@my-deja.com
Re: Where might I find info. on "$_" <webmaster@chatbase.com>
Who is right ? birgitt@my-deja.com
why i must wait for cgi run end ??????? <zinger@deathsdoor.com>
Win32 Perl Editors <kkuebler@iwaynet.net>
Writing to a file using suid option <orionmt@cam.org>
Writing to a file using suid option <orionmt@cam.org>
Re: Writing to a file using suid option (John Borwick)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 13 Jul 1999 19:05:36 GMT
From: gampid@hotmail.com
Subject: Re: what does this crypto script do?
Message-Id: <7mg2lm$rm1$1@nnrp1.deja.com>
In article <3767C8C3.4C342BDE@profero.com>,
Simon Wistow <simon@profero.com> wrote:
> Just came across this in Neal Stephenson's Cryptonomicon
>
> [The rest of the program deleted]
>
> # this line has been commented out because I get a
> # compile error but as far as I can see it's verbatim
> #$o=~s/.chr(($f*&e+ord($&)-13)%26+65)/eg;
It's clear why this line failed, the replacement regular expression
operator needs to be in the format
$o =~ s/find_string/replaced_string/;
I suspect that the author intended to write:
$o=~s/.chr(($f*&e+ord($&)-13)%26+65)/\1/eg;
or $o=~s/.chr(($f*&e+ord($&)-13)%26+65)//eg;
or maybe even something that actually did a transformation in the second
half of the expression that’s missing. Either way I bet the script
doesn't work until this line is fixed.
Regarding the plot, don't you think that the Secret Admirers list would
have algorithm out of hand if it had this kind of obvious error? How
would they even have evaluated the quality of the crypt with this kind of
error?
*Rabble-Rouser
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 13 Jul 1999 13:39:27 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: what does this crypto script do?
Message-Id: <MPG.11f543df471912b8989cbd@nntp.hpl.hp.com>
In article <7mg2lm$rm1$1@nnrp1.deja.com> on Tue, 13 Jul 1999 19:05:36
GMT, gampid@hotmail.com <gampid@hotmail.com> says...
> In article <3767C8C3.4C342BDE@profero.com>,
> Simon Wistow <simon@profero.com> wrote:
> > Just came across this in Neal Stephenson's Cryptonomicon
> >
> > [The rest of the program deleted]
> >
> > # this line has been commented out because I get a
> > # compile error but as far as I can see it's verbatim
> > #$o=~s/.chr(($f*&e+ord($&)-13)%26+65)/eg;
>
> It's clear why this line failed, the replacement regular expression
> operator needs to be in the format
> $o =~ s/find_string/replaced_string/;
> I suspect that the author intended to write:
> $o=~s/.chr(($f*&e+ord($&)-13)%26+65)/\1/eg;
> or $o=~s/.chr(($f*&e+ord($&)-13)%26+65)//eg;
> or maybe even something that actually did a transformation in the second
> half of the expression that’s missing. Either way I bet the script
> doesn't work until this line is fixed.
Neither of your suggestions makes much sense. Surely you mean this:
$o=~s/./chr(($f*&e+ord($&)-13)%26+65)/eg;
I'll wager that the &e should be $e, unless 'e' is a subroutine (which
seems unreasonable).
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 13 Jul 1999 15:28:37 -0600
From: hudson@swcp.com (Tramm Hudson)
Subject: Re: what does this crypto script do?
Message-Id: <7mgb25$ltj@llama.swcp.com>
[posted and cc'd to the three authors in this thread]
Larry Rosler <lr@hpl.hp.com> wrote:
...
> $o=~s/./chr(($f*&e+ord($&)-13)%26+65)/eg;
>
> I'll wager that the &e should be $e, unless 'e' is a subroutine (which
> seems unreasonable).
Actually, you're half right Larry. You were correct about the
search but e really is a subroutine that does the key stream
generation by manipulating the "deck".
Latest code is available friom Schneier's web site:
http://www.counterpane.com/solitaire.html
Check cryptonomicon.com for the errata for the book.
Tramm
--
o hudson@swcp.com tbhudso@cs.sandia.gov O___|
/|\ http://www.swcp.com/~hudson/ H 505.323.38.81 /\ \_
<< KC5RNF @ N5YYF.NM.AMPR.ORG W 505.284.24.32 \ \/\_\
0 U \_ |
------------------------------
Date: Tue, 13 Jul 1999 11:02:32 GMT
From: nkaiser@my-deja.com
Subject: What's faster: GDBM or Storable
Message-Id: <7mf6c5$fot$1@nnrp1.deja.com>
I have an application which uses GDBM hash files for the database.
However, to accomodate the win32 people (I know there is a port), I
converted to use Perl data structures (assoc. arrays) and use the
Storable module.
Does anyone have any benchmarks on what would have faster access,
saving, etc?
Thanks
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 13 Jul 1999 16:40:52 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Where is perlcc? byteperl?
Message-Id: <7mfq6k$cp6$1@lublin.zrz.tu-berlin.de>
Don Smith <smithda@webwide.net> wrote in comp.lang.perl.misc:
>Let me try to pose my question(s) again so as not to offend. If anyone out
>there could provide me with assistance, I would greatly appreciate it.
>
>Yes, I have read through the FAQ.
>Yes, I have searched CPAN and perl.com.
>Yes, I have searched deja.com.
>Yes, I have looked at my own Perl distribution, perldoc, and elsewhere.
Man, you must suffer from a severe case of pyrophobia to bar yourself
in like that.
>Now, having dispensed with the formalities.
>
>1. Where might I find "perlcc"? The links from CPAN are bogus.
Next to perl, in an installation of 5.005_03.
>2. Where might I find "byteperl"? My 5.005+ distribution doesn't seem to
>include it.
Dunno about that.
[more flame-avoiding behavior snipped]
Anno
------------------------------
Date: Tue, 13 Jul 1999 20:03:46 GMT
From: rlw_ctx@my-deja.com
Subject: Re: Where is perlcc? byteperl?
Message-Id: <7mg62p$t0m$1@nnrp1.deja.com>
In article <7mbstc$4eo$1@news.unicomp.net>,
"Don Smith" <smithda@webwide.net> wrote:
> Yes, I have read through the FAQ.
> Yes, I have searched CPAN and perl.com.
> Yes, I have searched deja.com.
> Yes, I have looked at my own Perl distribution, perldoc, and
elsewhere.
>
> 1. Where might I find "perlcc"? The links from CPAN are bogus.
I managed to find the "B" and "O" modules under, in my
case, /usr/lib/perl5/5.00503/B/ and ..../O/ - these appear
to constitue the compiler.
> 2. Where might I find "byteperl"? My 5.005+ distribution doesn't
I also found byteperl.c somewhere under the "B" directory.
Unfortunately, when I try to make byteperl, I get dozens of
syntax error messages from gcc (I'm running RedHat 6.0).
Also, unfortunately, I don't have time to figure out how
to get it to build correctly. If/when I do, I'll let you
know.
If you decide to try, good luck. Also, please let me
know what progress you manage to make (thanks).
--
Ron Wilson
Connectex, LLC
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 12 Jul 1999 14:11:30 -0700
From: TRG Software : Tim Greer <webmaster@chatbase.com>
Subject: Re: Where might I find info. on "$_"
Message-Id: <378A5A02.C736090A@chatbase.com>
Jeff Iverson wrote:
>
> In the Camel book you will find a description of $_ on page 131. It is
> defined as the default input and pattern searching space. It then
> follows up with a number of examples.
>
> For your own copy of the Camel book:
> Programming Perl (2nd Edition)
> http://www.amazon.com/exec/obidos/ASIN/1565921496/iversonsoftwarecA
>
> On Sun, 4 Jul 1999 00:39:35 -0400, "Andy" <ranaylor@cais.net> wrote:
>
> >I'm looking for an explanation of $_
> >
> >I can't seem to find it in the perldoc or my gecko book.
> >
> >Thanx,
> >a humble student
> >Andy...
> >It's not only what you know
> >but your ability to explain it
> >with your listeners brain intact.
> >
>
Hey idiot, why don't you tell him which page it's on in HIS book, rather
then trying to SPAM this NG while you get a percentage of the sales from
the URL's you keep posting. Or should he buy another book to get an
answer to that simple question?
--
Regards,
Tim Greer : webmaster@chatbase.com | software@linkworm.com
The ChatBase: http://www.chatbase.com | 250,000+ hits daily Worldwide!
TRG Software: http://www.linkworm.com | CGI scripts in Perl/C, & more.
Unix/NT/Novell Administration, Security, Web Design, ASP, SQL, & more.
Freelance Programming & Consulting, Musician, Martial Arts, +Sciences.
------------------------------
Date: Mon, 12 Jul 1999 22:38:50 GMT
From: birgitt@my-deja.com
Subject: Who is right ?
Message-Id: <7mdqpo$1eq$1@nnrp1.deja.com>
I like to get the opinion of a GPL software package, called MiniVend
(www.minivend.com) written in Perl.
I am unable to read the source code and often lost in understanding the
documentation. Nevertheless, I believe the software is very good and
performs extremely well, if handled properly. (Having been a customer of
the author of the software, it was handled properly for my purposes and
impressed me by its performance). The software has been recognized and
gotten quite a bit of different evaluations, which are published on the
home site.
There is an attempt to establish a documentation team to help to edit
the documentation. It is not clear to me, if the documentation is really
lacking something of importance to Perl experts too, or if it just seems
to be unclear to endusers with very limited knowledge like me. I
personally would not think that the documentation is suitable for
beginners, but it might/should be appropriate enough for ISP/e-commerce
consultants, perhaps. There has been obviously put an enourmous amount
of work by a single author into the code AND the documentation.
The package is also still in major development, a fact which makes
documentation not easy.
Considering that the package is a "hot" item for e-commerce consultants
and ISPs, it is the more respectable that the package has been released
with a GPL or artistic license. As a good money-making/saving tool to
the ISP community, there seems to be not much interest to improve the
documentation towards clarity suitable to the enduser, i.e. potential
customer.
I personally couldn´t care less for the e-commerciality of the package,
but like to get an evaluation of the documentation from the view point
of a Perl expert. Learning the package´s tag syntax and learning Perl
competes for my time I have available to dig into both. I like to decide
for one or the other.
I sincerely would like to ask anyone who cares to answer publicly, not
to abuse this question for cheap shots.
Thank You.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 13 Jul 1999 04:19:59 GMT
From: zinger <zinger@deathsdoor.com>
Subject: why i must wait for cgi run end ???????
Message-Id: <7meep6$872$1@nnrp1.deja.com>
i write a html page,with two frame.
one open a cgi,it need run about 10 min,
another open a static page with a form.
every time i open this page,it will
open static page until cgi end .
if i force open static page first,once
cgi is runing, i can not submit my form too.
why?
zinger
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 13 Jul 1999 17:12:19 -0400
From: "Kevin Kuebler" <kkuebler@iwaynet.net>
Subject: Win32 Perl Editors
Message-Id: <7mga44$3cl$1@news.iwaynet.net>
Hi all,
I've been using the ActiveState releases of Perl for some time now. The
other day I came across the Windows95/NT section of the ActivePerl FAQ. One
of the subsections is titled "What editors are available for Windows?" I
decided to check out the Perl Builder application. Until then I'd been using
Programmer's File Editor (PFE32) - a freeware file editor - to edit my Perl
scripts. PFE32 is a nice basic editor isn't a real IDE like Perl Builder
(with color coded syntax highlighting, debuging tools, etc.)
I downloaded a demo copy of Perl Builder and so far I'm quite impressed.
It's a version 1.0 release, so there are some problems, but overall it seems
like it could be a great Perl editor. It feels much like the Microsoft
Visual Basic development environment. It also has some pretty cool features
for developing cgi scripts in Perl but I haven't really tried them out yet.
Does anyone have any experience with this program? I'm trying to decide if
it's worth the $150 price or if I should try something else first. What
about other editors - any favorites among the Windows Perl community out
there?
Thanks,
Kevin Kuebler
------------------------------
Date: Mon, 12 Jul 1999 16:26:07 -0400
From: Mike <orionmt@cam.org>
Subject: Writing to a file using suid option
Message-Id: <378A4F5F.D7D851F9@cam.org>
Hello,
I am trying to write a script with the SUID option. In this script, I
am trying to write a file but under the permissions of the script
creator.
For example, lets say the script owner is "frer" and the person that is
running the script is "jfla". If "jfla" runs the script with the SUID
option (-rwsrwxrwx) and that the script contains the following command:
open README, ">\/home\/frer\/README";
I get the following error message :
########
Insecure dependency in open while running setuid at /dev/fd/4 line 47,
<STDIN> chunk 4.
########
I looked at the perlsec manpage and I saw this :
open(FOO,">$foo"); # Not OK - trying to write
So I am wondering, is it possible to open a file for write when using
the suid option (I want the file to be under the permissions of "frer").
Thank you in advance
Francois
------------------------------
Date: Mon, 12 Jul 1999 16:26:37 -0400
From: Mike <orionmt@cam.org>
Subject: Writing to a file using suid option
Message-Id: <378A4F7D.D95CD383@cam.org>
Hello,
I am trying to write a script with the SUID option. In this script, I
am trying to write a file but under the permissions of the script
creator.
For example, lets say the script owner is "frer" and the person that is
running the script is "jfla". If "jfla" runs the script with the SUID
option (-rwsrwxrwx) and that the script contains the following command:
open README, ">\/home\/frer\/README";
I get the following error message :
########
Insecure dependency in open while running setuid at /dev/fd/4 line 47,
<STDIN> chunk 4.
########
I looked at the perlsec manpage and I saw this :
open(FOO,">$foo"); # Not OK - trying to write
So I am wondering, is it possible to open a file for write when using
the suid option (I want the file to be under the permissions of "frer").
Thank you in advance
Francois
------------------------------
Date: Tue, 13 Jul 1999 13:15:06 GMT
From: John.Borwick@sas.com (John Borwick)
Subject: Re: Writing to a file using suid option
Message-Id: <378c3bb4.91536332@newshost.unx.sas.com>
On Mon, 12 Jul 1999 16:26:37 -0400, Mike <orionmt@cam.org> wrote:
>For example, lets say the script owner is "frer" and the person that is
>running the script is "jfla". If "jfla" runs the script with the SUID
>option (-rwsrwxrwx) and that the script contains the following command:
>
> open README, ">\/home\/frer\/README";
>
>I get the following error message :
>
>########
>Insecure dependency in open while running setuid at /dev/fd/4 line 47,
><STDIN> chunk 4.
>########
Could you please post the exact code? If your open depends on a
variable or set of variables, please post where those are defined as
well.
--
John Borwick
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 135
*************************************
