You might want to change: var %a = $asc($left($1-,%i)) To: var %a = $asc($mid($1-,%i,1))
Now you got a usefull encoding that actually CAN be decoded :)