A piece of cake. 2

stormbind · Aug 2, 2003

First, thanks for reading!

I don't know PERL. The little I did know seems to have been forgotten.

The following script was translated from a JScript which has similar syntax. I would appreciate it if someone could look over it and fix errors.

Thanks very much for your time.

Code:

#!perl

file open=&quot;data.txt&quot;;

// data.txt is a flat file. I only want to read it's contents.

var cY = split (//, file);

// cY is a new array. Each member contains one character from data.txt (including spaces)

var i=0;
var b;
var c;
while (i<cY.length+3) {
	b=i;
	c=b+2;
	i=i+3;
	while (b-1!=c) {
		if (cY[c]) {eY=eY+cY[c];} else {eY=eY+' ';}
		c--;
	}
}
cY = join (//, cY);

// cY is now one long string

print '<body onload=&quot;parent.decrypt($cY)&quot;></body>';
}

// print HTML and exit

P.S. Yes, I know the encryption is really pathetic but it's just to test a concept

stormbind · Aug 2, 2003

I remember a little bit now. I think it should be more like this, but I'm getting the dreaded Error 500!

#!perl

print "Content-type: text/html\n\n";
print "<html>\n";

open FILE, "<data.txt";

var cY = split (//, FILE);

close FILE;

var i=0;
var b;
var c;
while (i<cY.length+3) {
b=i;
c=b+2;
i=i+3;
while (b-1!=c) {
if (cY[c]) {eY=eY+cY[c];} else {eY=eY+' ';}
c--;
}
}
cY = join (//, cY);

print "<body onload=\"parent.decrypt('$cY')\"></body>\n';
print "</html>\n";

liuwt · Aug 2, 2003

Hi,

I can see you have really forgotten Perl ;-)

Try this:

#!/usr/bin/perl

open(FILE,"data.txt&quot

;

// data.txt is a flat file. I only want to read it's contents.
@content=<FILE>;
close(FILE);

@cY=();
foreach(@content)
{
@tmp = split (//, file);
push(@cY,@tmp);
}

// cY is a new array. Each member contains one character from data.txt (including spaces)

$i=0;
$len=@cY;
$eY="";
while (i<$len+3) {
$b=$i;
$c=$b+2;
$i=$i+3;
while (($b-1)!=$c) {
if ($cY[$c]) {$eY.=$cY[$c];} else {$eY.=' ';}
$c--;
}
}
$cY = join ("", @cY);

// cY is now one long string

print "Content-Type: text/html\n\n";
print "<body onload=\"parent.decrypt($cY)\"></body>";
}

Hope that is what you wanted!

--
Smash your head on keyboard to continue...

stormbind · Aug 2, 2003

Thanks, it looks good but I cannot get it to work. There's a glitch in it somewhere.

I have to admit, PERL looks really foreign! Swapping between languages can be really hard on the eyes

Anyway, I tried with "Hello World" in data.txt and nout happened except for another Error 500. The hard drive went mad for a couple of seconds - suggesting to me there's an endless loop in there but I don't see it.

I don't quite understand this snippet. If @content is an array, is the entire text in content[0]?

@cY=();
foreach(@content)
{
@tmp = split (//, file);
push(@cY,@tmp);
}

I accidentally discovered in JScript that if you split a regular variable it is automatically made into a new array (this doesn't seem to be documented in the language reference). Can't PERL do something similar?

@cY=split (//, file);

or

@cY=<FILE>
@cY=split (//, @cY);

Lastly, you put split(//) and join("&quot

.

I hope none of this sounds like whining, I really do appreciate the time people give to helping others on these forums

stormbind · Aug 2, 2003

Incase anyone isn't sure. This is what it should do:

Open the file, paste the contents to HTML with each set of 3 characters flipped.

HELLO WORLD ==> "LEH OLROW LD"

Security isn't the issue at the moment, but I want to see it working. I have it working within the browser environment but the plan is to communicate with a server

usige · Aug 2, 2003

stormbind,
@content is an array with n elements where n = number of lines in the file. So if your text file only has one line everything will be stored in $content[0].

One way to read all the data from the file and split into array of chars would be something like:

Code:

$/=undef;
open(FILE,&quot;data.txt&quot;);
@cY=split(//, <FILE>);
close(FILE);

As fo the // in split, but "" in join. split takes a patern to split on, where as join needs a string to join with. If you tried using // in the join you would get the last patern match not null or undef as you intended.

Hope some of this helps.

stormbind · Aug 2, 2003

It's all helping :]

I still don't have it working though. The CPU is getting thrashed and I'm not recieving any response through the browser - had to manually shutdown perl.exe

This is it at the moment. Btw, I'm not sure what $/undef; does LOL

#!perl

$/=undef;
open(FILE,"data.txt&quot

;
@cY=split(//, <FILE>);
close(FILE);

$i=0;
$len=@cY;
$eY="";
while (i<$len+3) {
$b=$i;
$c=$b+2;
$i=$i+3;
while (($b-1)!=$c) {
if ($cY[$c]) {$eY.=$cY[$c];} else {$eY.=' ';}
$c--;
}
}
$cY = join ("", @cY);

print "Content-Type: text/html\n\n";
print "<body onload=\"parent.decrypt('$cY')\"></body>";

stormbind · Aug 2, 2003

Ok. Some success! (i ==> $i)

It printed this:

<body onload="parent.decrypt('hello world')"></body>

Sooo... it didn't work... but it printed something. Whoohoo!

stormbind · Aug 2, 2003

Sorted fixed. Thanks all! Stars and icecream all round

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

A piece of cake. 2

stormbind

Technical User

stormbind

Technical User

liuwt

Programmer

stormbind

Technical User

stormbind

Technical User

usige

Technical User

stormbind

Technical User

stormbind

Technical User

stormbind

Technical User

Similar threads

Part and Inventory Search

Sponsor