以下の TouchController クラス（書いている内容は mouse のドラッグ＆ドロップ操作）を継承させて ViewController を作れば簡単なものはすぐ作れます。
しっかり書けば iPhone, Android から PC ともに互換するコンテンツなんかも作れそうな気がします。

// IE 使わないならこの分岐いらない
if (true && document.all && document.attachEvent) {
	function eventPreventDefault(){
		event.returnValue = false;
	}
	//http://yupotan.sppd.ne.jp/web/dom2-msie.html
	document.addEventListener=function(key,func,b) {
		this.attachEvent("on"+key, function(){
			return func({
				target			:event.srcElement,
				cancelBubble	:event.cancelBubble,
				pageX			:event.clientX,
				pageY			:event.clientY,
	 			preventDefault	:eventPreventDefault
			});
		});
	}
	document.removeEventListener=function(key,func,b) {
		this.detachEvent("on"+key, func);
	}
}

$class('TouchController',{
	initTouch:function(){
		if( navigator.userAgent.search(/(iPhone|Android)/) != -1 ){
			document.addEventListener("touchstart",	this.touchesBegan.bind(this), false);
			document.addEventListener("touchmove",	this.touchesMoved.bind(this), false);
			document.addEventListener("touchend",	this.touchesEnded.bind(this), false);		
		}else{
			$('body').style.cursor = "pointer";
			this.initMouse();
		}
	},
	initMouse:function(){
		document.addEventListener('mousedown',	function(e){
			this.isDragging	= true;
			e.touches = [e];
			this.touchesBegan(e);
		}.bind(this), false);
		document.addEventListener('mousemove',	function(e){
			if (this.isDragging) {
				e.touches = [e];
				this.touchesMoved(e);
			}
		}.bind(this), false);
		document.addEventListener('mouseup',	function(e){
			if (this.isDragging) {
				this.isDragging = false;
				e.touches = [e];
				this.touchesEnded(e)
			}
		}.bind(this), false);
	},
	touchesBegan:function(){},
	touchesMoved:function(){},
	touchesEnded:function(){}

});

クラス継承順を整理して考えるより、js上でクラス継承キューを作った方が早いです。

用例

$class('ThumbQueueView',$extends('View',{
	draw:function(){
		$('Body').innerHTML = '<div id="ThumbQueueAsExternal"></div>';
		this.drawSWF({
			name	:'img/swf/ThumbQueue.swf?'+time(),
			id	:'ThumbQueueAsExternal',
			width	:'100%',
			height	:'100%',
			vars	:{}
		});
	}
}));

//↓継承する View クラスが後に来てても通る

