7 lines
354 B
Plaintext
7 lines
354 B
Plaintext
parameter (pair bytes signature) ;
|
|
storage (pair bytes key) ;
|
|
code { DUP ; UNPAIR ; CAR ; SHA256 ; DIP { CAR } ; ASSERT_CMPEQ ;
|
|
DUP ; UNPAIR ; SWAP ; DIP { UNPAIR ; SWAP } ; CDR ; CHECK_SIGNATURE ; ASSERT ;
|
|
CDR ; DUP ; CDR ; HASH_KEY ; IMPLICIT_ACCOUNT ;
|
|
BALANCE ; UNIT ; TRANSFER_TOKENS ;
|
|
NIL operation ; SWAP ; CONS ; PAIR } |