ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2017年9月22日(金) 08:03

All times are UTC+09:00




新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 
作成者 メッセージ
 記事の件名: 暗号化
投稿記事Posted: 2017年5月07日(日) 19:42 
オフライン

登録日時: 2016年9月24日(土) 15:35
記事: 62
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[i] = (Buffer[i] + 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[i] = (nam[i] + key) Mod 256
Next
で、なぜか上の部分で、暗号化データが元に戻っていません。
どうすればいいですか。


通報する
ページトップ
 記事の件名: Re: 暗号化
投稿記事Posted: 2017年5月08日(月) 15:49 
オフライン

登録日時: 2016年9月24日(土) 15:35
記事: 62
ようするに、cryptの内容が、『なにぬねの』に戻っていないのです。


通報する
ページトップ
 記事の件名: Re: 暗号化
投稿記事Posted: 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[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


通報する
ページトップ
   
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[1人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by KONISHI Yohsuke