BUG 59830 -- incorrect reading of unicode stream name

git-svn-id: https://svn.apache.org/repos/asf/poi/trunk@1765468 13f79535-47bb-0310-9956-ffa450edef68

src/java/org/apache/poi/poifs/macros/VBAMacroReader.java

 import java.io.InputStream;
 import java.io.PushbackInputStream;
 import java.nio.charset.Charset;
+import java.nio.charset.StandardCharsets;
 import java.util.HashMap;
 import java.util.Map;
 import java.util.zip.ZipEntry;
     private static final int MODULE_NAME = 0x0019;
     private static final int MODULE_NAME_UNICODE = 0x0047;
     private static final int MODULE_DOC_STRING = 0x001c;
+    private static final int STREAMNAME_RESERVED = 0x0032;
 
     /**
      * Reads VBA Project modules from a VBA Project directory located at
                     // process DIR
                     RLEDecompressingInputStream in = new RLEDecompressingInputStream(dis);
                     String streamName = null;
+                    String streamNameUnicode = null;
                     int recordId = 0;
                     try {
                         while (true) {
                                 break;
                             case STREAMNAME:
                                 streamName = readString(in, recordLength, modules.charset);
+                                int reserved = in.readShort();
+                                if (reserved != STREAMNAME_RESERVED) {
+                                    throw new IOException("Expected x0032 after stream name before Unicode stream name, but found: "+
+                                            Integer.toHexString(reserved));
+                                }
+                                int unicodeNameRecordLength = in.readInt();
+                                streamNameUnicode = readUnicodeString(in, unicodeNameRecordLength);
+                                //do something with this at some point
                                 break;
                             case MODULEOFFSET:
                                 readModule(in, streamName, modules);
             }
         }
     }
+
+    private String readUnicodeString(RLEDecompressingInputStream in, int unicodeNameRecordLength) throws IOException {
+        byte[] buffer = new byte[unicodeNameRecordLength];
+        IOUtils.readFully(in, buffer);
+        return new String(buffer, Charset.forName("UTF-16LE"));
+    }
 }

src/testcases/org/apache/poi/poifs/macros/TestVBAMacroReader.java

         assertContains(content, testMacroNoSub);
     }
     
-    @Ignore
+
     @Test
     public void bug59830() throws IOException {
-        // This file is intentionally omitted from the test-data directory
-        // unless we can extract the vbaProject.bin from this Word 97-2003 file
-        // so that it's less likely to be opened and executed on a Windows computer.
-        // The file is attached to bug 59830.
-        // The Macro Virus only affects Windows computers, as it makes a
-        // subprocess call to powershell.exe with an encoded payload
-        // The document contains macros that execute on workbook open if macros
-        // are enabled
-        File doc = POIDataSamples.getDocumentInstance().getFile("macro_virus.doc.do_not_open");
-        VBAMacroReader reader = new VBAMacroReader(doc);
-        Map<String, String> macros = reader.readMacros();
-        assertNotNull(macros);
-        reader.close();
+        //test file is "609751.xls" in govdocs1
+        File f = POIDataSamples.getSpreadSheetInstance().getFile("59830.xls");
+        VBAMacroReader r = new VBAMacroReader(f);
+        Map<String, String> macros = r.readMacros();
+        assertNotNull(macros.get("Module20"));
+        assertContains(macros.get("Module20"), "here start of superscripting");
     }
     
     // This test is written as expected-to-fail and should be rewritten