Office: (Office 2003) 32 stellige Hexadecimalzahl in Decimalzahl umwandeln

Eva08 · 12. Dezember 2009

Hallo alle mit einander,

ich habe folgendes Problem:

eine 32 stellige Hexa Zahl in eine 40 stellige Decimal Zahl umzuwandeln.

Mit der Cdec() funktionieren nur 16 stellen Hexa, danach erhalte ich einen Überlauf.

Gibt es überhaupt einen Variablentyp der 40 stellen anzeigen kann? Cdec() liefert ja einen Variant zurück. Wobei mir aber nur 20 stellen angezeigt werden, die 1te ist mit Minus versehen.

Zur Erklärung:
Ich muss eine Zeichenkette mit MD5-Hash kodieren. Diese gibt mir eine 32stellige Hexadecimal-Zahl zurück. Daraus muss eine 40stellige Decimal-Zahl gebildet werden.

Über eine Antwort würde ich mich sehr freuen.

:)

Großer Meister · 14. Dezember 2009

hier ist ein Link mit .net Code, um mit MD5 zu verschlüsseln. Daraus kannst du eine .net dll erstellen.
Diese dll kann man in VBA einbinden.
Eine Anleitung, wie man .net dlls in VBA verwendet gibt es hier

Eva08 · 14. Dezember 2009

Hallo Großer Meister,

die md5 habe ich schon eingebunden, das klappt alles wunderbar. Ich muss nur aus dem Resultat ( 32stellen Hexa) eine 40 stellige Decimalzahl bilden.

Das habe ich mit der Funktion Cdec() ausprobiert. Diese kann aber nur 16stellen Hexa umwandeln.

Daher meine Frage, ob es vielleicht noch etwas anderes gibt.
Zumal der Variant-Typ nur 28 Dezimalstellen anzeigt. Oder?

Vielen Dank

FW · 14. Dezember 2009

... der Variant-Typ ist kein eigenständiger Datentyp, sondern gibt immer einen der Grunddatentypen wieder! Insofern hat dieser Datentyp auch keine eigene Genauigkeit, sondern die Genauigkeit des Datentypen, den er gerade annimmt.
In VB gibt es keinen numerischen Datentypen, der eine Genauigkeit von 40 Stellen besitzt, daher wird es Dir auch nicht so ohne weiteres gelingen, eine solche Dezimalzahl anzuzeigen...

Eva08 · 14. Dezember 2009

Hallo FW,

wie kann ich dieses Problem lösen?

Kann ich überhaupt mit 40 stellen rechnen?

FW · 14. Dezember 2009

... Du könntest die Hex-Ziffern selbst in einen dezimalen String umwandeln: Code:

Public Function Hex2DecStr(ByVal strHex As String) As String
Const cstDigits As String = "0123456789ABCDEF"

Dim intVar As Integer
Dim strRet As String

' Check Input
For intVar = 1 To 16
If InStr(1, cstDigits, Mid$(strHex, intVar, 1), vbTextCompare) = 0 Then Err.Raise 5
Next intVar

' Convert To Decimal
For intVar = Len(strHex) To 1 Step -1
strRet = IntAddition(IntMultiply("16", strRet), Trim$(Str$(InStr(1, cstDigits, Mid$(strHex, intVar, 1), vbTextCompare) - 1)))
Next intVar

Hex2DecStr = strRet
End Function

Public Function IntAddition(ByVal FirstNum As String, ByVal SecondNum As String) As String
Dim a As Long, DifLen As Long, TempStr As String, TempNum As Integer
Dim Num1 As String, Num2 As String, TempNum1 As Integer, TempNum2 As Integer
Dim CarryOver As Integer, LeftOvers As Long
'Setup the numbers so that they are easier to handle.
'I originally had about 10 nested if statements that this block
'of code simplifies Dramatically.
If Len(FirstNum) >= Len(SecondNum) Then
Num1 = FirstNum
Num2 = SecondNum
Else
Num2 = FirstNum
Num1 = SecondNum
End If

