Hello all,


Do you hear the Filter.pm Perl module?
How to using its when I have a perl programe?

Best regards


Gabriel

Read the following articles:

http://theoryx5.uwinnipeg.ca/...e-Filter/README.html

http://theoryx5.uwinnipeg.ca/...lter/Filter/cpp.html

http://theoryx5.uwinnipeg.ca/CPAN/data/Filter/

For more information on Perl modules, visit www.cpan.org

Regards.

------------------
Eliot Lee....
Former Handle: Eliot
* Check Resource Center
* Search Forums
* Thinking out of the box (codes) is not only fun, but effective.

Hello Eliot Lee


If we have a Perl programming like below and install the Filter.pm.
How to using the Filter::decrypt for translate the unreading code?

#!/usr/local/bin/perl

use GD;

open(COUNT, "<count.txt") &#0124; &#0124; die("Can't open count.txt\n");
$count =<COUNT>;
$count ++;
close(COUNT);
open(COUNT, ">count.txt") &#0124; &#0124; die("Can't open count.txt\n");
print COUNT $count;
close(COUNT);
print "Pragma: no-cache\n";
print "Content-type: image/gif\n\n";
$imy = 20;
$imx = 15;
$startx = 0;
$endx = 14;
$dig = length($count);
$digs = $dig - 1;
@numbers = split(//, $count);
$imx = $imx + $digs * 15;
$im = new GD::Image($imx,$imy);
for ($i = 0; $i <= $digs; ++$i) {
$each_digit = @numbers[$i];
open (TILE,"./digits/$each_digit.gif") &#0124; &#0124; die;
$tile = newFromGif GD::Image(TILE);
close TILE;
$im->setTile($tile);
$im->filledRectangle($startx,0,$endx,19,gdTiled);
$startx = $startx + 15;
$endx = $endx + 15;
}
binmode STDOUT;
print $im->gif;


Would you step by step tell me?
Thanks you very much.


Best regards


Gab

 
Sorry...don't have the time...but the articles I gave you contain examples of how to use the Filter.pm module.

Good luck!

Regards,

------------------
Eliot Lee....
Former Handle: Eliot
Anthro TECH, L.L.C
anthrotech.com
* Check Resource Center
* Search Forums
* Thinking out of the box (codes) is not only fun, but effective.