wok view dev86/stuff/com2exe @ rev 24251
updated perl-smtp-ssl (1.01 -> 1.04)
| author | Hans-G?nter Theisgen |
|---|---|
| date | Sun Jan 02 09:47:51 2022 +0100 (2022-01-02) |
| parents | 19fbe1c329d0 |
| children |
line source
1 #!/bin/sh
3 [ ! -s "$1" ] && echo "Usage: $0 file.com [extra_ss]> file.exe" && exit 1
4 S=$((32+$(stat -c %s $1)))
5 P=$((($S+511)/512))
6 E=$((4096-(32*$P)))
7 for i in 0x5A4D $(($S%512)) $P 0 2 $E -1 $((${2:-0}-16)) -2 0 256 -16 28 0x6C53 0x5469 0x7A61
8 do printf '\\\\x%02X\\\\x%02X' $(($i&255)) $((($i>>8)&255)) | xargs echo -en
9 done
10 cat $1