Check reseed interval before generating output.
[openssl.git] / fips / mkfipsscr.pl
1 #!/usr/local/bin/perl -w
2 # Quick & dirty utility to generate a script for executing the
3 # FIPS 140-2 CMVP algorithm tests based on the pathnames of
4 # input algorithm test files actually present (the unqualified
5 # file names are consistent but the pathnames are not).
6 #
7
8 # List of all the unqualified file names we expect.
9 my %fips_tests = (
10
11 # FIPS test definitions
12
13 # DSA tests
14
15 "PQGGen" => "fips_dssvs pqg",
16 "KeyPair" => "fips_dssvs keypair",
17 "SigGen" => "fips_dssvs siggen",
18 "SigVer" => "fips_dssvs sigver",
19
20 # SHA tests
21
22 "SHA1LongMsg" => "fips_shatest",
23 "SHA1Monte" => "fips_shatest",
24 "SHA1ShortMsg" => "fips_shatest",
25 "SHA224LongMsg" => "fips_shatest",
26 "SHA224Monte" => "fips_shatest",
27 "SHA224ShortMsg" => "fips_shatest",
28 "SHA256LongMsg" => "fips_shatest",
29 "SHA256Monte" => "fips_shatest",
30 "SHA256ShortMsg" => "fips_shatest",
31 "SHA384LongMsg" => "fips_shatest",
32 "SHA384Monte" => "fips_shatest",
33 "SHA384ShortMsg" => "fips_shatest",
34 "SHA512LongMsg" => "fips_shatest",
35 "SHA512Monte" => "fips_shatest",
36 "SHA512ShortMsg" => "fips_shatest",
37
38 # HMAC
39
40 "HMAC" => "fips_hmactest",
41
42 # RAND tests
43
44 "ANSI931_AES128MCT" => "fips_rngvs mct",
45 "ANSI931_AES192MCT" => "fips_rngvs mct",
46 "ANSI931_AES256MCT" => "fips_rngvs mct",
47 "ANSI931_AES128VST" => "fips_rngvs vst",
48 "ANSI931_AES192VST" => "fips_rngvs vst",
49 "ANSI931_AES256VST" => "fips_rngvs vst",
50
51 # RSA tests
52
53 "SigGen15" => "fips_rsastest",
54 "SigVer15" => "fips_rsavtest",
55 "SigGenPSS" => "fips_rsastest -saltlen SALT",
56 "SigVerPSS" => "fips_rsavtest -saltlen SALT",
57 "SigGenRSA" => "fips_rsastest -x931",
58 "SigVerRSA" => "fips_rsavtest -x931",
59 "KeyGenRSA" => "fips_rsagtest",
60
61 # AES tests
62
63 "CBCGFSbox128" => "fips_aesavs -f",
64 "CBCGFSbox192" => "fips_aesavs -f",
65 "CBCGFSbox256" => "fips_aesavs -f",
66 "CBCKeySbox128" => "fips_aesavs -f",
67 "CBCKeySbox192" => "fips_aesavs -f",
68 "CBCKeySbox256" => "fips_aesavs -f",
69 "CBCMCT128" => "fips_aesavs -f",
70 "CBCMCT192" => "fips_aesavs -f",
71 "CBCMCT256" => "fips_aesavs -f",
72 "CBCMMT128" => "fips_aesavs -f",
73 "CBCMMT192" => "fips_aesavs -f",
74 "CBCMMT256" => "fips_aesavs -f",
75 "CBCVarKey128" => "fips_aesavs -f",
76 "CBCVarKey192" => "fips_aesavs -f",
77 "CBCVarKey256" => "fips_aesavs -f",
78 "CBCVarTxt128" => "fips_aesavs -f",
79 "CBCVarTxt192" => "fips_aesavs -f",
80 "CBCVarTxt256" => "fips_aesavs -f",
81 "CFB128GFSbox128" => "fips_aesavs -f",
82 "CFB128GFSbox192" => "fips_aesavs -f",
83 "CFB128GFSbox256" => "fips_aesavs -f",
84 "CFB128KeySbox128" => "fips_aesavs -f",
85 "CFB128KeySbox192" => "fips_aesavs -f",
86 "CFB128KeySbox256" => "fips_aesavs -f",
87 "CFB128MCT128" => "fips_aesavs -f",
88 "CFB128MCT192" => "fips_aesavs -f",
89 "CFB128MCT256" => "fips_aesavs -f",
90 "CFB128MMT128" => "fips_aesavs -f",
91 "CFB128MMT192" => "fips_aesavs -f",
92 "CFB128MMT256" => "fips_aesavs -f",
93 "CFB128VarKey128" => "fips_aesavs -f",
94 "CFB128VarKey192" => "fips_aesavs -f",
95 "CFB128VarKey256" => "fips_aesavs -f",
96 "CFB128VarTxt128" => "fips_aesavs -f",
97 "CFB128VarTxt192" => "fips_aesavs -f",
98 "CFB128VarTxt256" => "fips_aesavs -f",
99 "CFB8GFSbox128" => "fips_aesavs -f",
100 "CFB8GFSbox192" => "fips_aesavs -f",
101 "CFB8GFSbox256" => "fips_aesavs -f",
102 "CFB8KeySbox128" => "fips_aesavs -f",
103 "CFB8KeySbox192" => "fips_aesavs -f",
104 "CFB8KeySbox256" => "fips_aesavs -f",
105 "CFB8MCT128" => "fips_aesavs -f",
106 "CFB8MCT192" => "fips_aesavs -f",
107 "CFB8MCT256" => "fips_aesavs -f",
108 "CFB8MMT128" => "fips_aesavs -f",
109 "CFB8MMT192" => "fips_aesavs -f",
110 "CFB8MMT256" => "fips_aesavs -f",
111 "CFB8VarKey128" => "fips_aesavs -f",
112 "CFB8VarKey192" => "fips_aesavs -f",
113 "CFB8VarKey256" => "fips_aesavs -f",
114 "CFB8VarTxt128" => "fips_aesavs -f",
115 "CFB8VarTxt192" => "fips_aesavs -f",
116 "CFB8VarTxt256" => "fips_aesavs -f",
117 #"CFB1GFSbox128" => "fips_aesavs -f",
118 #"CFB1GFSbox192" => "fips_aesavs -f",
119 #"CFB1GFSbox256" => "fips_aesavs -f",
120 #"CFB1KeySbox128" => "fips_aesavs -f",
121 #"CFB1KeySbox192" => "fips_aesavs -f",
122 #"CFB1KeySbox256" => "fips_aesavs -f",
123 #"CFB1MCT128" => "fips_aesavs -f",
124 #"CFB1MCT192" => "fips_aesavs -f",
125 #"CFB1MCT256" => "fips_aesavs -f",
126 #"CFB1MMT128" => "fips_aesavs -f",
127 #"CFB1MMT192" => "fips_aesavs -f",
128 #"CFB1MMT256" => "fips_aesavs -f",
129 #"CFB1VarKey128" => "fips_aesavs -f",
130 #"CFB1VarKey192" => "fips_aesavs -f",
131 #"CFB1VarKey256" => "fips_aesavs -f",
132 #"CFB1VarTxt128" => "fips_aesavs -f",
133 #"CFB1VarTxt192" => "fips_aesavs -f",
134 #"CFB1VarTxt256" => "fips_aesavs -f",
135 "ECBGFSbox128" => "fips_aesavs -f",
136 "ECBGFSbox192" => "fips_aesavs -f",
137 "ECBGFSbox256" => "fips_aesavs -f",
138 "ECBKeySbox128" => "fips_aesavs -f",
139 "ECBKeySbox192" => "fips_aesavs -f",
140 "ECBKeySbox256" => "fips_aesavs -f",
141 "ECBMCT128" => "fips_aesavs -f",
142 "ECBMCT192" => "fips_aesavs -f",
143 "ECBMCT256" => "fips_aesavs -f",
144 "ECBMMT128" => "fips_aesavs -f",
145 "ECBMMT192" => "fips_aesavs -f",
146 "ECBMMT256" => "fips_aesavs -f",
147 "ECBVarKey128" => "fips_aesavs -f",
148 "ECBVarKey192" => "fips_aesavs -f",
149 "ECBVarKey256" => "fips_aesavs -f",
150 "ECBVarTxt128" => "fips_aesavs -f",
151 "ECBVarTxt192" => "fips_aesavs -f",
152 "ECBVarTxt256" => "fips_aesavs -f",
153 "OFBGFSbox128" => "fips_aesavs -f",
154 "OFBGFSbox192" => "fips_aesavs -f",
155 "OFBGFSbox256" => "fips_aesavs -f",
156 "OFBKeySbox128" => "fips_aesavs -f",
157 "OFBKeySbox192" => "fips_aesavs -f",
158 "OFBKeySbox256" => "fips_aesavs -f",
159 "OFBMCT128" => "fips_aesavs -f",
160 "OFBMCT192" => "fips_aesavs -f",
161 "OFBMCT256" => "fips_aesavs -f",
162 "OFBMMT128" => "fips_aesavs -f",
163 "OFBMMT192" => "fips_aesavs -f",
164 "OFBMMT256" => "fips_aesavs -f",
165 "OFBVarKey128" => "fips_aesavs -f",
166 "OFBVarKey192" => "fips_aesavs -f",
167 "OFBVarKey256" => "fips_aesavs -f",
168 "OFBVarTxt128" => "fips_aesavs -f",
169 "OFBVarTxt192" => "fips_aesavs -f",
170 "OFBVarTxt256" => "fips_aesavs -f",
171
172 # Triple DES tests
173
174 "TCBCinvperm" => "fips_desmovs -f",
175 "TCBCMMT1" => "fips_desmovs -f",
176 "TCBCMMT2" => "fips_desmovs -f",
177 "TCBCMMT3" => "fips_desmovs -f",
178 "TCBCMonte1" => "fips_desmovs -f",
179 "TCBCMonte2" => "fips_desmovs -f",
180 "TCBCMonte3" => "fips_desmovs -f",
181 "TCBCpermop" => "fips_desmovs -f",
182 "TCBCsubtab" => "fips_desmovs -f",
183 "TCBCvarkey" => "fips_desmovs -f",
184 "TCBCvartext" => "fips_desmovs -f",
185 "TCFB64invperm" => "fips_desmovs -f",
186 "TCFB64MMT1" => "fips_desmovs -f",
187 "TCFB64MMT2" => "fips_desmovs -f",
188 "TCFB64MMT3" => "fips_desmovs -f",
189 "TCFB64Monte1" => "fips_desmovs -f",
190 "TCFB64Monte2" => "fips_desmovs -f",
191 "TCFB64Monte3" => "fips_desmovs -f",
192 "TCFB64permop" => "fips_desmovs -f",
193 "TCFB64subtab" => "fips_desmovs -f",
194 "TCFB64varkey" => "fips_desmovs -f",
195 "TCFB64vartext" => "fips_desmovs -f",
196 "TCFB8invperm" => "fips_desmovs -f",
197 "TCFB8MMT1" => "fips_desmovs -f",
198 "TCFB8MMT2" => "fips_desmovs -f",
199 "TCFB8MMT3" => "fips_desmovs -f",
200 "TCFB8Monte1" => "fips_desmovs -f",
201 "TCFB8Monte2" => "fips_desmovs -f",
202 "TCFB8Monte3" => "fips_desmovs -f",
203 "TCFB8permop" => "fips_desmovs -f",
204 "TCFB8subtab" => "fips_desmovs -f",
205 "TCFB8varkey" => "fips_desmovs -f",
206 "TCFB8vartext" => "fips_desmovs -f",
207 "TECBinvperm" => "fips_desmovs -f",
208 "TECBMMT1" => "fips_desmovs -f",
209 "TECBMMT2" => "fips_desmovs -f",
210 "TECBMMT3" => "fips_desmovs -f",
211 "TECBMonte1" => "fips_desmovs -f",
212 "TECBMonte2" => "fips_desmovs -f",
213 "TECBMonte3" => "fips_desmovs -f",
214 "TECBpermop" => "fips_desmovs -f",
215 "TECBsubtab" => "fips_desmovs -f",
216 "TECBvarkey" => "fips_desmovs -f",
217 "TECBvartext" => "fips_desmovs -f",
218 "TOFBinvperm" => "fips_desmovs -f",
219 "TOFBMMT1" => "fips_desmovs -f",
220 "TOFBMMT2" => "fips_desmovs -f",
221 "TOFBMMT3" => "fips_desmovs -f",
222 "TOFBMonte1" => "fips_desmovs -f",
223 "TOFBMonte2" => "fips_desmovs -f",
224 "TOFBMonte3" => "fips_desmovs -f",
225 "TOFBpermop" => "fips_desmovs -f",
226 "TOFBsubtab" => "fips_desmovs -f",
227 "TOFBvarkey" => "fips_desmovs -f",
228 "TOFBvartext" => "fips_desmovs -f",
229 "TCBCinvperm" => "fips_desmovs -f",
230 "TCBCMMT1" => "fips_desmovs -f",
231 "TCBCMMT2" => "fips_desmovs -f",
232 "TCBCMMT3" => "fips_desmovs -f",
233 "TCBCMonte1" => "fips_desmovs -f",
234 "TCBCMonte2" => "fips_desmovs -f",
235 "TCBCMonte3" => "fips_desmovs -f",
236 "TCBCpermop" => "fips_desmovs -f",
237 "TCBCsubtab" => "fips_desmovs -f",
238 "TCBCvarkey" => "fips_desmovs -f",
239 "TCBCvartext" => "fips_desmovs -f",
240 "TCFB64invperm" => "fips_desmovs -f",
241 "TCFB64MMT1" => "fips_desmovs -f",
242 "TCFB64MMT2" => "fips_desmovs -f",
243 "TCFB64MMT3" => "fips_desmovs -f",
244 "TCFB64Monte1" => "fips_desmovs -f",
245 "TCFB64Monte2" => "fips_desmovs -f",
246 "TCFB64Monte3" => "fips_desmovs -f",
247 "TCFB64permop" => "fips_desmovs -f",
248 "TCFB64subtab" => "fips_desmovs -f",
249 "TCFB64varkey" => "fips_desmovs -f",
250 "TCFB64vartext" => "fips_desmovs -f",
251 "TCFB8invperm" => "fips_desmovs -f",
252 "TCFB8MMT1" => "fips_desmovs -f",
253 "TCFB8MMT2" => "fips_desmovs -f",
254 "TCFB8MMT3" => "fips_desmovs -f",
255 "TCFB8Monte1" => "fips_desmovs -f",
256 "TCFB8Monte2" => "fips_desmovs -f",
257 "TCFB8Monte3" => "fips_desmovs -f",
258 "TCFB8permop" => "fips_desmovs -f",
259 "TCFB8subtab" => "fips_desmovs -f",
260 "TCFB8varkey" => "fips_desmovs -f",
261 "TCFB8vartext" => "fips_desmovs -f",
262 "TECBinvperm" => "fips_desmovs -f",
263 "TECBMMT1" => "fips_desmovs -f",
264 "TECBMMT2" => "fips_desmovs -f",
265 "TECBMMT3" => "fips_desmovs -f",
266 "TECBMonte1" => "fips_desmovs -f",
267 "TECBMonte2" => "fips_desmovs -f",
268 "TECBMonte3" => "fips_desmovs -f",
269 "TECBpermop" => "fips_desmovs -f",
270 "TECBsubtab" => "fips_desmovs -f",
271 "TECBvarkey" => "fips_desmovs -f",
272 "TECBvartext" => "fips_desmovs -f",
273 "TOFBinvperm" => "fips_desmovs -f",
274 "TOFBMMT1" => "fips_desmovs -f",
275 "TOFBMMT2" => "fips_desmovs -f",
276 "TOFBMMT3" => "fips_desmovs -f",
277 "TOFBMonte1" => "fips_desmovs -f",
278 "TOFBMonte2" => "fips_desmovs -f",
279 "TOFBMonte3" => "fips_desmovs -f",
280 "TOFBpermop" => "fips_desmovs -f",
281 "TOFBsubtab" => "fips_desmovs -f",
282 "TOFBvarkey" => "fips_desmovs -f",
283 "TOFBvartext" => "fips_desmovs -f"
284
285 );
286 my %salt_names = (
287 "SigVerPSS (salt 0)" => "SigVerPSS",
288 "SigVerPSS (salt 62)" => "SigVerPSS",
289 "SigGenPSS (salt 0)" => "SigGenPSS",
290 "SigGenPSS (salt 62)" => "SigGenPSS",
291 );
292
293
294 my $win32 = $^O =~ m/mswin/i;
295 my $onedir = 0;
296 my $filter = "";
297 my $tvdir;
298 my $tprefix;
299 my $shwrap_prefix;
300 my $shwrap;
301 my $rmcmd = "rm -rf";
302 my $mkcmd = "mkdir";
303 my $debug = 0;
304 my $quiet = 0;
305 my $rspdir = "rsp";
306 my $rspignore = 0;
307 my @bogus = ();                 # list of unmatched *.rsp files
308 my $bufout = '';
309 my $bufdir = '';
310 my %_programs = ();             # list of external programs to check
311
312 foreach (@ARGV)
313         {
314         if ($_ eq "--win32")
315                 {
316                 $win32 = 1;
317                 }
318         elsif ($_ eq "--onedir")
319                 {
320                 $onedir = 1;
321                 }
322         elsif ($_ eq "--debug")
323                 {
324                 $debug = 1;
325                 }
326         elsif ($_ eq "--quiet")
327                 {
328                 $quiet = 1;
329                 }
330         elsif (/--dir=(.*)$/)
331                 {
332                 $tvdir = $1;
333                 }
334         elsif (/--rspdir=(.*)$/)
335                 {
336                 $rspdir = $1;
337                 }
338         elsif (/--noshwrap$/)
339                 {
340                 $shwrap = "";
341                 }
342         elsif (/--rspignore$/)
343                 {
344                 $rspignore = 1;
345                 }
346         elsif (/--tprefix=(.*)$/)
347                 {
348                 $tprefix = $1;
349                 }
350         elsif (/--shwrap_prefix=(.*)$/)
351                 {
352                 $shwrap_prefix = $1;
353                 }
354         elsif (/--filter=(.*)$/)
355                 {
356                 $filter = $1;
357                 }
358         elsif (/--mkdir=(.*)$/)
359                 {
360                 $mkcmd = $1;
361                 }
362         elsif (/--rm=(.*)$/)
363                 {
364                 $rmcmd = $1;
365                 }
366         elsif (/--outfile=(.*)$/)
367                 {
368                 $outfile = $1;
369                 }
370         else
371                 {
372                 &Help();
373                 exit(1);
374                 }
375         }
376
377 $tvdir = "." unless defined $tvdir;
378
379 if ($win32)
380         {
381         if (!defined $tprefix)
382                 {
383                 if ($onedir)
384                         {
385                         $tprefix = ".\\";
386                         }
387                 else
388                         {
389                         $tprefix = "..\\out32dll\\";
390                         }
391                 }
392
393         $bufinit .= <<END;
394 \@echo off
395 rem Test vector run script
396 rem Auto generated by mkfipsscr.pl script
397 rem Do not edit
398
399 END
400
401         }
402 else
403         {
404         if ($onedir)
405                 {
406                 $tprefix = "./" unless defined $tprefix;
407                 $shwrap_prefix = "./" unless defined $shwrap_prefix;
408                 }
409         else
410                 {
411                 $tprefix = "../test/" unless defined $tprefix;
412                 $shwrap_prefix = "../util/" unless defined $shwrap_prefix;
413                 }
414
415         $shwrap = "${shwrap_prefix}shlib_wrap.sh " unless defined $shwrap;
416
417         $bufinit .= <<END;
418 #!/bin/sh
419
420 # Test vector run script
421 # Auto generated by mkfipsscr.pl script
422 # Do not edit
423
424 RM="$rmcmd"
425 MKDIR="$mkcmd"
426 TPREFIX=$tprefix
427 END
428
429         }
430 my %fips_found;
431 foreach (keys %fips_tests)
432         {
433         $fips_found{$_} = 0;
434         }
435 my %saltPSS;
436 for (keys %salt_names)
437         {
438         $salt_found{$_} = 0;
439         }
440
441 recurse_test($win32, $tprefix, $filter, $tvdir);
442
443 while (($key, $value) = each %salt_found)
444         {
445         &countentry($key, $value);
446         delete $fips_found{$salt_names{$key}};
447         }
448 while (($key, $value) = each %fips_found)
449         {
450         &countentry($key, $value);
451         }
452
453 # If no fatal errors write out the script file
454         $outfile = "fipstests.sh" unless defined $outfile;
455         open(OUT, ">$outfile") || die "Error opening $outfile: $!";
456         print OUT $bufinit;
457         if (!$rspignore && @bogus)
458                 {
459                 print STDERR "ERROR: please remove bogus *.rsp files\n";
460                 print OUT <<EOF;
461 echo $outfile generation failed due to presence of bogus *.rsp files
462 EOF
463                 }
464         else
465                 {
466                 print OUT $bufout;
467                 }
468         close OUT;
469
470 # Check for external programs
471         for (keys %_programs)
472                 {
473                 s/ .*$//;
474                 -x $_ || print STDERR "WARNING: program $_ not found\n";
475                 }
476
477 #--------------------------------
478 sub Help {
479 (my $cmd) = ($0 =~ m#([^/]+)$#);
480         print <<EOF;
481 $cmd: generate script for CMVP algorithm tests
482         --debug                     Enable debug output
483         --dir=<dirname>             Optional root for *.req file search
484         --filter=<regexp>
485         --onedir <dirname>          Assume all components in current directory
486         --outfile=<filename>        Optional name of output script, default fipstests.{sh|bat}
487         --rspdir=<dirname>          Name of subdirectories containing *.rsp files, default "resp"
488         --rspignore                 Ignore any bogus *.rsp files
489         --shwrap_prefix=<prefix>
490         --tprefix=<prefix>
491         --quiet                     Shhh....
492         --win32                     Generate script for Win32 environment
493 EOF
494 }
495
496 #--------------------------------
497 sub countentry {
498         my ($key,$value) = @_;
499         if ($value == 0)
500                 {
501                 print STDERR "WARNING: test file $key not found\n" unless $quiet;
502                 }
503         elsif ($value > 1)
504                 {
505                 print STDERR "WARNING: test file $key found $value times\n" unless $quiet;
506                 }
507         else 
508                 {
509                 print STDERR "Found test file $key\n" if $debug;
510                 }
511         }
512
513 #--------------------------------
514 sub recurse_test
515         {
516         my ($win32, $tprefix, $filter, $dir) = @_;
517         my $dirh;
518         opendir($dirh, $dir);
519         while ($_ = readdir($dirh))
520                 {
521                 next if ($_ eq "." || $_ eq "..");
522                 $_ = "$dir/$_";
523                 if (-f "$_")
524                         {
525                         if (/\/([^\/]*)\.rsp$/)
526                                 {
527                                 if (exists $fips_tests{$1})
528                                         {
529                                         $debug && print "DEBUG: $1 found, will be overwritten\n";
530                                         }
531                                 else
532                                         {
533                                         print STDERR "ERROR: bogus file $_\n";
534                                         push @bogus, $_;
535                                         }
536                                 }
537                         next unless /$filter.*\.req$/i;
538                         if (/\/([^\/]*)\.req$/ && exists $fips_tests{$1})
539                                 {
540                                 $fips_found{$1}++;
541                                 test_line($win32, $_, $tprefix, $1);
542                                 }
543                         elsif (! /SHAmix\.req$/)
544                                 {
545                                 print STDERR "WARNING: unrecognized filename $_\n";
546                                 }
547                         }
548                 elsif (-d "$_")
549                         {
550                         if (/$filter.*req$/i)
551                                 {
552                                 test_dir($win32, $_);
553                                 }
554                         recurse_test($win32, $tprefix, $filter, $_);
555                         }
556                 }
557         closedir($dirh);
558         }
559
560 #--------------------------------
561 sub test_dir
562         {
563         my ($win32, $req) = @_;
564         my $rsp = $req;
565         $rsp =~ s/req$/$rspdir/;
566         if ($win32)
567                 {
568                 $rsp =~ tr|/|\\|;
569                 $req =~ tr|/|\\|;
570                 $bufdir = <<END;
571
572 echo Running tests in $req
573 if exist "$rsp" rd /s /q "$rsp"
574 md "$rsp"
575 END
576                 }
577         else
578                 {
579                 $bufdir = <<END;
580
581 echo Running tests in "$req"
582 \$RM "$rsp"
583 \$MKDIR "$rsp"
584
585 END
586                 }
587         }
588
589 #--------------------------------
590 sub test_line
591         {
592         my ($win32, $req, $tprefix, $tnam) = @_;
593         my $rsp = $req;
594         my $tcmd = $fips_tests{$tnam};
595
596         $bufout .= $bufdir;
597         $bufdir = "";
598                 
599         $rsp =~ s/req\/([^\/]*).req$/$rspdir\/$1.rsp/;
600         if ($tcmd =~ /-f$/)
601                 {
602                 if ($win32)
603                         {
604                         $req =~ tr|/|\\|;
605                         $rsp =~ tr|/|\\|;
606                         $bufout .= "$tprefix$tcmd \"$req\" \"$rsp\"\n";
607                         $_programs{"$tprefix$tcmd.exe"} = 1;
608                         }
609                 else
610                         {
611                         $bufout .= <<END;
612 ${shwrap}\${TPREFIX}$tcmd "$req" "$rsp" || { echo "$req failure" ; exit 1 
613 }
614 END
615                         $_programs{"${shwrap_prefix}shlib_wrap.sh"} = 1;
616                         $_programs{"$tprefix$tcmd"} = 1;
617                         }
618                 return;
619                 }
620         if ($tcmd =~ /SALT$/)
621                 {
622                 open (IN, $req) || die "Can't Open File $req";
623                 my $saltlen;
624                 while (<IN>)
625                         {
626                         if (/^\s*#\s*salt\s+len:\s+(\d+)\s*$/i)
627                                 {
628                                 my $sl = $1;
629                                 print STDERR "$req salt length $sl\n" if $debug;
630                                 $tcmd =~ s/SALT$/$sl/;
631                                 $salt_found{"$tnam (salt $sl)"}++;
632                                 last;
633                                 }
634                         }
635                 close IN;
636                 if ($tcmd =~ /SALT$/)
637                         {
638                         die "Can't detect salt length for $req";
639                         }
640                 }
641                 
642         if ($win32)
643                 {
644                 $req =~ tr|/|\\|;
645                 $rsp =~ tr|/|\\|;
646                 $bufout .= "$tprefix$tcmd < \"$req\" > \"$rsp\"\n";
647                 $_programs{"$tprefix$tcmd.exe"} = 1;
648                 }
649         else
650                 {
651                 $bufout .= <<END;
652 ${shwrap}\${TPREFIX}$tcmd < "$req" > "$rsp" || { echo "$req failure" ; exit 1; }
653 END
654                 $_programs{"$tprefix$tcmd"} = 1;
655                 }
656         }
657