lect08-bb.ppt

unix/linux 编程实践一书的所有源代码

#!/bin/sh
#
# RCSID $Id: tfir,v 1.4 2002/04/24 07:36:17 mcr Exp $
#
# This script is OBSOLETE -- rgb, May 6th, 1998

tncfg attach ipsec0 eth0
ifconfig ipsec0 10.2.0.143 netmask 255.255.0.0
route add -net 10.3.0.0 netmask 255.255.0.0 dev ipsec0

# forward path

../utils/addrt 10.1.0.0 255.255.0.0 10.3.0.0 255.255.0.0 10.2.0.139 103
echo sleeping after addrt
sleep 1

../utils/setsa 10.2.0.139 103 ip4 10.2.0.143 10.2.0.139
../utils/setsa 10.2.0.139 105 esp des-cbc 66306630 6630663066303132
../utils/setsa 10.2.0.139 106 ah md5 66306630663031326630663066303132

../utils/spigrp 10.2.0.139 103 10.2.0.139 105 10.2.0.139 106

# return path

../utils/setsa 10.2.0.143 115 esp des-cbc 66306630 6630663066303132
../utils/setsa 10.2.0.143 116 ah md5 66306630663031326630663066303132

#
# $Log: tfir,v $
# Revision 1.4  2002/04/24 07:36:17  mcr
# Moved from ./klips/test/ji/tfir,v
#
# Revision 1.3  1999/04/06 04:54:35  rgb
# Fix/Add RCSID Id: and Log: bits to make PHMDs happy.  This includes
# patch shell fixes.
#
#
uClinux-dist/openswan/testing/klips/ji/tice0000775000076400007640000000176510212740376021272 0ustar  gerggerg00000000000000#!/bin/sh
#
# RCSID $Id: tice,v 1.4 2002/04/24 07:36:18 mcr Exp $
#
# This script is OBSOLETE -- rgb, May 6th, 1998

tncfg attach ipsec0 eth0
ifconfig ipsec0 10.2.0.139 netmask 255.255.0.0
route add -net 10.1.0.0 netmask 255.255.0.0 dev ipsec0

# forward path

../utils/addrt 10.3.0.0 255.255.0.0 10.1.0.0 255.255.0.0 10.2.0.143 113
echo sleeping after addrt
sleep 1

../utils/setsa 10.2.0.143 113 ip4 10.2.0.139 10.2.0.143
../utils/setsa 10.2.0.143 115 esp des-cbc 66306630 6630663066303132
../utils/setsa 10.2.0.143 116 ah md5 66306630663031326630663066303132

../utils/spigrp 10.2.0.143 113 10.2.0.143 115 10.2.0.143 116

# return path

../utils/setsa 10.2.0.139 105 esp des-cbc 66306630 6630663066303132
../utils/setsa 10.2.0.139 106 ah md5 66306630663031326630663066303132

#
# $Log: tice,v $
# Revision 1.4  2002/04/24 07:36:18  mcr
# Moved from ./klips/test/ji/tice,v
#
# Revision 1.3  1999/04/06 04:54:35  rgb
# Fix/Add RCSID Id: and Log: bits to make PHMDs happy.  This includes
# patch shell fixes.
#
#
uClinux-dist/openswan/testing/klips/ji/ttn0000775000076400007640000000101210212740376021134 0ustar  gerggerg00000000000000#!/bin/bash
#
# RCSID $Id: ttn,v 1.4 2002/04/24 07:36:18 mcr Exp $
#
# This script is OBSOLETE -- rgb, May 6th, 1998
set +v
insmod ipsec.o
tncfg attach ipsec0 eth2
ifconfig ipsec0 10.2.0.143 up netmask 255.255.0.0
route del 10.2.0.0
route add -net 10.2.0.0 netmask 255.255.0.0 dev ipsec0


