DE
Size: a a a
DE
VG
AP
AP
DE
AP
DE
VG
AP
sub _mask {
my $self = shift;
my ($payload, $mask) = @_;
$mask = $mask x (int(length($payload) / 4) + 1);
$mask = substr($mask, 0, length($payload));
$payload = "$payload" ^ $mask;
return $payload;
}
DE
VG
AP
VG
VG
DE
AP
DE
AP
VG