| Subject: | decr not happening properly |
problem
-------
"decr" is not decrypting properly.
Environment
-----------
OS:Red hat linux 8 (Linux abcdef 2.4.20-8 #1 Thu Mar 13 17:54:28 EST 2003 i686 i686 i386 GNU/Linux)
gcc version 3.2.2
perl module
-----------
Filter-1.30
Test case
---------
tested with the following lines in a file
#!/usr/bin/perl -w
# This is my first perl program
print ("\a\a\aMy first program\n\a\a\a");
print "\x36\x34";
print "\uwas\uwaldo is \x34\x years old.";
print "dir x1.pl";
output
------
I am getting the following out put after encrypting and decrypting the above lines.
#!/usr/bin/perl -w
first perl program <==== The line truncated here.
print ("\a\a\aMy first program\n\a\a\a");
print "\x36\x34";
print "\uwas\uwaldo is \x34\x years old.";
print "dir x1.pl";
Problem with "decr" script
------------------------
The "decr" always fails at the following line.
(print "skipping file '$file': not encrypted\n"), next
unless $f eq $Fingerprint ;
The $f and $Fingerprint not equal at all, so I modifyed "eq" to "ne" and I am getting the above problem.
Any pointers are of great help. Please let me know if you need any further info.
Thanks
Ravi