SHA256 digest in perl

Muss ich tun, SHA256-Hash der E-Mail-Adressen, und ich brauche das Ergebnis als String.

Ich habe versucht, die folgenden:

  use Digest::SHA qw(sha256);
  my $data = '[email protected]';
  my $digest = sha256($data);

  print $digest;

Aber es gibt etwas aus wie:

B/D6i1μû^Þ©Q;¢Þ

Brauche ich die Ausgabe wie folgt:

cbc41284e23c8c7ed98f589b6d6ebfd6

Den oben genannten hash wird generiert mit SHA256-generator von Apache DigestUtils.

Was mache ich falsch? Ich bin ein newbie in perl, also Entschuldigung, wenn es etwas albern.

Dank.

MD5 - tag Hinzugefügt werden soll diese Frage

InformationsquelleAutor Swaranga Sarma | 2012-04-03

  1. 18

    cbc41284e23c8c7ed98f589b6d6ebfd6 ist MD5 für [email protected], nicht SHA-256

    SHA Verschlüsselungen für [email protected] >>

     SHA-1:            3a3be7013e297e28d24979aadc4ae75d84ce0844
 SHA-256:          0947300f280d422f4418366931cebcfbd17f5ede1507a951153b0f15a21c10de
 SHA-384:          34c01f3956aac32aacae1a6cf67f8a66d441af06c9d36f580ce4be5b234b5399cd879231c49db5bec269309582c19432
 SHA-512:          db1aa053dd9ee191b091abbcb8bead2ec69a1ab2664bb1deeeedbdb49b25e7bc7680a7659ae88c046afdabf1e35ed0e068763f8754b369bfade69cf21f65d166
 SHA-1   (Base64): OjvnAT4pfijSSXmq3ErnXYTOCEQ=
 SHA-256 (Base64): CUcwDygNQi9EGDZpMc68+9F/Xt4VB6lRFTsPFaIcEN4=
 SHA-384 (Base64): NMAfOVaqwyqsrhps9n+KZtRBrwbJ029YDOS+WyNLU5nNh5IxxJ21vsJpMJWCwZQy
 SHA-512 (Base64): 2xqgU92e4ZGwkau8uL6tLsaaGrJmS7He7u29tJsl57x2gKdlmuiMBGr9q/HjXtDgaHY/h1Szab+t5pzyH2XRZg==

    Wenn Sie sicher, dass Sie verwenden möchten SHA-256 und Sie sind auf der Suche für HEX Ausgang, dann versuchen Sie diese:

    Skript:

    #!/usr/bin/perl
use Digest::SHA qw(sha256);
print unpack("H*", sha256('[email protected]')), "\n";

    oder

    #!/usr/bin/perl
use Digest::SHA qw(sha256_hex);
print sha256_hex('[email protected]'), "\n";

    Ausgabe:

    0947300f280d422f4418366931cebcfbd17f5ede1507a951153b0f15a21c10de

    Und wenn Sie wollen, MD5 mit HEX Ausgang, dann versuchen Sie diese:

    Skript:

    #!/usr/bin/perl
use Digest::MD5 qw(md5);
print unpack("H*", md5('[email protected]')), "\n";

    oder

    #!/usr/bin/perl
use Digest::MD5 qw(md5_hex);
print md5_hex('[email protected]'), "\n";

    Ausgabe:

    cbc41284e23c8c7ed98f589b6d6ebfd6

    InformationsquelleAutor Ωmega

  2. 6

    Möchten Sie wahrscheinlich Digest::SHA qw(sha256_hex) Aus dem CPAN ist Digest::SHA Seite

    Logisch schließt sich die Argumente in einen einzigen string, und gibt die
    SHA-1/224/256/384/512 digest codiert als hexadezimale Zeichenfolge.

    InformationsquelleAutor charlesbridge

Schreibe einen Kommentar