x = scrypt( "", "", 10, 01, 01, 40 )
if $x != 77D6576238657B203B19CA42C18A0497F16B4844E3074AE8DFDFFA3FEDE21442FCD0069DED0948F8326A753A0FC81F17E8D3E0FB2E0D3628CF35E20C38D18906
    ?
    pause
endif

p1 = "password"
p2 = "NaCl"
x = scrypt( $p1, $p2, 0400, 08, 10, 40 )
if $x != FDBABE1C9D3472007856E7190D01E9FE7C6AD7CBC8237830E77376634B3731622EAF30D92E22A3886FF109279D9830DAC727AFB94A83EE6D8360CBDFA2CC0640
    ?
    pause
endif

p1 = "pleaseletmein"
p2 = "SodiumChloride"
x = scrypt( $p1, $p2, hex( 16384 ), 08, 01, 40 )
if $x != 7023BDCB3AFD7348461C06CD81FD38EBFDA8FBBA904F8E3EA9B543F6545DA1F2D5432955613F0FCF62D49705242A9AF9E61E85DC0D651E40DFCF017B45575887
    ?
    pause
endif