Commit 1bbadd00 authored by bernd's avatar bernd

Scripts for generating hashes

parent 5ace2201
......@@ -212,3 +212,22 @@ event: ->throw dup DoError throw ;
0 ?DO I c:test& req-ms# ms test# 1+ to test# LOOP
requests->0 ;
\ some more helpers
: sha-3-256 ( addr u -- )
slurp-file c:hash pad c:key> pad $20 64type ;
: sha-3-512 ( addr u -- )
slurp-file c:hash pad c:key> pad $40 64type ;
: sha-3-256s ( -- )
begin
next-arg dup while
2dup sha-3-256 space type cr
repeat ;
: sha-3-512s ( -- )
begin
next-arg dup while
2dup sha-3-512 space type cr
repeat ;
\ No newline at end of file
#!/bin/bash
gforth-fast client-tests.fs -e "sha-3-256s bye" "$@"
#!/bin/bash
gforth-fast client-tests.fs -e "sha-3-512s bye" "$@"
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment