One Hat Cyber Team

Your IP : 172.70.80.67

Server IP : 188.114.97.4

Server : Linux thuru 6.5.11-4-pve #1 SMP PREEMPT_DYNAMIC PMX 6.5.11-4 (2023-11-20T10:19Z) x86_64

Server Software : Apache/2.4.51 (Unix) OpenSSL/1.0.2k-fips

PHP Version : 7.3.33

Buat File | Buat Folder

Dir : ~/usr/share/perl5/vendor_perl/Razor2/Engine/

View File Name : VR8.pm

package Razor2::Engine::VR8;
use Razor2::Signature::Whiplash;
use Razor2::String qw(hextobase64);
use Data::Dumper;

sub new {
    
    my ($class, %args) = @_;

    my $self = bless {
        description      => 'whiplash',
        has_greet_param  => 0,
        whiplash         => new Razor2::Signature::Whiplash,
        rm               => $args{RM},
    }, $class;

    die unless $self;

    return $self;

}


sub signature { 

    my ($self, $text) = @_;
    my ($sigs, $meta) = $self->{whiplash}->whiplash($$text);

    my @sigs_to_return;
    return unless $sigs;

    if (scalar @$sigs) { 
        for (@$sigs) { 
            push @sigs_to_return, hextobase64($_); 
        }
    } else { 
        return;
    } 

    return \@sigs_to_return; 
    
}

1;