ab.com コミュニティ https://www.activebasic.com/forum/ |
|
暗号化 https://www.activebasic.com/forum/viewtopic.php?t=4616 |
ページ 1 / 1 |
作成者: | TISAproject [ 2017年5月07日(日) 19:42 ] |
記事の件名: | 暗号化 |
http://orios.s151.xrea.com/activebasic/ ... 1-5-3.html これを利用して、 コード: 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 で、なぜか上の部分で、暗号化データが元に戻っていません。 どうすればいいですか。 |
作成者: | TISAproject [ 2017年5月08日(月) 15:49 ] |
記事の件名: | Re: 暗号化 |
ようするに、cryptの内容が、『なにぬねの』に戻っていないのです。 |
作成者: | Tako [ 2017年5月10日(水) 09:37 ] |
記事の件名: | Re: 暗号化 |
暗号コードでは無く、復元コードで復元しないと戻りませんょ。 よくわからないのですが、こんな感じで良いですか? コード: 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 |
ページ 1 / 1 | 全ての表示時間は UTC+09:00 です |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |