wok view dev86/stuff/com2exe @ rev 23345
updated perl-http-message (6.03 -> 6.22)
author | Hans-G?nter Theisgen |
---|---|
date | Tue Mar 31 09:19:52 2020 +0100 (2020-03-31) |
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