Visual Basic 6. 0 の文字列を暗号化する方法および Visual Basic .NET または Visual Basic 2005 で文字列を暗号化解除する方法

• EncryptGroup という 1 つのプロジェクト グループで 暗号化プロセス コード の Visual Basic 6. 0 のコードを使用して暗号化コードを開発するときに構築します。 このプロジェクト グループには、次の個々 のプロジェクトが含まれています。
  • CryptWrap.vbp - CryptWrap.vbp、プロジェクトでは、clsCryptoAPI.cls という名前ある Visual Basic クラス ファイル含まれています。
  • Encrypt.vbp - Encrypt.vbp、プロジェクトは frmEncFiles.frm というフォームです。
• 復号化プロセスのコード または Visual Basic 2005、コードは、Visual Basic .NET を使用して復号化コードを開発するときに DecryptInVBNET という 1 つのソリューションで構造します。 このソリューションには DecryptInVBNET.vbproj という 1 つの Windows アプリケーション プロジェクトが含まれています。 このプロジェクトに 1 つの Windows が含まれていますフォーム Form1.vb という名前です。

先頭へ戻る

要件

• 暗号化
• Visual Basic 6. 0 で API を使用してください。
• Visual Basic .NET または Visual Basic 2005 で CryptoServiceProvider クラスの使用

• Microsoft Windows Server 2003、Windows 2000、または Microsoft Windows XP
• Microsoft Visual Basic 6. 0 および Microsoft Visual Basic .NET の Microsoft Visual Basic 2005

先頭へ戻る

暗号化および復号化コードします。

元に戻す画像を拡大する

