31-10-2023

EnvelopeGenerator.Common/Helpers.vb

@@ -8,8 +8,10 @@
     ''' <returns>The EnvelopeKey</returns>
     Public Shared Function EncodeEnvelopeReceiverId(pEnvelopeUuid As String, pReceiverSignature As String) As String
         Dim oString = $"{pEnvelopeUuid}::{pReceiverSignature}"
-        'TODO: Verschlüsseln
-        Return oString
+        Dim oBytes = Text.Encoding.UTF8.GetBytes(oString)
+        Dim oBase64String = Convert.ToBase64String(oBytes)
+
+        Return oBase64String
     End Function
 
     ''' <summary>
@@ -18,13 +20,14 @@
     ''' <param name="pEnvelopeReceiverId">The EnvelopeKey</param>
     ''' <returns>A tuple containing EnvelopeUUID and Receiver Signature</returns>
     Public Shared Function DecodeEnvelopeReceiverId(pEnvelopeReceiverId As String) As Tuple(Of String, String)
-        Dim oSplit = pEnvelopeReceiverId.Split(New String() {"::"}, StringSplitOptions.None)
-        'TODO: Entschlüsseln
+        Dim oBytes = Convert.FromBase64String(pEnvelopeReceiverId)
+        Dim oString = Text.Encoding.UTF8.GetString(oBytes)
+        Dim oSplit = oString.Split(New String() {"::"}, StringSplitOptions.None)
+
         Return New Tuple(Of String, String)(oSplit(0), oSplit(1))
     End Function
 
     Public Shared Function GetEnvelopeURL(pHost As String, pEnvelopeUuid As String, pReceiverSignature As String) As String
-
         Dim oEnvelopeUserReference As String = EncodeEnvelopeReceiverId(pEnvelopeUuid, pReceiverSignature)
         Dim oURL As String = String.Format("{0}/EnvelopeKey/{1}", pHost.Trim(), oEnvelopeUserReference)
         Return oURL