ДНК Кодировщик

Код AS3:

package
{
	import flash.display.Sprite;
	import flash.errors.IllegalOperationError;
	import flash.events.Event;
	import flash.utils.ByteArray;
 
	/**
	 * ДНК Кодировщик.
	 * @author Tails
	 */
	public class Main extends Sprite
	{
 
		// ДНК Алфавит:
		static private const A:String = "A";
		static private const B:String = "G";
		static private const C:String = "C";
		static private const D:String = "T";
 
		public function Main()
		{
			if (stage)
				init();
			else
				addEventListener(Event.ADDED_TO_STAGE, init);
		}
 
		private function init(e:Event = null):void
		{
			removeEventListener(Event.ADDED_TO_STAGE, init);
 
			const message:String = "Привет, о дивный мир!";
			var bytes:ByteArray = new ByteArray;
			bytes.writeUTFBytes(message);
 
			var dnk:String = encode(bytes);
			bytes = decode(dnk);
 
			trace("Исходное сообщение:", message);
			trace("Кодирование в ДНК:", dnk);
			trace("Декодирование ДНК (Обратное):", bytes.readUTFBytes(bytes.length));
		}
 
		// ПРИВАТ
		// Кодирование:
		private function encode(bytes:ByteArray):String
		{
			if (bytes === null)
				throw new ArgumentError("null value");
 
			bytes.position = 0;
 
			var dnk:String = '';
			var i:uint = bytes.length;
			var j:uint;
			var length:uint;
			var dnkByte:String;
			while (i--)
			{
				dnkByte = bytes.readUnsignedByte().toString(4);
				length = dnkByte.length;
 
				// Нулевые биты:
				if (length === 1)
					dnk = dnk + A + A + A;
				else if (length === 2)
					dnk = dnk + A + A;
				else if (length === 3)
					dnk = dnk + A;
 
				// Значение:
				j = 0;
				while (j < length)
				{
					dnk = dnk + getDnkChar(dnkByte.charAt(j++));
				}
			}
			bytes.position = 0;
			return dnk;
		}
 
		private function getDnkChar(char4:String):String
		{
			if (char4 === '0')
				return A;
			if (char4 === '1')
				return B;
			if (char4 === '2')
				return C;
			if (char4 === '3')
				return D;
 
			throw new IllegalOperationError("Unknown char - " + char4);
		}
 
		// Декодирование:
		private function decode(dnk:String):ByteArray
		{
			if (dnk === null)
				throw new ArgumentError("null value");
			if (dnk.length === 0)
				return new ByteArray;
 
			const bytes:ByteArray = new ByteArray;
			const length:uint = dnk.length / 4;
 
			var i:uint;
			var j:uint;
			var char:String;
			var dnkByte:String;
			while (i < length)
			{
				dnkByte = '';
				j = 0;
				while (j < 4)
				{
					char = dnk.charAt(i * 4 + j);
					j++;
 
					if (char === A && dnkByte.length === 0)
						continue;
 
					dnkByte = dnkByte + getNumFromDnk(char);
				}
				i++;
 
				if (dnkByte.length === 0)
					bytes.writeByte(0);
				else
					bytes.writeByte(parseInt(dnkByte, 4));
			}
			bytes.position = 0;
			return bytes;
		}
 
		private function getNumFromDnk(dnkChar:String):String
		{
			if (dnkChar === A)
				return '0';
			if (dnkChar === B)
				return '1';
			if (dnkChar === C)
				return '2';
			if (dnkChar === D)
				return '3';
 
			throw new IllegalOperationError("Unknown char - " + dnkChar);
		}
	}
}

Исходное сообщение: Привет, о дивный мир!
Кодирование в ДНК: TGAACGTTTGAGCAAATGAACTCATGAACTACTGAACTGGTGAGCAACACTAACAATGAACTTCACAATGAACTGATGAACTCATGAACTACTGAACTTGTGAGCACTTGAACTCGACAATGAACTTATGAACTCATGAGCAAAACAG
Декодирование ДНК (Обратное): Привет, о дивный мир!