einbinden von DLL´s und testen ob DLL eingebunden ist
14.02.2024 14:02:07
Marc Franz
ich hab mal zwei kleinere Fragen.
Ich habe ein VBA Projekt, in dem sich der Benutzer einloggt (Benutzernamen und Passwort)...
Mit den Daten meldet sich dann das Projekt an einer Datenbank an.
Dabei wird das Passwort durch
Public Function toMD5(ByVal s As String) As String
ThisWorkbook.Activate
Dim enc As Object
Dim bytes() As Byte
Dim pos As Long
Dim outstr As String
Set enc = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
bytes = StrConv(s, vbFromUnicode)
bytes = enc.ComputeHash_2(bytes)
'Set enc = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
For pos = LBound(bytes) To UBound(bytes)
outstr = outstr & LCase(Right("0" & Hex(bytes(pos)), 2))
Next pos
toMD5 = outstr
Set enc = Nothing
mit MD5 verschlüsselt..
Nun habe ich aber festgestellt das nicht jeder Rechner im Netzwerk die entsprechende DLL System.Security.Cryptography auf dem Rechner hat.
Dadurch kann auf manchen Rechnern entsprechend nicht die Funktion ausgeführt werden, womit auch die Anmeldung dann fehlschlägt.
Nun meine Frage, kann ich eine Version der DLL (die soll dann auf einem Netzlaufwerk liegen) einbinden, damit ich diese einbinden kann (und wie ich einbinde)
und die zweite Frage, ist es möglich zu testen, ob eine DLL eingebunden bzw. vorhanden ist, ?