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」を挿入しています。
そして以下のプログラムが復号して変数に代入するプログラムなのですが、上手くできません。
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」に表示させたいです。
説明がわかりにくいですけど、ご教授お願いします。