[gnunet-scheme] 33/49: examples/web: Hash free-form text first.

[gnunet]

This is an automated email from the git hooks/post-receive script.

maxime-devos pushed a commit to branch master
in repository gnunet-scheme.

commit 15918dd0907c9befb0746feb60bcc52ac25d8dba
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sat Oct 2 23:52:56 2021 +0200

    examples/web: Hash free-form text first.
    
    The key needs to be a /hashcode:512, so some hashing might be
    necessary to prevent length mismatches.
    
    * examples/web.scm (decode)["utf-8-text"]: Call hash/sha512 on
      the UTF-8 slice.
---
 examples/web.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/examples/web.scm b/examples/web.scm
index 1df5444..7dba1a9 100644
--- a/examples/web.scm
+++ b/examples/web.scm
@@ -9,6 +9,7 @@
             (rnrs bytevectors)
             (gnu extractor enum)
             (gnu gnunet block)
+            (gnu gnunet crypto)
             (gnu gnunet utils bv-slice)
             (gnu gnunet config db)
             (gnu gnunet config fs)
@@ -88,7 +89,7 @@
 (define (decode encoding data)
   (match encoding
     ("utf-8-text"
-     (slice/read-only (bv-slice/read-write (string->utf8 data))))
+     (hash/sha512 (bv-slice/read-write (string->utf8 data))))
     ;; TODO other encodings
     ))
 

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.