Select Code to Download

print "Hello World!\n";
print "This is an example of encrypting a perl\n";
print " script and not having the source directly viewable\n";

#!/usr/bin/perl -w

...
    print "\n" if ($i%30 == 0);
    print substr($ciphertext, $i,1);
}

#!/usr/bin/perl -w

...
66a05c247903a2321e8a737bb3da4a
fb5cf611dacbed89347997ab2db220
b1df993e95e7e0729405d84261bad4

[coolness@ryszard encrypt]# ./header.pl 
Plaintext
...
Hello World!
This is an example of encrypting a perl
 script and not having the source directly viewable

[coolness@ryszard encrypt]# perl -MO=Deparse header.pl 
BEGIN { $^W = 1; }
...
fb5cf611dacbed89347997ab2db220
b1df993e95e7e0729405d84261bad4
header.pl syntax OK