clear

seed    = random( 32 )

x       = fips204_keygen_44( $seed )
if $x != 00
    ?
    pause
endif

sk      = fips204_get_sk()
pk      = fips204_get_pk()

m       = random( 32 )
rnd     = random( 32 )
ctx     = random( 32 )

// 对明文操作
sig     = fips204_sign_44( $m, $sk, $ctx, $rnd, "" )

res     = fips204_verify_44( $m, $sig, $pk, $ctx, "" )
if $res != 00
    ?
    pause
endif

// 对hash操作
h       = fips204_prehash_sha256( $m, $ctx )

sig     = fips204_sign_hash_44( $h, $sk, $rnd, "" )

res     = fips204_verify_hash_44( $h, $sig, $pk, "" )
if $res != 00
    ?
    pause
endif