【テクニカル・上級編】【上級プロフェッショナル向け】「教育版スタンプ」汚染の自動検知と保存ブロック：商用プロジェクトへの混入を防ぐガード機能 – AutoCAD VBA解析バイブル

「教育版汚染」の遮断：商用プロジェクトを守るためのバイナリ・ガード・アーキテクチャ

設計業務における「コンプライアンス」は、単なるスローガンではない。それは、企業の存続を左右する法的防壁である。

AutoCADの教育版（Student Version）で作成された図面には、特定のメタデータや拡張データ（XData）、あるいはバイナリヘッダー内に「教育用」であることを示すシグネチャが残留する。これを誤って商用プロジェクトのマスターデータとして保存、あるいは統合してしまった場合、その図面を介して汚染はプロジェクト全体へと伝播する。

本稿では、シニアエンジニアやシステム管理者が直面するこの「デジタル汚染」に対し、VBAを用いていかにして低レイヤーでの検知と、保存プロセスの強制介入を行うか。その極限の設計手法を詳解する。

1. 検知戦略：メタデータへの依存を捨てる

一般的なエンジニアは、`ActiveDocument.SummaryInfo` や特定のプロパティをスキャンしようとする。しかし、それは浅すぎる。悪意ある、あるいは不注意なユーザーがプロパティを書き換えていれば、その検知手法は無効化される。

真のアーキテクトは、ファイルそのもののバイナリ構造、あるいはAutoCADの内部辞書（Dictionary）に含まれる、改ざん困難な低レイヤーのシグネチャをターゲットにする。

検知の2段階アプローチ

1. ファイル・ヘッダー・スキャン: ファイルを開く直前、あるいは開いた直後に `ADODB.Stream` を用いてバイナリとして読み込み、特定のパターン（例：教育版特有の定数や文字列）を高速にスキャンする。
2. 辞書オブジェクトの走査: AutoCADの `ExtensionDictionary` 内に存在する、ライセンス情報を保持する内部オブジェクトの存在を確認する。

2. 実装：ADODB.Streamによる高速バイナリ・スキャン

標準の `Open #1` ステートメントによるバイナリ読み込みは、大規模なDWGファイルにおいてはパフォーマンスのボトルネックとなる。ここでは、メモリ効率と速度に優れた `ADODB.Stream` を利用した、ファイル・シグネチャ検知のコアロジックを示す。

' -----------------------------------------------------------------------------
' Module: modSecurityGuard
' Purpose: バイナリレベルでの教育版シグネチャ検知
' -----------------------------------------------------------------------------
Option Explicit

Private Const SIG_EDUCATIONAL_PATTERN As String = "STUDENT_VERSION_MARKER" ' 仮のシグネチャ