'Just setup some of the variables that need an initial value
DifLen = Len(Num1) - Len(Num2)
CarryOver = 0
LeftOvers = DifLen

'Ok, now for the real math. Looping from the end of the numbers
'just like our preschool teachers taught us, we add numbers that
'line up in the 'places' (I.E. ones, tens, hundreds, thousands, etc)
For a = Len(Num2) To 1 Step -1
TempNum1 = Int(Mid(Num1, a + DifLen, 1))
TempNum2 = Int(Mid(Num2, a, 1))
TempNum = TempNum1 + TempNum2 + CarryOver
CarryOver = TempNum \ 10
TempStr = (TempNum - (CarryOver * 10)) & TempStr
Next a

'What do we do if there is a 1 or a 2 that carries over outside the
'numbers that line up in the places, well, we do the following block of
'code. The do loop is used incase we get a situation like this:
'
' 199999 When you add 1 to a set of nines it continues to
' _+___1 Carry over until it hits the first digit
' 200000
Do Until CarryOver = 0 Or LeftOvers = 0
TempNum = Int(Mid(Num1, LeftOvers, 1)) + CarryOver
CarryOver = TempNum \ 10
TempStr = (TempNum - (CarryOver * 10)) & TempStr
LeftOvers = LeftOvers - 1
Loop

'Since there are two possible ways of exiting the Loop above, we need
'to test and apply the other variable and its associated values in the following
'two if statements.
'Handle a possible carryover that will drop off the front end creating a new place.
If CarryOver > 0 Then TempStr = CarryOver & TempStr
'add any of the numbers that are remaining on the left side of the longer string
If LeftOvers > 0 Then TempStr = Left(Num1, LeftOvers) & TempStr
'and return the value
IntAddition = TrimZeros(TempStr)
End Function

Public Function IntMultiply(ByVal FirstNum As String, ByVal SecondNum As String) As String
Dim ZeroStr As String
Dim a As Long, b As Long, Multiplier1 As Integer, Multiplier2 As Integer
Dim Num As Integer, CarryOver As Integer, TempStr As String, TallyStr As String
'THIS FUNCTION IS COMPLETE AND WORKS
'This function can handle two extra longs. It cycles through
'the firstnum one digit at a time from secondnum.
'this function works on the distrubution Principle of Multiplication:
' 9999 * 222 = (9999 * 2) + (9999 * 20) + (9999 * 200)
'
'The zero's are concatinated on after the multiplication takes place.
'
'This function is dependent on the IntAddition function above.
For a = Len(FirstNum) To 1 Step -1
'setup variables for this loop of multiplication
TempStr = ""
CarryOver = 0
Multiplier1 = Mid(FirstNum, a, 1)

'Multiply one digit at a time from right to left
For b = Len(SecondNum) To 1 Step -1
Multiplier2 = Mid(SecondNum, b, 1)

Num = (Multiplier1 * Multiplier2) + CarryOver
CarryOver = Num \ 10
TempStr = (Num - (CarryOver * 10)) & TempStr
Next b

'Check to see if the multiplication added a new digit
If CarryOver > 0 Then TempStr = CarryOver & TempStr

'Add the zeros
TempStr = TempStr & ZeroStr
TallyStr = IntAddition(TempStr, TallyStr)
ZeroStr = ZeroStr & "0"
Next a

IntMultiply = TrimZeros(TallyStr)
End Function

Public Function TrimZeros(ByVal Num As String) As String
Dim a As Long, TempStr As String
For a = 1 To Len(Num)
If Mid(Num, a, 1) 0 Then GoTo YuckFu
Next a
TrimZeros = "0"
Exit Function
YuckFu:
TrimZeros = Mid(Num, a, Len(Num) - a + 1)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Funktionen "IntAddition", "IntMultiply" und "TrimZeros" sind hier entliehen.
So liefert Hex2DecStr("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF") den Wert 340282366920938463463374607431768211455...

Eva08 · 14. Dezember 2009

Hallo FW,

