committing to cleanup

rq/src/rq.erl

@@ -4,7 +4,6 @@
 -author("Peter Harpending").
 -copyright("Peter Harpending").
 
-
 -export([start/1]).
 
 
@@ -13,7 +12,43 @@
 
 start(ArgV) ->
     ok = application:ensure_started(hakuzaru),
-    ok = hz:chain_nodes([{"testnet.tsuriai.jp", 3013},
-                         {"testnet.gajumaru.io", 3013}]),
+    ok = hz:tls(true),
+    ok = hz:chain_nodes(hz_nodes()),
     ok = io:format("Hello, World! Args: ~tp~n", [ArgV]),
+    ok = io:format("hz status: ~tp~n", [hz:status()]),
+    ok = io:format("rbx_tuples: ~tp~n", [rbx_tuples()]),
+    ok = io:format("my akstr:~n~ts~n~n", [dummy_akstr()]),
     zx:silent_stop().
+
+
+dummy_seed() ->
+    crypto:hash(sha3_512, <<"p@ssw0rd">>).
+
+dummy_keypair() ->
+    ecu_eddsa:sign_seed_keypair(dummy_seed()).
+
+% bytes32
+dummy_pubkey32() ->
+    maps:get(public, dummy_keypair()).
+
+dummy_akstr() ->
+    unicode:characters_to_list(gmser_api_encoder:encode(account_pubkey, dummy_pubkey32())).
+
+
+hz_nodes() ->
+    [ {"tsuriai.jp", 4013}
+    %, {"testnet.gajumaru.io", 4013}
+    ].
+
+rbx_tuples() ->
+    NoiseStr = "Noise_NK_25519_ChaChaPoly_BLAKE2b",
+    ServicePubkey =
+    <<116, 159, 91, 248, 138, 250, 73, 40, 231, 50,
+                      81, 110, 137, 163, 44, 76, 48, 130, 225, 95,
+                      168, 121, 93, 44, 148, 42, 180, 103, 11, 40,
+                      168, 96>>
+                      ,
+    NoisePrologue = <<>>,
+    [{"127.0.0.1", 6969, "tcp", NoiseStr, ServicePubkey, <<>>}].
+
+