encrypt.sts


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

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

defword encbyte
    sys_read dup if
        drop
        cipher sys_write
        1 1
    fi 0 = if
        drop 0
    fi
exit

defword encrypt
    encbyte if encrypt fi
exit

defarr passwd 3

set_entry
    31 passwd !
    32 passwd 1 + !
    33 passwd 2 + !
    passwd 3 ciphernew
    encrypt
    cipherdel
sys_exit

module ia32/elf/end.sts