mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 00:13:12 +03:00
165 lines
3.6 KiB
Plaintext
165 lines
3.6 KiB
Plaintext
/+ naive, ethereum
|
|
:: Types
|
|
|%
|
|
+$ address address:ethereum
|
|
+$ nonce @ud
|
|
+$ proxy ?(%own %spawn %manage %vote %transfer)
|
|
--
|
|
::
|
|
|%
|
|
::
|
|
:: TODO: does this uniquely produce the pubkey?
|
|
++ verifier
|
|
^- ^verifier:naive
|
|
|= [dat=octs v=@ r=@ s=@]
|
|
?: (gth v 3) ~ :: TODO: move to jet
|
|
=/ result
|
|
%- mule
|
|
|.
|
|
=, secp256k1:secp:crypto
|
|
%- address-from-pub:key:ethereum
|
|
%- serialize-point
|
|
(ecdsa-raw-recover (keccak-256:keccak:crypto dat) v r s)
|
|
?- -.result
|
|
%| ~
|
|
%& `p.result
|
|
==
|
|
::
|
|
++ sign-tx
|
|
|= [pk=@ =nonce tx=octs] ^- octs
|
|
=/ prepared-data (prepare-for-sig 1.337 nonce tx)
|
|
=/ sign-data
|
|
=/ len (rsh [3 2] (scot %ui p.prepared-data))
|
|
%- keccak-256:keccak:crypto
|
|
%: cad:naive 3
|
|
26^'\19Ethereum Signed Message:\0a'
|
|
(met 3 len)^len
|
|
prepared-data
|
|
~
|
|
==
|
|
=+ (ecdsa-raw-sign:secp256k1:secp:crypto sign-data pk)
|
|
(cad:naive 3 1^v 32^s 32^r tx ~)
|
|
::
|
|
++ prepare-for-sig
|
|
|= [chain-id=@ud =nonce tx=octs]
|
|
^- octs
|
|
=/ chain-t (rsh [3 2] (scot %ui chain-id))
|
|
%: cad:naive 3
|
|
14^'UrbitIDV1Chain'
|
|
(met 3 chain-t)^chain-t
|
|
1^':'
|
|
4^nonce
|
|
tx
|
|
~
|
|
==
|
|
::
|
|
++ gen-tx
|
|
|= [=nonce tx=tx:naive pk=@]
|
|
:: takes in a nonce, tx:naive, and private key and returned a signed transactions as octs
|
|
%^ sign-tx pk nonce (gen-tx-octs tx)
|
|
::
|
|
++ gen-tx-octs
|
|
:: generates octs for a transaction
|
|
|= tx=tx:naive
|
|
|^
|
|
^- octs
|
|
=/ raw=octs
|
|
?- +<.tx
|
|
%spawn (get-spawn +>.tx)
|
|
%transfer-point (get-transfer +>.tx)
|
|
%configure-keys (get-keys +>.tx)
|
|
%escape (get-escape +.tx)
|
|
%cancel-escape (get-escape +.tx)
|
|
%adopt (get-escape +.tx)
|
|
%reject (get-escape +.tx)
|
|
%detach (get-escape +.tx)
|
|
%set-management-proxy (get-ship-address +.tx)
|
|
%set-spawn-proxy (get-ship-address +.tx)
|
|
%set-transfer-proxy (get-ship-address +.tx)
|
|
==
|
|
raw
|
|
::
|
|
++ get-spawn
|
|
|= [child=ship to=address] ^- octs
|
|
%: cad:naive 3
|
|
(from-proxy proxy.from.tx)
|
|
4^ship.from.tx
|
|
1^%1 :: %spawn
|
|
4^child
|
|
20^to
|
|
~
|
|
==
|
|
::
|
|
++ get-transfer
|
|
|= [=address reset=?] ^- octs
|
|
%: cad:naive 3
|
|
(from-proxy proxy.from.tx)
|
|
4^ship.from.tx
|
|
1^(can 0 7^%0 1^reset ~) :: %transfer-point
|
|
20^address
|
|
~
|
|
==
|
|
::
|
|
++ get-keys
|
|
|= [crypt=@ auth=@ suite=@ breach=?] ^- octs
|
|
%: cad:naive 3
|
|
(from-proxy proxy.from.tx)
|
|
4^ship.from.tx
|
|
1^(can 0 7^%2 1^breach ~) :: %configure-keys
|
|
32^crypt
|
|
32^auth
|
|
4^suite
|
|
~
|
|
==
|
|
::
|
|
++ get-escape
|
|
|= [action=@tas other=ship] ^- octs
|
|
=/ op
|
|
?+ action !!
|
|
%escape %3
|
|
%cancel-escape %4
|
|
%adopt %5
|
|
%reject %6
|
|
%detach %7
|
|
==
|
|
%: cad:naive 3
|
|
(from-proxy proxy.from.tx)
|
|
4^ship.from.tx
|
|
1^(can 0 7^op 1^0 ~)
|
|
4^other
|
|
~
|
|
==
|
|
::
|
|
++ get-ship-address
|
|
|= [action=@tas =address] ^- octs
|
|
=/ op
|
|
?+ action !!
|
|
%set-management-proxy %8
|
|
%set-spawn-proxy %9
|
|
%set-transfer-proxy %10
|
|
==
|
|
%: cad:naive 3
|
|
(from-proxy proxy.from.tx)
|
|
4^ship.from.tx
|
|
1^(can 0 7^op 1^0 ~)
|
|
20^address
|
|
~
|
|
==
|
|
::
|
|
++ from-proxy
|
|
|= prx=@tas
|
|
^- [@ @]
|
|
=/ proxy
|
|
?+ prx !!
|
|
%own %0
|
|
%spawn %1
|
|
%manage %2
|
|
%vote %3
|
|
%transfer %4
|
|
==
|
|
1^(can 0 3^proxy 5^0 ~)
|
|
::
|
|
--
|
|
::
|
|
--
|