Серый форум — JS -> VBS: HEX картинки --> BinaryData

Re: JS -> VBS: HEX картинки --> BinaryData

null@example.com (malikov84) — Sun, 05 May 2013 19:33:13 +0000

Большое спасибо!

Re: JS -> VBS: HEX картинки --> BinaryData

null@example.com (alexii) — Sun, 05 May 2013 19:30:11 +0000

malikov84, попробуйте так:

Option Explicit

Const adTypeBinary = 1

Dim strString
Dim objUtilities

strString = _
    "89504E470D0A1A0A0000000D4948445200000027000000420803000000E3443FEE0000000C504C5445F0EEEEF95353F59393" & _
    "FF04047F58B0FF000000097048597300002E2300002E230178A53F760000014249444154789CED955902C42008434DB8FF9D" & _
    "A7AD4BD9AC1C60FCAA363E10115AF38361251D404D27520242A40414290171EB0A409112F0F6AEE2E1C33A033BEA0C1CA413" & _
    "900374022ECE37900BF30D5494EBB380FB061AA7F6401AC41EE8CEB803D20176C007C76B1C8000D0930A5D4A208D35658D61" & _
    "9069D28A3821E6CC60FB5E1013A2B679AB7CB7749B026F1A7ADB74157362EE49B9417D1C1349172D636DAF83F1DE7EEB3889" & _
    "F729E7B943EE7434B762CFA1269C81EBF74B1BC035E3B80215671DB267E14AABF523E6C57B46F3E315B6960BA16DC4B49E89" & _
    "A4F3282F0BD4897F1A2C7606D43BC35F57D7857A1375CF0DF9C297E87A6AF9040B3A2E9DAF48C11134575A32DD0439A0D7AD" & _
    "A70857846C00D4DF50349D4C55A45D5B31B2F104231269D95D2DA12F317D96ABBA0BDE5692B9A3EA847AF1794654544EBAE9" & _
    "5AC7F103F62B06FEC580AB3F0000000049454E44AE426082"

With WScript.CreateObject("ADODB.Stream")
    .Type = adTypeBinary
    .Open()
    
    Set objUtilities = WScript.CreateObject("CAPICOM.Utilities")
    
    .Write(objUtilities.BinaryStringToByteArray(objUtilities.HexToBinary(strString)))
    .SaveToFile("test2.png")
    
    Set objUtilities = Nothing
End With

WScript.Quit 0

JS -> VBS: HEX картинки --> BinaryData

null@example.com (malikov84) — Sun, 05 May 2013 17:20:42 +0000

Здравствуйте.
Скрипт содержит HEX картинку, кодирует её обратно в Byte Array массив и записывает на диск в виде test.png

var outStreamW = new ActiveXObject("ADODB.Stream"); // Text stream in Unicode    charset
var outStreamA = new ActiveXObject("ADODB.Stream"); // Text stream in ISO-8859-1 charset
var binStr = '';

outStreamW.Type = 2;
outStreamW.Open();
                                 // couples of HEX values
outStreamW.WriteText( hex2text( '89504E470D0A1A0A0000000D4948445200000027000000420803000000E3443FEE0000000C504C5445F0EEEEF95353F59393' ) );
outStreamW.WriteText( hex2text( 'FF04047F58B0FF000000097048597300002E2300002E230178A53F760000014249444154789CED955902C42008434DB8FF9D' ) );
outStreamW.WriteText( hex2text( 'A7AD4BD9AC1C60FCAA363E10115AF38361251D404D27520242A40414290171EB0A409112F0F6AEE2E1C33A033BEA0C1CA413' ) );
outStreamW.WriteText( hex2text( '900374022ECE37900BF30D5494EBB380FB061AA7F6401AC41EE8CEB803D20176C007C76B1C8000D0930A5D4A208D35658D61' ) );
outStreamW.WriteText( hex2text( '9069D28A3821E6CC60FB5E1013A2B679AB7CB7749B026F1A7ADB74157362EE49B9417D1C1349172D636DAF83F1DE7EEB3889' ) );
outStreamW.WriteText( hex2text( 'F729E7B943EE7434B762CFA1269C81EBF74B1BC035E3B80215671DB267E14AABF523E6C57B46F3E315B6960BA16DC4B49E89' ) );
outStreamW.WriteText( hex2text( 'A4F3282F0BD4897F1A2C7606D43BC35F57D7857A1375CF0DF9C297E87A6AF9040B3A2E9DAF48C11134575A32DD0439A0D7AD' ) );
outStreamW.WriteText( hex2text( 'A70857846C00D4DF50349D4C55A45D5B31B2F104231269D95D2DA12F317D96ABBA0BDE5692B9A3EA847AF1794654544EBAE9' ) );
outStreamW.WriteText( hex2text( '5AC7F103F62B06FEC580AB3F0000000049454E44AE426082' ) );
outStreamW.Position = 0; //don't forget it or .Read will return 0 bytes

outStreamA.Type = 2;
outStreamA.Charset = 'ISO-8859-1'; // to avoid character conversion upper 127 ascii code
outStreamA.Open();
outStreamW.CopyTo( outStreamA ); // Copy unicoded stream to ISO-8859-1 stream
outStreamA.SaveToFile( 'test.png', 2 ); // save file as...

outStreamW.Close();
outStreamA.Close();

// converts couples of HEX values to a string of chars
function hex2text( inHexStr ){
  binStr = ''; //using global variable will be faster, I think.
  for ( i = 0; i < ( inHexStr.length / 2 ); i++ ){
      binStr += String.fromCharCode( '0x' + inHexStr.substr( i * 2, 2 ) );
      }
      return binStr;
  }

Помогите переписать на VBS