What does the Filter :: Crypto module do in the DATA section?

Question

I am trying to package a Perl script in EXE using the pp utility associated with PAR :: Packer using Filter :: Crypto enabled. But there is something wrong. Without a filter, everything is fine. With that, no. I think this has something to do with the DATA section in the script. The following simplified script may demonstrate the problem, but I'm not sure if my problem is OS related or not. The problem is this: when I use

pp --gui -o 1.exe test.pl

The exe works as expected. It displays the contents in the DATA section. But with

pp --gui -f Crypto -M Filter::Crypto::Decrypt -o 2.exe test.pl

EXE does not display any content.

use Win32::GUI;
use strict;
use warnings;

my $mw = new Win32::GUI::DialogBox(
  -text         => 'Test',
  -left         => 300,
  -top          => 100,
  -left         => 60,
  -width        => 200,
  -height       => 200,
);

$mw->Show();

my $result = $mw->AddTextfield(
  -left         => 0,
  -top          => 40,
  -size         => [180,100],
  -vscroll =>1,
  -multiline => 1,
);

my $button = $mw->AddButton(
  -name         => 'button',
  -text         => 'Go',
  -left         => 120,
  -top          => 10,
  -visible =>1,
);

Win32::GUI::Dialog;

sub button_Click {

while(<DATA>) {
    $result->Append("$_\r\n");
}
}

__DATA__
This is LINE1
This is LINE2
This is LINE3

Thanks, as always, for any directions / pointers / suggestions / comments :)

Answer 1

:: Crypto bug tracker.