third_party/mbedtls/repo/tests/scripts/recursion.pl

   1 #!/usr/bin/env perl
   2
   3 # Find functions making recursive calls to themselves.
   4 # (Multiple recursion where a() calls b() which calls a() not covered.)
   5 #
   6 # When the recursion depth might depend on data controlled by the attacker in
   7 # an unbounded way, those functions should use interation instead.
   8 #
   9 # Typical usage: scripts/recursion.pl library/*.c
  10
  11 use warnings;
  12 use strict;
  13
  14 use utf8;
  15 use open qw(:std utf8);
  16
  17 # exclude functions that are ok:
  18 # - mpi_write_hlp: bounded by size of mbedtls_mpi, a compile-time constant
  19 # - x509_crt_verify_child: bounded by MBEDTLS_X509_MAX_INTERMEDIATE_CA
  20 my $known_ok = qr/mpi_write_hlp|x509_crt_verify_child/;
  21
  22 my $cur_name;
  23 my $inside;
  24 my @funcs;
  25
  26 die "Usage: $0 file.c [...]\n" unless @ARGV;
  27
  28 while (<>)
  29 {
  30     if( /^[^\/#{}\s]/ && ! /\[.*]/ ) {
  31         chomp( $cur_name = $_ ) unless $inside;
  32     } elsif( /^{/ && $cur_name ) {
  33         $inside = 1;
  34         $cur_name =~ s/.* ([^ ]*)\(.*/$1/;
  35     } elsif( /^}/ && $inside ) {
  36         undef $inside;
  37         undef $cur_name;
  38     } elsif( $inside && /\b\Q$cur_name\E\([^)]/ ) {
  39         push @funcs, $cur_name unless /$known_ok/;
  40     }
  41 }
  42
  43 print "$_\n" for @funcs;
  44 exit @funcs;