Download the CryptographySample.exe package now. (http://download.microsoft.com/download/a/7/a/a7aac651-eabb-43fe-83c4-343a2b762b07/cryptographysample.exe)

先頭へ戻る

Visual Basic 6. 0 での暗号化

CryptWrap DLL

CryptoWrap DLL

• 変数と、CryptoWrap の DLL を使用する定数を宣言します。
• Visual Basic 6. 0 の面で Advapi32.dll ライブラリ ファイルから 暗号化 API 関数の関数およびサブルーチンの宣言。
• プロパティの関数、およびサブルーチンの宣言。
• 呼び出し元プログラムから、モジュールレベル変数、コード内に割り当てられるパスワード。
  
  メモ このパスワードは CryptoEncrypt 関数は、文字列の暗号化に使用するキーの派生に使用されます。

変数の宣言

    Private Const ALG_CLASS_ANY     As Long = 0
    Private Const ALG_TYPE_ANY      As Long = 0
    Private Const ALG_CLASS_HASH    As Long = 32768
    Private Const ALG_TYPE_BLOCK    As Long = 1536
    Private Const ALG_CLASS_DATA_ENCRYPT  As Long = 24576
    Private Const ALG_SID_RC2       As Long = 2
    Private Const ALG_SID_SHA1      As Long = 4
    ' Hash algorithms
    Private Const CALG_SHA1         As Long = ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_SHA1
    ' Block ciphers
    Private Const CALG_RC2          As Long = ALG_CLASS_DATA_ENCRYPT Or ALG_TYPE_BLOCK Or ALG_SID_RC2
    ' CryptSetProvParam
    Private Const PROV_RSA_FULL        As Long = 1
    ' used when acquiring the provider
    Private Const CRYPT_VERIFYCONTEXT  As Long = &HF0000000
    ' Microsoft provider data
    Private Const MS_DEFAULT_PROVIDER  As String = _
                  "Microsoft Base Cryptographic Provider v1.0"
    ' used to specify not to use any salt value while deriving the key
    Private Const CRYPT_NO_SALT As Long = &H10

Visual Basic 6. 0 の API 宣言

• GetLastError - GetLastError 関数は最後のエラー コードの値を呼び出し側スレッドを取得します。
  
  次のコードは、 GetLastError 関数の例:

  Private Declare Function GetLastError Lib "kernel32" () As Long

• CryptAcquireContext - CryptAcquireContext 関数は、指定された暗号化サービス プロバイダー (CSP) で指定されたキー コンテナーへのハンドルを取得を使用します。 phProv パラメーターは、指定したキー コンテナーへのハンドルを受け取ります。 このハンドルを使用する他の API 関数を呼び出すできます。
  
  次のコードは、 CryptAcquireContext 関数の例:

  Private Declare Function CryptAcquireContext Lib "advapi32.dll" _
                Alias "CryptAcquireContextA" (ByRef phProv As Long, _
                ByVal pszContainer As String, ByVal pszProvider As String, _
                ByVal dwProvType As Long, ByVal dwFlags As Long) As Long

• CryptCreateHash - CryptCreateHash 関数を使って、データのストリームのハッシュを開始します。 CryptCreateHash 関数は、呼び出し元に CSP ハッシュ オブジェクトにハンドルを返します。 セッション キーのハッシュをでは、このハンドルを CryptHashData 関数の呼び出し後で使用することもことができます。 phHash パラメーターは、新しいハッシュ オブジェクトのハンドルを受け取ります。
  
  次のコードは、 CryptCreateHash 関数の例:

  Private Declare Function CryptCreateHash Lib "advapi32.dll" _
                (ByVal hProv As Long, ByVal algid As Long, _
                ByVal hkey As Long, ByVal dwFlags As Long, _
                ByRef phHash As Long) As Long

• CryptHashData - CryptHashData 関数を指定したハッシュ オブジェクトにデータを追加します。 pbData パラメーターがデータのハッシュを含まいます。
  
  次のコードは、 CryptHashData 関数の例:

  Private Declare Function CryptHashData Lib "advapi32.dll" _
                (ByVal hhash As Long, ByVal pbData As String, _
                ByVal dwDataLen As Long, ByVal dwFlags As Long) As Long

• CryptDestroyHash - CryptDestroyHash 関数は、 hHash パラメーターを参照する、ハッシュ オブジェクトを破棄します。
  
  次のコードは、 CryptDestroyHash 関数の例:

  Private Declare Function CryptDestroyHash Lib "advapi32.dll" _
                (ByVal hhash As Long) As Long

• CryptReleaseContext - CryptReleaseContext 関数は、CSP をキー コンテナーのハンドルを解放に使用されます。 hProv パラメーターは、CSP のハンドルです。 hProv パラメーターの値は CryptAcquireContext API 関数を呼び出して取得します。
  
  次のコードは、 CryptReleaseContext 関数の例:

  Private Declare Function CryptReleaseContext Lib "advapi32.dll" _
                (ByVal hProv As Long, ByVal dwFlags As Long) As Long

• CryptDeriveKey - CryptDeriveKey 関数は基本データから派生した暗号キーを生成します。 CryptDeriveKey 関数は常を使用する場合、同一の CSP、同じアルゴリズム、同じ基本データに対して、 CryptDeriveKey 関数を呼び出すたびに、同じ基本データに対して同じキー生成します。
  
  基本データは、パスワードにできます。 パスワードをハッシュし、キーへのハンドルを取得するには、この関数を呼び出しますできます。 phKey パラメーターは、暗号化に使用されるキーへのハンドルを受け取ります。
  
  次のコードは、 CryptDeriveKey 関数の例:

  Private Declare Function CryptDeriveKey Lib "advapi32.dll" _
                (ByVal hProv As Long, ByVal algid As Long, _
                ByVal hBaseData As Long, ByVal dwFlags As Long, _
                ByRef phKey As Long) As Long

• CryptDestroyKey - CryptDestroyKey 関数は hKey パラメーターを参照するハンドルを解放します。 次のコードは、 CryptDestroyKey 関数の例:

  Private Declare Function CryptDestroyKey Lib "advapi32.dll" _
                (ByVal hkey As Long) As Long

• CryptEncrypt - CryptEncrypt 関数はデータの暗号化を使用します。 CSP モジュールを保持するキーは、データの暗号化に使用されるアルゴリズムを指定します。 hKey パラメーターには、このキーを参照します。 次のコードは、 CryptEncrypt 関数の例:

  Private Declare Function CryptEncrypt Lib "advapi32.dll" _
                (ByVal hkey As Long, ByVal hhash As Long, ByVal Final As Long, _
                ByVal dwFlags As Long, ByVal pbData As String, _
                ByRef pdwDataLen As Long, ByVal dwBufLen As Long) As Long

• dest - dest パラメーターが、宛先、コンテンツにコピーされます。
• ソース - ソース パラメーターはソースからのコンテンツはコピー先です。
• バイト - バイト パラメーターはソースから先にコピーされるコンテンツのサイズです。

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
              (dest As Any, source As Any, ByVal bytes As Long)

重要な機能

Public Function Encrypt(Optional intHashType As Integer = 1, _
                            Optional intCipherType As Integer = 1) As Boolean
      Encrypt = CryptoEncrypt(intHashType, intCipherType)
End Function

Private Function CryptoEncrypt(intHashType As Integer, _
                                   intCipherType As Integer) As Boolean

暗号化プロセス

1. CryptoEncrypt 関数は、 GetProvider 関数を呼び出して暗号化処理開始されます。
   
   メモ GetProvider 関数は、プライベート関数です。
2. GetProvider 関数は、CSP のハンドルを取得するには、 CryptAcquireContext API 関数を呼び出します。
3. GetProvider 関数は、ハッシュ オブジェクトのハンドルを取得するには、 CryptCreateHash API 関数を呼び出します。
4. CryptHashData API 関数は、手順 3 で、 GetProvider 関数を取得するハンドルを使用してパスワード テキストをハッシュします。
5. CryptoEncrypt 関数呼び出します、 CryptDeriveKey API 関数し CryptDeriveKey API 関数を使用、ハンドル 2 〜 3 の暗号化キーの派生を GetProvider 関数は、取得の手順でされたこと。
6. CryptoEncrypt 関数は、ハッシュ オブジェクトを破棄するには、 CryptDestroyHash API 関数を呼び出します。
7. 変数の初期化ステートメントは、暗号化された文字列が格納されるバッファーの十分な領域を割り当てます。 次の文字列は十分な領域を割り当てるたとえば:

   lngEnctBuffLen=lngEncDataLength*2

8. CryptoEncrypt 関数は、 CryptEncrypt API 関数を呼び出します。 CryptEncrypt API 関数の入力は、 CryptDeriveKey API 関数は、手順 5 で派生するキーと暗号化する必要のある文字列。
9. CryptEncrypt API 関数は、バッファー内の入力文字列を上書きして暗号化された文字列を格納します。
10. CryptoEncrypt 関数は、キーを破棄には、 CryptDestroyKey API 関数を呼び出します。
11. CryptoEncrypt 関数は、ハッシュ オブジェクトを破棄するには、 CryptDestroyHash API 関数を呼び出します。

先頭へ戻る

プログラムを暗号化します。

ユーザー インターフェイス

• 暗号化するファイルの完全な path\filename を入力してください。
• 暗号化されたファイルの名前と場所
  
  メモ このテキスト ボックスは読み取り専用です。

• 暗号化
• 終了

重要な機能

Private Sub Encrypt_File()

• clsCryptoAPI クラスのオブジェクトを CryptoWrap の DLL に作成します。
• 基本的な検証のタスクをファイルの存在を確認するような実行します。
• [パスワード] フィールドおよび clsCryptoAPI クラス オブジェクトの InputData フィールドには、初期化します。
• clsCryptoAPI クラス オブジェクトの 暗号化 関数を呼び出します。
  
  メモ clsCryptoAPI クラス オブジェクトには、 intHashType パラメーターは、SHA1 アルゴリズム値 4 に設定され、 intCipherType パラメーターは、RC2 アルゴリズム値 2 に設定されます。
• clsCryptoAPI クラス オブジェクトの OutputData フィールドには、作成します。

先頭へ戻る

DecryptInVBNET プログラム

ユーザー インターフェイス

• 復号化するファイルの完全な path\filename を入力してください。
• 復号化されたファイルの名前と場所
  
  メモ このテキスト ボックスは読み取り専用です。

• 復号化
• 終了

重要な機能

Private Sub Decrypt_File()

• CspParameter クラスのオブジェクトを作成します。 このオブジェクトは、CSP の暗号化計算を実行するにはパラメーターを渡すために使用します。
• PasswordDeriveBytes クラスのオブジェクトを作成します。 このオブジェクトは、指定されたパスワードからキーを派生させるために使用します。
  
  メモ わかりやすくするために、パスワードは、プログラムでハードコーディングです。
• PasswordDeriveBytes クラスの CryptDeriveKey メソッドを呼び出します。 このメソッドは、出力データとして、キーを示します。 キー入力のデータをに基づいてください。

先頭へ戻る

コードを実行する手順

プログラムを暗号化します。

1. Visual Basic 6. 0 で EncryptGroup プロジェクト グループを開きます。 これを行うには、 EncryptGroup.vbg ファイルをダブルクリックします。 EncryptGroup.vbg ファイルが、C:\CryptographySample\EncryptInVB6 にあるフォルダー。
2. メニューの 実行 Visual Basic 6. 0 で、クリックして 完全コンパイル後に開始 します。 Windows フォーム Form1 という名前が表示されます。 Form1 は、暗号化プログラムのユーザー インターフェイスです。
3. 暗号化するファイルの完全な path\filename を入力してください ] ボックスに、[暗号化する必要のあるファイルのパスを入力します。 サンプル ファイルの暗号化プログラムに付属するを使用して、次の入力: します
   c:\CryptographySample\input.txt
4. Tab キーを押します。 暗号化された文字列が格納されるファイルの名前は、 名と暗号化されたファイルの場所 ボックスで表示されます。
   
   メモ この例では、暗号化されたファイルのパスが C:\CryptographySample\Input.enc です。
5. 暗号化 ] をクリックします。 暗号化ファイルの メッセージ ボックスが表示されます。
6. [ OK] をクリックします。
7. アプリケーションを終了の 終了 ] クリックします。

