HSPTV!掲示板

bsave以外のnotesaveを使った文字列暗号化方法を教えてください。
ヘルプを見たんですがよく分かりません。
文字列を数字列にする方法、又は、その逆もありましたら教えてください。

やりたいことを整理しよう。

１、文字列を暗号化したい。
２、暗号化した結果を notesave 命令で保存したい。（つまり、暗号化後も文字列であってほしい。）
３、文字列は数値だけでできている必要がある？

…でいいんでしょうか。３は必要？不要？


ヘルプって何を見たのですか？

>bsave以外のnotesaveを使った文字列暗号化方法を教えてください。
>ヘルプを見たんですがよく分かりません。
　僕の理解力が乏しく、あなたの質問がわかりません。

>文字列を数字列にする方法、又は、その逆もありましたら教えてください。
　peek,wpeek,lpeekで文字型変数の指定バイト目を読み出せます。
　たとえば"ABCD"という内容の変数に対してpeekを4回繰り返すと、
　65,66,67,68という数字が得られます。

note系命令は、複数行の文字列を扱うのに適した命令で、数字にしたりあんやこんやするのに
向いているとは言い難い。いうなれば『車で海を渡る方法を教えてくだしあ』というわけで
防水加工を施したりスクリューをつけたりとかえって手間がかかる。
おとなしくbsaveを用いたサンプルを探すのが簡単だが、きちんと勉強すればnotesaveで
チョロイ暗号化を施すことはそう難しいことではない。

暗号化についてはググったり過去ログに腐るほどあるはずなので調べること。

一応 notesave : noteload で処理できます。
乱数の可能性が 0〜255 までしかないので、
そこまで性能は高くない様な気がしますが。

#module
#deffunc 暗号化 var string_ , int key_
	randomize key_
	repeat strlen(string_)
		b = peek(string_,cnt) : a = rnd(0xFF)
		if (a!=b) : poke string_,cnt,a^b
	loop
	return
	
#global

// 鍵
鍵 = 430291

// 文字列作成
txt =""
repeat 300 : txt+="暗号化" : loop

// 暗号化
暗号化 txt , 鍵
mes strf("※暗号化しました\n\n%s\n\n※サイズ %d\n",txt,strlen(txt))
mes "------------------------"
暗号化 txt , 鍵
mes strf("※元に戻しました\n\n%s\n\n※サイズ %d\n",txt,strlen(txt))

>ORZさん
×いうなれば『車で海を渡る方法を教えてくだしあ』
→教えて｢ください｣

この程度で書き込みするのも何なんですが...
打ち間違いでしょうと祈ります

>backdropさん
私もこんな事で突っ込むのはなんですが
所謂２ちゃんねる言葉で、相手を皮肉ってそういう言い方をしたのだと思います。

>SYAMさん
３は必要・・・ですね。
ヘルプで色々見てたんです。
具体的な事はあまり覚えてませんｗ
>Cookiesさん
説明が下手ですいません。
peek・・・使ったこと無いですね・・・
ヘルプ見てみます。

解決
ありがとうございました

テスト