ss = 'WITH ENCRYPTION'
rs = '/* WITH ENCRYPTION */'
nf = adir(fs, '*.bak')
for f = 1 to nf
 fn = fs[f, 1]
 fh1 = fopen(fn)
 fh2 = fcreate(stuff(fn, atc('.bak', fn), 4, '.viw'))
 do while(!feof(fh1))
	 fl = fgets(fh1)
	 if atc(ss, fl) > 0 then
		fl = stuff(fl, atc(ss, fl), LEN(ss), rs)
	 endif
	 = fputs(fh2, fl)
 enddo
 = fclose(fh1)
 = fclose(fh2)
endfor