''' <summary>
''' ファイルをバイナリモードで開き、特定のパターンが含まれているか検証する
''' </summary>
''' <param name="filePath">対象のDWGファイルパス</param>
''' <returns>汚染されている場合はTrue</returns>
Public Function IsFileContaminated(ByVal filePath As String) As Boolean
    Dim stream As Object ' ADODB.Stream
    Dim binaryData As Variant
    Dim searchString As String
    
    On Error GoTo ErrorHandler
    
    ' ADODB.Streamのインスタンス化（Late Bindingによる互換性確保）
    Set stream = CreateObject("ADODB.Stream")
    
    With stream
        .Type = 1 ' adTypeBinary
        .Open
        .LoadFromFile filePath
        
        ' パフォーマンス最適化のため、全データを一度に読み込むのではなく
        ' 最初の数MB、あるいは特定のオフセットのみをスキャンするのが定石だが
        ' ここでは概念を示すため全読み込みとする
        binaryData = .Read
        .Close
    End With
    
    ' バイナリデータを文字列に変換してパターンマッチング
    ' 注意: 実際の運用ではバイナリ比較（Byte配列の比較）が最も高速かつ正確
    searchString = StrConv(binaryData, vbUnicode)
    
    If InStr(1, searchString, SIG_EDUCATIONAL_PATTERN, vbTextCompare) > 0 Then
        IsFileContaminated = True
    Else
        IsFileContaminated = False
    End If

CleanUp:
    Set stream = Nothing
    Exit Function

ErrorHandler:
    Debug.Print "Critical Error in IsFileContaminated: " & Err.Description
    IsFileContaminated = False ' エラー時は安全側に倒すか、運用ポリシーに基づき判断
    Resume CleanUp
End Function

3. 保存ブロックの実装：`Document_BeforeSave` への介入

検知しただけでは不十分だ。最も重要なのは、「汚染された図面を商用環境のストレージに書き込ませない」というガードレールである。AutoCAD VBAの `Document_BeforeSave` イベントを利用し、保存プロセスを強制終了させる。

この際、単に `MsgBox` を出すだけでは、ユーザーは無視して保存を強行しようとする。アーキテクトとしては、`End` ステートメントによるプロセスの制御、あるいは例外を発生させて保存操作を無効化する設計が求められる。

' -----------------------------------------------------------------------------
' Object: ThisDrawing (ThisDrawingモジュール内に記述)
' Purpose: 保存直前のイベントハンドラによるガード機能
' -----------------------------------------------------------------------------
Option Explicit

Private Sub Document_BeforeSave(ByVal SaveSuccess As Boolean)
    ' 保存が既にキャンセルされている場合は何もしない
    If Not SaveSuccess Then Exit Sub

    Dim filePath As String
    filePath = ThisDrawing.FullName

    ' 新規図面（まだ保存されていない図面）の場合は、パスが存在しないためスキップ
    If filePath = "" Then Exit Sub

    ' 汚染検知ロジックの呼び出し
    If modSecurityGuard.IsFileContaminated(filePath) Then
        ' 警告の表示
        MsgBox "【警告】重大なコンプライアンス違反を検知しました。" & vbCrLf & _
               "この図面は教育版ライセンスで作成された形跡があります。" & vbCrLf & _
               "商用プロジェクトへの混入を防ぐため、保存を強制ブロックします。", _
               vbCritical, "Security Guard System"

        ' 保存をキャンセルさせるためのフラグ操作
        ' VBAのイベントハンドラ内でSaveSuccessをFalseに制御する
        ' ※環境によっては、保存プロセスを完全に止めるためにエラーを発生させる手法が有効
        Err.Raise vbObjectError + 513, "SecurityGuard", "Contaminated file detected."
    End If
End Sub

4. メモリ管理とオブジェクトのライフサイクル：伝説の作法

VBAを大規模システムに組み込む際、多くのエンジニアが陥る罠が「メモリリーク」と「COMオブジェクトの残留」である。特に、AutoCADのような巨大なアプリケーション上で、頻繁にファイルスキャンを行うガード機能を動かす場合、オブジェクトの解放は「作法」ではなく「義務」である。

徹底すべき3原則

1. 明示的な `Nothing` 代入:
`Set stream = Nothing` は、単なる清掃ではない。COM参照カウントを確実にゼロにし、AutoCADのメインスレッドがメモリの断片化（Fragmentation）によって不安定になるのを防ぐための防衛策である。
2. Late Binding（遅延結合）の戦略的利用:
`ADODB.Stream` を利用する際、参照設定（Early Binding）を行うと、ライブラリのバージョン不整合がシステム全体のクラッシュを招く。堅牢性を重視するエンタープライズ環境では、`CreateObject` による遅延結合を選択すべきである。
3. エラーハンドリングの階層化:
低レイヤーのバイナリ操作は、ファイルロック（他のプロセスが使用中）やアクセス権限エラーに極めて脆弱である。`On Error GoTo` を用いたクリーンアップ・ルーチンを必ず実装し、エラー発生時もオブジェクトの解放プロセスをバイパスさせない設計にせよ。

結論：エンジニアリングによるリスクの制御

「教育版の混入」は、技術的なミスではなく、管理上のリスクである。しかし、そのリスクを「人の注意」に頼るのではなく、「コードによる自動検知と強制執行」へと昇華させることこそが、我々シニアエンジニアに課せられた責務である。

バイナリレベルでの検知、イベント駆動による保存ブロック、そして厳格なメモリ管理。これらを組み合わせたガード・アーキテクチャは、企業の知的財産と信頼を守る、最も強力な盾となるだろう。