$class('View',{
	draw:function(){},
	drawSWF:function(swf){
		swfobject.embedSWF(
			swf.name, swf.id, swf.width,swf.height,
			'9.0.0', 'img/swf/expressInstall.swf',swf.vars,
			{allowFullScreen:'true',allowScriptAccess:'always'},
			{id:swf.id,align:'middle'}
		);
	}
}

var view = new ThumbQueueView();
view.draw();

ソース

//要 prototype.js

var $classes	= {};
var $classQueue	= {};

function forEach(obj,func){
	if(Object.isArray(obj)) {
		for(var i=0;i<obj.length;i++) {
			if (obj[i]) {
				func(i, obj[i])
			}
		}
	}else {
		for(var key in obj){
			func(key,obj[key])
		}
	}
}

function $class(name,obj){
	if(Object.isArray(obj)){
		if(!(obj[0] in $classQueue)) $classQueue[obj[0]] = [];
		$classQueue[obj[0]].push({
			className:name,
			superClassName:obj[0],
			contents:obj[1]
		});
	}else{
		var c = ('isSubclassOf' in obj)?obj:$extends(null,obj);
		c.className		= name;
		$classes[name]	= c;
		window[name]	= c;
		
		if (name in $classQueue) {
			forEach($classQueue[name], function(i, value){
				if (value.className) {
					$class(value.className, $extends(value.superClassName, value.contents))
				}
			});
			delete ($classQueue[name]);
		}
	}
}

function $extends(parentClass,classMethods){
	
	var superClassEnable = true;
	if(Object.isString(parentClass)){
		if(parentClass in window){
			var superClass = window[parentClass];
		}else{
			superClassEnable = false;
		}
	}else{
		superClass = parentClass
	}
	
	if(superClassEnable){
		var c = Class.create();
		if(superClass) Object.extend(c.prototype, superClass.prototype);
		Object.extend(c.prototype, classMethods);
		c.superClass = superClass;
		c.isSubclassOf = function(object){
			if(!this.superClass)	return false;
			if(this.superClass == object)	return true;
			return this.superClass.isSubclassOf(object)
		}
		c.prototype.self = c;
		return c;
	}else{
		return $A(arguments);
	}
}

などと、弊社のババが呟きました。

ローカルマシンでは正しく動作するのに、別マシンで動かしたら「ActionScriptエラーが発生しました」というポップアップ…。そんなエラーが発生したクライアントの動作環境が分かれば、環境依存するような問題を解決しやすくなります。

Flash Player 10.1からグローバルなエラー処理が可能となります。
つまり、クライアントで発生したエラー内容を記録する仕組みを実現できるようになりました。

今回は、この仕組みを AS3 + GAE/J（GoogleAppEngin for Java）を利用して簡単に構築してみようと思います。
※開発には、FlashPlayer10.1 beta 3（2010/03/02現在）をインストールする必要があります。
※GAE/Jを開発する環境も別途必要になります。

AS3 : UncaughtErrorMonitorクラス

package{

	import flash.display.DisplayObject;
	import flash.events.ErrorEvent;
	import flash.events.UncaughtErrorEvent;
	import flash.external.ExternalInterface;
	import flash.net.URLRequest;
	import flash.net.URLRequestMethod;
	import flash.net.URLVariables;
	import flash.net.sendToURL;
	import flash.system.Capabilities;

	/**
	 * エラー補足モニタークラス
	 * 
	 * グローバルエラーを監視し、エラーが発生した場合に内容をポストします
	 * 
	 * @author maegawa@bascule
	 */	
	public class UncaughtErrorMonitor{
		
		/**
		 * コンストラクタ
		 * @param clazz
		 */		
		public function UncaughtErrorMonitor( clazz:PrivateClass ){
			// インスタンスは生成させない
		}
		/**
		 * 初期化する
		 * @param root	:ドキュメントクラス
		 */		 
		public static function init( root:DisplayObject ):void{
			
			if( root && root.loaderInfo ){
				root.loaderInfo.uncaughtErrorEvents.addEventListener( UncaughtErrorEvent.UNCAUGHT_ERROR, function( e:UncaughtErrorEvent ):void{
				
					var errorID	:uint = 0;
					var type	:String = "";
					var message	:String = "";
					var location:String = "";
					
					if( e.error is Error ){	// Errorを捕捉した場合
						var error:Error = e.error as Error;
						errorID = error.errorID;
						type = error.name;
						message = error.message;
						location = error.getStackTrace();
					}else
					if( e.error is ErrorEvent ){	// ErrorEventを捕捉した場合
						var event:ErrorEvent = e.error as ErrorEvent;
						errorID = event.errorID;
						type = event.type; 
						message = event.text;
					}else{
						return;	// Error、ErrorEventを補足した場合は処理を中断
					}
					
					var url:String = "http://GAEアプリID.appspot.com/regist";
					
					var variables:URLVariables = new URLVariables;
						variables.errorID = errorID;		// エラーID
						variables.type = type;			// エラータイプ
						variables.message = message;		// エラーメッセージ
						variables.location = location;		// エラー発生場所
						variables.swf = Capabilities.version;	// SWFのバージョン判定
						variables.userAgent = getUserAgent();	// UserAgent判定
						
					var request:URLRequest = new URLRequest( url );
						request.data = variables;
						request.method = URLRequestMethod.POST;
					
					try{
						sendToURL( request );
					}catch( e:Error ){
					}
				} );
			}
		}
		/**
		 * ユーザーエージェントを取得する
		 * @return 
		 */		
		private static function getUserAgent():String{
			try{
				if( ExternalInterface.available ){
					return ExternalInterface.call( "function(){ return navigator.userAgent; }" );
				}
			}catch( e:Error ){}
			
			return "unknow";
		}
	}
}
class PrivateClass{}

続いて、サーバー側を準備します。

GAE : UncaughterrorServletクラス

package jp.bascule;

import java.io.IOException;
import java.util.Date;

import javax.servlet.http.HttpServlet;
import javax.servlet.http.HttpServletRequest;
import javax.servlet.http.HttpServletResponse;

import com.google.appengine.api.datastore.DatastoreService;
import com.google.appengine.api.datastore.DatastoreServiceFactory;
import com.google.appengine.api.datastore.Entity;
import com.google.appengine.api.datastore.Key;
import com.google.appengine.api.datastore.KeyFactory;
import com.google.appengine.api.datastore.Transaction;

@SuppressWarnings("serial")
public class RegistUncaughtErrorServlet extends HttpServlet {
	
	public void doGet( HttpServletRequest req, HttpServletResponse res ) throws IOException {
		res.sendError( 400 );
	}
	
	public void doPost( HttpServletRequest req, HttpServletResponse res ) throws IOException {
		
		try {
			String errorID = req.getParameter( "errorID" );// エラーID
			String type = req.getParameter( "type" );// エラータイプ
			String message = req.getParameter( "" );// エラーメッセージ
			String location = req.getParameter( "location" );// エラー発生場所
			String swf = req.getParameter( "swf" );// SWFのバージョン判定
			String userAgent = req.getParameter( "userAgent" );// UserAgent判定
			
			Date date = new Date();
			long time = date.getTime();
			//
			Entity entity = new Entity( "UncaughtError" );
			entity.setProperty( "appkey", appkey );
			entity.setProperty( "error_id", errorID );
			entity.setProperty( "error_type", type );
			entity.setProperty( "error_message", message );
			entity.setProperty( "error_location", location );
			entity.setProperty( "swf_version", swf );
			entity.setProperty( "user_agent", userAgent );
			entity.setProperty( "datetime", time );
			
			
			DatastoreService service = DatastoreServiceFactory.getDatastoreService();
			Transaction transaction = service.beginTransaction();
			try {
				service.put(transaction, entity);
				transaction.commit();
			} finally {
				if (transaction.isActive())
					transaction.rollback();
			}

			res.getWriter().print( "success" );
			
		} catch (Exception e) {
			res.getWriter().print( "error" );
			e.printStackTrace();
		}
	}
}

GAE:web.xml

<?xml version="1.0" encoding="utf-8"?>
<web-app xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns="http://java.sun.com/xml/ns/javaee"
xmlns:web="http://java.sun.com/xml/ns/javaee/web-app_2_5.xsd"
xsi:schemaLocation="http://java.sun.com/xml/ns/javaee
http://java.sun.com/xml/ns/javaee/web-app_2_5.xsd" version="2.5">
	<servlet>
		<servlet-name>RegistUncaughtError</servlet-name>
		<servlet-class>jp.bascule.RegistUncaughtErrorServlet</servlet-class>
	</servlet>
	<servlet-mapping>
		<servlet-name>RegistUncaughtError</servlet-name>
		<url-pattern>/regist</url-pattern>
	</servlet-mapping>
	<welcome-file-list>
		<welcome-file>index.html</welcome-file>
	</welcome-file-list>
</web-app>

この内容をGAEにデプロイすれば完了です。

AS3:Testクラス

package{

	import flash.display.Sprite;
	import flash.events.ErrorEvent;
	
	/**
	 * Testクラス
	 * 
	 * UncaughtErrorMonitorクラスの動作をチェックします。
	 * 意図的にError、ErrorEventをスローさせます。
	 */	
	public class Test extends Sprite{
		
		public function Test(){
			// モニタリングを開始
			UncaughtErrorMoniter.init( this );
			// Errorの場合
			throw new Error( "エラーが発生！" );
			// ErrorEventの場合
			//throw new ErrorEvent( ErrorEvent.ERROR, false, false, "エラーイベントが発生！" );
		}
	}
}

こんな感じで呼び出しておけば、クライアント側でエラーが発生した場合に勝手に内容がポストされます。
いくつかのプロジェクトで仕組みを使いまわすのであれば、アプリケーション識別子を引数に加えてあげればいいだけです。さらに、画面サイズ、ネットワーク環境など、その他の情報も記録しておけば、よりスムーズに問題を解決できそうです。

GAEの管理画面にはDatastoreViewerというデータを確認する画面があるので、一覧表示する画面を用意する必要もありません。GAEは無料で使用可能ですが、データ保存容量には限界があります。とくに情報を残す必要がないのであれば、cronを利用して定期的に内容を削除すればよいと思います。

前回の md5 では FlashLite の Infinity に屈したわけですが、今回は対策を練ってから。

int の上位ビットに数値がかかると、桁があふれて Infinity になるため、
内部で int を 1/16 したまま扱ってしまうような設計にしました。
ソース内で xint と記述しているのがそうですが、
int の符号を再現するために Windows の「電卓」がかなり役に立ちましたw


http://faces.jp/2009/10/25/sha1.swf
ソースをダウンロード

符号再現のあたりでビット演算のために2の乗数での剰除を繰り返してますが、
負の数に対しての "%" 演算結果が、DeviceCentral(FL1.1,FL2.1) と実機で違ってる。
実機の結果は Flash4(PC) で走らせた結果と同じになるんだけど、これはCS3だからかも？

また、md5 では50KBを超えた swf も、call のおかげで今回は10KB以下に抑えられましたが
最後に残念なお知らせというか、期待通りのオチがあります。

OAuth のようなことをしたくてこれを作ったのですが、
どんな短い String でも実機上での hash に10秒以上かかります。
ケータイはキー押下すぐのタイミングでしかリクエストを送れないので、
これじゃ全然間に合いません。

一番処理を食っているのは int のエミュレーションですが
FL2 であれば十分実用に足るものが作れるに違いないと我々は信じてやみません。

　
実装してませんが、複数ユニットで攻撃するようなチームプレイ戦略とかを
算出できるようになれば面白くなりそう。
zipファイル
※ちなみに as/init.as の
//playerAsCpu = "xooo";
のコメントをはずすと青軍を操作できます。

//thinkTarget.as
//攻撃のROI計算

targetBin = "";
_maxYummy = 0;

for(i = 1; i <= playerCount; i++ ) {
	if (i != player) {
		_units	= eval("units" add i);
		while (length(_units) > 0) {
			_unitId		= i * 1000 + ord(subString(_units, 1,	1)) - 0x80;
			x			= getProperty("map/unit" add _unitId, _x);
			y			= getProperty("map/unit" add _unitId, _y);
			_unitHp		= ord(subString(_units, 3,	1)) - 0x80;
			
			_index		= 1 + x + y * mapWidth;
			_minCost	= -1;
			
			if (y > 0) {
				_cost		= ord(subString(costMap, _index - mapWidth, 1)) - 0x80;
				if ((_cost >= 0) and ((_cost < _minCost) or (_minCost < 0))) {
					_minCost	= _cost;
					s			= mbChr(0x80 + x) add mbChr(0x80 + y - 1);
					_direction	= 1;
				}	
			}
			if (x < mapWidth-1) {
				_cost		= ord(subString(costMap, _index + 1, 1)) - 0x80;
				if ((_cost >= 0) and ((_cost < _minCost) or (_minCost < 0))) {
					_minCost	= _cost;
					s			= mbChr(0x80 + x + 1) add mbChr(0x80 + y);
					_direction	= 2;
				}
			}
			if (y < mapHeight-1) {
				_cost		= ord(subString(costMap, _index + mapWidth, 1)) - 0x80;
				if ((_cost >= 0) and ((_cost < _minCost) or (_minCost < 0))) {
					_minCost	= _cost;
					s			= mbChr(0x80 + x) add mbChr(0x80 + y + 1);
					_direction	= 3;
				}
			}
			if (x > 0) {
				_cost		= ord(subString(costMap, _index - 1, 1)) - 0x80;
				if ((_cost >= 0) and ((_cost < _minCost) or (_minCost < 0))) {
					_minCost	= _cost;
					s			= mbChr(0x80 + x - 1) add mbChr(0x80 + y);
					_direction	= 4;
				}
			}
			
			if (_minCost >= 0) {
				_yummy = (unitHp/_unitHp)/(_minCost/unitMove+1)
				if (_yummy > _maxYummy) {
					_maxYummy	= _yummy;
					targetBin	= mbChr(0x80 + i) add subString(_units, 1, 3) add s add mbChr(0x80 + _direction);
				}
			}else {
				//攻撃不可
			}
			_units	= subString(_units, 4);
		}
	}
}

//thinkCost.as
//コスト計算（マップ移動）

//-1 未調査 -1 囲まれて移動不可エリアか未調査エリア
//-2 距離が大きすぎ 
//-3 超えられないもの
//-4 敵	

_timer = getTimer() + 1000 / 12;

while((length(_stack) > 0) and (_timer > getTimer())) {
	x			= ord(subString(_stack, 1, 1)) - 0x80;
	y			= ord(subString(_stack, 2, 1)) - 0x80;
	_cost		= ord(subString(_stack, 3, 1)) - 0x80;
	_direction	= ord(subString(_stack, 4, 1)) - 0x80;
	_stack		= subString(_stack, 5);
		
	_index		= 1 + x + y * mapWidth;
	i			= ord(subString(costMap, _index, 1)) - 0x80;
	//速度優先最適化
	//if (i > -2) {
		_cost		+= ord(subString(moveCostsByChip, ord(subString(fieldMap, _index, 1)) - 0x80, 1)) - 0x80;
		if ((_cost < i) or (i == -1)) {
			if (_cost > unitMove * 2) {
				costMap	= subString(costMap, 1, _index - 1 ) add mbChr(0x80 - 2)			add subString(costMap, _index + 1);
			}else {
				costMap	= subString(costMap, 1, _index - 1 ) add mbChr(0x80 + _cost)		add subString(costMap, _index + 1);
				moveMap = subString(moveMap, 1, _index - 1 ) add mbChr(0x80 + _direction)	add subString(moveMap, _index + 1);
				switch(false) {
					case(_direction == 3):
						if (y > 0) {
							if (ord(subString(costMap, _index - mapWidth, 1)) - 0x80 > -2) {
								_stack = _stack add mbChr(0x80 + x)		add mbChr(0x80 + y - 1)	add mbChr(0x80 + _cost) add mbChr(0x80 + 1);
							}
						}
					case(_direction == 4):
						if (x < mapWidth - 1) {
							if (ord(subString(costMap, _index + 1, 1)) - 0x80 > -2) {
								_stack = _stack add mbChr(0x80 + x + 1)	add mbChr(0x80 + y)		add mbChr(0x80 + _cost) add mbChr(0x80 + 2);
							}
						}
					case(_direction == 1):
						if (y < mapHeight - 1) {
							if (ord(subString(costMap, _index + mapWidth, 1)) - 0x80 > -2) {
								_stack = _stack add mbChr(0x80 + x)		add mbChr(0x80 + y + 1)	add mbChr(0x80 + _cost) add mbChr(0x80 + 3);
							}
						}
					case(_direction == 2):
						if (x > 0) {
							if (ord(subString(costMap, _index - 1, 1)) - 0x80 > -2) {
								_stack = _stack add mbChr(0x80 + x - 1)	add mbChr(0x80 + y)		add mbChr(0x80 + _cost) add mbChr(0x80 + 4);
							}
						}
				}
			}			

		}	
		
	//}
}

ケータイ SWF からリクエストする際の内容を証明できるようにしたかったんですが、
メモリは食わないものの、スクリプトだけで SWF が 50KB 超えます。
逆にFL2.x以降ならシフトローテート、関数、配列、論理演算を使って短く記述できるので、
SHA1とかも可能と思う。FlashLite2.0以降であれば、 OpenSocial なリクエストもできそう。
Fla はここに http://faces.jp/files/ao/20091015_md5/fl1md5.zip

com.adobe.crypto.MD5 を参考にしたんですが、中身は AND XOR など論理演算が中心で
アセンブラで組みこめそうな内容でした

//md5Init.as

len = length(str);
s = str add mbChr(0x80)

blocks		= ''
blocksMask	= ''

for(i = 0; i <= len; i += 4 ) {
	for (j = 4; j>0; j-- ) {
		c = subString(s, i + j, 1)
		if (c eq '') {
			blocks		= blocks add '.'
			blocksMask	= blocksMask add '0'
		}else {
			blocks		= blocks add c
			blocksMask	= blocksMask add '1'
		}
	}
}

i = (int((len * 8 + 0x40) / 0x0200) * 0x10 + 0x0e) * 4

while(length(blocks) < i) {
	blocks		= blocks add '.';
	blocksMask	= blocksMask add '0'	
}

for(i = 0x01000000; i >=1; i /= 0x0100 ) {
	byte = int((len*8) / i) % 0x0100;
	if (byte == 0) {
		blocks		= blocks add '.';
		blocksMask	= blocksMask add '0'
	}else {
		blocks		= blocks add mbChr(byte);
		blocksMask	= blocksMask add '1'
	}
}

a = 1732584193;
b = -271733879;
c = -1732584194;
d = 271733878;

s = 4294967296;//0x100000000
n = 0x80000000;

p = 0;

//md5Encode.as


for (j = 0; j < 16; j++ ) {
	name		= 'x' add subString('0123456789ABCDEF',j+1,1)
	eval(name)	= 0;
	for (k = 0x01000000; k >= 1; k /= 0x0100 ) {
		if (subString(blocksMask, p+1, 1) > 0) {
			eval(name) += ord(subString(blocks, p+1, 1)) * k
		}
		p++
	}
}

aa = a;
bb = b;
cc = c;
dd = d;	

v=0;for(i=1;i<s;i*=2){v+=(((int(b/i)%2)&&(int(c/i)%2))||((!(int(b/i)%2))&&(int(d/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+x0-680876936;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x2000000)*0x80)+int(((v<0)?v+s :v)/0x2000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(a/i)%2)&&(int(b/i)%2))||((!(int(a/i)%2))&&(int(c/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+x1-389564586;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x100000)*0x1000)+int(((v<0)?v+s :v)/0x100000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(d/i)%2)&&(int(a/i)%2))||((!(int(d/i)%2))&&(int(b/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+x2+606105819;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x8000)*0x20000)+int(((v<0)?v+s :v)/0x8000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(c/i)%2)&&(int(d/i)%2))||((!(int(c/i)%2))&&(int(a/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+x3-1044525330;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x400)*0x400000)+int(((v<0)?v+s :v)/0x400)+c;	if(b>n)b-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(b/i)%2)&&(int(c/i)%2))||((!(int(b/i)%2))&&(int(d/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+x4-176418897;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x2000000)*0x80)+int(((v<0)?v+s :v)/0x2000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(a/i)%2)&&(int(b/i)%2))||((!(int(a/i)%2))&&(int(c/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+x5+1200080426;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x100000)*0x1000)+int(((v<0)?v+s :v)/0x100000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(d/i)%2)&&(int(a/i)%2))||((!(int(d/i)%2))&&(int(b/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+x6-1473231341;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x8000)*0x20000)+int(((v<0)?v+s :v)/0x8000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(c/i)%2)&&(int(d/i)%2))||((!(int(c/i)%2))&&(int(a/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+x7-45705983;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x400)*0x400000)+int(((v<0)?v+s :v)/0x400)+c;	if(b>n)b-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(b/i)%2)&&(int(c/i)%2))||((!(int(b/i)%2))&&(int(d/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+x8+1770035416;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x2000000)*0x80)+int(((v<0)?v+s :v)/0x2000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(a/i)%2)&&(int(b/i)%2))||((!(int(a/i)%2))&&(int(c/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+x9-1958414417;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x100000)*0x1000)+int(((v<0)?v+s :v)/0x100000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(d/i)%2)&&(int(a/i)%2))||((!(int(d/i)%2))&&(int(b/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+xA-42063;		if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x8000)*0x20000)+int(((v<0)?v+s :v)/0x8000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(c/i)%2)&&(int(d/i)%2))||((!(int(c/i)%2))&&(int(a/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+xB-1990404162;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x400)*0x400000)+int(((v<0)?v+s :v)/0x400)+c;	if(b>n)b-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(b/i)%2)&&(int(c/i)%2))||((!(int(b/i)%2))&&(int(d/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+xC+1804603682;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x2000000)*0x80)+int(((v<0)?v+s :v)/0x2000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(a/i)%2)&&(int(b/i)%2))||((!(int(a/i)%2))&&(int(c/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+xD-40341101;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x100000)*0x1000)+int(((v<0)?v+s :v)/0x100000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(d/i)%2)&&(int(a/i)%2))||((!(int(d/i)%2))&&(int(b/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+xE-1502002290;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x8000)*0x20000)+int(((v<0)?v+s :v)/0x8000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(c/i)%2)&&(int(d/i)%2))||((!(int(c/i)%2))&&(int(a/i)%2)))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+xF+1236535329;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x400)*0x400000)+int(((v<0)?v+s :v)/0x400)+c;	if(b>n)b-=s;

