質問編集履歴

業務内容漏洩リスクへの対応。

2023/09/29 06:42

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -1,208 +1,7 @@
-### 実現したいこと
+### 2023年9月29日　修正
+業務内容漏洩リスクを指摘されたため、質問の内容を伏せさせていただきます。
+協力していただいた方々、大変申し訳ありません。
-VB6からDLLを呼び出してメール送信を実行していました。
-ですが、そのDLL内の動作仕様を変える必要が出てきました。
+動作はできたもののまだテストはしていない状況です。
+テストが通り世に出回りましたら、ブログなど何らかの方法で公開させていただきます。
-VB6はソースコードは残っているもののサードパーティモジュールが既に存在せず、開発環境を作成することができないため、VB6側は変更できません。
-DLL入れ替えのみによって実現したく、前回質問のお助けにより、
-C#.NETにてDLLを作成し、VB6側からの呼び出しまでは成功しました。
-https://teratail.com/questions/n25uag7iu7y5t4
-しかし、VB6から実行すると
-```
-エラーが発生しました: ファイルまたはアセンブリ 'System.Runtime.CompilerServices.Unsafe, Version=4.0.4.1, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a'、またはその依存関係の 1 つが読み込めませんでした。見つかったアセンブリのマニフェスト定義はアセンブリ参照に一致しません。 (HRESULT からの例外:0x80131040)
-```
-となります。
-MailKitなど別DLLもVB6の実行フォルダに置いてはいるのですが、参照ができないようです。
-### 追記
-ログを埋め込んでみると、
-```
-var message = new MimeMessage();
-```
-のところで落ちているようです。
-C#で作成したdllからは参照できていないようです。
-### VB6
-VB6側の定義は、このようにして、smtpmail.dllを呼び出しています。
-```
-'メール送信関数定義
-Private Declare Function SendMail Lib "smtpmail" _
-      (sServer As String, sTo As String, sFrom As String, _
-      sSubject As String, sBody As String, sFile As String) As String
-```
-### C#
-下記のように実装し、DllExport.bat を使う方法でsmtpmail.dllを作成しました。
-「C++からC# DLL を直接利用する方法」
-https://qiita.com/Midoliy/items/58d56e202f104ebf867a
-```
-using System;
-using System.IO;
-using System.Threading.Tasks;
-using MimeKit;
-using MimeKit.Text;
-using MailKit.Net.Smtp;
-using MailKit.Security;
-using System.Runtime.InteropServices;
-using System.Security.Cryptography.X509Certificates;
-using System.Net.Security;
-using System.Text;
-using System.Linq;
-using System.Text.RegularExpressions;
-namespace smtpmail
-{
-    public class smtpmail
-    {
-        // VB6から呼び出す関数の宣言
-        [DllExport(CallingConvention.StdCall)]
-        public static IntPtr SendMail(
-            ref IntPtr szServer, ref IntPtr szTo, ref IntPtr szFrom,
-            ref IntPtr szSubject, ref IntPtr szBody, ref IntPtr szFile)
-        {
-```
-ファイル構成
-同一フォルダ内
-```
-mailsys.exe（VB6アプリケーション）
-smtpmail.dll（C#で作成したレガシーDLL。メール送信を担う）
-BouncyCastle.Cryptography.dll（ビルドフォルダに出力されたdll。以下同様）
-MailKit.dll
-MimeKit.dll
-System.Buffers.dll
-System.Formats.Asn1.dll
-System.Memory.dll
-System.Numerics.Vectors.dll
-System.Runtime.CompilerServices.Unsafe.dll
-System.Threading.Tasks.Extensions.dll
-System.ValueTuple.dll
-```
-### 2023年9月24日の状況
-smtpmail.dll内でログを仕込みましたが、VB6からのパラメータは受け取ることが出来ています。
-そのあとのメール送信処理で落ちている模様です。
-### 2023年9月26日時点　VB6→C#で作成したレガシーDLL→C#で作成したMailkit送信DLLの３つに分けてみました。
-C#で作成したレガシーDLLはVB6とMailkit送信DLLの橋渡しを担います。
-### VB6（開発環境作成できないため変更不可）
-```
-'メール送信関数定義
-Private Declare Function SendMail Lib "smtpmail" _
-      (sServer As String, sTo As String, sFrom As String, _
-      sSubject As String, sBody As String, sFile As String) As String
-```
-### C#で作成したレガシーDLL
-DllExport.batでVB6から呼び出せるようにしています。
-このやり方だとMailkit使用時に例外になるため、Mailkit送信処理はDLLに分けました。
-```
-namespace smtpmail
-{
-    public class smtpmail
-    {
-        // VB6のメール送信関数定義　これでdllのメール送信関数を呼んでいる。
-        //Private Declare Function SendMail Lib "smtpmail" _
-        //      (szServer As String, szTo As String, szFrom As String, _
-        //      szSubject As String, szBody As String, szFile As String) As String
-        // VB6から呼び出す関数の宣言
-        [DllExport(CallingConvention.StdCall)]
-        public static IntPtr SendMail(
-            ref IntPtr szServer, ref IntPtr szTo, ref IntPtr szFrom,
-            ref IntPtr szSubject, ref IntPtr szBody, ref IntPtr szFile)
-        {
-            try
-            {
-                ==== 中略（文字コードをutf8にするなど） ====
-                // 正常なら1、異常なら2を返す
-                return ResultString(SendMail(utf8sSubject, utf8sBody, sendName, sendAddress, "", utf8sTo, smtpSrv, portNo, mailAccount, mailPassword));
-            }
-            catch (Exception ex)
-            {
-                return ResultString("2");
-            }
-        }
-        // Mailkit送信DLLを呼び出す
-        [DllImport("mailkitsendmail.dll",CharSet = CharSet.Unicode)]
-        private static extern string SendMail(
-            string Subject,
-            string BodyText,
-            string From_Name,
-            string From_Address,
-            string To_Name,
-            string To_Address,
-            string SMTPServer,
-            int Port,
-            string Auth_Username,
-            string Auth_Password);
-    }
-}
-```
-### C#で作成したMailkit送信DLL
-```
-namespace mailkitsendmail
-{
-    [Guid("XXXXXX-XXXXX-XXXXX-XXXX-XXXXXXX")]
-    [InterfaceType(ComInterfaceType.InterfaceIsDual)]
-    public interface Imailkitsendmail
-    {
-        [ComVisible(true)] // COM相互運用を有効にする
-        string SendMail(
-            string Subject,
-            string BodyText,
-            string From_Name,
-            string From_Address,
-            string To_Name,
-            string To_Address,
-            string SMTPServer,
-            int Port,
-            string Auth_Username,
-            string Auth_Password);
-    }
-    [Guid("XXXXXX-XXXXX-XXXXX-XXXX-XXXXXXX")]
-    [ComVisible(true)] // COM相互運用を有効にする
-    [ClassInterface(ClassInterfaceType.None)]
-    [ComDefaultInterface(typeof(Imailkitsendmail))]
-    public class mailkitsendmail:Imailkitsendmail
-    {
-        [ComVisible(true)] // COM相互運用を有効にする
-        public string SendMail(
-            string Subject,
-            string BodyText,
-            string From_Name,
-            string From_Address,
-            string To_Name,
-            string To_Address,
-            string SMTPServer,
-            int Port,
-            string Auth_Username,
-            string Auth_Password)
-        {
-               === 以下送信処理実装===
-```
-COMアセンブリ登録x86指定でビルドし
-dll作成後に、COMオブジェクトを登録しました。
-```
-regasm /codebase mailkitsendmail.dll
-```
-### 2023年9月26日時点　現在の状況
-橋渡し用のDLLのログからは下記エラーが出力されていました。
-メール送信用の関数が見つからないようです。
-```
-エラーが発生しました: DLL 'mailkitsendmail.dll' の 'SendMail' というエントリ ポイントが見つかりません。
-```

