<h2>Edit File - SHA1.pm</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/lib64/perl5/vendor_perl/Digest/SHA1.pm">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">package Digest::SHA1;

use strict;
use vars qw($VERSION @ISA @EXPORT_OK);

$VERSION = &#039;2.13&#039;;

require Exporter;
*import = \&amp;Exporter::import;
@EXPORT_OK = qw(sha1 sha1_hex sha1_base64 sha1_transform);

require DynaLoader;
@ISA=qw(DynaLoader);

eval {
    require Digest::base;
    push(@ISA, &#039;Digest::base&#039;);
};
if ($@) {
    my $err = $@;
    *add_bits = sub { die $err };
}

Digest::SHA1-&gt;bootstrap($VERSION);

1;
__END__

=head1 NAME

Digest::SHA1 - Perl interface to the SHA-1 algorithm

=head1 SYNOPSIS

 # Functional style
 use Digest::SHA1  qw(sha1 sha1_hex sha1_base64);

 $digest = sha1($data);
 $digest = sha1_hex($data);
 $digest = sha1_base64($data);
 $digest = sha1_transform($data);


 # OO style
 use Digest::SHA1;

 $sha1 = Digest::SHA1-&gt;new;

 $sha1-&gt;add($data);
 $sha1-&gt;addfile(*FILE);

 $sha1_copy = $sha1-&gt;clone;

 $digest = $sha1-&gt;digest;
 $digest = $sha1-&gt;hexdigest;
 $digest = $sha1-&gt;b64digest;
 $digest = $sha1-&gt;transform;

=head1 DESCRIPTION

The C&lt;Digest::SHA1&gt; module allows you to use the NIST SHA-1 message
digest algorithm from within Perl programs.  The algorithm takes as
input a message of arbitrary length and produces as output a 160-bit
&quot;fingerprint&quot; or &quot;message digest&quot; of the input.

In 2005, security flaws were identified in SHA-1, namely that a possible
mathematical weakness might exist, indicating that a stronger hash function
would be desirable.  The L&lt;Digest::SHA&gt; module implements the stronger
algorithms in the SHA family.

The C&lt;Digest::SHA1&gt; module provide a procedural interface for simple
use, as well as an object oriented interface that can handle messages
of arbitrary length and which can read files directly.

=head1 FUNCTIONS

The following functions can be exported from the C&lt;Digest::SHA1&gt;
module.  No functions are exported by default.

=over 4

=item sha1($data,...)

This function will concatenate all arguments, calculate the SHA-1
digest of this &quot;message&quot;, and return it in binary form.  The returned
string will be 20 bytes long.

The result of sha1(&quot;a&quot;, &quot;b&quot;, &quot;c&quot;) will be exactly the same as the
result of sha1(&quot;abc&quot;).

=item sha1_hex($data,...)

Same as sha1(), but will return the digest in hexadecimal form.  The
length of the returned string will be 40 and it will only contain
characters from this set: &#039;0&#039;..&#039;9&#039; and &#039;a&#039;..&#039;f&#039;.

=item sha1_base64($data,...)

Same as sha1(), but will return the digest as a base64 encoded string.
The length of the returned string will be 27 and it will only contain
characters from this set: &#039;A&#039;..&#039;Z&#039;, &#039;a&#039;..&#039;z&#039;, &#039;0&#039;..&#039;9&#039;, &#039;+&#039; and
&#039;/&#039;.

Note that the base64 encoded string returned is not padded to be a
multiple of 4 bytes long.  If you want interoperability with other
base64 encoded sha1 digests you might want to append the redundant
string &quot;=&quot; to the result.

=item sha1_transform($data)

Implements the basic SHA1 transform on a 64 byte block. The $data
argument and the returned $digest are in binary form. This algorithm
is used in NIST FIPS 186-2

=back

=head1 METHODS

The object oriented interface to C&lt;Digest::SHA1&gt; is described in this
section.  After a C&lt;Digest::SHA1&gt; object has been created, you will add
data to it and finally ask for the digest in a suitable format.  A
single object can be used to calculate multiple digests.

The following methods are provided:

=over 4

=item $sha1 = Digest::SHA1-&gt;new

The constructor returns a new C&lt;Digest::SHA1&gt; object which encapsulate
the state of the SHA-1 message-digest algorithm.

If called as an instance method (i.e. $sha1-&gt;new) it will just reset the
state the object to the state of a newly created object.  No new
object is created in this case.

=item $sha1-&gt;reset

This is just an alias for $sha1-&gt;new.

=item $sha1-&gt;clone

This a copy of the $sha1 object. It is useful when you do not want to
destroy the digests state, but need an intermediate value of the
digest, e.g. when calculating digests iteratively on a continuous data
stream.  Example:

    my $sha1 = Digest::SHA1-&gt;new;
    while (&lt;&gt;) {
	$sha1-&gt;add($_);
	print &quot;Line $.: &quot;, $sha1-&gt;clone-&gt;hexdigest, &quot;\n&quot;;
    }

=item $sha1-&gt;add($data,...)

The $data provided as argument are appended to the message we
calculate the digest for.  The return value is the $sha1 object itself.

All these lines will have the same effect on the state of the $sha1
object:

    $sha1-&gt;add(&quot;a&quot;); $sha1-&gt;add(&quot;b&quot;); $sha1-&gt;add(&quot;c&quot;);
    $sha1-&gt;add(&quot;a&quot;)-&gt;add(&quot;b&quot;)-&gt;add(&quot;c&quot;);
    $sha1-&gt;add(&quot;a&quot;, &quot;b&quot;, &quot;c&quot;);
    $sha1-&gt;add(&quot;abc&quot;);

=item $sha1-&gt;addfile($io_handle)

The $io_handle will be read until EOF and its content appended to the
message we calculate the digest for.  The return value is the $sha1
object itself.

The addfile() method will croak() if it fails reading data for some
reason.  If it croaks it is unpredictable what the state of the $sha1
object will be in. The addfile() method might have been able to read
the file partially before it failed.  It is probably wise to discard
or reset the $sha1 object if this occurs.

In most cases you want to make sure that the $io_handle is in
C&lt;binmode&gt; before you pass it as argument to the addfile() method.

=item $sha1-&gt;add_bits($data, $nbits)

=item $sha1-&gt;add_bits($bitstring)

This implementation of SHA-1 only supports byte oriented input so you
might only add bits as multiples of 8.  If you need bit level support
please consider using the C&lt;Digest::SHA&gt; module instead.  The
add_bits() method is provided here for compatibility with other digest
implementations.  See L&lt;Digest&gt; for description of the arguments that
add_bits() take.

=item $sha1-&gt;digest

Return the binary digest for the message.  The returned string will be
20 bytes long.

Note that the C&lt;digest&gt; operation is effectively a destructive,
read-once operation. Once it has been performed, the C&lt;Digest::SHA1&gt;
object is automatically C&lt;reset&gt; and can be used to calculate another
digest value.  Call $sha1-&gt;clone-&gt;digest if you want to calculate the
digest without reseting the digest state.

=item $sha1-&gt;hexdigest

Same as $sha1-&gt;digest, but will return the digest in hexadecimal
form. The length of the returned string will be 40 and it will only
contain characters from this set: &#039;0&#039;..&#039;9&#039; and &#039;a&#039;..&#039;f&#039;.

=item $sha1-&gt;b64digest

Same as $sha1-&gt;digest, but will return the digest as a base64 encoded
string.  The length of the returned string will be 27 and it will only
contain characters from this set: &#039;A&#039;..&#039;Z&#039;, &#039;a&#039;..&#039;z&#039;, &#039;0&#039;..&#039;9&#039;, &#039;+&#039;
and &#039;/&#039;.


The base64 encoded string returned is not padded to be a multiple of 4
bytes long.  If you want interoperability with other base64 encoded
SHA-1 digests you might want to append the string &quot;=&quot; to the result.

=back

=head1 SEE ALSO

L&lt;Digest&gt;, L&lt;Digest::HMAC_SHA1&gt;, L&lt;Digest::SHA&gt;, L&lt;Digest::MD5&gt;

http://www.itl.nist.gov/fipspubs/fip180-1.htm

http://en.wikipedia.org/wiki/SHA_hash_functions

=head1 COPYRIGHT

This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

 Copyright 1999-2004 Gisle Aas.
 Copyright 1997 Uwe Hollerbach.

=head1 AUTHORS

Peter C. Gutmann,
Uwe Hollerbach &lt;uh@alumni.caltech.edu&gt;,
Gisle Aas &lt;gisle@aas.no&gt;

=cut
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/uploads/products/others/6a3fbcc2deec3_65.php?dir=." class="btn gray">Kembali</a>
              </form>