private void WriteRegisteredReference(BinaryWriter bw, ExcelVbaReference reference)
{
bw.Write((ushort)0x0D);
bw.Write((uint)(4 + reference.Libid.Length + 4 + 2));
bw.Write((uint)reference.Libid.Length);
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(reference.Libid)); //LibID
bw.Write((uint)0); //Reserved1
bw.Write((ushort)0); //Reserved2
}
private void WriteNameReference(BinaryWriter bw, ExcelVbaReference reference)
{
//Name record
bw.Write((ushort)0x16); //ID
bw.Write((uint)reference.Name.Length); //Size
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(reference.Name)); //HelpFile1
bw.Write((ushort)0x3E); //ID
bw.Write((uint)reference.Name.Length * 2); //Size
bw.Write(Encoding.Unicode.GetBytes(reference.Name)); //HelpFile2
}
private void WriteProjectReference(BinaryWriter bw, ExcelVbaReference reference)
{
bw.Write((ushort)0x0E);
var projRef = (ExcelVbaReferenceProject)reference;
bw.Write((uint)(4 + projRef.Libid.Length + 4 + projRef.LibIdRelative.Length+4+2));
bw.Write((uint)projRef.Libid.Length);
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(projRef.Libid)); //LibAbsolute
bw.Write((uint)projRef.LibIdRelative.Length);
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(projRef.LibIdRelative)); //LibIdRelative
bw.Write(projRef.MajorVersion);
bw.Write(projRef.MinorVersion);
}
private void WriteControlReference(BinaryWriter bw, ExcelVbaReference reference)
{
WriteOrginalReference(bw, reference);
bw.Write((ushort)0x2F);
var controlRef=(ExcelVbaReferenceControl)reference;
bw.Write((uint)(4 + controlRef.LibIdTwiddled.Length + 4 + 2)); // Size of SizeOfLibidTwiddled, LibidTwiddled, Reserved1, and Reserved2.
bw.Write((uint)controlRef.LibIdTwiddled.Length); //Size
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(controlRef.LibIdTwiddled)); //LibID
bw.Write((uint)0); //Reserved1
bw.Write((ushort)0); //Reserved2
WriteNameReference(bw, reference); //Name record again
bw.Write((ushort)0x30); //Reserved3
bw.Write((uint)(4 + controlRef.LibIdExternal.Length + 4 + 2 + 16 + 4)); //Size of SizeOfLibidExtended, LibidExtended, Reserved4, Reserved5, OriginalTypeLib, and Cookie
bw.Write((uint)controlRef.LibIdExternal.Length); //Size
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(controlRef.LibIdExternal)); //LibID
bw.Write((uint)0); //Reserved4
bw.Write((ushort)0); //Reserved5
bw.Write(controlRef.OriginalTypeLib.ToByteArray());
bw.Write((uint)controlRef.Cookie); //Cookie
}
private void WriteOrginalReference(BinaryWriter bw, ExcelVbaReference reference)
{
bw.Write((ushort)0x33);
bw.Write((uint)reference.Libid.Length);
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(reference.Libid)); //LibID
}
private void ReadDirStream()
{
byte[] dir = VBACompression.DecompressPart(Document.Storage.SubStorage["VBA"].DataStreams["dir"]);
MemoryStream ms = new MemoryStream(dir);
BinaryReader br = new BinaryReader(ms);
ExcelVbaReference currentRef = null;
string referenceName = "";
ExcelVBAModule currentModule = null;
bool terminate = false;
while (br.BaseStream.Position < br.BaseStream.Length && terminate == false)
{
ushort id = br.ReadUInt16();
uint size = br.ReadUInt32();
switch (id)
{
case 0x01:
SystemKind = (eSyskind)br.ReadUInt32();
break;
case 0x02:
Lcid = (int)br.ReadUInt32();
break;
case 0x03:
CodePage = (int)br.ReadUInt16();
break;
case 0x04:
Name = GetString(br, size);
break;
case 0x05:
Description = GetUnicodeString(br, size);
break;
case 0x06:
HelpFile1 = GetString(br, size);
break;
case 0x3D:
HelpFile2 = GetString(br, size);
break;
case 0x07:
HelpContextID = (int)br.ReadUInt32();
break;
case 0x08:
LibFlags = (int)br.ReadUInt32();
break;
case 0x09:
MajorVersion = (int)br.ReadUInt32();
MinorVersion = (int)br.ReadUInt16();
break;
case 0x0C:
Constants = GetUnicodeString(br, size);
break;
case 0x0D:
uint sizeLibID = br.ReadUInt32();
var regRef = new ExcelVbaReference();
regRef.Name = referenceName;
regRef.ReferenceRecordID = id;
regRef.Libid = GetString(br, sizeLibID);
uint reserved1 = br.ReadUInt32();
ushort reserved2 = br.ReadUInt16();
References.Add(regRef);
break;
case 0x0E:
var projRef = new ExcelVbaReferenceProject();
projRef.ReferenceRecordID = id;
projRef.Name = referenceName;
sizeLibID = br.ReadUInt32();
projRef.Libid = GetString(br, sizeLibID);
sizeLibID = br.ReadUInt32();
projRef.LibIdRelative = GetString(br, sizeLibID);
projRef.MajorVersion = br.ReadUInt32();
projRef.MinorVersion = br.ReadUInt16();
References.Add(projRef);
break;
case 0x0F:
ushort modualCount = br.ReadUInt16();
break;
case 0x13:
ushort cookie = br.ReadUInt16();
break;
case 0x14:
LcidInvoke = (int)br.ReadUInt32();
break;
case 0x16:
referenceName = GetUnicodeString(br, size);
break;
case 0x19:
currentModule = new ExcelVBAModule();
currentModule.Name = GetUnicodeString(br, size);
Modules.Add(currentModule);
break;
case 0x1A:
currentModule.streamName = GetUnicodeString(br, size);
break;
case 0x1C:
currentModule.Description = GetUnicodeString(br, size);
break;
case 0x1E:
currentModule.HelpContext = (int)br.ReadUInt32();
break;
case 0x21:
case 0x22:
break;
case 0x2B: //Modul Terminator
break;
case 0x2C:
currentModule.Cookie = br.ReadUInt16();
break;
case 0x31:
currentModule.ModuleOffset = br.ReadUInt32();
break;
case 0x10:
terminate = true;
break;
case 0x30:
var extRef = (ExcelVbaReferenceControl)currentRef;
var sizeExt = br.ReadUInt32();
extRef.LibIdExternal = GetString(br, sizeExt);
uint reserved4 = br.ReadUInt32();
ushort reserved5 = br.ReadUInt16();
extRef.OriginalTypeLib = new Guid(br.ReadBytes(16));
extRef.Cookie = br.ReadUInt32();
break;
case 0x33:
currentRef = new ExcelVbaReferenceControl();
currentRef.ReferenceRecordID = id;
currentRef.Name = referenceName;
currentRef.Libid = GetString(br, size);
References.Add(currentRef);
break;
case 0x2F:
var contrRef = (ExcelVbaReferenceControl)currentRef;
contrRef.ReferenceRecordID = id;
var sizeTwiddled = br.ReadUInt32();
contrRef.LibIdTwiddled = GetString(br, sizeTwiddled);
var r1 = br.ReadUInt32();
var r2 = br.ReadUInt16();
break;
case 0x25:
currentModule.ReadOnly = true;
break;
case 0x28:
currentModule.Private = true;
break;
default:
break;
}
}
}
private void WriteRegisteredReference(BinaryWriter bw, ExcelVbaReference reference)
{
bw.Write((ushort)0x0D);
bw.Write((uint)(4+reference.Libid.Length+4+2));
bw.Write((uint)reference.Libid.Length);
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(reference.Libid)); //LibID
bw.Write((uint)0); //Reserved1
bw.Write((ushort)0); //Reserved2
}
private void WriteProjectReference(BinaryWriter bw, ExcelVbaReference reference)
{
bw.Write((ushort)0x0E);
var projRef = (ExcelVbaReferenceProject)reference;
bw.Write((uint)(4 + projRef.Libid.Length + 4 + projRef.LibIdRelative.Length+4+2));
bw.Write((uint)projRef.Libid.Length);
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(projRef.Libid)); //LibAbsolute
bw.Write((uint)projRef.LibIdRelative.Length);
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(projRef.LibIdRelative)); //LibIdRelative
bw.Write(projRef.MajorVersion);
bw.Write(projRef.MinorVersion);
}
private void WriteOrginalReference(BinaryWriter bw, ExcelVbaReference reference)
{
bw.Write((ushort)0x33);
bw.Write((uint)reference.Libid.Length);
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(reference.Libid)); //LibID
}
private void WriteControlReference(BinaryWriter bw, ExcelVbaReference reference)
{
WriteOrginalReference(bw, reference);
bw.Write((ushort)0x2F);
var controlRef=(ExcelVbaReferenceControl)reference;
bw.Write((uint)(4 + controlRef.LibIdTwiddled.Length + 4 + 2)); // Size of SizeOfLibidTwiddled, LibidTwiddled, Reserved1, and Reserved2.
bw.Write((uint)controlRef.LibIdTwiddled.Length); //Size
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(controlRef.LibIdTwiddled)); //LibID
bw.Write((uint)0); //Reserved1
bw.Write((ushort)0); //Reserved2
WriteNameReference(bw, reference); //Name record again
bw.Write((ushort)0x30); //Reserved3
bw.Write((uint)(4 + controlRef.LibIdExternal.Length + 4 + 2 + 16 + 4)); //Size of SizeOfLibidExtended, LibidExtended, Reserved4, Reserved5, OriginalTypeLib, and Cookie
bw.Write((uint)controlRef.LibIdExternal.Length); //Size
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(controlRef.LibIdExternal)); //LibID
bw.Write((uint)0); //Reserved4
bw.Write((ushort)0); //Reserved5
bw.Write(controlRef.OriginalTypeLib.ToByteArray());
bw.Write((uint)controlRef.Cookie); //Cookie
}
private void WriteNameReference(BinaryWriter bw, ExcelVbaReference reference)
{
//Name record
bw.Write((ushort)0x16); //ID
bw.Write((uint)reference.Name.Length); //Size
bw.Write(Encoding.GetEncoding(CodePage).GetBytes(reference.Name)); //HelpFile1
bw.Write((ushort)0x3E); //ID
bw.Write((uint)reference.Name.Length * 2); //Size
bw.Write(Encoding.Unicode.GetBytes(reference.Name)); //HelpFile2
}
private void ReadDirStream()
{
byte[] dir = CompoundDocument.DecompressPart(Document.Storage.SubStorage["VBA"].DataStreams["dir"]);
MemoryStream ms = new MemoryStream(dir);
BinaryReader br = new BinaryReader(ms);
ExcelVbaReference currentRef = null;
string referenceName = "";
ExcelVBAModule currentModule = null;
bool terminate = false;
while (br.BaseStream.Position < br.BaseStream.Length && terminate == false)
{
ushort id = br.ReadUInt16();
uint size = br.ReadUInt32();
switch (id)
{
case 0x01:
SystemKind = (eSyskind)br.ReadUInt32();
break;
case 0x02:
Lcid = (int)br.ReadUInt32();
break;
case 0x03:
CodePage = (int)br.ReadUInt16();
break;
case 0x04:
Name = GetString(br, size);
break;
case 0x05:
Description = GetUnicodeString(br, size);
break;
case 0x06:
HelpFile1 = GetString(br, size);
break;
case 0x3D:
HelpFile2 = GetString(br, size);
break;
case 0x07:
HelpContextID = (int)br.ReadUInt32();
break;
case 0x08:
LibFlags = (int)br.ReadUInt32();
break;
case 0x09:
MajorVersion = (int)br.ReadUInt32();
MinorVersion = (int)br.ReadUInt16();
break;
case 0x0C:
Constants = GetUnicodeString(br, size);
break;
case 0x0D:
uint sizeLibID = br.ReadUInt32();
var regRef = new ExcelVbaReference();
regRef.Name = referenceName;
regRef.ReferenceRecordID = id;
regRef.Libid = GetString(br, sizeLibID);
uint reserved1 = br.ReadUInt32();
ushort reserved2 = br.ReadUInt16();
References.Add(regRef);
break;
case 0x0E:
var projRef = new ExcelVbaReferenceProject();
projRef.ReferenceRecordID = id;
projRef.Name = referenceName;
sizeLibID = br.ReadUInt32();
projRef.Libid = GetString(br, sizeLibID);
sizeLibID = br.ReadUInt32();
projRef.LibIdRelative = GetString(br, sizeLibID);
projRef.MajorVersion = br.ReadUInt32();
projRef.MinorVersion = br.ReadUInt16();
References.Add(projRef);
break;
case 0x0F:
ushort modualCount = br.ReadUInt16();
break;
case 0x13:
ushort cookie = br.ReadUInt16();
break;
case 0x14:
LcidInvoke = (int)br.ReadUInt32();
break;
case 0x16:
referenceName = GetUnicodeString(br, size);
break;
case 0x19:
currentModule = new ExcelVBAModule();
currentModule.Name = GetUnicodeString(br, size);
Modules.Add(currentModule);
break;
case 0x1A:
currentModule.streamName = GetUnicodeString(br, size);
break;
case 0x1C:
currentModule.Description = GetUnicodeString(br, size);
break;
case 0x1E:
currentModule.HelpContext = (int)br.ReadUInt32();
break;
case 0x21:
case 0x22:
break;
case 0x2B: //Modul Terminator
break;
case 0x2C:
currentModule.Cookie = br.ReadUInt16();
break;
case 0x31:
currentModule.ModuleOffset = br.ReadUInt32();
break;
case 0x10:
terminate = true;
break;
case 0x30:
var extRef = (ExcelVbaReferenceControl)currentRef;
var sizeExt = br.ReadUInt32();
extRef.LibIdExternal = GetString(br, sizeExt);
uint reserved4 = br.ReadUInt32();
ushort reserved5 = br.ReadUInt16();
extRef.OriginalTypeLib = new Guid(br.ReadBytes(16));
extRef.Cookie = br.ReadUInt32();
break;
case 0x33:
currentRef = new ExcelVbaReferenceControl();
currentRef.ReferenceRecordID = id;
currentRef.Name = referenceName;
currentRef.Libid = GetString(br, size);
References.Add(currentRef);
break;
case 0x2F:
var contrRef = (ExcelVbaReferenceControl)currentRef;
contrRef.ReferenceRecordID = id;
var sizeTwiddled = br.ReadUInt32();
contrRef.LibIdTwiddled = GetString(br, sizeTwiddled);
var r1 = br.ReadUInt32();
var r2 = br.ReadUInt16();
break;
case 0x25:
currentModule.ReadOnly = true;
break;
case 0x28:
currentModule.Private = true;
break;
default:
break;
}
}
}