One Hat Cyber Team

Your IP : 172.16.0.254

Server IP : 58.26.163.33

Server : Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64

Server Software : Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25

PHP Version : 7.3.25

Buat File | Buat Folder

Dir : C:/xampp7/perl/vendor/lib/Data/Dump/Streamer/_/

Edit File: Printers.pm

{
    package Data::Dump::Streamer::_::StringPrinter;
    #$Id: Printers.pm 26 2006-04-16 15:18:52Z demerphq $#
    $VERSION= "0.1";
    my %items;
    sub DESTROY { delete $items{$_[0]} }

sub new {
        my $class = shift;
        my $self = bless \do { my $str = '' }, $class;
        $self->print(@_);
        return $self;
    }

sub print {
        my $self = shift;
        $items{$self} .= join "", @_;
    }
    sub value  { $items{$_[0]} }
    sub string { $_[0]->value() }
    1;
}

{

package Data::Dump::Streamer::_::ListPrinter;
    $VERSION= "0.1";
    my %items;
    sub DESTROY { delete $items{$_[0]} }

sub new {
        my $class = shift;
        my $self = bless \do { my $str = '' }, $class;
        $items{$self} = [];
        $self->print(@_);
        return $self;
    }

sub print {
        my $self = $items{shift (@_)};
        my $str = join ( '', @_ );
        if (   !@$self
            or $self->[-1] =~ /\n/
            or length( $self->[-1] ) > 4000 )
        {
            push @{$self}, $str;
        } else {
            $self->[-1] .= $str;
        }
    }
    sub value { @{$items{$_[0]}} }
    sub string { join ( '', @{$items{$_[0]}} ) }
    1;
}

__END__