&HCCCCCCCCCCCCCCCCUL

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

// Checksumme bilden
DWORD64 checksum;
checksum = Serial + (Computer << 7) + (Activation << 9) + (Usuage << 11);
checksum ^= 0xccccCCCCccccCCCC;

char DigitalProductID[256];
DWORD dwSum=0;
DWORD *ptr;
DWORD idx;
 
for (idx=0; idx<64; idx++)
{
  ptr = (DWORD*)DigitalProductID + idx;
  dwSum += *ptr;
}

        Dim DigitalProductID(255) As Byte
        Dim dwSum As Integer = 0
 
        For i As Integer = 0 To 252 Step 4
            dwSum += BitConverter.ToInt32(DigitalProductID, i)
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

        Dim DigitalProductID(255) As Byte
        Dim dwSum As UInteger = 0
 
        For i As Integer = 0 To 252 Step 4
            dwSum += BitConverter.ToUInt32(DigitalProductID, i)
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

        Dim DigitalProductID(255) As Byte
 
        Dim dwSuml As ULong = 0
 
        For i As Integer = 0 To 252 Step 4
            dwSuml += BitConverter.ToUInt32(DigitalProductID, i)
        Next
 
        Dim dwSum As UInteger = dwSuml And &HFFFFFFFFUL

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist