I found that if I change $data to "12345678", it works. How can I encrypt a
string that has more than 8 characters?
Thanks,
Tyler
- Original Message -----
From: "Tyler Longren" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, February 28, 2003
Hi Folks,
The code at http://longren.no-ip.org/tyler/blowfish.pl encrypts some $data.
Once the data is encrypted, the hex value should be stored in $ciphertext.
$plaintext should have the original data that's in $data.
When I run this code, I recieve this error:
"input must be 8 byt
ng);
$td = mcrypt_module_open (MCRYPT_TripleDES, "", MCRYPT_MODE_ECB, "");
$iv = mcrypt_create_iv (mcrypt_enc_get_iv_size ($td), MCRYPT_RAND);
mcrypt_generic_init ($td, $key, $iv);
$decrypted = mdecrypt_generic ($td, $string);
mcrypt_generic_end ($td);
return trim($decrypt
solution for this. If you can come up with some tips or help, please send
them to [EMAIL PROTECTED]
Thank you for your time,
Tyler Mace
Application Programmer
Sunergize, Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I heard about Sygwin when reading the Re:IDE letter, and it is kinda funny,
but I downloaded it yesterday. I haven't used it yet, but I am wonder what
it is how it works and how I can use it to my advantage in this M$ world.
Thanks.
Tyler Mace
Application Programmer
Sunergize
--
To unsubs
How do I start a program in perl and send keystrokes to it??
thanks
This electronic message may contain confidential or privileged information
and is intended for the individual or entity named above. If you are
not the intended recipient, be aware that any disclosure, copying,
distributio
yes, perl can be used on NT and other windows variants.
On Wed, 17 Jul 2002 08:48:12 +0530
"Parag Dhake" <[EMAIL PROTECTED]> wrote:
>
> Hi Everybody,
>
>I'm new to this mailing list (and to the world of Perl, as well)
>Would appreciate if you can suggest me some good books on "Network
Gary,
I tried the code you posted, and it has the same problem mine did.
tyler
On Tue, 2002-06-18 at 11:17, Gary Stainburn wrote:
> On Tuesday 18 June 2002 5:08 pm, Tyler Longren wrote:
> > Hello,
>
> Hi,
>
> >
> > I have an smp machine that I want to run two
ggestion though,
Tyler
On Tue, 2002-06-18 at 11:14, Anders Holm wrote:
> Maybe your looking to start them in the background using & at the end of
> your command like such:
>
> `cd $setiathome1_dir; ./setiathome -proxy 192.168.1.3:5517 &`;
>
> and
>
> `cd $setiat
setiathome1;
setiathome2;
exit;
}
else {
usage;
exit;
}
-End Code
If a better explanation is desired, e-mail me directly.
Thanks,
--
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com
--
To unsubscribe, e-mail: [EMAIL PR
www.perldoc.com is good.
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com
- Original Message -
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, April 03, 2002 2:47 PM
Subject: NEW!!
> Hi All,
>
> I am new to Perl ..
type this at your command line:
echo $PATH
That should display a few folders (/usr/local/bin, /usr/bin, etc...).
your perldoc executable should be located in a folder listed in your $PATH.
Good luck,
Tyler
- Original Message -
From: "Joe Echavarria" <[EMAIL PROTECTED]
Hello,
Can I archive directories using the Archive::Tar module?
http://www.perldoc.com/perl5.6.1/lib/Archive/Tar.html
Thank you,
Tyler
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
That dial-o-matic episode was on lastnight here in Iowa.
:)
Tyler
- Original Message -
From: "Nikola Janceski" <[EMAIL PROTECTED]>
To: "'Brett W. McCoy'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Thursday, February 28, 2002 8:32
to use the simplist
environment on which to add modules and run perl. Any thoughts? Thanks.
-tyler
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
you use $ for variables and @ for arrays.
the Quantum::Entanglement module is a quantum programming module. It tries
to replicate what it would be like to program on a quantum computer.
Tyler
- Original Message -
From: "Anthony LaBerge" <[EMAIL PROTECTED]>
To: <[EMA
gets the ServerName if it starts with a "www". How could I get it
no matter what ServerName starts with?
Thanks,
Tyler
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I'm not sure if there's a function to do that. But you could check the
length of $DAY...if it's less than 2 you could just add a 0 infront of it.
Good luck,
Tyler Longren
- Original Message -
From: "Torres, Jose" <[EMAIL PROTECTED]>
To: "&#x
e.
Thanks everyone,
Tyler
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I dont know, Beans and Pilgrims are pretty exciting too. Overall Bo-Town is great!
>>> "murphy, daniel (BMC Eng)" <[EMAIL PROTECTED]> 11/14/01 12:38PM >>>
OK, what's one more?
Boston, MA, USA
That souds pretty boring after hearing from the Netherlands, Austrailia,
Romania, etc. ;-)
--
To un
ah, what the hey ...
Salt Lake City, UT - Greatest Snow on Earth.
and no, Im not!
>>> "Joyce Harris" <[EMAIL PROTECTED]> 11/09/01 11:57AM >>>
Knoxville, Tennessee
- Original Message -
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, November 09, 2001 1:47 PM
Subject
pen(NAMES, "d://perl/avalanche/names.txt") || die "Cant open names.txt\n";
while(){
chomp;
@names = split(/-/);
%stations = ( $names[0] => $names[1] );
@names = ();
} # End while.
$table = 'alta_guard';
print "Text: $stations{$table}
I think you're right. ;-)
Tyler
On Mon, 29 Oct 2001 20:40:28 -0800
Dave Turner <[EMAIL PROTECTED]> wrote:
> I think ( and there's plenty who will tell you if I'm wrong... lol )
> that
> you need to put it as:
>
> if (($client ne $newclient) && (
If I were you, I'd try using && instead of "and" in your if loop:
if ($client ne $newclient && $method ne $newmethod) {
// blah blah blah
}
I'm not even sure if that will work in perl. Who knows.
Good luck,
Tyler Longren
On Mon, 29 Oct 200
Sorry, took me 3 hours to figure out that I outwitted myself. Thread closed. Thx.
>>> "Tyler Cruickshank" <[EMAIL PROTECTED]> 10/26/01 09:05AM >>>
Im absolutely stumped on this one. $_[0] is either '#ff' or 'red' it doesnt seem
to mat
ue when I print to a file handle?? Ive also tried ${color}. Ive
tried setting $color to a dummy value just before I print to the filehandle. In this
case, I DO get the dummy value printed to the file handle. Any ideas?
Thanks for your time.
-tyler
open(IMAGE, ">d://perl/svg/files/$
Thanks all. Well, this is a personal project that Im working on w/ a buddy. He's a
php guy while I do perl (to some extent anyhow!). He just wanted to do it in
phpand I havent used the DBI module before.
ty
>>> "Etienne Marcotte" <[EMAIL PROTECTED]> 10/24/01 12:36PM >>>
Maybe, but if al
Sorry if you get this 2x it may not have gone thru the first time.
Hello.
Im working on a perl/php/SVG project. PHP interfaces with a DB (to pull out a data
array) and perl does the rest of the work. Does anyone know if perl can accept a php
array as an arg?
Thanks
-Tyler
--
To
Hi.
Im using a multidimensional array in the following way:
$array[$i][$j][$k] = [ @list ]; where, @list is a 2-D array ie. $list[][].
How do I access the individual elements of the array @list once Ive put it into the
array @array?
Thanks.
-ty
--
To unsubscribe, e-mail: [EMAIL PROTECT
Hi. Im running perl via cygwin on NT. I want to remove all files *.1.txt.
I have tried:
1) system("rm *.t.txt");
2) $file = '*.1.txt';
system("rm $file");
3) system('rm *.1.txt');
...but, I cant get any of them to work. Any ideas? Thanks for yo
to a hash? My code works just fine when I write $specSum{'data.hr1'}[$i]. A
snippet of my code is pasted below. Thanks for the help.
Cheers, Tyler.
for(local $b=0; $b<=23; $b++){
local $hour = $b+1;
local $root = 'data.hr';
local $name = "$root$h
r(local $j=0; $j<=8; $j++){
$oldhandle = select(RRF);
$~ = "RRFTable1";
select($oldhandle);
write RRF;
$x++;
} # End for loop.
$x=0;
}
} # End function printRRF.
Thanks very much for your time.
-Tyler Cruickshank
Another Newbie responding .
or, if you wanted the first "word" in $part1 (not necessairly the first 4 characters)
you could do:
@list = split(/ /, $part1);
$part2 = $list[0];
Here you split the $part1 variable on whitespace. The individual strings are then
placed in a "list array" called
lts be put into
@array.
Thanks everyone,
Tyler
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
my FORTRAN program with a "source" or a "./" my
$status returns 0. It does not work. Note I tried it 2 different ways with the same
negative result.
Does anyone have an idea? Thanks for y
Context.
It's free.
http://www.fixedsys.com/context/
It's all I use on my Windows boxen.
--
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com
On Mon, 20 Aug 2001 11:20:35 -0400
TOM TURPIN <[EMAIL PROTECTED]> wrote:
> Could someone sugges
You use the "clear" command.
system("clear");
I'm not sure what it is to clear the screen in dos.
--
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com
On Mon, 20 Aug 2001 08:33:42 -0500
[EMAIL PROTECTED] wrote:
> I am writing lines
>>> "Tyler Cruickshank" <[EMAIL PROTECTED]> 08/17/01 12:53PM >>>
Hi.
I am working with a hash of arrays. Ive run into some confusion regarding the
accessing and printing of the hash. Below are some excerpts of my code: I have an
array (@data) that I wi
$hour = "hr$i";
$root = 'data.';
$name = "$root$hour";
$browns{$name} = [ @data ];
}
print " $browns{$name}[1] \n";
print " $name = @{ $browns{'data.hr3'} }\n";
print " $name = @{ $browns{$name} }\n";
Thanks. - Ty
ult = `whois $h`;
}
Is there any way to add, say a 30 second timeout to this? I've looked at
the man pages for whois, and there doesn't appear to be any way to set a
timeout in the whois command.
Thanks,
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com
-
rection it would be very appreciated.
Thanks, - Tyler Cruickshank
FORTRAN CODE:
#-
OPEN (5,FILE=File.ascii)
OPEN (9,FORM='UNFORMATTED',FILE=File.binary)
READ(5,2100)IFILE, NOTE,NSEG, NSPECS, IDATE, BEGTIM, JDATE,
. Does
anyone have a hint? Im interested in doing this either from a UNIX box or NT.
Thanks very much.
-Tyler Cruickshank
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
:)
forgot to add the $i++.
And that was just an example.
On Wed, 15 Aug 2001 10:55:58 -0400
Bob Showalter <[EMAIL PROTECTED]> wrote:
> > -Original Message-
> > From: Tyler Longren [mailto:[EMAIL PROTECTED]]
> > Sent: Wednesday, August 15, 2001 10:13 AM
> >
";
}
And that works, but if I run the script like this:
./script.pl > test.txt
I get a BUNCH of "Processing" lines in test.txt. Is there any other way I
can do this?
Thanks,
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com
--
To unsubscribe, e-
This will be of some interest to you:
http://www.perldoc.com/perl5.6/pod/perlfaq8.html#How%20do%20I%20read%20and%20write%20the%20serial%20port%3f
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com
On Tue, 14 Aug 2001 16:48:39 +0100
"Julian M Sawkins&quo
t; to
> your second while loop, you're at the very end of the file. You need to
> rewind.
>
> -Original Message-
> From: Tyler Longren [mailto:[EMAIL PROTECTED]]
> Sent: Friday, August 10, 2001 9:29 AM
> To: Brett W. McCoy
> Cc: [EMAIL PROTECTED]
> Su
"192.168.1.1";
my @scans;
while () {
push (@scans, $_)
if m/$last_host/i;
}
close(LOGFILE);
print "$scans[0]";
On Fri, 10 Aug 2001 10:28:23 -0400 (EDT)
"Brett W. McCoy" <[EMAIL PROTECTED]> wrote:
> On Fri, 10 Aug 2001, Tyler Longren wrote:
)
>
> Are you checking to make sure LOGFILE opened correctly?
>
> -Original Message-
> From: Tyler Longren [mailto:[EMAIL PROTECTED]]
> Sent: Friday, August 10, 2001 9:19 AM
> To: Perl-Beginners
> Subject: number of elements in array is -1?
>
>
> Hello e
ies in
LOGFILE that have an IP of 192.168.1.1.
Thanks,
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
correct or not. Can anybody offer any
help?
Thanks,
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
That's pretty cool. Works great. Thank you!
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com
On Thu, 9 Aug 2001 08:33:58 -0700 (PDT)
Mark Ross <[EMAIL PROTECTED]> wrote:
> > I was wondering if there was anyway to print colored
> > text
Hello everyone,
I was wondering if there was anyway to print colored text at the command
line. I'm using linux. Something kind of like how the directories and
executables are colored when you do an 'ls' in linux...
Thanks,
Tyler Longren
Captain Jack Communications
[
m the grep and place them into an array? I want to do it result
by result. So the first result could be $array[0], the second could
be $array[1], and so on...
Know what I mean? If not, don't pay any attention. Thanks everyone!
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
back out in ascii?
Thank you.
Tyler Cruickshank
UDAQ
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Is there a way to chomp a period?
Example:
this is a test.
to
this is a test
I just need to remove the period from the end of a string.
Thanks,
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
ommand\n";
The above code doesn't work though. There's nothing in the $command
variable. The only thing that gets printed to $outfile is $h.
Thanks everyone
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
www.captainjack.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Why can't you do that with the regular command line? change to a directory
with "cd dir_name", change to a drive by typing the drive name "C:", "A:"
Copy files with the "copy" command.
Tyler Longren
Captain Jack Communications
[EMAIL PROTECTED]
if /(.com\S)/;
}
foreach my $h(@list) {
print "$h";
}
They're more or less the same thing except the regexps are different
Tyler
- Original Message -
From: "Jos I. Boumans" &l
t print anything to the screen.
Really, thank you!
- Original Message -
From: "Jos I. Boumans" <[EMAIL PROTECTED]>
To: "Tyler Longren" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Wednesday, July 18, 2001 1:29 PM
Subject: Re: looking at row
if/ServerName\swww.(.*)/;
}
Can anyone help me?
Thanks once again,
Tyler
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
no...it was supposed to be $options{a} and $options{i}... I accidentally put
a twice in the email
- Original Message -
From: "Brett W. McCoy" <[EMAIL PROTECTED]>
To: "Tyler Longren" <[EMAIL PROTECTED]>
Cc: "Mooney Christophe-CMOONEY1" <
ptions with a * are required!\n\n";
exit;
}
}
else {
# do whatever
If the -i and -a flags aren't specified the usage gets printed. I also want
to check to see if -i and -a have something behind them. If they're
specified, but there's nothin
would be to say
>
> if (!$something) { ... blah blah ... }
>
> Since $something will return false in a boolean context (if it is empty)
>
> -Original Message-
> From: Tyler Longren [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, July 17, 2001 12:56 PM
> To: Perl Begi
How do I do:
if ($something == "") {
# do something
}
in perl?
Thanks,
Tyler
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
this for loop works:
for(my $i=0; $i <= 1; $i++) {
print "$windmill[$i % 4]\r";
usleep(5);
}
I changed the $_ to $i...
Tyler
- Original Message -
From: "Jeff 'japhy' Pinyan" <[EMAIL PROTECTED]>
To: "Tyler Longre
I have tried that. Here's the error I get from that:
Use of uninitialized value in modulus (%) at ./test.pl line 7.
Tyler
- Original Message -
From: "Chas Owens" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, July 10, 2001 9:19 AM
Subject
uot;\\", "|", "/", "-");
for(my $i=0; $i <= 1; $i++) {
print "$windmill[$_ & 3]\r";
usleep(5);
}
I get this error:
Use of uninitialized value in bitwise and (&) at ./test.pl line 7.
Thanks everyone,
Tyler
- Ori
: generate log for last 24 hours
-w : generate log for last week
-m : generate log for last month
-y : generate log for last year\n";
exit;
}
Tyler
- Original Message -
From: "saliminl" <[EMAIL PROTECTED]>
To: <[EMAIL PROTEC
do a 'which perl' at the command line to get the location of perl. Not sure
about the modules. To get the version of perl, do 'perl --version' at the
command line.
Tyler
- Original Message -
From: "David Gilden" <[EMAIL PROTECTED]>
To: <[EMAIL PR
Context is my choice:
http://www.fixedsys.com/context/
Tyler
- Original Message -
From: "Bill Pierson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, July 03, 2001 2:33 PM
Subject: Editor
Hello again, all.
May I get some suggestions for any Windows-
One more quick question. How can I count the values in an array
(@servernames)?
I want to print my servernames seperately:
$i=0;
while ($i <= $num_servers) {
print "$servernames[$i]\n";
}
Something like that (I don't know if that will even work in perl...but it
does in PH
Thank you everyone. All of you have been a great help. That is exactly
what I need. I'll figure out how to get just the servernames from the
VirtualHosts myself (I'll try anyway) ;-)
Thanks!
Tyler
- Original Message -
From: "Brett W. McCoy" <[EMAIL PROTECT
r_log
TransferLog /home2/test.net/logs/transfer_log
ScriptAlias /cgi-bin/ /home2/test.net/cgi-bin/
Could I get the ServerName values put into an array so I can do something
with each different ServerName? Thank you everyone.
Tyler
Ahh..that worked wonderfully. Thank you very much!
Tyler
- Original Message -
From: "Ela Jarecka" <[EMAIL PROTECTED]>
To: "'Tyler Longren'" <[EMAIL PROTECTED]>
Cc: "Beginners list (E-Mail)" <[EMAIL PROTECTED]>
Sent: Wednesday, J
doesn't work...it doesn't print anything. Can anybody shed some
light on this for me?
Thanks,
Tyler Longren
75 matches
Mail list logo
