Board.KolibriOS.org

Official KolibriOS board
It is currently Mon Jun 21, 2021 2:11 pm

All times are UTC+03:00




Post new topic  Reply to topic  [ 2 posts ] 
Author Message
PostPosted: Mon Oct 26, 2020 11:43 am 
Offline
User avatar

Joined: Thu Aug 04, 2016 10:43 am
Posts: 45
текстовая db репрезентация бинарников
Code:
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


оно же но в профиль (т.е. не в HEX представление каждый байт, а в десятичное, кому как удобнее):
Code:
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 репрезентацию и быть белыми и пушистыми.


Top
   
PostPosted: Wed May 05, 2021 5:43 pm 
Offline

Joined: Mon Apr 12, 2021 6:57 pm
Posts: 19
Интересный факт. Беру на заметку

_________________
Может перепишем KolibriOS на Си?)))


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 2 posts ] 

All times are UTC+03:00


Who is online

Users browsing this forum: No registered users and 4 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited