RSA Verschlüsselung per DLL

; ============================================================================================================
; Name:				CAPICOM-Beispiel
; ------------------------------------------------------------------------------------------------------------
; Dlls:				capicom.dll
; Dokumentation:	https://msdn.microsoft.com/en-us/library/windows/desktop/aa375732(v=vs.85).aspx
; Download:			http://www.microsoft.com/en-us/download/details.aspx?id=25281
;
; Anmerkung:		Nach der Installation der CAPICOM-SDK musst die capicom.dll manuell registiert werden.
;					Dieses Beispiel wurde mit Windows 8.1 64-Bit Enterprise und AutoIt-Version 3.3.14.1
;					getestet.
; ============================================================================================================


AutoItSetOption('MustDeclareVars', 1)


Dim Const $CAPICOM_ENCRYPTION_ALGORITHM_RC2 = 0 ; Use RSA RC2 encryption.
Dim Const $CAPICOM_ENCRYPTION_ALGORITHM_RC4 = 1 ; Use RSA RC4 encryption.
Dim Const $CAPICOM_ENCRYPTION_ALGORITHM_DES = 2 ; Use DES encryption.
Dim Const $CAPICOM_ENCRYPTION_ALGORITHM_3DES = 3 ;Use triple DES encryption.
Dim Const $CAPICOM_ENCRYPTION_ALGORITHM_AES = 4 ; Use the Advanced Encryption Standard(AES) algorithm.
Dim Const $SECRET_PASSWORD = 'Bzi9i/uEfgg'


; Verschlüsseln
Dim $Encrypter = ObjCreate('CAPICOM.EncryptedData') ; As IEncryptedData
$Encrypter.Content = 'Dies ist eine geheime Nachricht!'
$Encrypter.SetSecret($SECRET_PASSWORD)
$Encrypter.Algorithm.Name = $CAPICOM_ENCRYPTION_ALGORITHM_RC4
Dim $EncryptedText = $Encrypter.Encrypt() ; As String


ConsoleWrite('Verschlüsselter Text: ' &$EncryptedText & @CRLF)


; Entschlüsseln
Dim $Encrypter = ObjCreate('CAPICOM.EncryptedData')
$Encrypter.SetSecret($SECRET_PASSWORD)
$Encrypter.Algorithm.Name = $CAPICOM_ENCRYPTION_ALGORITHM_RC4
$Encrypter.Decrypt($EncryptedText)
Dim $DecryptedText = $Encrypter.Content ; As String


ConsoleWrite('Entschlüsselter Text: ' & $DecryptedText & @CRLF)

; ============================================================================================================
; Name:				CAPICOM-Beispiel
; ------------------------------------------------------------------------------------------------------------
; Dlls:				capicom.dll
; Dokumentation:	https://msdn.microsoft.com/en-us/library/windows/desktop/aa375732(v=vs.85).aspx
; Download:			http://www.microsoft.com/en-us/download/details.aspx?id=25281
;
; Anmerkung:		Nach der Installation der CAPICOM-SDK musst die capicom.dll manuell registiert werden.
;					Dieses Beispiel wurde mit Windows 8.1 64-Bit Enterprise und AutoIt-Version 3.3.14.1
;					getestet.
; ============================================================================================================


AutoItSetOption('MustDeclareVars', 1)


; CAPICOM_ENCRYPTION_ALGORITHM
Dim Const $CAPICOM_ENCRYPTION_ALGORITHM_RC2 = 0 ; Use RSA RC2 encryption.
Dim Const $CAPICOM_ENCRYPTION_ALGORITHM_RC4 = 1 ; Use RSA RC4 encryption.
Dim Const $CAPICOM_ENCRYPTION_ALGORITHM_DES = 2 ; Use DES encryption.
Dim Const $CAPICOM_ENCRYPTION_ALGORITHM_3DES = 3 ; Use triple DES encryption.
Dim Const $CAPICOM_ENCRYPTION_ALGORITHM_AES = 4 ; Use the Advanced Encryption Standard(AES) algorithm.


; CAPICOM_ENCODING_TYPE
Dim Const $CAPICOM_ENCODE_BASE64 = 0 ; Data is saved as a base64-encoded String
Dim Const $CAPICOM_ENCODE_BINARY = 1 ; Data is saved as a pure binary sequence


Dim $Store = ObjCreate('CAPICOM.Store') ; As IStore3
; Store.Open([ ByVal StoreLocation ], [ ByVal StoreName ], [ ByVal OpenMode ])
$Store.Open()


; Certificates.Select([ ByVal Title ], [ ByVal DisplayString ], [ ByVal bMultiSelect ])
Dim $Certificates = $Store.Certificates.Select('Zertifikate', 'Bitte Zertifikat auswählen ...') ; As ICertificates2
If $Certificates >= 1 Then
	Dim $Certificate = $Certificates.Item(1) ; As ICertificate2
	ConsoleWrite('Ausgestellt für:              ' & $Certificate.GetInfo(0) & @CRLF)
	ConsoleWrite('Ausgestellt von:              ' & $Certificate.GetInfo(1) & @CRLF)
	ConsoleWrite('Privater Schlüssel vorhanden: ' & $Certificate.HasPrivateKey() & @CRLF)
	ConsoleWrite('Version:                      ' & $Certificate.Version & @CRLF)
	ConsoleWrite('Gültig ab:                    ' & $Certificate.ValidFromDate & @CRLF)
	ConsoleWrite('Gültig bis:                   ' & $Certificate.ValidToDate & @CRLF)
	ConsoleWrite('Seriennummer:                 ' & $Certificate.SerialNumber & @CRLF)
	ConsoleWrite('Fingerabdruck:                ' & $Certificate.Thumbprint & @CRLF)
	ConsoleWrite(@CRLF)


	Dim $EnvelopedData = ObjCreate('CAPICOM.EnvelopedData') ; As IEnvelopedData
	$EnvelopedData.Algorithm.Name = $CAPICOM_ENCRYPTION_ALGORITHM_RC4
	$EnvelopedData.Content = 'Dies ist eine geheime Nachricht!'
	$EnvelopedData.Recipients.Add($Certificate)


	Dim $EncryptedText = $EnvelopedData.Encrypt($CAPICOM_ENCODE_BASE64) ; As String
	ConsoleWrite('Verschlüsselter Text: ' & $EncryptedText & @CRLF)


	Dim $EncryptedFile = FileOpen('EncryptedFile.txt', 1)
	FileWriteLine($EncryptedFile, $EncryptedText)
	FileClose($EncryptedFile)
EndIf