#
# $Log: ttn,v $
# Revision 1.4  2002/04/24 07:36:18  mcr
# Moved from ./klips/test/ji/ttn,v
#
# Revision 1.3  1999/04/06 04:54:36  rgb
# Fix/Add RCSID Id: and Log: bits to make PHMDs happy.  This includes
# patch shell fixes.
#
#
uClinux-dist/openswan/testing/klips/ji/tif960000775000076400007640000000202210212740376021272 0ustar  gerggerg00000000000000#!/bin/sh
#
# RCSID $Id: tif96,v 1.4 2002/04/24 07:36:18 mcr Exp $
#
# This script is OBSOLETE -- rgb, May 6th, 1998

# forward path

../utils/addrt 10.1.0.0 255.255.0.0 10.3.0.0 255.255.0.0 10.2.0.139 113
echo sleeping after addrt
sleep 1

../utils/setsa 10.2.0.139 113 ip4 10.2.0.143 10.2.0.139

# ../utils/setsa 10.2.0.139 114 ah md5 66306630663031326630663066303132
../utils/setsa 10.2.0.139 115 esp 3des-md5-96 i 1000000000000001 6630663066303132
# ../utils/setsa 10.2.0.139 116 ah hmac-md5 66306630663031326630663066303132
# ../utils/setsa 10.2.0.139 117 ah hmac-sha1 66306630663031326630663066303132
# ../utils/setsa 10.2.0.139 118 esp des-md5 i 1000000000000001 6630663066303132
# ../utils/setsa 10.2.0.139 119 esp des-cbc 61626364 6630663066303132

../utils/spigrp 10.2.0.139 113 10.2.0.139 115 

#
# $Log: tif96,v $
# Revision 1.4  2002/04/24 07:36:18  mcr
# Moved from ./klips/test/ji/tif96,v
#
# Revision 1.3  1999/04/06 04:54:36  rgb
# Fix/Add RCSID Id: and Log: bits to make PHMDs happy.  This includes
# patch shell fixes.
#
#
uClinux-dist/openswan/testing/klips/cleanup.sh0000775000076400007640000000120610212740376021772 0ustar  gerggerg00000000000000#
# use this script to undo effects of sourcing a "testparams.sh" into
# your shell, when testing.
#
# $Id: cleanup.sh,v 1.4 2002/04/24 07:36:13 mcr Exp $
#
unset SCRIPT
unset REFCONSOLEOUTPUT 
unset PRIVINPUT
unset PUBINPUT
unset REFPRIVOUTPUT
unset REFPUBOUTPUT
unset TCPDUMPARGS

#
# $Log: cleanup.sh,v $
# Revision 1.4  2002/04/24 07:36:13  mcr
# Moved from ./klips/test/cleanup.sh,v
#
# Revision 1.3  2002/02/20 07:26:24  rgb
# Corrected de-pluralized variable names.
#
# Revision 1.2  2001/11/23 01:08:12  mcr
# 	pullup of test bench from klips2 branch.
#
# Revision 1.1.2.1  2001/10/23 04:43:18  mcr
# 	shell/testing cleaning script.
#
# 
uClinux-dist/openswan/testing/klips/saref-alloc-01/0000775000076400007640000000000010334544411022410 5ustar  gerggerg00000000000000uClinux-dist/openswan/testing/klips/saref-alloc-01/genallocfile.pl0000775000076400007640000000341310212740376025400 0ustar  gerggerg00000000000000#!/usr/bin/perl

# create a file like:
#
#   {alloc,free}  edst spi proto src algo enckey authkey
#
# from pseudo-random data.

$operationCount=0;
$maxOperations=8194;

$proto="esp";
$src="192.1.2.23";
$algo="3des-md5-96";
$enckey="0x4043434545464649494a4a4c4c4f4f515152525454575758";
$authkey="0x87658765876587658765876587658765";


srand(19710421); # keep it pseudo-random, repeatable for now

&init_stuff;

$saCount=0;

@edst=();
@spi=();


while($operationCount < $maxOperations) {
  $operationCount++;

  # pick a random operation.

  $op=rand(4);

  if($op < 1 && $saCount > 0) {
    # generate a free with probability 25%, if there are any to free
    # pick an SA to free.
    
    $sanum=rand($saCount);
    $edst=$edst[$sanum];
    $spi=$spi[$sanum];
    
    #print "free $edst $spi $proto $src\n";