【HSP3】XOR暗号化 | Codetter（こーどったー）

#module
#deffunc XorCrypt var b, int s, int p
if s <= 0 : return -1
randomize p
dim k, 256
repeat 256
	v = rnd(cnt + 1)
	k.cnt = k.v
	k.v = cnt
loop
repeat s
	poke b, cnt, peek(b, cnt)^k(cnt\256)
loop
dim k, 256
return 0
#global

in = "こんにちは"
size = strlen(in)
mes in

// 暗号化・復号化したい変数, サイズ, 鍵を作成するためのシード値 (0～)
XorCrypt in, size, 0
mes in

// 同じシード値で実行すると元に戻ります
XorCrypt in, size, 0
mes in