[16147] in Perl-Users-Digest
Perl-Users Digest, Issue: 3559 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 10 16:02:47 2000
Date: Mon, 10 Jul 2000 13:02:33 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <963259353-v9-i3559@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 10 Jul 2000 Volume: 9 Number: 3559
Today's topics:
decrypt perl code <bio.hazard@abc.de>
Re: decrypt perl code (Philip 'Yes, that's my address' Newton)
Re: decrypt perl code <bio.hazard@abc.de>
Re: decrypt perl code (Tad McClellan)
Re: decrypt perl code (Philip 'Yes, that's my address' Newton)
Re: decrypt perl code (Reini Urban)
default button <min_c_lee@yahoo.com>
Re: default button <care227@attglobal.net>
Re: default button (Abigail)
Re: default button <nnickee@nnickee.com>
Re: default button <min_c_lee@yahoo.com>
Re: default button <care227@attglobal.net>
Re: default button <flavell@mail.cern.ch>
Re: default button (David Efflandt)
Re: default button <karlt96@nox.nyx.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 07 Jul 2000 02:10:44 -0400
From: Bio Hazard <bio.hazard@abc.de>
Subject: decrypt perl code
Message-Id: <F506FA8782DF5BE7.71E209FF1B46EB21.F6A5E7099955F401@lp.airnews.net>
A while ago, I encrypted some perl code that I lost the original to.
The file now looks like this:
#!/usr/bin/perl
use Filter::decrypt ;
....... junk .......
I am now getting errors, and I need to fix the script. Is there any
way to get back the original source? I am willing to do anything to
get this source code back!
Please help! Reply to this message or email to:
biohazard (a) modem . org
------------------------------
Date: Fri, 07 Jul 2000 07:34:18 GMT
From: nospam.newton@gmx.li (Philip 'Yes, that's my address' Newton)
Subject: Re: decrypt perl code
Message-Id: <396585c3.582227286@news.nikoma.de>
On Fri, 07 Jul 2000 02:10:44 -0400, Bio Hazard <bio.hazard@abc.de>
wrote:
> A while ago, I encrypted some perl code that I lost the original to.
> The file now looks like this:
>
> #!/usr/bin/perl
> use Filter::decrypt ;
> ....... junk .......
>
> I am now getting errors, and I need to fix the script. Is there any
> way to get back the original source?
That depends. Filter::decrypt and Filter::encrypt are customiseable. The
default encryption is fairly simple to break with a script, and there's
also a script called (I think) 'decr' that comes with Filter which will
decrypt stuff encrypted with *the default setting* of Filter::encrypt.
So you could try that. If you had modified the algorithm, it's more
difficult.
If you're lost, you can mail me the encrypted script and I'll have a go
at decrypting it. FWIW.
> I am willing to do anything to get this source code back!
Interesting statement. Hope nobody calls you on it.
And make better backups in the future.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.li>
If you're not part of the solution, you're part of the precipitate.
------------------------------
Date: Fri, 07 Jul 2000 05:47:16 -0400
From: Bio Hazard <bio.hazard@abc.de>
Subject: Re: decrypt perl code
Message-Id: <DDD35E2F612F169D.0750190B98727766.F0B6DAC5D5D3025C@lp.airnews.net>
Is there any way to get the real source code out of the perl
executable itself?
On Fri, 07 Jul 2000 07:34:18 GMT, nospam.newton@gmx.li (Philip 'Yes,
that's my address' Newton) wrote:
>On Fri, 07 Jul 2000 02:10:44 -0400, Bio Hazard <bio.hazard@abc.de>
>wrote:
>
>> A while ago, I encrypted some perl code that I lost the original to.
>> The file now looks like this:
>>
>> #!/usr/bin/perl
>> use Filter::decrypt ;
>> ....... junk .......
>>
>> I am now getting errors, and I need to fix the script. Is there any
>> way to get back the original source?
>
>That depends. Filter::decrypt and Filter::encrypt are customiseable. The
>default encryption is fairly simple to break with a script, and there's
>also a script called (I think) 'decr' that comes with Filter which will
>decrypt stuff encrypted with *the default setting* of Filter::encrypt.
>So you could try that. If you had modified the algorithm, it's more
>difficult.
>
>If you're lost, you can mail me the encrypted script and I'll have a go
>at decrypting it. FWIW.
>
>> I am willing to do anything to get this source code back!
>
>Interesting statement. Hope nobody calls you on it.
>
>And make better backups in the future.
>
>Cheers,
>Philip
------------------------------
Date: Fri, 7 Jul 2000 10:16:12 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: decrypt perl code
Message-Id: <slrn8mbphc.lg3.tadmc@magna.metronet.com>
On Fri, 07 Jul 2000 02:10:44 -0400, Bio Hazard <bio.hazard@abc.de> wrote:
>A while ago, I encrypted some perl code that I lost the original to.
>I am now getting errors, and I need to fix the script.
>I am willing to do anything to
>get this source code back!
Yet another reason to think twice about hiding your code
in the first place.
You may be hiding it from your very own self! :-(
Maybe this additional reason should be incorporated into the
answer to:
"How can I hide the source for my Perl program?"
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 08 Jul 2000 17:11:50 GMT
From: nospam.newton@gmx.li (Philip 'Yes, that's my address' Newton)
Subject: Re: decrypt perl code
Message-Id: <39675b54.21486377@news.nikoma.de>
On Fri, 07 Jul 2000 05:47:16 -0400, Bio Hazard <bio.hazard@abc.de>
wrote:
> Is there any way to get the real source code out of the perl
> executable itself?
Yes.
Oh, you mean do I know how to? No. But since the source code has to be
readable at some point for Perl to parse it, it must exist in memory.
You could, conceivably, grep around in Perl's memory or the swap file
(assuming you have appropriate privileges), but it wouldn't be fun, nor
particularly easy.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.li>
If you're not part of the solution, you're part of the precipitate.
------------------------------
Date: Sun, 09 Jul 2000 14:07:02 GMT
From: rurban@sbox.tu-graz.ac.at (Reini Urban)
Subject: Re: decrypt perl code
Message-Id: <39688636.94770442@news>
Bio Hazard wrote:
>Is there any way to get the real source code out of the perl
>executable itself?
what are you talking about?
download the C perl sources at CPAN.
there exists an executable and a script. if you compiled your own
executable with embedded script (very unlikely) there must be somewhere
the readable string passed to the evaluator.
otherwise you used either perl2exe or another filter layer in the
executable itself.
--
Reini
------------------------------
Date: Fri, 7 Jul 2000 22:57:20 -0700
From: "Michael" <min_c_lee@yahoo.com>
Subject: default button
Message-Id: <8k6ftt$28aj$1@nntp1.ba.best.com>
Hi:
Wondering how I can default one of the buttons,
and that button will be pressed when user punch
the Enter key? (no matter what the last action is)
Thanks!!
Michael
min_c_lee@yahoo.com
------------------------------
Date: Sat, 08 Jul 2000 02:20:24 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: default button
Message-Id: <3966C828.A0B063C8@attglobal.net>
Michael wrote:
>
> Hi:
>
> Wondering how I can default one of the buttons,
> and that button will be pressed when user punch
> the Enter key? (no matter what the last action is)
Perl doesn't have buttons. What specifically are you trying to do?
------------------------------
Date: 08 Jul 2000 02:34:48 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: default button
Message-Id: <slrn8mdjtr.rbj.abigail@alexandra.delanet.com>
Michael (min_c_lee@yahoo.com) wrote on MMDIII September MCMXCIII in
<URL:news:8k6ftt$28aj$1@nntp1.ba.best.com>:
__
__ Wondering how I can default one of the buttons,
__ and that button will be pressed when user punch
__ the Enter key? (no matter what the last action is)
There's a dedicated group for Perl/Tk questions. comp.lang.perl.tk.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
------------------------------
Date: Sat, 08 Jul 2000 01:37:09 -0500
From: Nnickee <nnickee@nnickee.com>
Subject: Re: default button
Message-Id: <66AC1D58D999EC9E.FC2F845D5304BA11.1F78152E12C4C00D@lp.airnews.net>
On Fri, 7 Jul 2000 22:57:20 -0700, someone claiming to be "Michael"
<min_c_lee@yahoo.com> said:
>Hi:
Howdy
>Wondering how I can default one of the buttons,
Default one of the buttons?
Your perl has buttons?!? Neat! Where'd ya get it?
>and that button will be pressed when user punch
>the Enter key? (no matter what the last action is)
What in the heck are you talking about?
>Thanks!!
You're welcome
Nnickee
------------------------------
Date: Sat, 8 Jul 2000 06:15:23 -0700
From: "Michael" <min_c_lee@yahoo.com>
Subject: Re: default button
Message-Id: <8k79jg$9p6$1@nntp1.ba.best.com>
Sorry about the confusion, that should belong to the
FORM input part. say, I got a shopping cart with many
buttons such as "add to my cart", "back to store front"...etc.
there is one checkbox for each selling item; after the customer
checks on those checkboxes for the items they want, I hope
hitting Enter key will activate "add to my cart" instead of
"back to store front", I was wondering how to default
"add to my cart" button as the one that can be activated
by Enter key on the keyboard.
apologize for posting this in the wrong place.
Michael
"Drew Simonis" <care227@attglobal.net> wrote in message
news:3966C828.A0B063C8@attglobal.net...
> Michael wrote:
> >
> > Hi:
> >
> > Wondering how I can default one of the buttons,
> > and that button will be pressed when user punch
> > the Enter key? (no matter what the last action is)
>
> Perl doesn't have buttons. What specifically are you trying to do?
------------------------------
Date: Sat, 08 Jul 2000 10:58:54 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: default button
Message-Id: <396741AE.7C7EDE34@attglobal.net>
Michael wrote:
>
> Sorry about the confusion, that should belong to the
> FORM input part. say, I got a shopping cart with many
> buttons such as "add to my cart", "back to store front"...etc.
> there is one checkbox for each selling item; after the customer
> checks on those checkboxes for the items they want, I hope
> hitting Enter key will activate "add to my cart" instead of
> "back to store front", I was wondering how to default
> "add to my cart" button as the one that can be activated
> by Enter key on the keyboard.
This is probably going to be browser dependent, and therefore not
predictable, but the best place to check is a newsgroup such as
comp.infosystems.www.authoring.html
------------------------------
Date: Sat, 8 Jul 2000 17:38:50 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: default button
Message-Id: <Pine.GHP.4.21.0007081718390.11485-100000@hpplus03.cern.ch>
On Sat, 8 Jul 2000, Michael wrote:
> Sorry about the confusion, that should belong to the
> FORM input part. say, I got a shopping cart with many
> buttons such as "add to my cart", "back to store front"...etc.
> there is one checkbox for each selling item; after the customer
> checks on those checkboxes for the items they want, I hope
> hitting Enter key will activate "add to my cart" instead of
> "back to store front",
You'll find some discussion of this in my article cited in the
WDG's HTML FAQ at
http://www.htmlhelp.org/faq/html/forms.html#enter-submit
i.e http://ppewww.ph.gla.ac.uk/%7Eflavell/www/formquestion.html
> I was wondering how to default
> "add to my cart" button as the one that can be activated
> by Enter key on the keyboard.
There are browser differences, but with a bit of care you should
be able to arrange the form so that it does the trick. The above
article doesn't directly answer the question in that sense, but there
are enough clues about browser behaviour that I'd guess you'll easily
work out a cross-browser strategy for yourself.
> apologize for posting this in the wrong place.
Recognising where to ask the question often turns out to be the most
important part of utilising the resources of usenet, because when
you've found the right place to post, you'll usually find that your
answer is there already, waiting for you in the FAQ or the previous
discussion.
FAQs are good for you: take one frequently, and especially when the
symptoms occur :-) But you'll often also find there answers to
questions that you didn't realise you needed to ask. That's my
experience, anyhow.
(crossposted, and followups set. Also, please adjust your quoting
style to the traditional usenet custom. Your upside-down fullquoting
will only get you disliked and ignored by many of the people who
could help you.)
------------------------------
Date: 8 Jul 2000 17:37:11 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: default button
Message-Id: <slrn8meplt.qa2.efflandt@efflandt.xnet.com>
On Sat, 8 Jul 2000 06:15:23 -0700, Michael <min_c_lee@yahoo.com> wrote:
>Sorry about the confusion, that should belong to the
>FORM input part. say, I got a shopping cart with many
>buttons such as "add to my cart", "back to store front"...etc.
>there is one checkbox for each selling item; after the customer
>checks on those checkboxes for the items they want, I hope
>hitting Enter key will activate "add to my cart" instead of
>"back to store front", I was wondering how to default
>"add to my cart" button as the one that can be activated
>by Enter key on the keyboard.
>
>apologize for posting this in the wrong place.
You should probably use submit buttons to determine what to do next,
because you cannot rely on just the enter key working. Assuming you are
using CGI.pm function method and have submit buttons (or check boxes)
named 'back' and 'add':
if (param('back')) {
# go back
} elsif (param('something_else')) {
# do something else
} elsif (param) {
# assume 'add' to cart
} else {
# create blank form
}
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://hammer.prohosting.com/~cgi-wiz/ http://cgi-help.virtualave.net/
------------------------------
Date: Sun, 9 Jul 2000 01:52:40 -0400
From: "Karl Thomas" <karlt96@nox.nyx.net>
Subject: Re: default button
Message-Id: <uI69SoW6$GA.318@cpmsnbbsa07>
Nnickee wrote in message
<66AC1D58D999EC9E.FC2F845D5304BA11.1F78152E12C4C00D@lp.airnews.net>...
>On Fri, 7 Jul 2000 22:57:20 -0700, someone claiming to be "Michael"
><min_c_lee@yahoo.com> said:
>
>>Hi:
>
>Howdy
>
>>Wondering how I can default one of the buttons,
>
>Default one of the buttons?
>Your perl has buttons?!? Neat! Where'd ya get it?
use Tk;
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 3559
**************************************
