Hallo,
Da ich überhaupt keinen Plan von VBA habe wollte ich mal hier nachfragen
ob mir wer bei einem Übersetzungsproblem helfen kann.
Ich habe jetzt schon viele CRC32 Funtionen getestet aber ich bekomme nicht das Ergebnis das dieses Script generiert.
Aber genau diese Ausgabe brauche ich.
Ich bekomme den Code unten nicht übersetzt.
Könnte da wer mir mal etwas unter die Arme greifen ??
Danke
MfG
Michael
Code:
Function Skr_CRC32(Data As String) As String
Dim i, lCRC32, iBit
Dim Crc32Table()
ReDim Crc32Table(255)
For i = 0 To 255
lCRC32 = i
For iBit = 0 To 7
If (lCRC32 And &H1) <> 0 Then
lCRC32 = (((lCRC32 And &HFFFFFFFE) \ &H2) And &H7FFFFFFF) Xor &HEDB88320
Else
lCRC32 = ((lCRC32 And &HFFFFFFFE) \ &H2) And &H7FFFFFFF
End If
Next
Crc32Table(i) = lCRC32
Next
lCRC32 = &HFFFFFFFF
For i = 1 To Len(Data)
lCRC32 = (((lCRC32 And &HFFFFFF00 \ &H100) And &HFFFFFF) Xor _
Crc32Table((lCRC32 And &HFF) Xor AscW(Mid(Data, i, 1))))
Next
Skr_CRC32 = Hex(lCRC32 Xor &HFFFFFFFF)
End Function