encrypt.sts


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

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

defarr passwd 3

defword encrypt
    top as pos
    do sys_read 0 = until
        passwd 3 pos cipher sys_write
    od drop
exit

set_entry
    31 passwd !
    32 passwd 1 + !
    33 passwd 2 + !
    0 encrypt drop
sys_exit

module ia32/elf/end.sts