v=0;for(i=1;i<s;i*=2){v+=(((int(b/i)%2)&&(int(d/i)%2))||((int(c/i)%2)&&(!(int(d/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+x1-165796510;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x8000000)*0x20)+int(((v<0)?v+s :v)/0x8000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(a/i)%2)&&(int(c/i)%2))||((int(b/i)%2)&&(!(int(c/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+x6-1069501632;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x800000)*0x200)+int(((v<0)?v+s :v)/0x800000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(d/i)%2)&&(int(b/i)%2))||((int(a/i)%2)&&(!(int(b/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+xB+643717713;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x40000)*0x4000)+int(((v<0)?v+s :v)/0x40000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(c/i)%2)&&(int(a/i)%2))||((int(d/i)%2)&&(!(int(a/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+x0-373897302;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x1000)*0x100000)+int(((v<0)?v+s :v)/0x1000)+c;	if(b>n)b-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(b/i)%2)&&(int(d/i)%2))||((int(c/i)%2)&&(!(int(d/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+x5-701558691;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x8000000)*0x20)+int(((v<0)?v+s :v)/0x8000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(a/i)%2)&&(int(c/i)%2))||((int(b/i)%2)&&(!(int(c/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+xA+38016083;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x800000)*0x200)+int(((v<0)?v+s :v)/0x800000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(d/i)%2)&&(int(b/i)%2))||((int(a/i)%2)&&(!(int(b/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+xF-660478335;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x40000)*0x4000)+int(((v<0)?v+s :v)/0x40000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(c/i)%2)&&(int(a/i)%2))||((int(d/i)%2)&&(!(int(a/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+x4-405537848;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x1000)*0x100000)+int(((v<0)?v+s :v)/0x1000)+c;	if(b>n)b-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(b/i)%2)&&(int(d/i)%2))||((int(c/i)%2)&&(!(int(d/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+x9+568446438;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x8000000)*0x20)+int(((v<0)?v+s :v)/0x8000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(a/i)%2)&&(int(c/i)%2))||((int(b/i)%2)&&(!(int(c/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+xE-1019803690;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x800000)*0x200)+int(((v<0)?v+s :v)/0x800000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(d/i)%2)&&(int(b/i)%2))||((int(a/i)%2)&&(!(int(b/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+x3-187363961;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x40000)*0x4000)+int(((v<0)?v+s :v)/0x40000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(c/i)%2)&&(int(a/i)%2))||((int(d/i)%2)&&(!(int(a/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+x8+1163531501;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x1000)*0x100000)+int(((v<0)?v+s :v)/0x1000)+c;	if(b>n)b-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(b/i)%2)&&(int(d/i)%2))||((int(c/i)%2)&&(!(int(d/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+xD-1444681467;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x8000000)*0x20)+int(((v<0)?v+s :v)/0x8000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(a/i)%2)&&(int(c/i)%2))||((int(b/i)%2)&&(!(int(c/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+x2-51403784;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x800000)*0x200)+int(((v<0)?v+s :v)/0x800000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(d/i)%2)&&(int(b/i)%2))||((int(a/i)%2)&&(!(int(b/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+x7+1735328473;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x40000)*0x4000)+int(((v<0)?v+s :v)/0x40000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(c/i)%2)&&(int(a/i)%2))||((int(d/i)%2)&&(!(int(a/i)%2))))*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+xC-1926607734;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x1000)*0x100000)+int(((v<0)?v+s :v)/0x1000)+c;	if(b>n)b-=s;

v=0;for(i=1;i<s;i*=2){v+=(((((int(b/i)%2)+(int(c/i)%2))%2)+(int(d/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+x5-378558;		if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x10000000)*0x10)+int(((v<0)?v+s :v)/0x10000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(a/i)%2)+(int(b/i)%2))%2)+(int(c/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+x8-2022574463;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x200000)*0x800)+int(((v<0)?v+s :v)/0x200000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(d/i)%2)+(int(a/i)%2))%2)+(int(b/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+xB+1839030562;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x10000)*0x10000)+int(((v<0)?v+s :v)/0x10000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(c/i)%2)+(int(d/i)%2))%2)+(int(a/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+xE-35309556;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x200)*0x800000)+int(((v<0)?v+s :v)/0x200)+c;	if(b>n)b-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(b/i)%2)+(int(c/i)%2))%2)+(int(d/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+x1-1530992060;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x10000000)*0x10)+int(((v<0)?v+s :v)/0x10000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(a/i)%2)+(int(b/i)%2))%2)+(int(c/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+x4+1272893353;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x200000)*0x800)+int(((v<0)?v+s :v)/0x200000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(d/i)%2)+(int(a/i)%2))%2)+(int(b/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+x7-155497632;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x10000)*0x10000)+int(((v<0)?v+s :v)/0x10000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(c/i)%2)+(int(d/i)%2))%2)+(int(a/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+xA-1094730640;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x200)*0x800000)+int(((v<0)?v+s :v)/0x200)+c;	if(b>n)b-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(b/i)%2)+(int(c/i)%2))%2)+(int(d/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+xD+681279174;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x10000000)*0x10)+int(((v<0)?v+s :v)/0x10000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(a/i)%2)+(int(b/i)%2))%2)+(int(c/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+x0-358537222;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x200000)*0x800)+int(((v<0)?v+s :v)/0x200000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(d/i)%2)+(int(a/i)%2))%2)+(int(b/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+x3-722521979;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x10000)*0x10000)+int(((v<0)?v+s :v)/0x10000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(c/i)%2)+(int(d/i)%2))%2)+(int(a/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+x6+76029189;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x200)*0x800000)+int(((v<0)?v+s :v)/0x200)+c;	if(b>n)b-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(b/i)%2)+(int(c/i)%2))%2)+(int(d/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+x9-640364487;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x10000000)*0x10)+int(((v<0)?v+s :v)/0x10000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(a/i)%2)+(int(b/i)%2))%2)+(int(c/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+xC-421815835;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x200000)*0x800)+int(((v<0)?v+s :v)/0x200000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(d/i)%2)+(int(a/i)%2))%2)+(int(b/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+xF+530742520;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x10000)*0x10000)+int(((v<0)?v+s :v)/0x10000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((((int(c/i)%2)+(int(d/i)%2))%2)+(int(a/i)%2))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+x2-995338651;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x200)*0x800000)+int(((v<0)?v+s :v)/0x200)+c;	if(b>n)b-=s;

