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
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