[proxy]

и вот такой вот получается скрипт:

Код:

Opt('MustDeclareVars',      1)

Local $sRegKey, $sSerial, $i, $sSerialResult
Local $sFileContent, $sRegVSTs, $sRegFile, $hFileOpen

$sRegKey = 'HKEY_CURRENT_USER\Software\DashSignature\Knagalis'
$sSerial = RegRead($sRegKey, 'SN')

For $i=1 To StringLen($sSerial)
    $sSerialResult &= Hex(Asc(StringMid($sSerial, $i, 1)), 2) & ',00,'
Next
$sSerialResult = 'hex(2):' & $sSerialResult
If StringRight($sSerialResult, 1) == ',' Then $sSerialResult = StringTrimRight($sSerialResult, 1)

$sFileContent = _
    'Windows Registry Editor Version 5.00' & @CRLF & @CRLF & _
    '[' & $sRegKey & ']' & @CRLF & _
    '"SN"=' & $sSerialResult & @CRLF & @CRLF

Switch @OSArch
    Case 'x86'
        $sRegVSTs = 'HKLM\Software\VST'
    Case 'x64'
        $sRegVSTs = 'HKLM\Software\Wow6432Node\VST'
EndSwitch
$sRegFile = RegRead($sRegVSTs, 'VSTPluginsPath') & '\Knagalis\Knagalis.reg'

$hFileOpen = FileOpen($sRegFile, 8+2)
FileWrite($hFileOpen, $sFileContent)
FileClose($hFileOpen)

FileSetAttrib($sRegFile, '-RASHNOT', 0)
FileSetTime($sRegFile, '20010101000000', 0)
FileSetTime($sRegFile, '20010101000000', 1)
FileSetTime($sRegFile, '20010101000000', 2)