掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VB６とMYSQLで暗号化通信するためには (ID:102210)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
MySQLのテーブル内に格納された、暗号化されたレコードを復号化してVB6のテキストボックスに表示したいのですが、うまくできません。 暗号化・複合化ともにVB6の方で行っています。 以下が暗号化に使用したプログラムを抜粋したものです。 cn.Execute "insert into touroku2(no,Name,pass,nicname,flag) values ('5','" & name & "',HEX(AES_ENCRYPT('" & pass2 & "','key')),'" & nicname & "','0')" MySQL内のテーブルの項目「no」、「Name」、「pass」、「nicname」、「flag」にそれぞれ「5」、変数「name」の内容、暗号化した「pass2」の内容、変数「nicname」の内容、「0」を挿入しています。テーブルの項目「pass」はVARCHAR型となっております。 そして以下のプログラムが復号して変数に代入するプログラムなのですが、上手くできません。 Set rs = cn.Execute("SELECT pass as no1 FROM touroku2 WHERE AES_DECRYPT(UNHEX(pass),'key') = text1") text2.text= rs.Fields("no1").Value テーブルの項目「pass」を複合化し、その内容とVB6内のテキストボックス「text1」に入力された内容が同じものを変数「no1」に代入し、その内容をテキストボックス「text2」に表示させたいです。 no1をByte型にしたら０が表示されました。 説明がわかりにくいですけど、ご教授お願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.