Extract Metadata Word Document

Instalasi Tools

sudo su
perl -MCPAN -e "install Bundle::CPAN"
perl -MCPAN -e shell

Dari shell CPAN

install OLE::Storage
install OLE::PropertySet
install Startup
install Carp
install Unicode::Map

Download & extract file testwd.pl

wget http://www.cpan.org/modules/by-authors/id/H/HC/HCARVEY/File-MSWord-0.1.zip
unzip File-MSWord-0.1.zip
mv MSWord.pm /usr/lib/perl5/File/

Lakukan

perl testwd.pl /doc/to/analyze.doc

Akan keluar kira-kira:

Use of assignment to $[ is deprecated at /usr/local/share/perl/5.18.2/OLE/Storage.pm line 61.
Use of assignment to $[ is deprecated at /usr/local/share/perl/5.18.2/OLE/PropertySet.pm line 409.
Stream : 1Table
Stream : WordDocument
Stream : Data
Stream : �CompObj
Stream : DocumentSummaryInformation
Stream : SummaryInformation

Trash Bin       Size    
BigBlocks       0       
SmallBlocks     0       
FileEndSpace    1249    
SystemSpace     1232     

GUID : e011cfd0 - e11ab1a1

lastsaved => 16.09.2015, 10:08:00
authress => ASUS
appname => Microsoft Office Word
subject => 
title => 
lastprinted => 
revnum => 1
lastauth => ASUS
created => 16.09.2015, 10:04:00

0x0 -> 0x0
Data
1Table

Binary data:
envr => 0x0
fDot => 0x12f0
wIdent => 0xa5ec
nProduct => 0x805b
table => 0x1
fMac => 0x10
pnNext => 0x0
nFib => 0xc1
nFibBack => 0xbf
lKey => 0x0
langid => 0x421

Lang ID = Bahasa