Hex Artifact Content
Not logged in

Artifact aca9d4f6b519a502dd1cbfe34faa00b8c7196a4b:


0000: 23 21 2f 62 69 6e 2f 62 61 73 68 0a 67 66 6f 72  #!/bin/bash.gfor
0010: 74 68 2d 66 61 73 74 20 73 65 72 76 65 72 2d 74  th-fast server-t
0020: 65 73 74 2e 66 73 20 2b 66 69 6c 65 20 24 2a 20  est.fs +file $* 
0030: 3e 73 65 72 76 65 72 20 26 0a 53 45 52 56 45 52  >server &.SERVER
0040: 3d 24 21 0a 67 66 6f 72 74 68 2d 66 61 73 74 20  =$!.gforth-fast 
0050: 63 6c 69 65 6e 74 2d 74 65 73 74 2e 66 73 20 2b  client-test.fs +
0060: 66 69 6c 65 20 24 2a 20 6c 6f 63 61 6c 68 6f 73  file $* localhos
0070: 74 20 3e 63 6c 69 65 6e 74 0a 6b 69 6c 6c 20 2d  t >client.kill -
0080: 32 20 24 53 45 52 56 45 52 0a 67 72 65 70 20 27  2 $SERVER.grep '
0090: 66 69 6c 65 2e 72 65 61 64 3a 27 20 73 65 72 76  file.read:' serv
00a0: 65 72 20 7c 20 73 65 64 20 2d 65 20 27 73 2f 20  er | sed -e 's/ 
00b0: 72 65 61 64 2f 2f 67 27 20 7c 20 67 72 65 70 20  read//g' | grep 
00c0: 2d 76 20 27 20 5c 24 30 20 2a 24 27 20 3e 73 65  -v ' \$0 *$' >se
00d0: 72 76 65 72 2e 72 65 61 64 0a 67 72 65 70 20 27  rver.read.grep '
00e0: 65 6e 63 72 79 70 74 3a 27 20 73 65 72 76 65 72  encrypt:' server
00f0: 20 7c 20 73 65 64 20 2d 65 20 27 73 2f 65 6e 63   | sed -e 's/enc
0100: 72 79 70 74 3a 2f 63 72 79 70 74 3a 2f 67 27 20  rypt:/crypt:/g' 
0110: 7c 20 67 72 65 70 20 2d 76 20 27 20 5c 24 30 20  | grep -v ' \$0 
0120: 2a 24 27 20 3e 73 65 72 76 65 72 2e 63 72 79 70  *$' >server.cryp
0130: 74 0a 67 72 65 70 20 27 66 69 6c 65 2e 77 72 69  t.grep 'file.wri
0140: 74 65 3a 27 20 63 6c 69 65 6e 74 20 7c 20 73 65  te:' client | se
0150: 64 20 2d 65 20 27 73 2f 20 77 72 69 74 65 2f 2f  d -e 's/ write//
0160: 67 27 20 7c 20 67 72 65 70 20 2d 76 20 27 20 5c  g' | grep -v ' \
0170: 24 30 20 2a 24 27 20 3e 63 6c 69 65 6e 74 2e 77  $0 *$' >client.w
0180: 72 69 74 65 0a 67 72 65 70 20 27 64 65 63 72 79  rite.grep 'decry
0190: 70 74 3a 27 20 63 6c 69 65 6e 74 20 7c 20 73 65  pt:' client | se
01a0: 64 20 2d 65 20 27 73 2f 64 65 63 72 79 70 74 3a  d -e 's/decrypt:
01b0: 20 5c 28 5b 30 2d 39 41 2d 46 5d 2a 5c 29 20 5c   \([0-9A-F]*\) \
01c0: 28 5b 30 2d 39 41 2d 46 5d 2a 5c 29 20 5c 28 5b  ([0-9A-F]*\) \([
01d0: 30 2d 39 41 2d 46 5d 2a 5c 29 2f 63 72 79 70 74  0-9A-F]*\)/crypt
01e0: 3a 20 5c 31 20 5c 33 20 5c 32 2f 67 27 20 7c 20  : \1 \3 \2/g' | 
01f0: 67 72 65 70 20 2d 76 20 27 20 5c 24 30 20 2a 24  grep -v ' \$0 *$
0200: 27 20 3e 63 6c 69 65 6e 74 2e 63 72 79 70 74 0a  ' >client.crypt.
0210: 64 69 66 66 20 2d 75 20 73 65 72 76 65 72 2e 72  diff -u server.r
0220: 65 61 64 20 63 6c 69 65 6e 74 2e 77 72 69 74 65  ead client.write
0230: 0a                                               .