Category : Windows 3.X Files
Archive   : FILEMG.ZIP
Filename : FILEMGRF.C

/* FileMgrF.C -- All file functions for FILEMGR */

#include "windows.h" /* all Windows functions */
#include "winexp.h" /* all extra Windows functions */
#include "filemgr.h" /* all file manager defines */
#include "string.h" /* all string functions */
#include "stdio.h" /* all file i/o functions */
#include "stdlib.h" /* misc functions */
#include "dos.h" /* all dos file functions */
#include "direct.h" /* all dos directory functions */
#include "ctype.h" /* all character type functions */

extern char *GetDir(char *);
extern BOOL FAR PASCAL Key(HANDLE,unsigned,WORD,LONG);

extern int ntimes;
extern HANDLE hinst,
hnormcursor,
hwaitcursor;
extern char szkey[11+1],
szerror1[49+1],
szerror2[49+1];
extern BOOL nencrypt,
nendecrypt,
ndup,
nhide;
WORD uoldsel;



/* procedure to copy contents of sxfile into
* sznewfile
*/
int CopyFile(HWND hwnd,
char *szfile,
char *sznewfile)
{
HANDLE hmem,
hread_file,
hwrite_file;
OFSTRUCT ofs;
long lfile_size,
lbytes_left;
LPSTR lpszbuffer;
static struct find_t f_tbuffer;
static unsigned ufile_size,
uact_bytes;

hread_file = OpenFile((LPSTR)szfile,
(LPOFSTRUCT)&ofs,
OF_READ);
hwrite_file = OpenFile((LPSTR)sznewfile,
(LPOFSTRUCT)&ofs,
OF_WRITE | OF_CREATE);
if ((hread_file==-1)||(hwrite_file==-1))
return FALSE;
/* get file size */
if(_dos_findfirst(szfile,
_A_NORMAL|_A_HIDDEN,
&f_tbuffer))
return FALSE;
lbytes_left = lfile_size = f_tbuffer.size;
/* get memory to read file */
if (!(hmem=GlobalAlloc(GHND, 65535)))
{
MessageBox(hwnd,
(LPSTR)szerror1,
(LPSTR)NULL,
MB_ICONHAND | MB_OK);
return FALSE;
}
else /* we've got memory to read file*/
{
/* lock memory and read file into mem */
lpszbuffer = GlobalLock(hmem);
do
if (lbytes_left > 65535)
{
_dos_read(hread_file,
lpszbuffer,
65535,
&uact_bytes);
_dos_write(hwrite_file,
lpszbuffer,
65535,
&uact_bytes);
lbytes_left -= uact_bytes;
}
else
{
_dos_read(hread_file,
lpszbuffer,
(unsigned)LOWORD(lbytes_left),
&uact_bytes);
_dos_write(hwrite_file,
lpszbuffer,
(unsigned)LOWORD(lbytes_left),
&uact_bytes);
lbytes_left -= uact_bytes;
}
while (lbytes_left > 0);
/* unlock memory */
GlobalUnlock(hmem);
/* free memory */
GlobalFree(hmem);
}
/* close the files */
_dos_close(hread_file);
_dos_close(hwrite_file);

return TRUE;
} /* CopyFile */



