;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
+;;; Copyright © 2014, 2020 Eric Bavier <bavier@posteo.net>
+;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; This file is part of GNU Guix.
;;;
(source
(origin
(method url-fetch)
- (uri (string-append "mirror://sourceforge/mcrypt/mcrypt-"
- version ".tar.gz"))
+ (uri (string-append "mirror://sourceforge/mcrypt/MCrypt/"
+ version "/" name "-" version ".tar.gz"))
(sha256
(base32
- "161031n1w9pb4yzz9i47szc12a4mwpcpvyxnvafsik2l9s2aliai"))))
+ "161031n1w9pb4yzz9i47szc12a4mwpcpvyxnvafsik2l9s2aliai"))
+ (patches (search-patches
+ "mcrypt-CVE-2012-4409.patch"
+ "mcrypt-CVE-2012-4426.patch"
+ "mcrypt-CVE-2012-4527.patch"))))
(build-system gnu-build-system)
(inputs
`(("zlib" ,zlib)
(source
(origin
(method url-fetch)
- (uri (string-append "mirror://sourceforge/mcrypt/libmcrypt-"
- version ".tar.gz"))
+ (uri (string-append "mirror://sourceforge/mcrypt/Libmcrypt/" version
+ "/libmcrypt-" version ".tar.gz"))
(sha256
(base32
"0gipgb939vy9m66d3k8il98rvvwczyaw2ixr8yn6icds9c3nrsz4"))))
(source
(origin
(method url-fetch)
-
- (uri (string-append "mirror://sourceforge/mhash/mhash-"
- version ".tar.bz2"))
+ (uri (string-append "mirror://sourceforge/mhash/mhash/" version
+ "/mhash-" version ".tar.bz2"))
(sha256
(base32
"1w7yiljan8gf1ibiypi6hm3r363imm3sxl1j8hapjdq3m591qljn"))
- (patches (search-patches "mhash-keygen-test-segfault.patch"))))
+ (patches (search-patches "mhash-keygen-test-segfault.patch"
+ "libmhash-hmac-fix-uaf.patch"))))
(build-system gnu-build-system)
(native-inputs
`(("perl" ,perl))) ;for tests