hex to ascii проблема с нулем

[Mikl___]

cуberforum.ru --> Форум программистов --> Низкоуровневое программирование --> Assembler, MASM, TASM --> Assembler для начинающих --> Закрепленная тема Ввод и вывод чисел в различных системах счисления -->Вывод числа в шестнадцатеричной системе

[Mikl___]

Сообщение от garrygarry

Только наоборот hex -> bin

hex --> bin это когда ABCD --> 1010.1101.1100.1101 а у тебя число --> строка из Hex
CreateFile --> WriteFile --> output --> MessageBox

[garrygarry]

Сообщение от Mikl___

hex --> bin это когда ABCD --> 1010.1101.1100.1101 а у тебя число --> строка из Hex
CreateFile --> WriteFile --> output --> MessageBox

все равно странно..

hex$ есть, str$ тож есть.. был бы еще какой-ть asc$...

[Mikl___]

Здесь посмотри https://wasm.in/threads/hex-ascii-stroka.21586/

[R71MT]

Mikl___, моё почтение!
Подразумеваю, что немного не так..
У него внешний файл не бинарный, а строка в виде хексов. То-есть вместо значения 7Аh - два символа '7A'. Об этом говорит функция "hextoa", где в АХ читаются по 2 байта, и обрабатывается за-раз в надежде получить HEX-байт в АН, через:

  OR    AH,AL
  MOV   [EDI],AH

[R71MT]

;fasm code
;--------------
org  100h
jmp  start

output  db   4 dup(0),0         ; буфер для (F9h,E3h,00h,9Ch)
input   db   'f9e3009C'         ; строка из файла
len     =    ($-input) / 2      ; её длина для цикла преобразования

start:  mov   si,input      ; источник
        mov   di,output     ; приёмник
        mov   cx,len        ; длина

cycle:  lodsw               ; берём очередные 2-символа из ESI
        sub   ax,'00'       ; переведём их в число
        cmp   al,9          ;
        jbe   @01           ;
        sub   al,7          ; коррекция, если AL больше 9
@01:    cmp   ah,9          ;
        jbe   @02           ;
        sub   ah,7          ; коррекция, если AH больше 9
@02:    shl   al,4          ; AL умножить на 10h (сдвиг тетрады)
        and   ah,0Fh        ; в AH старшая тетрада не нужна
        or    ah,al         ; получаем HEX из двух символов!!!
        shr   ax,8          ; AL = результат
        stosb               ; запомнить его в EDI
        loop  cycle         ; промотать цикл СХ-раз...

        xor   ax,ax
        int   16h
@exit:  int   20h

[Mikl___]

Тимур,
чёт меня переклинило, там же WriteFile, а ReadFile
схема такая CreateFile --> output --> WriteFile --> CloseHandle --> ExitProcess
+твоя процедура

[garrygarry]

Помогите с этим output. Пожалуйста.

[R71MT]

Сообщение от Mikl___

чёт меня переклинило

:D я сам ничего не понял, а это только догадки..
ТС скажи толком, что хочешь сделать. Или прикрепи внешний файл сюда

[garrygarry]

Сообщение от R71MT

:D я сам ничего не понял, а это только догадки..
ТС скажи толком, что хочешь сделать. Или прикрепи внешний файл сюда

Программа

.386
.model flat,stdcall
option casemap:none

include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
include \masm32\include\masm32.inc

includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\user32.lib
includelib \masm32\lib\masm32.lib
hextoa proto tr byte
.data
result db "!!!",0
hh dd ?
h dd ?
bytesmaska dd ?

hexfile db "hex",0

cpt db "Result ASCII:" , 0
input db 64 dup (?),0
cikl dd 0

.data?
output db 4096 dup(?) ; total converted string
mybuffer db 4096 dup(?) ; total converted string
.code



start:


; Открываем и читаем..

invoke CreateFile, addr hexfile, GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, NULL, OPEN_EXISTING, NULL, NULL
mov h, eax

; Создаем для записи в файл результат..


invoke CreateFile,addr result, ;создаем файл
GENERIC_WRITE,
0,
NULL,
CREATE_NEW,
FILE_ATTRIBUTE_NORMAL,
NULL

mov hh,eax

zdes:
inc cikl

invoke ReadFile, h, ADDR input, 64, ADDR bytesmaska, NULL



invoke hextoa,addr input

invoke lstrcpy, ADDR output , ADDR input


invoke MessageBox, NULL, addr output , addr cpt, MB_OK
invoke WriteFile, hh, addr output,32, addr bytesmaska, 0

cmp cikl,4
je dalee
jmp zdes

dalee:


invoke CloseHandle, hh
invoke CloseHandle, h

invoke ExitProcess, NULL
hextoa proc uses esi edi stringtr byte
mov edi,string
mov esi,edi
.repeat
mov ax,[esi]
inc esi
.continue .if al == ' '
inc esi
mov dl,ah
.break .if !al
sub ax,'00'
.if al > 9
sub al,7
.endif
shl al,4
.if ah > 9
sub ah,7
.endif
or ah,al
mov [edi],ah
inc edi
.until !dl
sub al,al
mov [edi],al
mov eax,string
ret
hextoa endp
end start

hex file который обрабатывается как надо
445C7A8007A93D8733188288BB320A8FE2D EBD2AE1B47F0F50BC10BAE845C094D61967 F63C7DD183914A4AE452C9F6AD5D462CE3D 277798075B107615C1A8A3050863AD64A87 AE8A2FE83C1AF1A8403CB53F53E486D8511 DAD8A04887E5B23522CD470243453A299FA 9E77237716103ABC11A1DF38855ED6F2EE1 87E9C582BA6

Но если, где-то в hex строке, попадаются 0000, то ничего не работает...
Например такая строка (вставил 0000 в начале)
4400000007A93D8733188288BB320A8FE2D EBD2AE1B47F0F50BC10BAE845C094D61967 F63C7DD183914A4AE452C9F6AD5D462CE3D 277798075B107615C1A8A3050863AD64A87 AE8A2FE83C1AF1A8403CB53F53E486D8511 DAD8A04887E5B23522CD470243453A299FA 9E77237716103ABC11A1DF38855ED6F2EE1 87E9C582BA6