sample-vec

来自「实战Linux编程的原代码,希望对学驱动的人能有所帮助」· 代码 · 共 363 行 · 第 1/5 页

#!/bin/sh

: ${PERL=perl}
: ${srcdir=.}

case "$PERL" in
  *'missing perl')
  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
  exit 77
  ;;
esac

exec $PERL -w -I$srcdir/.. -MFetish -- - <<\EOF
require 5.003;
use strict;

(my $program_name = $0) =~ s|.*/||;

# Turn off localisation of executable's ouput.
@ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3;

# The data from which these tests were derived came from here:
# http://csrc.nist.gov/cryptval/shs/sha1-vectors.zip

my @Tests =
    (
     ['1', {IN=> {f=> '0 1 ^'}},
     {OUT=>'DA39A3EE5E6B4B0D3255BFEF95601890AFD80709'}],
     ['2', {IN=> {f=> '5 0 2 1 2 1 2 ^'}},
     {OUT=>'3CDF2936DA2FC556BFA533AB1EB59CE710AC80E5'}],
     ['3', {IN=> {f=> '5 0 1 3 4 4 4 ^'}},
     {OUT=>'19C1E2048FA7393CFBF2D310AD8209EC11D996E5'}],
     ['4', {IN=> {f=> '7 0 4 3 4 4 1 4 4 ^'}},
     {OUT=>'CA775D8C80FAA6F87FA62BECA6CA6089D63B56E5'}],
     ['5', {IN=> {f=> '10 0 4 1 5 3 4 4 3 1 3 4 ^'}},
     {OUT=>'71AC973D0E4B50AE9E5043FF4D615381120A25A0'}],
     ['6', {IN=> {f=> '10 0 3 1 6 5 5 1 3 6 6 4 ^'}},
     {OUT=>'A6B5B9F854CFB76701C3BDDBF374B3094EA49CBA'}],
     ['7', {IN=> {f=> '13 1 3 2 5 3 3 3 4 6 6 1 4 6 2 ^'}},
     {OUT=>'D87A0EE74E4B9AD72E6847C87BDEEB3D07844380'}],
     ['8', {IN=> {f=> '16 1 3 5 5 1 2 1 3 3 6 3 5 2 3 5 7 2 ^'}},
     {OUT=>'1976B8DD509FE66BF09C9A8D33534D4EF4F63BFD'}],
     ['9', {IN=> {f=> '15 1 8 1 5 3 2 7 4 5 6 7 3 3 1 6 3 ^'}},
     {OUT=>'5A78F439B6DB845BB8A558E4CEB106CD7B7FF783'}],
     ['10', {IN=> {f=> '15 1 4 6 8 2 1 4 2 5 1 6 8 8 6 4 7 ^'}},
     {OUT=>'F871BCE62436C1E280357416695EE2EF9B83695C'}],
     ['11', {IN=> {f=> '18 1 1 2 7 3 8 6 7 5 4 3 4 3 5 3 3 2 6 8 ^'}},
     {OUT=>'62B243D1B780E1D31CF1BA2DE3F01C72AEEA0E47'}],
     ['12', {IN=> {f=> '16 0 9 8 1 8 1 7 6 7 7 1 2 6 9 5 4 7 ^'}},
     {OUT=>'1698994A273404848E56E7FDA4457B5900DE1342'}],
     ['13', {IN=> {f=> '18 0 7 1 7 3 9 4 7 7 5 2 8 1 7 8 2 7 2 9 ^'}},
     {OUT=>'056F4CDC02791DA7ED1EB2303314F7667518DEEF'}],
     ['14', {IN=> {f=> '19 1 2 3 1 8 8 6 9 10 3 10 8 9 2 4 1 5 1 5 9 ^'}},
     {OUT=>'9FE2DA967BD8441EEA1C32DF68DDAA9DC1FC8E4B'}],
     ['15', {IN=> {f=> '19 1 8 5 4 8 1 3 9 5 7 7 2 7 2 7 8 7 4 8 10 ^'}},
     {OUT=>'73A31777B4ACE9384EFA8BBEAD45C51A71ABA6DD'}],
     ['16', {IN=> {f=> '20 1 1 9 7 4 1 4 5 1 10 8 6 4 4 9 9 9 8 2 9 10 ^'}},
     {OUT=>'3F9D7C4E2384EDDABFF5DD8A31E23DE3D03F42AC'}],
     ['17', {IN=> {f=> '19 1 11 6 7 7 2 6 2 6 10 6 9 10 5 11 1 6 8 11 4 ^'}},
     {OUT=>'4814908F72B93FFD011135BEE347DE9A08DA838F'}],
     ['18', {IN=> {f=> '22 0 10 5 10 3 7 8 9 9 1 1 1 10 2 1 5 10 2 9 9 9 7 8 ^'}},
     {OUT=>'0978374B67A412A3102C5AA0B10E1A6596FC68EB'}],
     ['19', {IN=> {f=> '21 0 1 10 1 6 9 4 2 5 2 11 8 12 12 9 8 1 3 10 7 11 12 ^'}},
     {OUT=>'44AD6CB618BD935460D46D3F921D87B99AB91C1E'}],
     ['20', {IN=> {f=> '24 1 3 9 5 12 3 4 2 9 12 11 6 6 1 1 9 5 9 1 4 9 4 10 8 9 ^'}},
     {OUT=>'02DC989AF265B09CF8485640842128DCF95E9F39'}],
     ['21', {IN=> {f=> '25 1 3 2 3 11 1 12 5 6 2 7 8 4 8 8 9 9 8 4 9 1 4 8 10 9 9 ^'}},
     {OUT=>'67507B8D497B35D6E99FC01976D73F54AECA75CF'}],
     ['22', {IN=> {f=> '23 0 11 10 7 10 10 6 10 9 4 5 10 5 8 4 1 10 12 4 6 1 8 11 6 ^'}},
     {OUT=>'1EAE0373C1317CB60C36A42A867B716039D441F5'}],
     ['23', {IN=> {f=> '22 0 12 8 10 4 3 8 5 5 7 11 13 11 12 11 4 12 3 6 5 11 10 5 ^'}},
     {OUT=>'9C3834589E5BFFAC9F50950E0199B3EC2620BEC8'}],
     ['24', {IN=> {f=> '26 1 10 9 6 9 7 2 10 4 4 5 5 2 12 13 5 3 1 10 1 4 7 8 13 13 12 9 ^'}},