Dear Friends,
How will i encrypt the text file . I tried with this code. But it is
encrypting first few lines. Please give me your tips. Please.
Code :
use Crypt::CBC(IDEA);
$cipher = new Crypt::CBC('Philips1'); ### Only 8 chars are allowed as key
$cipher->start('encrypting');
open(TEST,">Encrypted.txt");
binmode(TEST);
open(F,"SOURCE.txt");
while (read(F,$buffer,10000))
{
select(TEST);
print $cipher->encrypt($buffer);
}
print $cipher->finish;
Kind Regards,
Pons.
____________________________________________________
Ponnambalam. M.A.
Philips Medical Systems,
Philips Innovation Campus,
#1,Murphy Road, Ulsoor.
Bangalore - 560008. INDIA
Phone : +91- 080 - 557 9000 Extn: 1013
E-mail: [EMAIL PROTECTED]
____________________________________________________
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
