Rückgabewert aus Funktion in Klassenmodul verwende
09.11.2017 11:43:26
Markus
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
Anzeige