Hallo,
mit folgendem Code ist es ja möglich die Windows-Seriennummer auszulesen. Diese hab ich hier im Forum gefunden:
[autoit]Func DecodeProductKey($BinaryDPID)
Local $bKey[15], $sKey[29], $Digits[24], $Value = 0, $hi = 0, $n = 0, $i = 0, $dlen = 29, $slen = 15, $Result
$Digits = StringSplit("BCDFGHJKMPQRTVWXY2346789", "")
$BinaryDPID = StringMid($BinaryDPID, 105, 30)
For $i = 1 To 29 Step 2
$bKey[Int($i / 2) ] = Dec(StringMid($BinaryDPID, $i, 2))
Next
For $i = $dlen - 1 To 0 Step - 1
If Mod(($i + 1), 6) = 0 Then
$sKey[$i] = "-"
Else
$hi = 0
For $n = $slen - 1 To 0 Step - 1
$Value = BitOR(BitShift($hi, -8), $bKey[$n])
$bKey[$n] = Int($Value / 24)
$hi = Mod($Value, 24)
Next
$sKey[$i] = $Digits[$hi + 1]
EndIf
Next
For $i = 0 To 28
$Result = $Result & $sKey[$i]
Next
Return $Result
EndFunc
Geht das auch umgekehrt? Also wenn ich nun eine neue Seriennummer eingeben will, müßte diese ja nun verschlüsselt werden. ich bekomme das aber einfach nicht auf die Reihe ... kann mir da jemand helfen?
Ist es eigentlich möglich auf diesem Weg die Windows-Seriennummer upzudaten oder geht dann nachher was nicht mehr?
ich habe keinen ansatz