ich habe eine Lösung gesucht, wie ich einen Primärschlüssel, den ich aus mehreren Zellen verkettet habe, kürzen kann.
Dabei bin ich auf die Lösung gestossen, lange Strings in einen SHA256 - Wert zu verwandeln.
https://www.herber.de/forum/archiv/1480to1484/1480663_String_in_SHA256_konvertieren__VBACode.html
So weit so gut.
Der Test mit einer Sub funktioniert auch (so hab ich das Ergebnis im Beispiel erzeugt
Public Sub Test()
Dim objCryptoClass As clsSHA256
Set objCryptoClass = New clsSHA256
Debug.Print objCryptoClass.SHA256("DasIstMeinPrimärschlüssel123453")
Set objCryptoClass = Nothing
End Sub
Nur ich benötige ungefähr so:
A1 = "DasIstMeinPrimärschlüssel123453"
B1 Ergebnis = efd5b3e05b4b20113ffeff51e65aa53dd48784644edb29f250869e4550a3d94e
Der Code steht im Klassenmodul clsSHA256 in der Funktion SHA256
Was muss ich machen, damit ich die Funktion verwenden kann ?
Vielen herzlichen Dank für eure Hilfe.
Gruß
Markus