Perl

Hash (Digest) a String

Hash the bytes of a string. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $sb = Chilkat2::StringBuilder->new;

$sb->Append('Hello World');

# Hashing algorithms (i.e. digest algorithms) operate on raw bytes.
# Therefore, we must specify the character encoding (utf-8, utf-16, iso-8859-1, etc.) to be used when hashing.

# Get the SHA256 hash in hex
my $sha256_hex = $sb->GetHash('sha256', 'hex', 'utf-8');
print 'SHA256: ', $sha256_hex, "\n";

# Get the SHA384 hash in hex lowercase
my $sha384_hex = $sb->GetHash('sha384', 'hex_lower', 'utf-8');
print 'SHA384: ', $sha384_hex, "\n";

# Get the SHA512 hash in base64
my $sha512_base64 = $sb->GetHash('sha512', 'base64', 'utf-8');
print 'SHA512: ', $sha512_base64, "\n";

# Get the SHA1 hash in hex lowercase
my $sha1_hex = $sb->GetHash('sha1', 'hex_lower', 'utf-8');
print 'SHA1: ', $sha1_hex, "\n";

# Get the CRC8 digest in decimal
my $crc8_decimal = $sb->GetHash('crc8', 'decimal', 'utf-8');
print 'CRC8: ', $crc8_decimal, "\n";