From 4aa7ccc47c588e1383d1ea34024b900611317dea Mon Sep 17 00:00:00 2001
From: ng0 <address@hidden>
Date: Thu, 30 Nov 2017 19:39:07 +0000
Subject: [PATCH] gnu: Add blacknurse.

* gnu/packages/networking.scm (blacknurse): New variable.
---
 gnu/packages/networking.scm | 39 ++++++++++++++++++++++++++++++++++++++-
 1 file changed, 38 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm
index 1f4906b7b..b8ade6468 100644
--- a/gnu/packages/networking.scm
+++ b/gnu/packages/networking.scm
@@ -8,7 +8,7 @@
 ;;; Copyright © 2016 John Darrington <address@hidden>
 ;;; Copyright © 2016, 2017 Nicolas Goaziou <address@hidden>
 ;;; Copyright © 2016 Eric Bavier <address@hidden>
-;;; Copyright © 2016, 2017 ng0 <address@hidden>
+;;; Copyright © 2016, 2017 ng0 <address@hidden>
 ;;; Copyright © 2016, 2017 Arun Isaac <address@hidden>
 ;;; Copyright © 2016 Benz Schenk <address@hidden>
 ;;; Copyright © 2016, 2017 Pjotr Prins <address@hidden>
@@ -38,6 +38,7 @@
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
   #:use-module (guix download)
+  #:use-module (guix git-download)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system glib-or-gtk)
   #:use-module (guix build-system gnu)
@@ -1536,3 +1537,39 @@ at the IP layer and link layer, as well as a host of supplementary
 functionality.  Using libnet, quick and simple packet assembly applications
 can be whipped up with little effort.")
     (license license:bsd-2)))
+
+(define-public blacknurse
+  (let* ((commit "d2a2b23544295844714ebf8d2d78af37fe5770c9")
+         (revision "1"))
+    (package
+      (name "blacknurse")
+      (version (string-append "0.0.0-" revision "." (string-take commit 7)))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/jedisct1/blacknurse")
+               (commit commit)))
+         (file-name (string-append name "-" version))
+         (sha256
+          (base32
+           "1w7zmcrnrs4p4naj3i6h1wcmd56dgrfd7myx0ljhw162sg0134nz"))))
+      (build-system gnu-build-system)
+      (arguments
+       `(#:make-flags (list "CC=gcc")
+         #:tests? #f ; No tests
+         #:phases
+         (modify-phases %standard-phases
+           (delete 'configure) ; No configure script
+           (replace 'install
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (bin (string-append out "/bin")))
+                 (install-file "blacknurse" bin)))))))
+      (home-page "https://github.com/jedisct1/blacknurse")
+      (synopsis "Proof of Concept for the Blacknurse attack")
+      (description
+       "Simple Proof of Concept for the Blacknurse attack.
+Blacknurse is a low bandwidth ICMP attack that is capable of doing denial
+of service to well known firewalls.")
+      (license license:bsd-2))))
-- 
2.15.0