GCPのファイアウォールに中国とオーストラリアからの上り通信を弾く設定を追加するシェルスクリプト

ban.sh

#!/bin/bash
#
# Shell script to add GCP's firewall to deny all ingress from China and Australia.
#             Author:  Ushitora Anqou
#             License: MIT
#
curl https://ipv4.fetus.jp/cn.txt | grep -vE '#|^$' > cn.txt
curl https://ipv4.fetus.jp/au.txt | grep -vE '#|^$' > au.txt
for i in $(seq 1 250 $(wc -l cn.txt | cut -d' ' -f1)); do sed -n "$i,$((249 + i))p" cn.txt > cn-$(echo $i | awk '{printf "%02d", ($1-1)/250}'); done
for i in $(seq 1 250 $(wc -l au.txt | cut -d' ' -f1)); do sed -n "$i,$((249 + i))p" au.txt > au-$(echo $i | awk '{printf "%02d", ($1-1)/250}'); done
ls cn-* au-* | while read fn; do
    gcloud compute firewall-rules create "deny-$fn" --action deny --network default --priority 100 --rules all\
        --source-ranges $(paste -s -d ',' $fn)
done