/* Encypt/Decrypt file */
int EncryptFile(HANDLE hwnd,
char *szfile,
char *szkey)
{
HANDLE hread_file,
hrw_file,
hmem;
OFSTRUCT ofs;
WORD wkey_len,
windex,
wread_size;
long lbytes_left;
LPSTR lpszbuffer;
static struct find_t f_tbuffer;
static unsigned uact_bytes;

SetCursor(hwaitcursor);
hread_file = OpenFile((LPSTR)szfile,
(LPOFSTRUCT)&ofs,
OF_READ);
hrw_file = OpenFile((LPSTR)szfile,
(LPOFSTRUCT)&ofs,
OF_READWRITE);
if ((hread_file==-1)||(hrw_file==-1))
{
SetCursor(hnormcursor);
return FALSE;
}
/* get file size */
if (_dos_findfirst(szfile,
_A_NORMAL|_A_HIDDEN,
&f_tbuffer))
{
SetCursor(hnormcursor);
return FALSE;
}
lbytes_left = f_tbuffer.size;
wkey_len = (WORD)strlen(szkey);
wread_size = (WORD)min(65535,lbytes_left);
/* get memory to read file */
if (!(hmem=GlobalAlloc(GHND, MAKELONG(wread_size,0))))
{
SetCursor(hnormcursor);
MessageBox(hwnd,
(LPSTR)szerror1,
(LPSTR)NULL,
MB_ICONHAND | MB_OK);
return FALSE;
}
else /* we've got memory to read file*/
{
/* lock memory and read file into mem */
lpszbuffer = GlobalLock(hmem);
do
if (lbytes_left > (long)wread_size)
{
_dos_read(hread_file,
lpszbuffer,
wread_size,
&uact_bytes);
lbytes_left -= uact_bytes;
for (windex=0;windex lpszbuffer[windex] =
lpszbuffer[windex]^szkey[windex%wkey_len];
_dos_write(hrw_file,
lpszbuffer,
uact_bytes,
&uact_bytes);
}
else
{
_dos_read(hread_file,
lpszbuffer,
(unsigned)LOWORD(lbytes_left),
&uact_bytes);
for (windex=0;windex lpszbuffer[windex] =
lpszbuffer[windex]^szkey[windex%wkey_len];
_dos_write(hrw_file,
lpszbuffer,
uact_bytes,
&uact_bytes);
lbytes_left -= uact_bytes;
}
while (lbytes_left > 0);
/* unlock memory */
GlobalUnlock(hmem);
/* free memory */
GlobalFree(hmem);
}
/* close the files */
_dos_close(hread_file);
_dos_close(hrw_file);
SetCursor(hnormcursor);
return TRUE;
} /* EncryptFile */


/* Procedure to get next highlighted selection */
char *GetNextSel(HANDLE hsel)
{
WORD utemp,ucount;
static char sztemp[29+1];

strset(sztemp,0);
ucount = (WORD)SendMessage(hsel,LB_GETCOUNT,0,0L);
for(utemp=uoldsel;
utemp utemp++)
{
if (SendMessage(hsel,LB_GETSEL,utemp,0L))
{
uoldsel = utemp;
SendMessage(hsel,LB_GETTEXT,utemp,(long)(LPSTR)sztemp);
SendMessage(hsel,LB_SETSEL,0,MAKELONG(utemp,0));
utemp = 65534;
}
}
return sztemp;
}


/* Procedure to Encrypt and Decrypt files */
void EnDecryptFiles(HANDLE hsel)
{
static char szfile[29+1],
szcopy[29+1];
static unsigned uatt;
FARPROC lpproc;

ntimes = 0;
lpproc = MakeProcInstance(Key,hinst);
DialogBox(hinst,
MAKEINTRESOURCE(KEYBOX),
hsel,
lpproc);
FreeProcInstance(lpproc);

if (nendecrypt)
{
uoldsel = 0;
strset(szfile,0);
strcpy(szfile,GetNextSel(hsel));
while (szfile[0]!=0)
{
if (ndup==MF_CHECKED)
{
strset(szcopy,0);
strcpy(szcopy,szfile);
szcopy[strlen(szcopy)-1]='2';
CopyFile(hsel,szfile,szcopy);
}
if ((nhide==MF_CHECKED)&&(nencrypt))
{
_dos_getfileattr(szfile,&uatt);
uatt = uatt|_A_HIDDEN;
_dos_setfileattr(szfile,uatt);
}
if (!EncryptFile(hsel,szfile,szkey))
{
MessageBox(hsel,
(LPSTR)szerror2,
(LPSTR)szfile,
MB_ICONASTERISK|MB_OK);
if ((nhide==MF_CHECKED)&&(nencrypt))
{
_dos_getfileattr(szfile,&uatt);
uatt = uatt-_A_HIDDEN;
_dos_setfileattr(szfile,uatt);
}
}
strcpy(szfile,GetNextSel(hsel));
}
}
}


/* Procedure to make files invisible */
void MakeFilesInv(HANDLE hsel)
{
static char szfile[29+1];
static unsigned uatt;

uoldsel = 0;
strset(szfile,0);
strcpy(szfile,GetNextSel(hsel));

while (szfile[0]!=0)
{
_dos_getfileattr(szfile,&uatt);
uatt = uatt|_A_HIDDEN;
if (_dos_setfileattr(szfile,uatt))
MessageBox(hsel,
(LPSTR)szerror2,
(LPSTR)szfile,
MB_ICONASTERISK|MB_OK);
strcpy(szfile,GetNextSel(hsel));
}
}


/* Procedure to make files visible */
void MakeFilesVis(HANDLE hsel)
{
static char szfile[29+1];
static unsigned uatt;

uoldsel = 0;
strset(szfile,0);
strcpy(szfile,GetNextSel(hsel));
while (szfile[0]!=0)
{
_dos_getfileattr(szfile,&uatt);
uatt = uatt-_A_HIDDEN;
if (_dos_setfileattr(szfile,uatt))
MessageBox(hsel,
(LPSTR)szerror2,
(LPSTR)szfile,
MB_ICONASTERISK|MB_OK);
strcpy(szfile,GetNextSel(hsel));
}
}


/* Procedure to make files read-only */
void MakeFilesRead(HANDLE hsel)
{
static char szfile[29+1];
static unsigned uatt;

uoldsel = 0;
strset(szfile,0);
strcpy(szfile,GetNextSel(hsel));
while (szfile[0]!=0)
{
_dos_getfileattr(szfile,&uatt);
uatt = uatt|_A_RDONLY;
if (_dos_setfileattr(szfile,uatt))
MessageBox(hsel,
(LPSTR)szerror2,
(LPSTR)szfile,
MB_ICONASTERISK|MB_OK);
strcpy(szfile,GetNextSel(hsel));
}
}


/* Procedure to make files read\write */
void MakeFilesRW(HANDLE hsel)
{
static char szfile[29+1];
static unsigned uatt;

uoldsel = 0;
strset(szfile,0);
strcpy(szfile,GetNextSel(hsel));
while (szfile[0]!=0)
{
_dos_getfileattr(szfile,&uatt);
uatt = uatt-_A_RDONLY;
if (_dos_setfileattr(szfile,uatt))
MessageBox(hsel,
(LPSTR)szerror2,
(LPSTR)szfile,
MB_ICONASTERISK|MB_OK);
strcpy(szfile,GetNextSel(hsel));
}
}


/* Procedure to make directories invisible */
void MakeDirsInv(HANDLE hsel)
{
static char szfile[29+1],
szdir[29+1];
static unsigned uatt;

uoldsel = 0;
strset(szfile,0);
strset(szdir,0);
strcpy(szfile,GetNextSel(hsel));
strcat(szdir,GetDir(szfile));

while (szfile[0]!=0)
{
_dos_getfileattr(szfile,&uatt);
uatt = uatt|_A_HIDDEN;
if (_dos_setfileattr(szdir,uatt))
MessageBox(hsel,
(LPSTR)szerror2,
(LPSTR)szfile,
MB_ICONASTERISK|MB_OK);
strcpy(szfile,GetNextSel(hsel));
strcat(szdir,GetDir(szfile));
}
}


/* Procedure to make directories visible */
void MakeDirsVis(HANDLE hsel)
{
static char szfile[29+1],
szdir[29+1];
static unsigned uatt;

uoldsel = 0;
strset(szfile,0);
strset(szdir,0);
strcpy(szfile,GetNextSel(hsel));
strcat(szdir,GetDir(szfile));

while (szfile[0]!=0)
{
_dos_getfileattr(szfile,&uatt);
uatt = uatt-_A_HIDDEN;
if (_dos_setfileattr(szdir,_A_NORMAL))
MessageBox(hsel,
(LPSTR)szerror2,
(LPSTR)szfile,
MB_ICONASTERISK|MB_OK);
strcpy(szfile,GetNextSel(hsel));
strcat(szdir,GetDir(szfile));
}
}