DecryptInVBNET プログラム

1. Microsoft Visual Studio .NET 2002年で DecryptInVBNET ソリューションを開きます。 この DecryptInVBNET.sln をダブルクリック ファイル。 DecryptInVBNET.sln ファイルは、C:\CryptographySample\DecryptInVBNET フォルダーにあります。
   
   メモ Microsoft Visual Studio .NET 2003年または Microsoft Visual Studio 2005 を使用している場合] ダイアログ ボックスをプロジェクトとソリューションを Microsoft Visual Studio .NET 2003年または Microsoft Visual Studio 2005 にアップグレードする求めるが表示されます。 [はい] をクリックします。
2. メニューの [デバッグ Visual Studio .NET または Visual Studio 2005 で] をクリック 開始 します。 Windows フォーム Form1 という名前が表示されます。 Form1 は、DecryptInVBNET のユーザー インターフェイスですプログラム。
3. 復号化するファイルの完全な path\filename を入力してください ] ボックスに、[暗号化を解除するファイルのパスを入力します。 DecryptInVBNET プログラムに付属するサンプル ファイル使用して、次の入力: します
   c:\CryptographySample\input.enc
4. Tab キーを押します。 復号化された文字列が格納されるファイルの名前は、 名前と復号化されたファイルの場所 ボックスで表示されます。
   
   メモ この例では、復号化されたファイルのパスが C:\CryptographySample\Input.dec です。
5. 復号化 ] をクリックします。 DecryptInVBNET のメッセージ ボックスが表示されます。
6. [ OK] をクリックします。
7. アプリケーションを終了の 終了 ] クリックします。

先頭へ戻る