freeswan/utils/randomize

   1 #! /bin/sh
   2 # internal utility for putting random keys into sample configuration file
   3 # Copyright (C) 1998, 1999  Henry Spencer.
   4 #
   5 # This program is free software; you can redistribute it and/or modify it
   6 # under the terms of the GNU General Public License as published by the
   7 # Free Software Foundation; either version 2 of the License, or (at your
   8 # option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.
   9 #
  10 # This program is distributed in the hope that it will be useful, but
  11 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  12 # or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  13 # for more details.
  14 #
  15 # RCSID $Id: randomize,v 1.4 1999/04/10 22:51:29 henry Exp $
  16
  17 awk '/`[0-9]+`/ {
  18         match($0, /`[0-9]+`/)
  19         n = substr($0, RSTART+1, RLENGTH-2)
  20         cmd = "./ranbits --quick " n
  21         cmd | getline key
  22         cmd | getline eof
  23         close(cmd)
  24         sub(/`[0-9]+`/, key, $0)
  25         print
  26         next
  27 }
  28 { print }' $*