sumengen — Sat, 20 Nov 1999 20:04:00 +0000

You can do it in one line and in a much faster way using tr/// .

tr/a-zA-Z/b-zaB-ZB/;

if you also want to translate numbers:
tr/0-9a-zA-Z/1-90b-zaB-ZB/;

Baris.

------------------

Malte — Thu, 11 Nov 1999 02:54:00 +0000

To decode information in an URL for a gift tracking service. Its not really supposed to be secure. It's just supposed to hide the reason for why we know who the person is (Because its hidden in the URL)

Later,

Malte

----------
Malte Ubl - [red]Germany[/red] - http://www.schaffhausen-interactive.de/
[red]The beats of 1000 hearts inside...[/red]

JP Stones — Wed, 10 Nov 1999 23:01:00 +0000

what was it for?
JP

----------
[red]The Next Step in Website Development [/red] - http://www.what-next.com
The Webmaster Promotion and Resource Center

Malte — Wed, 10 Nov 1999 04:41:00 +0000

...and what happens to numbers?

Malte — Wed, 10 Nov 1999 03:57:00 +0000

Is it enough to change the $i++ into $i-- to undo the process?

Thanx,

Malte

----------
Malte Ubl - [red]Germany[/red] - http://www.schaffhausen-interactive.de/
[red]The beats of 1000 hearts inside...[/red]

Malte — Tue, 09 Nov 1999 21:19:00 +0000

Thanx very much. I got it to work perfectly.

Malte

----------
Malte Ubl - [red]Germany[/red] - http://www.schaffhausen-interactive.de/
[red]The beats of 1000 hearts inside...[/red]

Federico Carnales — Tue, 09 Nov 1999 21:13:00 +0000

1) To undo the process change $letters[($i+$offset)]; to $letters[($i-$offset)];

2) If you want to change numbers too, change @letters = (a..z,A..Z); to @letters = (0..9,a..z,A..Z);

----------
Reviews of the best resources for webmasters in your e-mail every week!
Subscribe for [red]FREE[/red] by going to http://www.web-reviews.com/

Federico Carnales — Mon, 08 Nov 1999 21:11:00 +0000

I'm sure there's a better way to do it, but here's my code anyway:

$offset = 1;
$string = "Hello there!";
@letters = (a..z,A..Z);
sub getnew {
$letter = shift;
$i = 0;
$valid = 0;
for (@letters) {
if ($letter eq $_) {
$valid = 1;
$newchar = $letters[($i+$offset)];
}
$i++;
}
if (!$valid) {
$newchar = $letter;
}
return $newchar;
}
print "content-type: text/html\n\n";
print "<p>Original string: $string</p>\n";
print "<p>Converted string: ";
(@chars) = split(//, $string);
for (@chars) {
print &getnew($_);
}
print "</p>";

Output:

Original string: Hello there!

Converted string: Ifmmp uifsf!

Regards,
Federico Carnales

----------
Reviews of the best resources for webmasters in your e-mail every week!
Subscribe for [red]FREE[/red] by going to http://www.web-reviews.com/