Thema Datum  Von Nutzer Rating
Antwort
19.07.2018 14:19:09 Nemo
NotSolved
20.07.2018 00:10:54 Gast24201
NotSolved
Rot RSA Signierung mit VBA über die RSACryptoServiceProvider-Klasse
 20.07.2018 10:03:26 Nemo
NotSolved
21.07.2018 15:49:36 Gast24201
NotSolved
21.07.2018 16:58:53 Nemo
NotSolved
20.07.2018 10:21:46 Gast50217
NotSolved
21.07.2018 16:40:52 Gast24486
NotSolved
21.07.2018 22:18:36 Gast81489
NotSolved

Ansicht des Beitrags:
Von:
Nemo		 Datum:
20.07.2018 10:03:26		 Views:
1671		 Rating:
     
Antwort:
  Ja
Thema:
RSA Signierung mit VBA über die RSACryptoServiceProvider-Klasse

Hallo,

vielen Dank für die ausfürliche Antwort.

 

Mit Visual Studio habe ich bereits gearbeitet und schon einige VSTO Addins für Office erstellt. Das Problem daran ist jedoch das alle Erweiterungen separat installiert werden müssen. Auch Erweiterungen über eine .Net-Dll wären möglich, haben aber ebenfalls das Problem das diese auf jedem Rechner separat Registriert werden müssen um darauf zuzugreifen.

Ich benötige in meinem Fall jedoch eine portable Lösung die ohne Installationen etc. auskommt.

 

Es wundert mich aber weshalb die Methoden .Encrypt(..) und .Decrypt(...) aus der Klasse RSACryptoServiceProvider in VBA funktionieren, die .SignData(...) und .SignHash(...) jedoch nicht. Hängt dies evtl. mit den nur Teilweise vorhandenen COM-Schnittstellen zusammmen?

 

Das nachfolgende Makro für eine Ver- Entschlüsselung läuft Fehlerfrei.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub TestRSAEncDec()
 
    ' Erzeuge Teststring für Verschlüsselung
    Dim dataString As String
    dataString = "Data"
     
    ' Strings -> Byte
    Dim dataByte() As Byte
    dataByte = StrConv(dataString, vbFromUnicode)
     
    'New RSACryptoServiceProvider instance
    Set csp = CreateObject("System.Security.Cryptography.RSACryptoServiceProvider")
     
    'RSA-Encrypt
    Dim encryptedData() As Byte
    encryptedData = csp.Encrypt(dataByte, False)
     
    'RSA-Decrypt
    Dim decryptedData() As Byte
    decryptedData = csp.Decrypt(encryptedData, False)
     
    'Ausgabe
    MsgBox (StrConv(encryptedData, vbUnicode))
    MsgBox (StrConv(decryptedData, vbUnicode))
 
End Sub

 

Viele Grüße !!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.07.2018 14:19:09 Nemo
NotSolved
20.07.2018 00:10:54 Gast24201
NotSolved
Rot RSA Signierung mit VBA über die RSACryptoServiceProvider-Klasse
 20.07.2018 10:03:26 Nemo
NotSolved
21.07.2018 15:49:36 Gast24201
NotSolved
21.07.2018 16:58:53 Nemo
NotSolved
20.07.2018 10:21:46 Gast50217
NotSolved
21.07.2018 16:40:52 Gast24486
NotSolved
21.07.2018 22:18:36 Gast81489
NotSolved