view release on metacpan or  search on metacpan

examples/des.pl  view on Meta::CPAN

#!/usr/bin/perl

# Please don't encrypt me!
# This space is left blank intentionally  
use Filter::CBC "DES","my secret key";
RandomIVîë†ÚóË¿¿‘Æa¸å©€Ÿ½úÇTKŽ(ü0Ã̸<4oòÆÑÙ˵íñ)¡
¢NoiÁò_ßT"­ñqÔyÞ.¿ÆÊhOÖ¢Tó•iͳ‘©EJ!/¸2Ì£¡|Göëx%Í|z/+«=?ùõMs¿vŸ/;‰IT‡ŠVˆj?ß½½q¿´