ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 07:25

全ての表示時間は UTC+09:00 です




返信する
ユーザー名:
件名:
メッセージ本文:
メッセージを入力してください。60000 字まで入力できます。 

フォントサイズ:
フォントカラー
オプション:
BBCode: ON
[img]: ON
[flash]: OFF
[url]: ON
スマイリー: OFF
BBCode を無効にする
URL を自動的にパースしない
クイズ
お手数ですがカタカナで「エービー」と4文字を入力してください。:
答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
   

トピックのレビュー - 暗号化
作成者 メッセージ
  記事の件名:  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
投稿記事 Posted: 2017年5月10日(水) 09:37
  記事の件名:  Re: 暗号化  引用付きで返信する
ようするに、cryptの内容が、『なにぬねの』に戻っていないのです。
投稿記事 Posted: 2017年5月08日(月) 15:49
  記事の件名:  暗号化  引用付きで返信する
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

で、なぜか上の部分で、暗号化データが元に戻っていません。
どうすればいいですか。
投稿記事 Posted: 2017年5月07日(日) 19:42

全ての表示時間は UTC+09:00 です


ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean