|
|
@perl -x -w %0 %*@goto :eof#!perl################################################################################## Script begins here. Above is overhead to make a happy batch file.#################################################################################
use srTest;use Cwd;
my $dev = substr(cwd(),0,2);my $opOpt = "";my $sfOpt = "";
## the command to execute## Operator defintions:# nnn: Commands to execute (can be search for)# ! internal PERL commands to be executed silently# ... anything else is a command to bshell##
SrRun (
#create stream with LONG name# "1:Create stream \\docume~1\\admini~1.bvt\\locals~1\\temp\\lug\\%temp%:{4c8cc155-6c1e-11d1-8e41-00c04fb9386d}:\$data file relative with short names",# "!mkdir '$dev/Documents and Settings/', 0",# "!mkdir '$dev/Documents and Settings/Administrator.bvt/', 0",# "!mkdir '$dev/Documents and Settings/Administrator.bvt/local settings/', 0",# "!mkdir '$dev/Documents and Settings/Administrator.bvt/local settings/temp/', 0",# "!mkdir '$dev/Documents and Settings/Administrator.bvt/local settings/temp/lug/', 0",# "op $opOpt /f\\$dev\\docume~1\\admini~1.bvt\\locals~1\\temp\\lug\\%temp% /dzj /pzd /hzabc",# "op $opOpt /r0 /x /f:{4c8cc155-6c1e-11d1-8e41-00c04fb9386d}:\$data /dzj /pzf /hzabc",# "cl /i0",# "cl /i1",
#create stream on an interesting file, already exists, "1:Create stream on a file - file exists, is interesting, full path, simple stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!crfile '$dev/stream/a.exe'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.exe:stream1 /dzj /pzc", "cl /i0",
"2:Create stream on a file - file exists, is interesting, full path, complex stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!crfile '$dev/stream/a.exe'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.exe:stream1:\$data /dzj /pzc", "cl /i0",
"3:Create stream on a file - file exists, is interesting, file relative, simple stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!crfile '$dev/stream/a.exe'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.exe /dzj /pzd /hzabc", "op $opOpt /r0 /x /f:stream1 /dzj /pzc /hzabc", "cl /i0", "cl /i1",
"4:Create stream on a file - file exists, is interesting, file relative, complex stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!crfile '$dev/stream/a.exe'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.exe /dzj /pzd /hzabc", "op $opOpt /r0 /x /f:stream1:\$data /dzj /pzc /hzabc", "cl /i0", "cl /i1",
#create stream on an interesting file, does not exists, "11:Create stream on a file - file does not exist, is interesting, full path, simple stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.exe:stream1 /dzj /pzc", "cl /i0",
"12:Create stream on a file - file does not exist, is interesting, full path, complex stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.exe:stream1:\$data /dzj /pzc", "cl /i0",
"13:Create stream on a file - file does not exist, is interesting, file relative, simple stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.exe /dzj /pzc /hzabc", "op $opOpt /r0 /x /f:stream1 /dzj /pzc /hzabc", "cl /i0", "cl /i1",
"14:Create stream on a file - file does not exist, is interesting, file relative, complex stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.exe /dzj /pzc /hzabc", "op $opOpt /r0 /x /f:stream1:\$data /dzj /pzc /hzabc", "cl /i0", "cl /i1", #create stream on an non-interesting file, already exists, "21:Create stream on a file - file exists, is not interesting, full path, simple stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.txt'", "!crfile '$dev/stream/a.txt'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.txt:stream1 /dzj /pzc", "cl /i0",
"22:Create stream on a file - file exists, is not interesting, full path, complex stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.txt'", "!crfile '$dev/stream/a.txt'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.txt:stream1:\$data /dzj /pzc", "cl /i0",
"23:Create stream on a file - file exists, is not interesting, file relative, simple stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.txt'", "!crfile '$dev/stream/a.txt'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.txt /dzj /pzd /hzabc", "op $opOpt /r0 /x /f:stream1 /dzj /pzc /hzabc", "cl /i0", "cl /i1",
"24:Create stream on a file - file exists, is not interesting, file relative, complex stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.txt'", "!crfile '$dev/stream/a.txt'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.txt /dzj /pzd /hzabc", "op $opOpt /r0 /x /f:stream1:\$data /dzj /pzc /hzabc", "cl /i0", "cl /i1",
#create stream on an interesting file, does not exists, "31:Create stream on a file - file does not exist, is not interesting, full path, simple stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.txt'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.txt:stream1 /dzj /pzc", "cl /i0",
"32:Create stream on a file - file does not exist, is not interesting, full path, complex stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.txt'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.txt:stream1:\$data /dzj /pzc", "cl /i0",
"33:Create stream on a file - file does not exist, is not interesting, file relative, simple stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.txt'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.txt /dzj /pzc /hzabc", "op $opOpt /r0 /x /f:stream1 /dzj /pzc /hzabc", "cl /i0", "cl /i1",
"34:Create stream on a file - file does not exist, is not interesting, file relative, complex stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.txt'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.txt /dzj /pzc /hzabc", "op $opOpt /r0 /x /f:stream1:\$data /dzj /pzc /hzabc", "cl /i0", "cl /i1",
#open a stream for overwrite "41:Open a stream on a file for overwrite - file exist, is interesting, full path, simple stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!crfile '$dev/stream/a.exe:stream1'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.exe:stream1 /dzj /pze", "cl /i0", "42:Open a stream on a file for overwrite - file exist, is interesting, full path, complex stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!crfile '$dev/stream/a.exe:stream1:$DATA'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.exe:stream1:\$data /dzj /pze", "cl /i0", "43:Open a stream on a file for overwrite - file exist, is interesting, file relative, simple stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!crfile '$dev/stream/a.exe:stream1'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.exe /dzj /pzc /hzabc", "op $opOpt /r0 /x /f:stream1 /dzj /pzc /hzabc", "cl /i0", "cl /i1", "44:Open a stream on a file for overwrite - file exist, is interesting, file relative, complex stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!crfile '$dev/stream/a.exe:stream1:$DATA'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.exe /dzj /pzc /hzabc", "op $opOpt /r0 /x /f:stream1:\$data /dzj /pzc /hzabc", "cl /i0", "cl /i1",
#delete a stream "51:Delete a stream on a file - file exist, is interesting, full path, simple stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!crfile '$dev/stream/a.exe:stream1'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.exe:stream1 /dzj /pzb", "sf /i0 /cd /dt", "cl /i0", "52:Delete a stream on a file - file exist, is interesting, full path, complex", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!crfile '$dev/stream/a.exe:stream1'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.exe:stream1:\$DATA /dzj /pzb", "sf /i0 /cd /dt", "cl /i0",
"53:Delete a stream on a file - file exist, is not interesting, full path, simple stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.txt'", "!crfile '$dev/stream/a.txt:stream1'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.txt:stream1 /dzj /pzb", "sf /i0 /cd /dt", "cl /i0", "54:Delete a stream on a file - file exist, is not interesting, full path, complex", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.txt'", "!crfile '$dev/stream/a.txt:stream1'", "!enableSr $dev\\", "op $opOpt /f\\$dev\\stream\\a.txt:stream1:\$DATA /dzj /pzb", "sf /i0 /cd /dt", "cl /i0",
"55:Delete a stream on a file - file does not exist, is interesting, full path, simple stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!enableSr $dev\\", "!crfile '$dev/stream/a.exe:stream1'", "op $opOpt /f\\$dev\\stream\\a.exe:stream1 /dzj /pzb", "sf /i0 /cd /dt", "cl /i0", "56:Delete a stream on a file - file does not exist, is interesting, full path, complex", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.exe'", "!enableSr $dev\\", "!crfile '$dev/stream/a.exe:stream1'", "op $opOpt /f\\$dev\\stream\\a.exe:stream1:\$DATA /dzj /pzb", "sf /i0 /cd /dt", "cl /i0",
"57:Delete a stream on a file - file does not exist, is not interesting, full path, simple stream name", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.txt'", "!enableSr $dev\\", "!crfile '$dev/stream/a.exe:stream1'", "op $opOpt /f\\$dev\\stream\\a.txt:stream1 /dzj /pzb", "sf /i0 /cd /dt", "cl /i0", "58:Delete a stream on a file - file does not exist, is not interesting, full path, complex", "!disableSr $dev\\", "!mkdir '$dev/stream/', 0", "!unlink '$dev/stream/a.txt'", "!crfile '$dev/stream/a.txt:stream1:$DATA'", "!enableSr $dev\\", "!crfile '$dev/stream/a.exe:stream1'", "op $opOpt /f\\$dev\\stream\\a.txt:stream1:\$DATA /dzj /pzb", "sf /i0 /cd /dt", "cl /i0", );
|