VB DLL C#

2023年9月26日にレガシーDLLは送信DLLの橋渡しとすることを試してみました。

2023/09/26 06:05

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -85,7 +85,124 @@
 System.ValueTuple.dll
 ```
-### 現在の状況
+### 2023年9月24日の状況
 smtpmail.dll内でログを仕込みましたが、VB6からのパラメータは受け取ることが出来ています。
 そのあとのメール送信処理で落ちている模様です。
+### 2023年9月26日時点　VB6→C#で作成したレガシーDLL→C#で作成したMailkit送信DLLの３つに分けてみました。
+C#で作成したレガシーDLLはVB6とMailkit送信DLLの橋渡しを担います。
+### VB6（開発環境作成できないため変更不可）
+```
+'メール送信関数定義
+Private Declare Function SendMail Lib "smtpmail" _
+      (sServer As String, sTo As String, sFrom As String, _
+      sSubject As String, sBody As String, sFile As String) As String
+```
+### C#で作成したレガシーDLL
+DllExport.batでVB6から呼び出せるようにしています。
+このやり方だとMailkit使用時に例外になるため、Mailkit送信処理はDLLに分けました。
+```
+namespace smtpmail
+{
+    public class smtpmail
+    {
+        // VB6のメール送信関数定義　これでdllのメール送信関数を呼んでいる。
+        //Private Declare Function SendMail Lib "smtpmail" _
+        //      (szServer As String, szTo As String, szFrom As String, _
+        //      szSubject As String, szBody As String, szFile As String) As String
+        // VB6から呼び出す関数の宣言
+        [DllExport(CallingConvention.StdCall)]
+        public static IntPtr SendMail(
+            ref IntPtr szServer, ref IntPtr szTo, ref IntPtr szFrom,
+            ref IntPtr szSubject, ref IntPtr szBody, ref IntPtr szFile)
+        {
+            try
+            {
+                ==== 中略（文字コードをutf8にするなど） ====
+                // 正常なら1、異常なら2を返す
+                return ResultString(SendMail(utf8sSubject, utf8sBody, sendName, sendAddress, "", utf8sTo, smtpSrv, portNo, mailAccount, mailPassword));
+            }
+            catch (Exception ex)
+            {
+                return ResultString("2");
+            }
+        }
+        // Mailkit送信DLLを呼び出す
+        [DllImport("mailkitsendmail.dll",CharSet = CharSet.Unicode)]
+        private static extern string SendMail(
+            string Subject,
+            string BodyText,
+            string From_Name,
+            string From_Address,
+            string To_Name,
+            string To_Address,
+            string SMTPServer,
+            int Port,
+            string Auth_Username,
+            string Auth_Password);
+    }
+}
+```
+### C#で作成したMailkit送信DLL
+```
+namespace mailkitsendmail
+{
+    [Guid("XXXXXX-XXXXX-XXXXX-XXXX-XXXXXXX")]
+    [InterfaceType(ComInterfaceType.InterfaceIsDual)]
+    public interface Imailkitsendmail
+    {
+        [ComVisible(true)] // COM相互運用を有効にする
+        string SendMail(
+            string Subject,
+            string BodyText,
+            string From_Name,
+            string From_Address,
+            string To_Name,
+            string To_Address,
+            string SMTPServer,
+            int Port,
+            string Auth_Username,
+            string Auth_Password);
+    }
+    [Guid("XXXXXX-XXXXX-XXXXX-XXXX-XXXXXXX")]
+    [ComVisible(true)] // COM相互運用を有効にする
+    [ClassInterface(ClassInterfaceType.None)]
+    [ComDefaultInterface(typeof(Imailkitsendmail))]
+    public class mailkitsendmail:Imailkitsendmail
+    {
+        [ComVisible(true)] // COM相互運用を有効にする
+        public string SendMail(
+            string Subject,
+            string BodyText,
+            string From_Name,
+            string From_Address,
+            string To_Name,
+            string To_Address,
+            string SMTPServer,
+            int Port,
+            string Auth_Username,
+            string Auth_Password)
+        {
+               === 以下送信処理実装===
+```
+COMアセンブリ登録x86指定でビルドし
+dll作成後に、COMオブジェクトを登録しました。
+```
+regasm /codebase mailkitsendmail.dll
+```
+### 2023年9月26日時点　現在の状況
+橋渡し用のDLLのログからは下記エラーが出力されていました。
+メール送信用の関数が見つからないようです。
+```
+エラーが発生しました: DLL 'mailkitsendmail.dll' の 'SendMail' というエントリ ポイントが見つかりません。
+```

VB DLL C#

エラー発生箇所を追記しました。

2023/09/22 09:06

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -18,7 +18,13 @@
 MailKitなど別DLLもVB6の実行フォルダに置いてはいるのですが、参照ができないようです。
+### 追記
+ログを埋め込んでみると、
+```
+var message = new MimeMessage();
+```
+のところで落ちているようです。
+C#で作成したdllからは参照できていないようです。
 ### VB6
 VB6側の定義は、このようにして、smtpmail.dllを呼び出しています。

VB DLL C#