[proxy]

...я уже почти и слеши расставил, думал над красотами ))

но если не нужны - то так:

Код:

Local $sSerial, $i, $sSerialResult

$sSerial = StringLower(StringTrimLeft(Binary('VMKJGNDIDNWLDMKJGNDIDNWLD'), 2))

For $i=1 To StringLen($sSerial) Step 2
    $sSerialResult &= StringMid($sSerial, $i, 2)
    If $i < StringLen($sSerial)-2 Then $sSerialResult &= ',00,'
Next
$sSerialResult = 'hex(2):' & $sSerialResult & ',00,00,00'

MsgBox(0, '', $sSerialResult)

осталось проверить верность всех цыфирок )

вся разбивка совпадает, все ок ..