Policy file server for flash as2/as3 clients

[AS3.0]

Going to leave this here to fix security issue error #2048 in as2/as3 because everyones hosting it in a non actionscript language.

This is an adobe air as3 script that I wrote to host on port 843 to respond to <policy-file-request/> requests you have to forward port 843 on your router for your machine as well.

import flash.display.Sprite;
import flash.events.Event;
import flash.events.ProgressEvent;
import flash.events.ServerSocketConnectEvent;
import flash.net.ServerSocket;
import flash.net.Socket;
import flash.utils.ByteArray;
import flash.net.FileReference;
import flash.filesystem.File;
import flash.filesystem.FileMode;
import flash.filesystem.FileStream;

var socket:XMLSocket;
var clientObject = {};
var pid:Number=0;
var policy='<cross-domain-policy><allow-access-from domain="*" to-ports="*" /><allow-access-from domain="127.0.0.1" to-ports="*" /></cross-domain-policy>'
var nullByte;
var serverSocket:ServerSocket = new ServerSocket();
var clientSocket:Socket;
serverSocket.bind(843);
serverSocket.addEventListener(ServerSocketConnectEvent.CONNECT, onConnection);
serverSocket.listen();

socket = new XMLSocket();
socket.connect("127.0.0.1",843);        
socket.send(policy);
var msg_num=0
var parsedString
var completeString
function onClientSocketData(e:ProgressEvent){
e.currentTarget.writeUTFBytes(policy)
e.currentTarget.flush();
e.currentTarget.close();
}
function onConnection(e:ServerSocketConnectEvent){
clientSocket = e.socket;
clientSocket.addEventListener(ProgressEvent.SOCKET_DATA, onClientSocketData);
}