暗号化
Posted: 2017年5月07日(日) 19:42
http://orios.s151.xrea.com/activebasic/ ... 1-5-3.html
これを利用して、
でいったん暗号化し、
crypt の暗号化を戻す過程で、
で、なぜか上の部分で、暗号化データが元に戻っていません。
どうすればいいですか。
これを利用して、
コード: 全て選択
Dim Buffer As BytePtr
Buffer = "なにぬねの"
Dim key As Long
key = 152
' 暗号化
crypt = String$(Len(Buffer), Chr$(0))
For i = 0 To Len(crypt) - 1
' 文字コードにパスワードの数字を足して暗号化データを作る
crypt = (Buffer + key) Mod 256
Next
でいったん暗号化し、
crypt の暗号化を戻す過程で、
コード: 全て選択
Dim Mkey As Long
Mkey = -1 * key
' 暗号化
crypt = String$(Len(nam), Chr$(0))
For i = 0 To Len(crypt) - 1
'暗号化データを戻す
crypt = (nam + key) Mod 256
Next
で、なぜか上の部分で、暗号化データが元に戻っていません。
どうすればいいですか。