path: root/encrypt.sts

module sts/ia32/elf/begin.sts
module sts/cipher.sts

set_entry
    31 32 local password
    2 as passlen
    passlen 1 - local pos
    do sys_read 0 = until
        password passlen pos cipher sys_write
    od
sys_exit

module sts/ia32/elf/end.sts