[PATCH] gnu: Add eschalot.

[PATCH] gnu: Add eschalot.

[ng0]

[-- Attachment #1: Type: text/plain, Size: 229 bytes --]

TL;DR: only run the test suite if you own a cluster, super computer or
otherwise much computation power which will be bored by this
hashing. Everyone else will spend MANY hours on this, which is why make
check/test is disabled.


[-- Attachment #2: 0001-gnu-Add-eschalot.patch --]
[-- Type: text/x-patch, Size: 4215 bytes --]

From 8b941cf6051d81cdd7ca0741b15d2a980a10844b Mon Sep 17 00:00:00 2001
From: ng0 <ng0@we.make.ritual.n0.is>
Date: Fri, 26 Aug 2016 15:41:33 +0000
Subject: [PATCH] gnu: Add eschalot.

* gnu/packages/crypto.scm (eschalot): New variable.
---
 gnu/packages/crypto.scm | 61 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)

diff --git a/gnu/packages/crypto.scm b/gnu/packages/crypto.scm
index b982b61..6dcdf00 100644
--- a/gnu/packages/crypto.scm
+++ b/gnu/packages/crypto.scm
@@ -4,6 +4,7 @@
 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox>
 ;;; Copyright © 2016 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -37,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 gnu))
 
 (define-public libsodium
@@ -223,3 +225,62 @@ to provide security against off-line attacks, such as a drive falling into
 the wrong hands.")
     (license (list license:lgpl3+                 ;encfs library
                    license:gpl3+))))              ;command-line tools
