C:\Temp\openSSL\bin>openssl enc -aes-256-cbc -a -salt -in foo.txt -out file.enc
enter aes-256-cbc encryption password:
Verifying - enter aes-256-cbc encryption password:
*****
####
C:\Temp\openSSL\bin>type file.enc
U2FsdGVkX19MZ5n8Rb41XIrAuhwtlBUPPWhbvSe4b0J3Wfj8QRRwqCxuqTG69Ta9
##
##
use Win32::OLE;
my ($filename) = "F:\\Incidents.xls";
my ($nextStep) = q|mysystem.cgi?f=incidents_show|;
my ($csv) = ".\\data\\_csv\\incidents.csv";
if(-f $filename)
{
my(@fnStat) = stat($filename);
my(@csvStat)= stat($csv);
if($fnStat[9] > $csvStat[9]) {
my($obj) = Win32::OLE->new("Excel.Application");
$obj->Workbooks->Open (q|F:\Incidents.xls|);
if (-f q|c:\data\_csv\incidents.csv|) {unlink(q|c:\data\_csv\incidents.csv|) or die "Cannot unlink the incidents.csv file!"};
$obj->ActiveWorkbook->SaveAs(q|C:\data\_csv\incidents.csv|, 6);
$obj->ActiveWorkbook->Close(0);
$obj->Quit();
"The Incident.xls file has been recently modified and the excel file has been created! Click";
}
else
{
"File is okay. Proceed to CSV. Click";
}
}
else
{ "Could not find Incidents.xls!"};