by Tako » 2017年5月10日(水) 09:37
暗号コードでは無く、復元コードで復元しないと戻りませんょ。
よくわからないのですが、こんな感じで良いですか?
コード: 全て選択
Dim crypt As String
Dim i As Byte
Dim Buffer As String
Buffer = "なにぬねの"
Dim key As Long
key = 1
' 暗号化
crypt = String$(Len(Buffer), Chr$(0))
For i = 0 To Len(crypt) - 1
' 文字コードにパスワードの数字を足して暗号化データを作る
crypt = (Buffer + key) Mod 256
Next
Dim Mkey As Long
Mkey = -1 * key
' 復元化
For i = 0 To Len(crypt) - 1
'暗号化データを戻す
crypt = (crypt + Mkey) Mod 256
Next
暗号コードでは無く、復元コードで復元しないと戻りませんょ。
よくわからないのですが、こんな感じで良いですか?
[code]
Dim crypt As String
Dim i As Byte
Dim Buffer As String
Buffer = "なにぬねの"
Dim key As Long
key = 1
' 暗号化
crypt = String$(Len(Buffer), Chr$(0))
For i = 0 To Len(crypt) - 1
' 文字コードにパスワードの数字を足して暗号化データを作る
crypt[i] = (Buffer[i] + key) Mod 256
Next
Dim Mkey As Long
Mkey = -1 * key
' 復元化
For i = 0 To Len(crypt) - 1
'暗号化データを戻す
crypt[i] = (crypt[i] + Mkey) Mod 256
Next
[/code]