+
+;; There is no release candidate but commits point out a version number.
+(define-public eschalot
+  (let ((commit "0bf31d88a11898c19b1ed25ddd2aff7b35dbac44")
+        (revision "1"))
+    (package
+      (name "eschalot")
+      (version (string-append "1.2.0-" revision "." (string-take commit 7)))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/schnabear/eschalot")
+               (commit commit)))
+         (sha256
+          (base32
+           "0lj38ldh8vzi11wp4ghw4k0fkwp0s04zv8k8d473p1snmbh7mx98"))))
+      (inputs
+       `(("openssl" ,openssl))) ; It needs: openssl/{bn,pem,rsa,sha}.h
+      (build-system gnu-build-system)
+      (arguments
+       `(#:make-flags (list "CC=gcc"
+                            (string-append "PREFIX=" (assoc-ref %outputs "out"))
+                            (string-append "INSTALL=" "install"))
+         ;; XXX: make test would run a !VERY! long hashing of names with the use
+         ;; of a wordlist, the amount of computing time this would waste on build
+         ;; servers is in no relation to the size or importance of this small
+         ;; application, therefore we disable the tests.
+         ;; TODO: Patch the Makefile to run a modified test phase which runs a
+         ;; reasonable amount of hashes.
+         #:tests? #f
+         #:phases
+         (modify-phases %standard-phases
+           (replace 'configure
+             (lambda _
+               (substitute* "Makefile"
+                 (("/bin/rm") "rm"))))
+           ;; Make install can not create the bin dir. Create it.
+           (add-before 'install 'create-bin-dir
+             (lambda* (#:key outputs inputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (bin (string-append out "/bin")))
+                 (mkdir-p bin)
+                 #t))))))
+      (home-page "https://github.com/schnabear/eschalot")
+      (synopsis "Tor hidden service name generator")
+      (description
+       "Eschalot is a tor hidden service name generator, it allows one to produce
+customized vanity .onion addresses using a brute-force method.
+Searches for valid names can be run with regular expressions and wordlists, for
+the generation of wordlists the included tool @code{worgen} can be used.
+There is no man page, refer to the home page for usage details.")
+      ;; Licenses are various as eschalots cites the applications it was based on
+      ;; or which it was influenced by, eschalot author says the application itself
+      ;; is under a BSD license, the combination of all could be seen as expat or
+      ;; a variation of such.  It is not clear.  FIXME: Specify license(s) used.
+      (license (license:non-copyleft
+                "file://LICENSE"
+                "See LICENSE in the distribution for the licenses which apply.")))))
-- 
2.9.3


[-- Attachment #3: Type: text/plain, Size: 70 bytes --]


-- 
ng0
For non-prism friendly talk find me on http://www.psyced.org

Re: [PATCH] gnu: Add eschalot.

[Leo Famulari]

On Fri, Aug 26, 2016 at 03:49:36PM +0000, ng0 wrote:
> TL;DR: only run the test suite if you own a cluster, super computer or
> otherwise much computation power which will be bored by this
> hashing. Everyone else will spend MANY hours on this, which is why make
> check/test is disabled.

How many is MANY? ;)

> +;; There is no release candidate but commits point out a version number.
> +(define-public eschalot
> +  (let ((commit "0bf31d88a11898c19b1ed25ddd2aff7b35dbac44")
> +        (revision "1"))
> +    (package
> +      (name "eschalot")
> +      (version (string-append "1.2.0-" revision "." (string-take commit 7)))
> +               (url "https://github.com/schnabear/eschalot")

I think this is okay.

> +      ;; Licenses are various as eschalots cites the applications it was based on
> +      ;; or which it was influenced by, eschalot author says the application itself
> +      ;; is under a BSD license, the combination of all could be seen as expat or
> +      ;; a variation of such.  It is not clear.  FIXME: Specify license(s) used.
> +      (license (license:non-copyleft
> +                "file://LICENSE"
> +                "See LICENSE in the distribution for the licenses which apply.")))))

It uses the ISC license and the Expat license.

Re: [PATCH] gnu: Add eschalot.

[ng0]

Leo Famulari <leo@famulari.name> writes:

> On Fri, Aug 26, 2016 at 03:49:36PM +0000, ng0 wrote:
>> TL;DR: only run the test suite if you own a cluster, super computer or
>> otherwise much computation power which will be bored by this
>> hashing. Everyone else will spend MANY hours on this, which is why make
>> check/test is disabled.
>
> How many is MANY? ;)

Well, take a look at the build computer specs, compare to either
eschalot or scalion data on how long hashing takes for the names
generated into the wordfile and you will see why the eschalot page
itself has a <ctrl>-c in the example output of running the test, and
why running the tests is not part of the default phases.

>> +;; There is no release candidate but commits point out a version number.
>> +(define-public eschalot
>> +  (let ((commit "0bf31d88a11898c19b1ed25ddd2aff7b35dbac44")
>> +        (revision "1"))
>> +    (package
>> +      (name "eschalot")
>> +      (version (string-append "1.2.0-" revision "." (string-take commit 7)))
>> +               (url "https://github.com/schnabear/eschalot")
>
> I think this is okay.
>
>> +      ;; Licenses are various as eschalots cites the applications it was based on
>> +      ;; or which it was influenced by, eschalot author says the application itself
>> +      ;; is under a BSD license, the combination of all could be seen as expat or
>> +      ;; a variation of such.  It is not clear.  FIXME: Specify license(s) used.
>> +      (license (license:non-copyleft
>> +                "file://LICENSE"
>> +                "See LICENSE in the distribution for the licenses which apply.")))))
>
> It uses the ISC license and the Expat license.

Alright, I'll update the patch. thanks for reviewing.
-- 
ng0
For non-prism friendly talk find me on http://www.psyced.org

Re: [PATCH] gnu: Add eschalot.

[ng0]

[-- Attachment #1: 0001-gnu-Add-eschalot.patch --]
[-- Type: text/x-patch, Size: 3774 bytes --]

From a95d7059ea452c9fe9b8d148c33e0d77fbbffc04 Mon Sep 17 00:00:00 2001
From: ng0 <ng0@we.make.ritual.n0.is>
Date: Fri, 26 Aug 2016 15:41:33 +0000
Subject: [PATCH] gnu: Add eschalot.

* gnu/packages/crypto.scm (eschalot): New variable.
---
 gnu/packages/crypto.scm | 55 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)

diff --git a/gnu/packages/crypto.scm b/gnu/packages/crypto.scm
index 5dad97c..be55a1d 100644
--- a/gnu/packages/crypto.scm
+++ b/gnu/packages/crypto.scm
@@ -4,6 +4,7 @@
 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox>
 ;;; Copyright © 2016 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -37,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 gnu))
 
 (define-public libsodium
@@ -263,3 +265,56 @@ gain and retain the authorization and encryption keys required to perform
 secure operations. ")
     (license (list license:lgpl2.1+             ; the files keyutils.*
                    license:gpl2+))))            ; the rest
