Code: Select all
format binary as 'txt'
dd 'db '
offs = $
itsz = $
file 'полный путь до бинарного файла, можно и относительный';
size = $-offs
db size dup (0,0,0)
dollar = '$'
comma = ','
linenums = size shr 4
dd linenums dup 0
repeat size
idx = size-%
row = idx shr 4
load c byte from idx+offs
l = c/16
h = c mod 16
if h>9
h = h + 'A' - 10
else
h = h + '0'
end if
if l>9
l = l + 'A' - 10
else
l = l + '0'
end if
w = l+ h shl 8
store byte dollar at (idx + row)*itsz + offs-1
store word w at (idx + row)*itsz + offs
if idx mod 16 < 15
store byte comma at (idx + row)*itsz + offs+2
else
store word $0A0D at (idx + row + 1)*itsz + offs-2
store word 'db' at (idx + row + 1)*itsz + offs
store byte ' ' at (idx + row + 1)*itsz + offs+2
end if
end repeat
store byte '?' at $-1
Code: Select all
format binary as 'txt'
dd 'db '
offs = $
itsz = $
file '..\..\..\..\bin\fasmw.exe';:0,$1C0
size = $-offs
db size dup (0,0,0)
comma = ','
linenums = size shr 4
dd linenums dup 0
repeat size
idx = size-%
cell =(idx + idx shr 4)*itsz + offs
cell2 = cell + itsz
load c byte from idx+offs
a = c/100+'0'
b = (c mod 100)/10+'0'
c = c mod 10+'0'
store byte a at cell-1
store byte b at cell
store byte c at cell+1
if idx mod 16 < 15
store byte comma at cell+2
else
store word $0A0D at cell2-2
store word 'db' at cell2
store byte ' ' at cell2+2
end if
end repeat
store byte '?' at $-1
Таким образом на сайте можно разместить все что угодно, все смогут скачать. И антивирусы тоже будут довольны.
Все на что антивирус может пожаловаться, предлагаю перекодировать в db репрезентацию и быть белыми и пушистыми.