DNA encryption

[leon26leon26]

With this method, you could(IF you had the money for all the equipment) send your friends a cell with a friendly "Hello" in it's genes.
It's basically just a base 4 encryption algorithm.

---

DNA={DNA={},ABC={},base={"A","G","C","T"}}
function splitchar(text)
  local tbl={}
  for i = 1, #text do
     local c = text:sub(i,i)
     tbl[i]=c
  end
  return tbl
end
local x="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-/:;()&@"..'"'..".,?!'[]{}#%^*+=_\\|~<>$\n ?????????????????????????????????"
DNA.ABC=splitchar(x..x)
local iG=1
for i1=1,4 do
  for i2=1,4 do
     for i3=1,4 do
        for i4=1,4 do
           DNA.DNA[iG]=DNA.base[i1]..DNA.base[i2]..DNA.base[i3]..DNA.base[i4]
           iG=iG+1
        end
     end
  end
end
function DNA.enc(txt)
  local out=""
  txt=splitchar(txt)
  for i=1,#txt do
     for ii=1,256 do
        if txt[i]==DNA.ABC[ii] then
           out=out..DNA.DNA[ii]
           break
        end
     end
  end
  return out
end
function DNA.dec(txt)
  local out=""
  txt=splitchar(txt)
  local txtt={}
  for i=1,#txt,4 do
     table.insert(txtt,txt[i]..txt[i+1]..txt[i+2]..txt[i+3])
  end
  for i=1,#txtt do
     for ii=1,256 do
        if txtt[i]==DNA.DNA[ii] then
           out=out..DNA.ABC[ii]
           break
        end
     end
  end
  return out
end
return DNA