Text to/from binary conversion in Scilab

asc2bin.sce

clear
clc
xdel(winsid())

asc = 'send help'

//==============================================================================

bin = ''
for k = 1: length(asc)
    ik = ascii(part(asc, k: k))
    bin = bin + dec2bin(ik, 8) + ' '
end
mprintf('%s', bin)

bin2asc.sce

clear
clc
xdel(winsid())

bin = ' 01110011 01100101 01101110 01100100 00100000 01101110 01110101 01100100 01100101 01110011 '

//==============================================================================

binf = ''
for k = 1: length(bin)
    b = part(bin, k: k)
    if (b == '0' || b == '1')
        // Filter out whitespace (line breaks, etc.)
        binf = binf + b
    end
end

for k = 1: 8: length(binf)
//    mprintf('%d\n', k)
    ik = bin2dec(part(binf, k: k+7))
    a = ascii(ik)
    mprintf('%s', a)
end