Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.20
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Net /
OAuth /
SignatureMethod /
[ HOME SHELL ]
Name
Size
Permission
Action
HMAC_SHA1.pm
868
B
-rw-r--r--
HMAC_SHA256.pm
896
B
-rw-r--r--
PLAINTEXT.pm
705
B
-rw-r--r--
RSA_SHA1.pm
1.16
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : HMAC_SHA1.pm
package Net::OAuth::SignatureMethod::HMAC_SHA1; use warnings; use strict; use Digest::HMAC_SHA1; use MIME::Base64; sub sign { my $self = shift; my $request = shift; my $hmac = Digest::HMAC_SHA1->new($request->signature_key); $hmac->add($request->signature_base_string); return encode_base64($hmac->digest, ''); } sub verify { my $self = shift; my $request = shift; return $request->signature eq $self->sign($request); } =head1 NAME Net::OAuth::SignatureMethod::HMAC_SHA1 - HMAC_SHA1 Signature Method for OAuth protocol =head1 SEE ALSO L<Net::OAuth>, L<http://oauth.net> =head1 AUTHOR Keith Grennan, C<< <kgrennan at cpan.org> >> =head1 COPYRIGHT & LICENSE Copyright 2007 Keith Grennan, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1;
Close
