Hi!

I include this Perl simple program to test the ability of the
new patches ( I sent some minutes ago and that can be found
at ftp://ftp.openca.org ) to enable OpenSSL 'ca' prog to 
operate with any number of certificates.

Use is very simple:

        $ cd $path_to_ssl_dir
        $ ./createindex $index_file_name $number_of_entries

Then to check it simple use:

        $ openssl ca -status $hex_serial_num_of_a_certificate

The ca program should work fine. Try it and please report any
bug in the patches. Thanks.

C'you,

        Massimiliano Pala ([EMAIL PROTECTED])
#!/usr/bin/perl

my $serial = 01;

if( $#ARGV < 1 ) {
        print "\nUsage: <filename> <num_of_entries>\n\n";
        exit 0;
}

open( FD , ">$ARGV[0]" ) or die "Cannot open $ARGV[0]!";
        for ( $serial = 1; $serial < $ARGV[1]; $serial++ ) {
                $ser = sprintf("%02X", $serial);
                print FD "V\t000819003648Z\t\t$ser\tunknown\t/C=IT/O=Certification 
Authority/OU=SER$serial/CN=secure.mpcnet.org/Email=madwolf\@comune.modena.it\n";
                print ".";
        }
close( FD );

print "\n\n";

exit

S/MIME Cryptographic Signature

Reply via email to