vielen Dank. Habe den Code ausprobiert, funktioniert auch. Allerdings habe ich nur 39 stellen erhalten. Vielleicht kommt ja auch nicht mehr heraus. Hab das nicht mit dem Taschenrechner nachgerechnet. :-)

Gruß und Kuß

FW · 14. Dezember 2009

... dann füllst'e das Ergebnis einfach linksbündig mit 0 auf...

Eva08 · 15. Dezember 2009

Hallo FW,

ich habe die Function mit folgendem Hexa-Wert getestet
"15819a364dbe86b956083bbd1992857f"

bekomme folgendes Ergebnis
"0032877080217296820935182367670537885777"

in dem Beispiel steht als Ergebnis
"0028586721999694642100505878794595370367"

(führende Nullen sind aufgefüllt)

nun weiß ich nicht, welches richtig ist. Kannst du das testen? Der Hexa-Wert ist richtig, den bekomme ich mit meiner Function auch hin.

Leider ist das sehr wichtig. Ist für die Bedruckung / Abrechnung mit den Krankenkassen.

Vielen Dank.

FW · 15. Dezember 2009

... ich habe keine Rechner, die mit 40-stelliger Genauigkeit arbeiten! Deshalb würde ich es mit kleinen, nachvollziehbaren Testwerten versuchen, um eine "statistische Sicherheit" zu bekommen...

Eva08 · 15. Dezember 2009

Hallo FW,

da hätte ich auch selbst drauf kommen können. So, getestet habe ich es mit Hexa 7D0 = 2000, die Funktion rechnet 215.

Jetzt teste ich noch mal in Einzelschritten.

FW · 15. Dezember 2009

Hallo Eva08,
die Funktion "Hex2DecStr" muss so aussehen: Code:

Public Function Hex2DecStr(ByVal strHex As String) As String
Const cstDigits As String = "0123456789ABCDEF"

Dim intVar As Integer
Dim strRet As String, strPow As String

' Check Input
For intVar = 1 To 16
If InStr(1, cstDigits, Mid$(strHex, intVar, 1), vbTextCompare) = 0 Then Err.Raise 5
Next intVar

' Convert To Decimal
strPow = "1"
strRet = "0"
For intVar = Len(strHex) To 1 Step -1
strRet = IntAddition(strRet, IntMultiply(strPow, CStr(InStr(1, cstDigits, Mid$(strHex, intVar, 1), vbTextCompare) - 1)))
strPow = IntMultiply(strPow, "16")
Next intVar

Hex2DecStr = strRet
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann sollte es auch klappen!

S. a. diesen Beitrag...

Eva08 · 17. Dezember 2009

Hallo FW,

das hat wunderbar geklappt. Du hast mich vor weitern schlaflosen Nächten bewahrt.

Vielen Dank

Hausdrache · 12. Januar 2010

Hallo Eva,
kannst du vielleicht deine MDB ins Netz stellen, ich stehe vor einem ähnlichen Problem und ich wollte mir als nicht so versierter Access-Nutzer eine Menge Zeit sparen.
der hausdrachen

Office: (Office 2003) 32 stellige Hexadecimalzahl in Decimalzahl umwandeln

32 stellige Hexadecimalzahl in Decimalzahl umwandeln

32 stellige Hexadecimalzahl in Decimalzahl umwandeln

32 stellige Hexadecimalzahl in Decimalzahl umwandeln

32 stellige Hexadecimalzahl in Decimalzahl umwandeln

32 stellige Hexadecimalzahl in Decimalzahl umwandeln

32 stellige Hexadecimalzahl in Decimalzahl umwandeln - Similar Threads - stellige Hexadecimalzahl Decimalzahl

Zahl entfernen (4-5 stellig)

Alter per Formel errechnen, Ausgabe immer 2 Stellig

Excel Problem: Filterung nach 5-stelligen Zahlen

Zahl in Zelle muss immer 4 stellig sein

9-stellige Zahl aus Datenmischmasch extrahieren

nur 5-stellige Zahl in TextBox zulasse

Datentyp und Feldgröße (!) für 10 stellige Kontonummer