v=0;for(i=1;i<s;i*=2){v+=(((int(c/i)%2)+((int(b/i)%2)||(!(int(d/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+x0-198630844;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x4000000)*0x40)+int(((v<0)?v+s :v)/0x4000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(b/i)%2)+((int(a/i)%2)||(!(int(c/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+x7+1126891415;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x400000)*0x400)+int(((v<0)?v+s :v)/0x400000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(a/i)%2)+((int(d/i)%2)||(!(int(b/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+xE-1416354905;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x20000)*0x8000)+int(((v<0)?v+s :v)/0x20000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(d/i)%2)+((int(c/i)%2)||(!(int(a/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+x5-57434055;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x800)*0x200000)+int(((v<0)?v+s :v)/0x800)+c;	if(b>n)b-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(c/i)%2)+((int(b/i)%2)||(!(int(d/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+xC+1700485571;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x4000000)*0x40)+int(((v<0)?v+s :v)/0x4000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(b/i)%2)+((int(a/i)%2)||(!(int(c/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+x3-1894986606;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x400000)*0x400)+int(((v<0)?v+s :v)/0x400000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(a/i)%2)+((int(d/i)%2)||(!(int(b/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+xA-1051523;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x20000)*0x8000)+int(((v<0)?v+s :v)/0x20000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(d/i)%2)+((int(c/i)%2)||(!(int(a/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+x1-2054922799;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x800)*0x200000)+int(((v<0)?v+s :v)/0x800)+c;	if(b>n)b-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(c/i)%2)+((int(b/i)%2)||(!(int(d/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+x8+1873313359;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x4000000)*0x40)+int(((v<0)?v+s :v)/0x4000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(b/i)%2)+((int(a/i)%2)||(!(int(c/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+xF-30611744;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x400000)*0x400)+int(((v<0)?v+s :v)/0x400000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(a/i)%2)+((int(d/i)%2)||(!(int(b/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+x6-1560198380;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x20000)*0x8000)+int(((v<0)?v+s :v)/0x20000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(d/i)%2)+((int(c/i)%2)||(!(int(a/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+xD+1309151649;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x800)*0x200000)+int(((v<0)?v+s :v)/0x800)+c;	if(b>n)b-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(c/i)%2)+((int(b/i)%2)||(!(int(d/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=a+x4-145523070;	if(v<0){v+=s;}else if(v>n){v-=s};	a=((v%0x4000000)*0x40)+int(((v<0)?v+s :v)/0x4000000)+b;	if(a>n)a-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(b/i)%2)+((int(a/i)%2)||(!(int(c/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=d+xB-1120210379;	if(v<0){v+=s;}else if(v>n){v-=s};	d=((v%0x400000)*0x400)+int(((v<0)?v+s :v)/0x400000)+a;	if(d>n)d-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(a/i)%2)+((int(d/i)%2)||(!(int(b/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=c+x2+718787259;	if(v<0){v+=s;}else if(v>n){v-=s};	c=((v%0x20000)*0x8000)+int(((v<0)?v+s :v)/0x20000)+d;	if(c>n)c-=s;
v=0;for(i=1;i<s;i*=2){v+=(((int(d/i)%2)+((int(c/i)%2)||(!(int(a/i)%2))))%2)*i;}if(v<0){v+=s;}else if(v>n){v-=s};	v+=b+x9-343485551;	if(v<0){v+=s;}else if(v>n){v-=s};	b=((v%0x800)*0x200000)+int(((v<0)?v+s :v)/0x800)+c;	if(b>n)b-=s;

a += aa;if(a<0){a+=s;}else if(a>n){a-=s};
b += bb;if(b<0){b+=s;}else if(b>n){b-=s};
c += cc;if(c<0){c+=s;}else if(c>n){c-=s};
d += dd;if(d<0){d+=s;}else if(d>n){d-=s};

//md5Hex.as

if(p<length(blocks)){
	gotoAndPlay(_currentframe-1)
}else{
	hex = ''
	for(i = 1; i <s ; i *= 0x100 ) {
		hex = hex add subString('0123456789abcdef',(int(a/(i*0x10))%0x10)+1,1)
		hex = hex add subString('0123456789abcdef',(int(a/i)%0x10)+1,1)
	}
	for(i = 1; i <s ; i *= 0x100 ) {
		hex = hex add subString('0123456789abcdef',(int(b/(i*0x10))%0x10)+1,1)
		hex = hex add subString('0123456789abcdef',(int(b/i)%0x10)+1,1)
	}
	for(i = 1; i <s ; i *= 0x100 ) {
		hex = hex add subString('0123456789abcdef',(int(c/(i*0x10))%0x10)+1,1)
		hex = hex add subString('0123456789abcdef',(int(c/i)%0x10)+1,1)
	}
	for(i = 1; i <s ; i *= 0x100 ) {
		hex = hex add subString('0123456789abcdef',(int(d/(i*0x10))%0x10)+1,1)
		hex = hex add subString('0123456789abcdef',(int(d/i)%0x10)+1,1)
	}
}

Auth を気にすることなくサクサク書けます。

require_once('MixiAppMobileApi.php');

// APIのURLなどの詳細は以下を参照。
// http://developer.mixi.co.jp/appli/appli_mobile/lets_enjoy_making_mixiappmobile/for_partners

$personApi		= 'http://****************************************';
$persistenceApi	= 'http://****************************************';


$mixi = new MixiAppMobileApi;

// owner(viewer) データ取得
print_r($mixi->get($personApi));

// appData 追加
$mixi->post(
	$persistenceApi,
	array(
		'score'	=> 530000,
		'time'	=> time(),
	)
);

// appData から score を削除
$mixi->delete($persistenceApi.'?fields=score');

// appData 取得
$myAppData = $mixi->get($persistenceApi);
print_r($myAppData);

3つのメソッドにURLをそえるだけ。なんて RESTful なんでしょう。

さておき、複数のアプリとか複数の環境で開発したりしていて、
Consumer を逐一書き換えるのが手間な場合は、以下のクラスメソッドを使えばOKです。

MixiAppMobileApi::initWithConsumer(
	'********************',//key
	'****************************************'//secret
);

$mixi = new MixiAppMobileApi;
print_r($mixi->get($personApi));

以下ソース MixiAppMobileApi.php
※ OAuth のライブラリが必要です。

<?

require_once('OAuth.php');

class MixiAppMobileApi{
	
	static	$consumer;	
	static	$consumerKey	= '';//設定して下さい
	static	$consumerSecret	= '';//設定して下さい
	static	$appId		= '';
	static	$ownerId	= '';
	
	var 	$rawData;
	
		public static function initWithConsumer($key,$secret){
		self::$consumerKey		= $key;
		self::$consumerSecret	= $secret;
		self::init();
	}
	
	static function init(){
	
		if(isset($_GET['opensocial_app_id'])){
			self::$appId	= $_GET['opensocial_app_id'];
		}
		
		if(isset($_GET['opensocial_owner_id'])){
			self::$ownerId	= $_GET['opensocial_owner_id'];
		}
		
		self::$consumer	= new OAuthConsumer(
			self::$consumerKey,
			self::$consumerSecret,
			null
		);
		
	}
	
	function MixiAppMobileApi(){
		if(!isset(self::$consumer)){self::init();}
	}
	
	public function get($url)		{ return( $this->request($url) );		}
	public function post($url,$data)	{ return( $this->request($url,$data) );		}
	public function delete($url)		{ return( $this->request($url,null,'DELETE') );	}
	
	function request($url,$data=null,$method=null){
		
		switch(true){
			case(isset($data)):
				$options	= array('method' => 'POST', 'content' => json_encode($data));
				break;

			case(empty($method)):
				$options	= array('method' => 'GET');
				break;

			default:
				$options	= array('method' => $method);

		}
		
		list($baseFeed,$queryString)	= explode('?', $url, 2);
		
		$parameters		= $this->parameters($queryString);
		$options['header']	= $this->header(
			OAuthRequest::from_consumer_and_token(
				self::$consumer,
				null,
				$options['method'],
				$baseFeed,
				$parameters
			)
		);
		
		$this->rawData	= file_get_contents(
			$baseFeed . '?' . http_build_query($parameters,'','&'),
			null,
			stream_context_create(array('http' => $options))
		);

		return(json_decode($this->rawData));
		
	}
	
	function parameters($queryString=null){
		$parameters	= array(
			'xoauth_requestor_id' => self::$ownerId,
		);
		if(isset($queryString)){
			parse_str($queryString,$q);
			$parameters += $q;
		}
		return($parameters);
	}
		
	function header($request){
		$request->sign_request(
			new OAuthSignatureMethod_HMAC_SHA1(),
			self::$consumer,
			null
		);
		$rows = array(
			'Content-Type: application/json',
			$request->to_header(),
			'',
		);
		return(implode("\r\n",$rows));
	}
	
	function id($string){
		list($null,$id) = explode(':',$string);
		return($id);
	}
}