;	暗号化/復号化モジュール mod_endec.as サンプルスクリプト
;	copyright(c) 2003 by Kosuke. All rights reserved.
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#include "mod_endec.as"	;モジュールをインクルード
	sysfont 17	;フォントをデフォルトGUI（メニューバーetc.のフォント）に
	sdim a,32768	;aのバッファを32k（32,768Bytes 終了コード分を引いて32,767）Bytesに
	sdim d,32768	;dのバッファを32k（32,768Bytes 終了コード分を引いて32,767）Bytesに
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
;設定項目
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
;形式（0:EnDec 2:int 4:Endec+pass照合）
keishiki=0
;------------------------------------------------------
;エンコード/デコードする文字列(半角32,767[全角16,383]文字以下)
a="エンコード/デコードする文字列"
;------------------------------------------------------
;Pass（2〜3を指定した場合80〜9690の整数 それ以外は文字列 ちなみにpass dataが38761（アルファベット24文字）以下でないとデコード不可）
pass="ぱすわーど"
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

	pos 5,5					;表示位置を5,5に
	mes "Before EnDec :\n"+a		;エンコード前の文字列を表示
	endec a,pass,keishiki			;
	mes "\nAfter Encode :\n"+a
;	pass="ぱすわーど？"			;行頭のコメントマーク「;」を外すとpass変更
	endec a,pass,keishiki+1
	if stat=-1:a="Passが違います"
	mes "\nAfter Decode :\n"+a
	stop