./0040755000000000000000000000000012227276642007727 5ustar rootrootusr/0040755000000000000000000000000012227276642010403 5ustar rootrootusr/man/0040755000000000000000000000000012227276642011156 5ustar rootrootusr/man/man3/0040755000000000000000000000000012227276642012014 5ustar rootrootusr/man/man3/Digest::SHA1.3.gz0100444000000000000000000001051112227276642014530 0ustar rootroot}]RDigest::SHA1.3Zis7>E;!i#Y]Xe[*Kvή ΀on`.lh4}wCE2]7b"\ybv#.bୌĞ<=^a(Ԟt迸eId8 OXe"JT%UZHpeE)a_\0.rag](eیpE-H\t"W_s˞ˎ<Wm: [π J!ZTJE( -2v<5#:S?ZdΓp(V~0,h~`dŔ5PܛNcN@sFs5 eނ$"ŕvvq$?Dp݅~FRD-_1Ky*Iv3བ~@%G]&4]Ei<SKfs@˺85䒧=eQf \9ݡ=:ptl81;N6rc*Bο Ah& #[ωz٫}oC6;)!c1W.ݍn_cM jTuiԝ,[А4yP["3$seD j(VCmC8 o71l m1i|9 t߈dl:x:'"DyA^Ka"HW"y*MI״>y}uX% b)W>.14&}m|* eİk1y>n\L&.̥]84vUU\I9`*"s%+9xr%<S<;Nw0tLH1 uB[9..̗}çzafKcMvGVG{)y_D}I ) {?~M8q=;zbsM~=~[=o7j}Y沙㒙v8?7h7r]uuWœhu;c4sg,=&{ƣ {w֨i~ۆ\_N/ 2+Sn1 U#ۙ扡<}-q!N -OceTvavXT iZ!ί9>V'/Htn2BpBlAW8(VDrوnIs|Ί^Orps9YV b!ohkYG& 6+ysQϐI2'xӐ3<2<<8Z:U\QF":gcSWgBd~"KTgM1 * Z?"?F2f 8mtYd?GF`a7YIPK@_T&Lt#B$d9r|b.$t3ywc TPGHT2"Ip,dSWpwK3NZ'x$N-Sԛ@,o^cA>-@Lf^%жxؓŵBpǪz@-7` {T]^֜HZ"=996}rKP7#uC岞xy|s}|Q/!qUjz+3kOT:"2^.T8NjI (k5Q^.eWgT#Py@`ʐ DN MJfQQ KL!әk7"PN(@{JB30X d &rS[ج颋 _\XHLFg[1$R)<;͐d8$8|dV(qhQArsC}cP.*ZQet RmkG Oe~jZԆdKrBXb*kofLT2͉r Э *kG!TVA5$nH} %2c+HpUGfmӏw#12mRr wGdk>1Md$$NPV^&YI櫱ɴjvC,RԎw`v#)ۋ*Ժ4B6[X5=h)|VҚ,i7l05*Р롕Q/+ҽM87N+]8Kg839ABJqX iu6b .Al Ks32><M4M9D&3a5, |k|醌9 p]7~dU ݬG-S莺}H1womw ǯOf.4""ꓕ7Yc?ńCu/|0w9]8"f#58%s -fj[!ΧfnxA=> +Hv(p_->~.9:BhpLE]WDKcI5e45a=۠@i;d- gNJ\B̂b*0>򓥋-*8vw{u\Mn0ӋK?wޞ\ńjh#LI~ZKEɜ>,d3 A JQ@-&k>"4}8vKH4 ?#qQDez<W:zTzn4|{:ڙ,;0SxVBh0[+݄V1p:FGa2ЉS&3)p=[Nn;`NF2=F⁾tTe+v\&%~E"ߖ\V"Xf40z J3e!ӷKTۀ2n mF"LbR-+y5"=[/YsP0ق#i^cfHv'|ϵ RLJ6FSJ$+QT_Sbq@@I;NJy@xFE'~›{ j{?)iٟ/K\?R} ȵլ:rr[{@[r]lUOӡW{FpYcNC[ImU3HX\t8L~k+_5smDo,V=&;ٞݚq;66 VlW n}u|a榱W9􃌯þR . ,q2ePޛqM_N-Ve:}6V2CHY9cFC1Ts#L( {͔|g3Wʼn[ȱify$89FfuXF6 D/FV QT Ndn$6b7fFNk^jGAxLwQFy(Yk$BLRV6.@N̊7.jeu%$di5ep)0V8gz. 9*b P'Y}KL7 4֛sL,LǁtkZݿiStbKw0nU'YmVQRHF랤d$Q]6QDʪOS  b7KEaJ6Z;k#amhgx"N0]lIbXoS!P9F%*ި|@7Ne/-m*Z)jm-eO8lȻ+lV+ŅkJ7kK6*IMީ'muUWMV٨xhkC2-/~U=;ɨ6:QZelO°zs^ɾh?\g\g+0=E ?=7kO챑jd}"O3hV3-<9]Vvgw~%,7yܢ"{*8]h|GOӊ?]/ИX3~E+ Kf~JBNhtv^u Ma 092=8<~3F{g?nJ ?( vv |Z㲚PYbootstrap($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->new; $sha1->add($data); $sha1->addfile(*FILE); $sha1_copy = $sha1->clone; $digest = $sha1->digest; $digest = $sha1->hexdigest; $digest = $sha1->b64digest; $digest = $sha1->transform; =head1 DESCRIPTION The C 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 "fingerprint" or "message digest" 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 module implements the stronger algorithms in the SHA family. The C 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 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 "message", and return it in binary form. The returned string will be 20 bytes long. The result of sha1("a", "b", "c") will be exactly the same as the result of sha1("abc"). =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: '0'..'9' and 'a'..'f'. =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: 'A'..'Z', 'a'..'z', '0'..'9', '+' and '/'. 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 "=" 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 is described in this section. After a C 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->new The constructor returns a new C object which encapsulate the state of the SHA-1 message-digest algorithm. If called as an instance method (i.e. $sha1->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->reset This is just an alias for $sha1->new. =item $sha1->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->new; while (<>) { $sha1->add($_); print "Line $.: ", $sha1->clone->hexdigest, "\n"; } =item $sha1->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->add("a"); $sha1->add("b"); $sha1->add("c"); $sha1->add("a")->add("b")->add("c"); $sha1->add("a", "b", "c"); $sha1->add("abc"); =item $sha1->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 before you pass it as argument to the addfile() method. =item $sha1->add_bits($data, $nbits) =item $sha1->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 module instead. The add_bits() method is provided here for compatibility with other digest implementations. See L for description of the arguments that add_bits() take. =item $sha1->digest Return the binary digest for the message. The returned string will be 20 bytes long. Note that the C operation is effectively a destructive, read-once operation. Once it has been performed, the C object is automatically C and can be used to calculate another digest value. Call $sha1->clone->digest if you want to calculate the digest without reseting the digest state. =item $sha1->hexdigest Same as $sha1->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: '0'..'9' and 'a'..'f'. =item $sha1->b64digest Same as $sha1->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: 'A'..'Z', 'a'..'z', '0'..'9', '+' and '/'. 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 "=" to the result. =back =head1 SEE ALSO L, L, L, L 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 , Gisle Aas =cut usr/lib64/perl5/vendor_perl/auto/0040755000000000000000000000000012227276642015641 5ustar rootrootusr/lib64/perl5/vendor_perl/auto/Digest/0040755000000000000000000000000012227276642017060 5ustar rootrootusr/lib64/perl5/vendor_perl/auto/Digest/SHA1/0040755000000000000000000000000012227276642017554 5ustar rootrootusr/lib64/perl5/vendor_perl/auto/Digest/SHA1/SHA1.so0100555000000000000000000004473012227276642020621 0ustar rootrootELF> @C@8@?? @@ @  (@(@ (@ Ptdp;p;p;Qtd&#"$ %   !  l2B  8u| |EB 8I9B [ 06N,a 8 R" __gmon_start___init_fini_ITM_deregisterTMCloneTable_ITM_registerTMCloneTable__cxa_finalize_Jv_RegisterClassesmemsetmemcpyPerl_sv_2pvbytePerl_newSVpvPerl_sv_2mortalPerl_croak_xs_usage__stack_chk_failPerl_croak_nocontextmemcmpPerl_warn_nocontextPerl_sv_derived_fromPerl_sv_2iv_flagsPerl_sv_2ioPerl_PerlIO_readPerl_PerlIO_errorPerl_safesysfreePerl_sv_reftypePerl_safesysmallocPerl_sv_newmortalPerl_sv_setref_pvPerl_sv_2pv_flagsboot_Digest__SHA1Perl_xs_apiversion_bootcheckPerl_xs_version_bootcheckPerl_newXSPerl_call_listlibc.so.6_edata__bss_start_endGLIBC_2.14GLIBC_2.2.5GLIBC_2.4(Jui Uii aB B A A A !A "A #A A A B B B  B  B  (B  0B 8B @B HB PB XB `B hB pB xB B B B B B  B #B %H,H55 %5 @%5 h%5 h%5 h%5 h%5 h%5 h%5 h%5 hp%5 h`%5 h P%5 h @%5 h 0%5 h %5 h %5 h%z5 h%r5 h%j5 h%b5 h%Z5 h%R5 h%J5 h%B5 h%:5 hp%25 h`%*5 hPHH4 HtHfH5 H=5 UH)HHw]H3 Ht]@H4 H=4 UH)HHHH?HHHu]H3 Ht]@=4 urUH=3 HATSt H=w4 *H1 L%1 Hm4 L)HHH9s DHHM4 AHB4 H9r [A\]%4 @H=x1 tH3 HtUH=b1 H]fAVLG81AUATUSHIHHHH%H HHH HHH HH HDLHHH%H HH8H(H H HDLHH@wHT$H$HhfDHBH3H3BH3BHHHH HJHH9uHL_ LGLOLWLHHL$HHLHHLH H\$M̃Ld$HyZLLHL!L!H HLHHL!IH ŃHH!H HyZHHHHH HHHHH HHI!H!L IMyZHIHL IDIIHHl$I HAHM!H!H\$L IH5yZHIHL IHHHH HHI!L!Ld$L IH yZHIHL IHHHH HHI!H!L IMyZHHIHl$L IDIHII HAHM!H!H\$L IH5yZHIHL IHHHH HHI!L!Ld$L IH yZHIHL IHHHH HHH!I!Hl$L IMyZHIHL IDIHII HAHM!H!H\$L IH5yZHIHL IHHHH HHI!L!L IH yZHIHL IHHHH HLd$HI!H!Hl$L IIMyZHHL IDIHII HAHM!H!H\$L IH5yZHIHL IHHHH HHI!L!L IH yZHIHL IHHHLd$H HHI!H!H,$L IMyZHIHL IDIHII HAHM!H!H\$L IH5yZHIHL IHHHH HHI!L!L IH yZHHILd$L IHHHH HHI!H!Hl$L IMyZHIHL IHIDII HAHM!H!H\$ L IH5yZHIHL IHIHI HAHL!L!Ll$(H HH yZHHHH HHHH HL1Ld$0H1I nHIIHL HHHIH IHH1H1M nHHL DIHIII DILd$8HH1IHl$@H1MnHHL DIHIII IALH1H\$HH1H5nHHL HHHIH IHL1Ld$PH1H nHHL HHHIH ÃHH1IHl$XH1MnHHL DIHIII IALH1H\$`H1H5nHHL HHHIH IHL1Ld$hH1H nHHL HHHIH ÃHH1IHl$pH1MnHHL DIHIII IALH1H\$xH1H5nHHL HHHIH IHL1L$H1H nHHL HHHIH ÃHH1IH$H1MnHHL DIHIII IALH1H$H1H5nHHL HHHIH IHL1L$H1H nHHL HHHIH ÃHH1IH$H1MnHHL DIHIII IALH1H$H1H5nHHL HHHIH IHL1L$H1H nHHL HHHIH ÃHH1IH1MnHHL DIHIII IDIL$HH1H$H1M,nHHL IHIAI LAHLH1H1H nLHH HHHH ŸܼHH$IHHM!L L!L IHHIHL LIHL IL$II!MII I!M IMIIIM EIHII DIL$ILII I!I!M MILIHL DIHII DIL$II!LII M!M IIHIHL DMIIM EIL$MI!LMI I!M IIHHIL DIHII DIL$IM!LIM I!M IIHIHL DIHII DIL$II!MII I!M IMIIIM EIHII DIL$II!LII I!M MILIHL DIHII DIL$II!LII M!M IIHIHL DMIIM EIL$MI!LMI I!M IIHIHL DIHII DIL$IM!LIM I!M IIHIHL DIHII DIL$ IMII!I I!M IMIIIM EIHII DIL$(II!LII I!M MILIHL DIHII DIL$0ILII M!I!M IIHIHL DMIIM EIL$8MI!LMI I!M IIHIHL DIHII DIL$@IM!LIM I!M IIHHIL DIHII DIL$HII!MII I!M IMIIIM EIHII DIL$PII!LII I!M MILIHL DIHII DIL$XIH$`I!LII HM!M IIHIHL DMIIM ELMH I!H!L IHHIHL HHHIH IŸbIL$hLIM1I1IHHL DIHIII HH$pAIILH1H1IHHL DIHIII HH$xAHLL1H1HHHIL IHIHI H$ALL1H1LIHHIHL HHHIH HH$IIHL1H1IHHL IHIDII AL$LH1H1MIIHIHL DIHIII HH$AIHLL1H1HHHL IHIHI H$ALL1H1LIHHHIL HHHIH HH$IIHL1H1IHHL IHIDII L$ALH1H1MIIHIHL DIHIII HAH$IHLL1H1HHHL IHIHI H$ALL1H1LIHHIHL HHHIH HH$IIHL1H1IHHL IHIDII L$ALH1H1MIIHIHL DIHIII HH$AIHLL1H1HHHL IHIHH$I ALLL1IH1IHHHL HHHIH HH$IIHL1H1IHHL IL$DIHII AMILIH1H1IHHL DIHIII IDIL$H$LIM1II1IHHL IDIHIIAI HAHLL EH1DH1I HIIHL AHLGHwLWL_ H[]A\A]A^fDUHHSHHHHEHHEHHEHEHCHEHCHEHCHEHCEHCHEHCHE HCHE HCE HCHE HCHE HCHEHCEHC HEHC HEHC HEHC EH[]ÐH\$Ll$HHl$Ld$H(Hn(Lf0IHH?D8@87H)H|81HcLDcs@kwHHLCpLLl$ HCqLLd$HCrHHCtHHCuHHl$HCvH\$H(^fDH?)H|81HcHhH{88@uy@@uY1@Hu1@u5-ffH@H@tfDH또C8H{9@7wfHpffffff.AWHcIAVAAUIATUSHHO(H9vHG0HIE0IcExIU(tQ@I|8L)A9։ANHcH>AEx؃@AExtH[]A\A]A^A_LA)I"fA?Im8Im8ELHA@LHEHCHEHCHEHCHEHC HE HC(HE(HC0HE0HC8H@HE8A?A@DHA)HIIcLHpEuxH[]A\A]A^A_ffff.ATUSHHHOpdH%(H$1HHcHHOpHOzHH)HHcHl$0ܺH4L$øH$HHD$x1HHD$p#EgH$HDŽ$vT2HDŽ$HDŽ$DŽ$F % =HT$HHT$HHUHD$0Ht$pH|$H$HD$8H$HD$@H$HD$HH$HD$PH$HD$XH$HD$`H$HD$hH$HkHt$HLHH:HELcH$dH3%(L#u0H[]A\HHvHPHT$H|H\UHSHHdH%(HD$81.tIu5H8HHHT$8dH3%(GHH[]fH=1H=DFLT$ƒ$D HD$HDNAHADA?D DFHcPBPHӃDDF DDD L9HcPuI@HA Release 2.11 Internal cleanup to avoid some compiler warnings. 2004-04-05 Gisle Aas Release 2.10 Restore compatibility with perl-5.004 and perl-5.005. 2004-04-01 Gisle Aas Release 2.09 The 2.08 release did not compile with a threaded debugging perl, because assert() then needs my_perl. Fixed by commenting out the asserts. 2004-04-01 Gisle Aas Release 2.08 Enable PERL_NO_GET_CONTEXT for more more efficient execution on a threaded perl. Fix up md5 references. Patch by Ville Skyttä . 2003-12-05 Gisle Aas Release 2.07 Inherit add_bits() from Digest::base if available. 2003-10-13 Gisle Aas Release 2.06 The sha1_transform() function did not check that it was actually passed any arguments. Complete self-contained documentation included (copied from Digest::MD5), since the Digest.pm manpage is not always available. 2003-10-06 Gisle Aas Release 2.05 Added missing cast to support C++ compilation. Patch by Jan Dubois. Document that the sha1_base64 function and the b64digest method does not pad their result. 2003-07-22 Gisle Aas Release 2.04 Don't assume PerlIO_read() works like fread() even though it was documented like that for perl 5.6. It returns negative on read failure. Kill test #3 in t/badfile.t. I don't know a reliable way to test read failures on a file handle. Seems better not to test than to make many worry. 2003-07-05 Gisle Aas Release 2.03 Implemented sha1_transform, required to implement NIST FIPS 186-2. Contributed by Mike McCauley . Make it build on 64-bit platforms with 32-bit longs. At least I hope it will. Sync up with the Digest::MD5 implementation: - added clone method - addfile croaks if it can't read - the sha1*() functions warn if called as method or with reference arguments. 2002-12-27 Gisle Aas Release 2.02 Make it work when there is a mismatch between the sizeof(BYTEORDER) and sizeof(long). Based on patch by Allen Smith . Support UTF8 strings in newer versions of Perl. 2001-12-30 Gisle Aas Release 2.01 Applied trivial win32 fix from Gurusamy Sarathy that avoids stray temp files left after 'make test'. 2001-03-13 Gisle Aas Release 2.00 Broken out of the Digest-MD5-2.12 distribution and made into a separate dist. ------------------------------------------------------------------- Changes below from the Digest-MD5 dist. 2000-09-18 Gisle Aas Release 2.12 Avoid pointer cast warning for machines with bigger ints than pointers. Patch by Robin Barker . 2000-08-19 Gisle Aas Release 2.11 The fallback code introduced in 2.10 did only work for perl-5.6.0. It should now for for perl5.004 and 5.005 as well. Patch by Ville Skyttä . 2000-08-18 Gisle Aas Release 2.10 Digest::MD5 will now try to fallback to the pure perl implementation of Digest::Perl::MD5 if bootstrap fails. Added a bit internal paranoia about casting the IV in the Digest::MD5 object to the MD5_CTX* pointer. 1999-08-06 Gisle Aas Release 2.09 Documentation update. 1999-07-28 Gisle Aas Release 2.08 The addfile() methods could trigger a core dump when passed a filehandle that had failed to open. 1999-04-26 Gisle Aas Release 2.07 The Digest::SHA1 module failed on some 64-bit systems, because I assumed there was a correspondence between the U32 size and BYTEORDER. This version use 'unsigned long' as Uwe's original SHA module did. The module should now work better when liked statically with perl, because we now use a safer module-loaded test in Digest.pm. Assume we know the outcome of the alignment test on VMS. Patch by Chuck Lane 1999-03-26 Gisle Aas Release 2.06 Avoid LONG and BYTE types in SHA.xs as they was in conflict with similar definitions in . Patch by Marko Asplund to make the the alignment test program link successfully with sfio-perl. Fixed a typo in MD5.xs that might have affected 64-bit systems. Spotted by Nick Ing-Simmons 1999-03-15 Gisle Aas Release 2.05 Included Digest::SHA1 based on Uwe Hollerbach's SHA module. 1999-03-05 Gisle Aas Release 2.04 Avoid the -o option when compiling alignment test program for Win32 as suggested by Gurusamy Sarathy. DEC Compiler bug workaround. Contributed by D Roland Walker Having references to a local variable called "na" was not very safe either. Some older versions of Perl can apparently macroize this into something completely different. 1999-02-27 Gisle Aas Release 2.03 Patch from Christopher J. Madsen that should help getting the u32align test program to compile with Visual C++ 5 on Windows NT. Got rid of references to PL_na. 1999-01-31 Gisle Aas Release 2.02 Added a hints file as workaround for an IRIX compiler bug. Contributed by D Roland Walker . Note that the rfc2202 test can still fail on some DEC Alpha, because of a compiler bug that affects the perl 'x' operator. The Digest:: modules should work and be safe to install anyway. 1998-12-18 Gisle Aas Release 2.01 Some casts and tweaks to make picky compilers more happy. 1998-11-04 Gisle Aas Release 2.00. Taken out Digest::SHA1 as this module will be provided from Uwe Hollerbach later. Some tweaks to MD2.xs and MD5.xs since "na" disappeared in perl5.005_53 1998-10-30 Gisle Aas Release 1.99_60 The 1.99_59 release introduced compilation problems for big-endian systems with free U32 alignment. Bug reported, and fix suggested by Paul J. Schinder . 1998-10-28 Gisle Aas Release 1.99_59 Makefile.PL will run a test program to find out if U32 values can be aligned anywhere. This hopefully cures the core dumps reported on Solaris and other big endian systems. Thanks to Graham Barr for debugging this. 1998-10-28 Gisle Aas Release 1.99_58 Should be very close to a 2.00 release now. Need some success reports from people running on big-endian machines first I think. Added a Digest::MD2 implementation. Wrote Digest.pm documentation. This define the interface that all Digest:: modules should provide. Avoided some code duplication in MD5.xs Fixed typo, that prevented Digest::SHA1::sha1_base64() from working. 1998-10-27 Gisle Aas Release 1.99_57 Rewritten most of the MD5 C code to make it real fast (especially on little-endian machines without alignment restrictions for U32). Compared to MD5-1.7 we can process files 4 times as fast and we digest small stuff in memory 7 times faster. I came to these conclusions after these tests (gcc -O2, i586, Linux): First tested calculation of the digest of a 31 MB file, using perl -le 'print Digest::MD5->new->addfile(*STDIN)->hexdigest' and similar stuff: MD5-1.7: 21.06s Digest::MD5-1.99_57: 5.23s md5sum (GNU textutils): 4.90s As you can see, we do nearly as good as the md5sum program. I think the reason we don't beat md5sum is that perl always insist on loading extra modules like Config.pm, Carp.pm, strict.pm, vars.pm, AutoLoader.pm and DynaLoader.pm. When I simply wrapped the MD5.xs hasher code in a C program I managed to process the file in 4.68s. Then we calculated the digest of the same 6 byte sting, 20000 times: MD5-1.7: 11.81s Digest::MD5-1.99_57: 1.68s Digest::MD5 benefit from making this into a plain procedure call instead of a static method call. Other changes in this release are: Documentation update Internal MD5.xs cleanup. $md5->digest will automatically reset now. Digest::HMAC methods add() and addfile() did not return the correct object. Added Digest.pm loading module. I am not sure this is a good idea. Added Digest::SHA1 and Digest::HMAC_SHA1 module. The Digest::SHA1 module is just a wrapper around SHA.pm. I hope to get the author of SHA.pm to move his module to the Digest:: category. 1998-10-25 Gisle Aas Release 1.99_56 Fix memcpy_byteswap() function in MD5.xs. Must be careful with htovl() as it might evaluate its arguments more than once. 1998-10-25 Gisle Aas Release 1.99_55 Grahams HMAC_MD5.pm splitted into two modules. Digest::HMAC and Digest::HMAC_MD5. Also provide functional interface. Documentation is still lacking. Included RFC 2202 based test for HMAC-MD5. 1998-10-24 Gisle Aas Release 1.99_54 Included HMAC_MD5.pm, contributed by Graham Barr . I have a hard time to make up my mind :-) md5_bin() renamed back to md5(). Functions are not exported by default any more. Try to Encode/Decode with memcpy_byteswap for 32-bit big-endian machines. 1998-10-23 Gisle Aas Release 1.99_53 Renamed core module as Digest::MD5. Leave a MD5.pm stub for legacy code. The md5() function renamed as md5_bin(). The constructor, Digest::MD5->new, no longer takes any extra arguments. Added some new tests. Updated the documentation. $md5->b64digest implemented with same base64 encoder as md5_base64. 1998-10-23 Gisle Aas Release 1.99_52 Patch from Graham Barr which make it work for big-endian machines again. 1998-10-22 Gisle Aas Release 1.99_51 The MD5 class is now subclassable. The add() and addfile() methods now return $self. The reset() method is just an alias for new(). The constructor (MD5->new) now takes optional arguments which are automatically added. It means that we can now write: MD5->new($data)->hexdigest; New $md5->b64digest method. New functions that are exported on request: md5, md5_hex, md5_base64 Included RFC 1321 Barely started to update the documentation. 1998-10-22 Gisle Aas Release 1.99_50 Much better performance (more than twice as fast now). Mostly because we use Copy/Zero instead of the original MD5_memcpy and MD5_memset functions. The addfile() and hexdigest() methods are now XS implemented. All RSA functions now included in MD5.xs and made static. Use perl's Copy/Zero. Random cleanup, simplifications and reformatting. Merged things better with the perl configuration. Neil Winton's versions below: *** 96/06/20 Version 1.7 MD5 is now completely 64-bit clean (I hope). The basic MD5 code uses 32-bit quantities and requires a typedef UINT4 to be defined in global.h. Perl configuration data (the value of BYTEORDER) is used to determine if unsigned longs have 4 or 8 bytes. On 64-bit platforms (eg DEC Alpha) then it assumes that "unsigned int" will be a 32-bit type. If this is incorrect then adding -DUINT4_IS_LONG to the DEFINES line in Makefile.PL will override this. On some machines (at least Cray that I know of) there is no 32-bit integer type. In this case defining TRUNCATE_UINT4 (which is done automatically for a Cray) will ensure that 64-bit values are masked down to 32 bits. I have done my best to test this but without easy access to a true 64-bit machine I can not totally guarantee it (unless anyone wants to lend me a spare Cray :-) There is one remaining limitation for 64-bit enabled processors. The amount of data passed to any single call to the underlying MD5 routines is limited to (2^32 - 1) bytes -- that's 4 gigabytes. I'm sorry if that's a real problem for you ... And finally, a minor compilation warning (unsigned char * used with function having char * prototype) has also been eliminated. *** 96/04/09 Version 1.6 Re-generated module framework using h2xs to pick up the latest module conventions for versions etc. You can now say "use MD5 1.6;" and things should work correctly. MD5.pod has been integrated into MD5.pm and CHANGES renamed to Changes. There is a fairly comprehensive test.pl which can be invoked via "make test". There are no functional changes to the MD5 routines themselves. *** 96/03/14 Version 1.5.3 Fixed addfile method to accept type-glob references for the file-handle (eg \*STDOUT). This is more consistent with other routines and is now the recommended way of passing file-handles. The documentation now gives more examples as to how the routines might be used. *** 96/03/12 Version 1.5.2 Minor fixes from Christopher J Madsen to provide support for building on OS/2 (and to work around a perl -w bug). Remove warning about possible difference between add('foo', 'bar') and add('foobar'). This is not true (it may have been true in the earliest version of the module but is no longer the case). *** 96/03/08 Version 1.5.1 Add CHANGES file to make it easier for people to figure out what has been going on. (Meant to do this as part of 1.5) *** 96/03/05 Version 1.5 Add hash() and hexhash() methods at the suggestion/request of Gary Howland before inclusion in a wider library of cryptography modules. *** 96/02/27 Version 1.4 Finally fixed the pesky Solaris dynamic loading bug. All kudos to Ken Pizzini ! *** 95/11/29 Version 1.3.1 Add explanations of current known problems. *** 95/06/02 Version 1.3 Fix problems with scope resolution in addfile() reported by Jean-Claude Giese . Basically ARGV is always implicitly in package main while other filehandles aren't. *** 95/05/23 Version 1.2.1 [Changes pre 1.2.1 not recorded] usr/doc/perl-digest-sha1-2.13/README0100644000000000000000000000106111154225172015443 0ustar rootrootThe Digest::SHA1 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 "fingerprint" or "message digest" of the input. SHA1 is described at You will need Perl version 5.004 or better to install this module. Copyright 1999-2004 Gisle Aas. Copyright 1997 Uwe Hollerbach. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. usr/doc/perl-digest-sha1-2.13/perl-digest-sha1.SlackBuild0100644000000000000000000001457712227276642021625 0ustar rootroot#!/bin/sh # $Id: perl-digest-sha1.SlackBuild,v 1.2 2010/11/26 22:47:19 root Exp root $ # Copyright 2010 Eric Hameleers, Eindhoven, NL # All rights reserved. # # Permission to use, copy, modify, and distribute this software for # any purpose with or without fee is hereby granted, provided that # the above copyright notice and this permission notice appear in all # copies. # # THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED # WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF # MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. # IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT # LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF # USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND # ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, # OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT # OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # ----------------------------------------------------------------------------- # # Slackware SlackBuild script # =========================== # By: Eric Hameleers # For: perl-digest-sha1 # Descr: Perl interface to the SHA-1 algorithm # URL: http://search.cpan.org/~gaas/Digest-SHA/ # Needs: # Changelog: # 2.13-1: 26/Nov/2010 by Eric Hameleers # * Initial build. # # Run 'sh perl-digest-sha1.SlackBuild' to build a Slackware package. # The package (.tgz) and .txt file as well as build logs are created in /tmp . # Install it using 'installpkg'. # # ----------------------------------------------------------------------------- # Set initial variables: SRCNAM=Digest-SHA1 PRGNAM=perl-$(echo $SRCNAM |tr 'A-Z' 'a-z') VERSION=${VERSION:-2.13} BUILD=${BUILD:-1} TAG=${TAG:-alien} DOCS="Changes README" # Where do we look for sources? SRCDIR=$(cd $(dirname $0); pwd) # Place to build (TMP) package (PKG) and output (OUTPUT) the program: TMP=${TMP:-/tmp/build} PKG=$TMP/package-$PRGNAM OUTPUT=${OUTPUT:-/tmp} SOURCE="$SRCDIR/${SRCNAM}-${VERSION}.tar.gz" SRCURL="http://search.cpan.org/CPAN/authors/id/G/GA/GAAS/${SRCNAM}-${VERSION}.tar.gz" ## ## --- with a little luck, you won't have to edit below this point --- ## ## # Automatically determine the architecture we're building on: if [ -z "$ARCH" ]; then case "$( uname -m )" in i?86) export ARCH=i486 ;; arm*) export ARCH=arm ;; # Unless $ARCH is already set, use uname -m for all other archs: *) export ARCH=$( uname -m ) ;; esac fi case "$ARCH" in i486) SLKCFLAGS="-O2 -march=i486 -mtune=i686" SLKLDFLAGS=""; LIBDIRSUFFIX="" ;; x86_64) SLKCFLAGS="-O2 -fPIC" SLKLDFLAGS="-L/usr/lib64"; LIBDIRSUFFIX="64" ;; *) SLKCFLAGS="-O2" SLKLDFLAGS=""; LIBDIRSUFFIX="" ;; esac # Exit the script on errors: set -e trap 'echo "$0 FAILED at line ${LINENO}" | tee $OUTPUT/error-${PRGNAM}.log' ERR # Catch unitialized variables: set -u P1=${1:-1} # Save old umask and set to 0022: _UMASK_=$(umask) umask 0022 # Create working directories: mkdir -p $OUTPUT # place for the package to be saved mkdir -p $TMP/tmp-$PRGNAM # location to build the source mkdir -p $PKG # place for the package to be built rm -rf $PKG/* # always erase old package's contents rm -rf $TMP/tmp-$PRGNAM/* # remove the remnants of previous build rm -rf $OUTPUT/{configure,make,install,error,makepkg}-$PRGNAM.log # remove old log files # Source file availability: if ! [ -f ${SOURCE} ]; then if ! [ "x${SRCURL}" == "x" ]; then # Check if the $SRCDIR is writable at all - if not, download to $OUTPUT [ -w "$SRCDIR" ] || SOURCE="$OUTPUT/$(basename $SOURCE)" echo "Source '$(basename ${SOURCE})' not available yet..." echo "Will download file to $(dirname $SOURCE)" wget -nv -T 20 -O "${SOURCE}" "${SRCURL}" || true if [ $? -ne 0 -o ! -s "${SOURCE}" ]; then echo "Downloading '$(basename ${SOURCE})' failed... aborting the build." mv -f "${SOURCE}" "${SOURCE}".FAIL exit 1 fi else echo "File '$(basename ${SOURCE})' not available... aborting the build." exit 1 fi fi if [ "$P1" == "--download" ]; then echo "Download complete." exit 0 fi # --- PACKAGE BUILDING --- echo "++" echo "|| $PRGNAM-$VERSION" echo "++" cd $TMP/tmp-$PRGNAM echo "Extracting the source archive(s) for $PRGNAM..." tar -xvf ${SOURCE} cd ${SRCNAM}-${VERSION} chown -R root:root . chmod -R u+w,go+r-w,a+X-s . echo Building ... CFLAGS="$SLKCFLAGS" \ perl Makefile.PL \ PREFIX=/usr INSTALLDIRS=vendor INSTALLVENDORMAN3DIR=/usr/man/man3 \ 2>&1 | tee $OUTPUT/configure-${PRGNAM}.log make 2>&1 | tee $OUTPUT/make-${PRGNAM}.log make DESTDIR=$PKG install 2>&1 | tee $OUTPUT/install-${PRGNAM}.log # Remove unwanted perl cruft: find $PKG -name "perllocal.pod" -o -name ".packlist" -o -name "*.bs" | xargs rm -f || true find $PKG -type d -depth -empty -delete || true # Add documentation: mkdir -p $PKG/usr/doc/$PRGNAM-$VERSION cp -a $DOCS $PKG/usr/doc/$PRGNAM-$VERSION || true cat $SRCDIR/$(basename $0) > $PKG/usr/doc/$PRGNAM-$VERSION/$PRGNAM.SlackBuild chown -R root:root $PKG/usr/doc/$PRGNAM-$VERSION find $PKG/usr/doc -type f -exec chmod 644 {} \; # Compress the man page(s): if [ -d $PKG/usr/man ]; then find $PKG/usr/man -type f -name "*.?" -exec gzip -9f {} \; for i in $(find $PKG/usr/man -type l -name "*.?") ; do ln -s $( readlink $i ).gz $i.gz ; rm $i ; done fi # Strip binaries (if any): find $PKG | xargs file | grep -e "executable" -e "shared object" | grep ELF \ | cut -f 1 -d : | xargs strip --strip-unneeded 2> /dev/null || true # Add a package description: mkdir -p $PKG/install cat $SRCDIR/slack-desc > $PKG/install/slack-desc # Build the package: cd $PKG makepkg --linkadd y --chown n $OUTPUT/${PRGNAM}-${VERSION}-${ARCH}-${BUILD}${TAG}.${PKGTYPE:-tgz} 2>&1 | tee $OUTPUT/makepkg-${PRGNAM}.log cd $OUTPUT md5sum ${PRGNAM}-${VERSION}-${ARCH}-${BUILD}${TAG}.${PKGTYPE:-tgz} > ${PRGNAM}-${VERSION}-${ARCH}-${BUILD}${TAG}.${PKGTYPE:-tgz}.md5 cd - cat $PKG/install/slack-desc | grep "^${PRGNAM}" > $OUTPUT/${PRGNAM}-${VERSION}-${ARCH}-${BUILD}${TAG}.txt # Restore the original umask: umask ${_UMASK_} install/0040755000000000000000000000000012227276642011240 5ustar rootrootinstall/slack-desc0100644000000000000000000000210112227276642013163 0ustar rootroot# HOW TO EDIT THIS FILE: # The "handy ruler" below makes it easier to edit a package description. Line # up the first '|' above the ':' following the base package name, and the '|' # on the right side marks the last column you can put a character in. You must # make exactly 11 lines for the formatting to be correct. It's also # customary to leave one space after the ':'. |-----handy-ruler------------------------------------------------------| perl-digest-sha1: perl-digest-sha1 (Perl interface to the SHA-1 algorithm) perl-digest-sha1: perl-digest-sha1: The Digest::SHA1 module allows you to use the NIST SHA-1 perl-digest-sha1: message digest algorithm from within Perl programs. perl-digest-sha1: The algorithm takes as input a message of arbitrary length perl-digest-sha1: and produces as output a 160-bit "fingerprint" or perl-digest-sha1: "message digest" of the input. perl-digest-sha1: perl-digest-sha1: SHA1 is described at perl-digest-sha1: perl-digest-sha1: Home: http://search.cpan.org/~gaas/Digest-SHA1/