/usr/share/octave/site/m/octave-epstk/eimg2shtml.m is in octave-epstk 2.4-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | %%NAME
%% eimg2shtml - encode image to secret html-file
%%
%%SYNOPSIS
%% checksum=eimg2shtml(imgFilename,htmlFilename,key[,title[,legend]])
%%
%%PARAMETER(S)
%% imgFilename string of image-filename (PNG- or JPEG-file)
%% htmlFilename string of html-filename
%% key vector of unsigned char
%% or string
%% title title of image
%% legend legend under password entry
%% checksum checksum of cipher
% written by stefan.mueller@fhr.fraunhofer.de (C) 2010
function checksum=eimg2shtml(imgFilename,htmlFilename,key,title,legend)
if nargin<3
eusage('checksum=eimg2shtml(imgFilename,htmlFilename,key[,title[,legend]])');
end
if nargin<4
title='Encoded Image';
end
if nargin<5
legend='Please enter password!<br><br><p>Important: Please, klick Close-Button after you have read the document !!!</p>';
end
if nargout>0
message=0;
else
message=1;
end
tmpHtmlFilename=[imgFilename '.html'];
ehtmlnew(tmpHtmlFilename,[0.95 0.95 0.95]);
ehtmladdimg(tmpHtmlFilename,imgFilename);
checksum=etxt2shtml(tmpHtmlFilename,htmlFilename,key,title,legend);
delete(tmpHtmlFilename);
if message
message=sprintf('%s is written',htmlFilename);
disp(message);
end
|