Extracting binary resources from SWFs?

[realMakc]

Some time ago I had to protect an swf but, since I never did it before, I had no fancy obfuscation tools and stuff like that. So what

I did was this:

package  
{
	import flash.display.Loader;
	import flash.display.Sprite;
	
	public class BoxTest extends Sprite
	{
		[Embed(source="./box.swf", mimeType="application/octet-stream")]
		private var _loc_1:Class;
		
		public function BoxTest() 
		{
			var loader:Loader = new Loader;
			loader.loadBytes (new _loc_1);
			addChild (loader);
		}
		
	}
	
}

This produces nice useless output in sоthink decompiler:

package 
{
    import BoxTest.*;
    import flash.display.*;

    public class BoxTest extends Sprite
    {
        private var _loc_1:Class;

        public function BoxTest()
        {
1  0 17            _loc_1 = BoxTest__loc_1;
            var _loc_1:* = new Loader();
            _loc_1.loadBytes(new _loc_1());
            addChild(_loc_1);
            return;
        }// end function

    }
}

package 
{
    import mx.core.*;

    public class BoxTest__loc_1 extends ByteArrayAsset
    {

        public function BoxTest__loc_1()
        {
            return;
        }// end function

    }
}

and, of course, it produces useless FLA and can't export binary resources. So far looks good, and I'm quite happy with this trick. The question is, however, do any of you actually know some tool to extract binary resources easily?