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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#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
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX