One Hat Cyber Team

Your IP: 216.73.216.19
Server IP: 178.33.27.10
Server: Linux cpanel.dev-unit.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Server Software: Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
PHP Version: 8.2.11
Buat File | Buat Folder

Dir : ~/lib64/perl5/vendor_perl/Razor2/Client/

View File Name : Engine.pm

package Razor2::Client::Engine;

use strict;
use Data::Dumper;
use Razor2::Signature::Ephemeral;
use Razor2::Engine::VR8;
use Razor2::Preproc::Manager;
use Razor2::String qw(hextobase64 makesis debugobj);

# meant to be inherited
#
sub new {
    return {};
}

sub supported_engines {

    my @a = qw( 4 8 );

    my $hr = {};
    foreach (@a) { $hr->{$_} = 1; }

    return wantarray ? @a : $hr;
}

sub compute_engine {
    my ( $self, $engine, @params ) = @_;

    return $self->vr4_signature(@params) if $engine == 4;
    return $self->vr8_signature(@params) if $engine == 8;

    $self->log( 1, "engine $engine not supported" );
    return;
}

#
# The following *_signature subroutines should be
# the same as the ones on the server
#

#
# VR4 Engine - Ephemereal signatures of decoded body content
#
sub vr4_signature {
    my ( $self, $text, $ep4 ) = @_;
    my ( $seed, $separator ) = split /-/, $ep4, 2;

    return $self->log( 1, "vr4_signature: Bad ep4: $ep4" ) unless ( $seed && $separator );

    my $ehash = new Razor2::Signature::Ephemeral( seed => $seed, separator => $separator );
    my $digest = $ehash->hexdigest($$text);

    my $sig = hextobase64($digest);
    $self->log( 11, "engine 4 computing on " . length($$text) . ", sig=$sig" );
    return $sig;
}

sub vr8_signature {
    my ( $self, $text ) = @_;
    my $vr8 = Razor2::Engine::VR8->new();

    my $sigs = $vr8->signature($text);

    return $sigs;
}

1;