+
+;; There is no release candidate but commits point out a version number.
+(define-public eschalot
+  (let ((commit "0bf31d88a11898c19b1ed25ddd2aff7b35dbac44")
+        (revision "1"))
+    (package
+      (name "eschalot")
+      (version (string-append "1.2.0-" revision "." (string-take commit 7)))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/schnabear/eschalot")
+               (commit commit)))
+         (sha256
+          (base32
+           "0lj38ldh8vzi11wp4ghw4k0fkwp0s04zv8k8d473p1snmbh7mx98"))))
+      (inputs
+       `(("openssl" ,openssl))) ; It needs: openssl/{bn,pem,rsa,sha}.h
+      (build-system gnu-build-system)
+      (arguments
+       `(#:make-flags (list "CC=gcc"
+                            (string-append "PREFIX=" (assoc-ref %outputs "out"))
+                            (string-append "INSTALL=" "install"))
+         ;; XXX: make test would run a !VERY! long hashing of names with the use
+         ;; of a wordlist, the amount of computing time this would waste on build
+         ;; servers is in no relation to the size or importance of this small
+         ;; application, therefore we disable the tests.
+         ;; TODO: Patch the Makefile to run a modified test phase which runs a
+         ;; reasonable amount of hashes.
+         #:tests? #f
+         #:phases
+         (modify-phases %standard-phases
+           (replace 'configure
+             (lambda _
+               (substitute* "Makefile"
+                 (("/bin/rm") "rm"))))
+           ;; Make install can not create the bin dir. Create it.
+           (add-before 'install 'create-bin-dir
+             (lambda* (#:key outputs inputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (bin (string-append out "/bin")))
+                 (mkdir-p bin)
+                 #t))))))
+      (home-page "https://github.com/schnabear/eschalot")
+      (synopsis "Tor hidden service name generator")
+      (description
+       "Eschalot is a tor hidden service name generator, it allows one to produce
+customized vanity .onion addresses using a brute-force method.
+Searches for valid names can be run with regular expressions and wordlists, for
+the generation of wordlists the included tool @code{worgen} can be used.
+There is no man page, refer to the home page for usage details.")
+      (license (list license:isc license:expat)))))
-- 
2.9.3


[-- Attachment #2: Type: text/plain, Size: 70 bytes --]


-- 
ng0
For non-prism friendly talk find me on http://www.psyced.org

Re: [PATCH] gnu: Add eschalot.

[Eric Bavier]

On Tue, 30 Aug 2016 11:09:49 +0000
ng0 <ng0@we.make.ritual.n0.is> wrote:

> From a95d7059ea452c9fe9b8d148c33e0d77fbbffc04 Mon Sep 17 00:00:00 2001
> From: ng0 <ng0@we.make.ritual.n0.is>
> Date: Fri, 26 Aug 2016 15:41:33 +0000
> Subject: [PATCH] gnu: Add eschalot.
> 
> * gnu/packages/crypto.scm (eschalot): New variable.
> ---
>  gnu/packages/crypto.scm | 55 +++++++++++++++++++++++++++++++++++++++++++++++++
>  1 file changed, 55 insertions(+)
> 
> diff --git a/gnu/packages/crypto.scm b/gnu/packages/crypto.scm
> index 5dad97c..be55a1d 100644
> --- a/gnu/packages/crypto.scm
> +++ b/gnu/packages/crypto.scm
> @@ -4,6 +4,7 @@
>  ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
>  ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox>
>  ;;; Copyright © 2016 Tobias Geerinckx-Rice <me@tobias.gr>
> +;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
>  ;;;
>  ;;; This file is part of GNU Guix.
>  ;;;
> @@ -37,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 gnu))
>  
>  (define-public libsodium
> @@ -263,3 +265,56 @@ gain and retain the authorization and encryption keys required to perform
>  secure operations. ")
>      (license (list license:lgpl2.1+             ; the files keyutils.*
>                     license:gpl2+))))            ; the rest
> +
> +;; There is no release candidate but commits point out a version number.

The README mentions tarballs.  Are they not available anywhere?  I
couldn't seem to access the .onion address mentioned on the github page.

> +(define-public eschalot
> +  (let ((commit "0bf31d88a11898c19b1ed25ddd2aff7b35dbac44")
> +        (revision "1"))
> +    (package
> +      (name "eschalot")
> +      (version (string-append "1.2.0-" revision "." (string-take commit 7)))
> +      (source
> +       (origin
> +         (method git-fetch)
> +         (uri (git-reference
> +               (url "https://github.com/schnabear/eschalot")
> +               (commit commit)))
> +         (sha256
> +          (base32
> +           "0lj38ldh8vzi11wp4ghw4k0fkwp0s04zv8k8d473p1snmbh7mx98"))))
> +      (inputs
> +       `(("openssl" ,openssl))) ; It needs: openssl/{bn,pem,rsa,sha}.h
> +      (build-system gnu-build-system)
> +      (arguments
> +       `(#:make-flags (list "CC=gcc"
> +                            (string-append "PREFIX=" (assoc-ref %outputs "out"))
> +                            (string-append "INSTALL=" "install"))
> +         ;; XXX: make test would run a !VERY! long hashing of names with the use
> +         ;; of a wordlist, the amount of computing time this would waste on build
> +         ;; servers is in no relation to the size or importance of this small
> +         ;; application, therefore we disable the tests.
> +         ;; TODO: Patch the Makefile to run a modified test phase which runs a
> +         ;; reasonable amount of hashes.
> +         #:tests? #f

How about something simple like:

(replace 'check
  (lambda _
    (zero? (system* "./eschalot" "-r" "^guix|^guixsd"))))

That command returns in under .3s on my i5.  I suppose it could be
expanded to test the wordlist capabilities.

> +         #:phases
> +         (modify-phases %standard-phases
> +           (replace 'configure
> +             (lambda _
> +               (substitute* "Makefile"
> +                 (("/bin/rm") "rm"))))

I think this phase could simply be removed.  The RM variable is only
referenced in the 'clean' and 'cleantest' targets, which aren't made.
If it's really necessary, "RM=rm" could simply be added to #:make-flags.

> +           ;; Make install can not create the bin dir. Create it.
> +           (add-before 'install 'create-bin-dir
> +             (lambda* (#:key outputs inputs #:allow-other-keys)
                                        ^
The 'inputs' variable is not referenced in this phase, and can be left
out.

Otherwise looks good,
`~Eric

Re: [PATCH] gnu: Add eschalot.

[ng0]

[-- Attachment #1: 0001-gnu-Add-eschalot.patch --]
[-- Type: text/x-patch, Size: 4050 bytes --]

From 5eea0ec3a7b1f94912f18e32d3e9bedff64f3ecb Mon Sep 17 00:00:00 2001
From: ng0 <ng0@we.make.ritual.n0.is>
Date: Fri, 26 Aug 2016 15:41:33 +0000
Subject: [PATCH] gnu: Add eschalot.

* gnu/packages/crypto.scm (eschalot): New variable.
---
 gnu/packages/crypto.scm | 58 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)

diff --git a/gnu/packages/crypto.scm b/gnu/packages/crypto.scm
index 5dad97c..a1eed6c 100644
--- a/gnu/packages/crypto.scm
+++ b/gnu/packages/crypto.scm
@@ -4,6 +4,7 @@
 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox>
 ;;; Copyright © 2016 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -37,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 gnu))
 
 (define-public libsodium
@@ -263,3 +265,59 @@ gain and retain the authorization and encryption keys required to perform
 secure operations. ")
     (license (list license:lgpl2.1+             ; the files keyutils.*
                    license:gpl2+))))            ; the rest
+
+;; There is no release candidate but commits point out a version number,
+;; furthermore no tarball exists.
+(define-public eschalot
+  (let ((commit "0bf31d88a11898c19b1ed25ddd2aff7b35dbac44")
+        (revision "1"))
+    (package
+      (name "eschalot")
+      (version (string-append "1.2.0-" revision "." (string-take commit 7)))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/schnabear/eschalot")
+               (commit commit)))
+         (sha256
+          (base32
+           "0lj38ldh8vzi11wp4ghw4k0fkwp0s04zv8k8d473p1snmbh7mx98"))))
+      (inputs
+       `(("openssl" ,openssl))) ; It needs: openssl/{bn,pem,rsa,sha}.h
+      (build-system gnu-build-system)
+      (arguments
+       `(#:make-flags (list "CC=gcc"
+                            (string-append "PREFIX=" (assoc-ref %outputs "out"))
+                            (string-append "INSTALL=" "install"))
+         ;; XXX: make test would run a !VERY! long hashing of names with the use
+         ;; of a wordlist, the amount of computing time this would waste on build
+         ;; servers is in no relation to the size or importance of this small
+         ;; application, therefore we run our own tests on eschalot and worgen.
+         #:phases
+         (modify-phases %standard-phases
+           (delete 'configure)
+           (replace 'check
+             (lambda _
+               (zero? (system* "./worgen" "8-12" "top1000.txt" "3-10" "top400nouns.txt"
+                               "3-6" "top150adjectives.txt" "3-6"))
+               (zero? (system* "./eschalot" "-r" "^guix|^guixsd"))
+               (zero? (system* "./eschalot" "-r" "^gnu|^free"))
+               (zero? (system* "./eschalot" "-r" "^cyber|^hack"))
+               (zero? (system* "./eschalot" "-r" "^troll"))))
+           ;; Make install can not create the bin dir, create it.
+           (add-before 'install 'create-bin-dir
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (bin (string-append out "/bin")))
+                 (mkdir-p bin)
+                 #t))))))
+      (home-page "https://github.com/schnabear/eschalot")
+      (synopsis "Tor hidden service name generator")
+      (description
+       "Eschalot is a tor hidden service name generator, it allows one to produce
+customized vanity .onion addresses using a brute-force method.
+Searches for valid names can be run with regular expressions and wordlists, for
+the generation of wordlists the included tool @code{worgen} can be used.
+There is no man page, refer to the home page for usage details.")
+      (license (list license:isc license:expat)))))
-- 
2.9.3


[-- Attachment #2: Type: text/plain, Size: 70 bytes --]


-- 
ng0
For non-prism friendly talk find me on http://www.psyced.org

Re: [PATCH] gnu: Add eschalot.

[Leo Famulari]

On Tue, Aug 30, 2016 at 06:45:35PM +0000, ng0 wrote:
> From 5eea0ec3a7b1f94912f18e32d3e9bedff64f3ecb Mon Sep 17 00:00:00 2001
> From: ng0 <ng0@we.make.ritual.n0.is>
> Date: Fri, 26 Aug 2016 15:41:33 +0000
> Subject: [PATCH] gnu: Add eschalot.
> 
> * gnu/packages/crypto.scm (eschalot): New variable.

Pushed!

> +      (source
> +       (origin
> +         (method git-fetch)
> +         (uri (git-reference
> +               (url "https://github.com/schnabear/eschalot")
> +               (commit commit)))

I added a (file-name) field.

> +           (replace 'check
> +             (lambda _
> +               (zero? (system* "./worgen" "8-12" "top1000.txt" "3-10" "top400nouns.txt"
> +                               "3-6" "top150adjectives.txt" "3-6"))
> +               (zero? (system* "./eschalot" "-r" "^guix|^guixsd"))
> +               (zero? (system* "./eschalot" "-r" "^gnu|^free"))
> +               (zero? (system* "./eschalot" "-r" "^cyber|^hack"))
> +               (zero? (system* "./eschalot" "-r" "^troll"))))

I wrapped all these (zero? ...) in (and).

> +      (description
> +       "Eschalot is a tor hidden service name generator, it allows one to produce
> +customized vanity .onion addresses using a brute-force method.
> +Searches for valid names can be run with regular expressions and wordlists, for
> +the generation of wordlists the included tool @code{worgen} can be used.

And I split this sentence into two sentences.