;暗号化サンプル(かなり手抜き)-----------------------------
;実行するとダイアログが出るのでファイルを選択。
;しばらくすると暗号化されたファイルが
;「(読み込んだファイル名)_」と言う名前で同じディレクトリに
;吐き出されるのでエディタで比較して下さい。
;やり方次第で復元もできます。
;---------------------------------------------------------
;ファイル読み込み
sdim filename,512,1				;念のため多めに
dialog"",16
if stat=0 : end
filename=refstr
exist filename
filesize=strsize
alloc mem,filesize
bload filename,mem,filesize

;暗号化開始
key=78						;暗号化キー
repeat filesize
	peek src,mem,cnt
	;暗号化のアルゴリズムはここに書き込む
	;ここから------------------------------------------
	;暗号化・復元(排他的論理和)
	dst=src^key
	;------------------------------------------ここまで
	poke mem,cnt,dst
loop
bsave filename+"_",mem,filesize
dialog"完了"
end