Question

您好我是汇编语言的新手，我正在使用TASM作为我的.asm文件。我想创建一个加密和解密程序，它接受一个input.txt文件并加密该文件中的消息。最多只能30个字符。 input.txt文件包含这个短语，＆＃34;你可以读到这个！＆＃34;到目前为止它是这样的。

.MODEL SMALL
.STACK
.386

.DATA
welcome_msg1 db "Welcome to the Encrypt/Decrypt program.",13,10,'$'
welcome_msg2 db "Here are your choices.",13,10,'$'
choice_msg1 db "E - Encrypt",13,10,'$'
choice_msg2 db "D - Decrypt",13,10,'$'
choice_msg3 db "Q - Quit",13,10,'$'

filename db 'c:\input.txt',0
file_error db "Error, file not found!",13,10,'$'
string db 30 dup(0)     ; Only 30 characters!
len equ $ - string
endchar db '$'
handle dw 0

.CODE
.STARTUP

call instructions
call openfile
call readfile
call closefile

            ; encrypt Text
lea si, string
mov cl, len
call encrypt

            ; display string
mov ah,09h
lea dx, string
int 21h

            ; terminate program once finish
mov ax,4c00h
int 21h


;*************************************;
;**************FUNCTIONS**************;
;*************************************;

            ; print instructions
instructions proc near

    mov ah, 09h
    lea dx, welcome_msg1
    int 21h

    mov ah, 09h
    lea dx, welcome_msg2
    int 21h

    mov ah, 09h
    lea dx, choice_msg1
    int 21h

    mov ah, 09h
    lea dx, choice_msg2
    int 21h

    mov ah, 09h
    lea dx, choice_msg3
    int 21h

    ret

instructions endp

            ; open file
openfile proc near

    mov ax,3d02h
    lea dx,filename
    int 21h
    jc error
    mov handle,ax 
    ret

openfile endp

            ; read from file
readfile proc near

    mov ah,3fh
    mov bx,handle
    mov cx,30
    lea dx,string
    int 21h
    jc error
    ret

readfile endp

            ; close file
closefile proc near

    mov ah,3eh
    mov bx,handle
    int 21h
    ret

closefile endp

            ; encrypt the string
encrypt proc near

    mov ch, 0

    shift_char:
        cmp si, len
        je done
        add [si],01
        inc si
    loop shift_char
    ret

encrypt endp

done proc near

    mov [si], "$"
    ret

done endp

            ; terminate program if fails
error proc near

    mov ah, 09h
    lea dx, file_error
    int 21h

    mov ax,4c00h
    int 21h

error endp

end

以下是输出：

我创建了一个单独的文件，其中只包含这样的特定部分

.MODEL SMALL
.STACK
.386

.DATA
filename db 'c:\input.txt',0
string db 30 dup(0)     ; Only 30 characters!
len equ $ - string
endchar db '$'
handle dw 0

.CODE
.STARTUP

;open file
mov ax,3d02h
lea dx,filename
int 21h
jc error
mov handle,ax

;read file
mov ah,3fh
mov bx,handle
mov cx,30
lea dx,string
int 21h
jc error

;close file
mov ah,3eh
mov bx,handle
int 21h

;encrypt string
lea si, string
mov cl, len
call encrypt

;print string
mov ah,09h
lea dx, string
int 21h

;finishes if done
done proc near
    mov [si], "$"
    ret
done endp

encrypt proc near
      mov ch, 0
          shift_char:
            cmp si, len
            je done
            add [si],01
            inc si
        loop shift_char
   ret

encrypt endp

;terminate if error
error proc near
    mov ax,4c00h
    int 21h
error endp

end

当我运行那个裁剪程序时，我得到了我想要的东西。这是出于此目的

这正是我想要的。最初的代码在最后有额外的笑脸，这是我不想要的。所以我现在很困惑这个问题。

Answer 1

您的问题是您正在加密缓冲区中的所有string db 30 dup(0) ; Only 30 characters!。

string

len的这个声明是30个字节，用0填充，无论读取多少个字符，你的长度计算都是30。

您应该做的是根据文件输入计算encrypt，或者在读取char 0时将encrypt proc near mov ch, 0 shift_char: cmp si, len je done cmp byte ptr [si], 0 ; <-- added je done ; <-- finish when reaching the 0 add [si],01 inc si loop shift_char ret encrypt endp更改为停止。

第二种方法可能是这样的：

byte ptr

此外，可以通过在内存访问中添加cmp byte ptr [si], 0来修复警告，就像我使用AgeWeightedHistorical ag = new AgeWeightedHistorical();一样。

Answer 2

string db 30 dup(0)     ; Only 30 characters!
len equ $ - string

首先，鉴于硬编码数字30，以这种方式定义 len 可能会有点愚蠢！简单len equ 30更有意义。

encrypt proc near
    mov ch, 0
    shift_char:
        cmp si, len
        je done
        add [si],01
        inc si
    loop shift_char
    ret
encrypt endp

其次，这是唯一真正的问题，因为加密逻辑是合理的，你要比较无法比较的东西！
在您撰写cmp si, len时，您将地址（si）与长度（len）进行比较。那是不可能的。您可以比较的是2个地址或2个长度。

继续讨论如何解决这个问题。

PawelLukasik 当他说

时是对的

＆＃34;你应该做的是根据文件输入计算len，或者在读取char 0时将加密更改为停止。＆＃34;

他选择了我不喜欢的第二种解决方案。此外，它存在与您放在那里的同样问题的缺陷。巧妙地掩盖但仍然存在。

此外，这次你要加密一个通常不存在0字节的文本文件，但下次你想要处理二进制文件然后再次卡住。

解决方案必须在您阅读文件的程序中提前开始。当读取成功时，DOS在AX寄存器中返回有效读取的字节数。您应该将此号码放在 LENGTH 变量中：

LENGTH  dw 0
...
readfile proc near
    mov  ah, 3Fh
    mov  bx, handle
    mov  cx, 30           ;Maximum number of bytes to read
    lea  dx, string
    int  21h
    jc   error
    mov  [LENGTH], ax     ;Actual number of bytes read
    ret
readfile endp

然后加密过程变成一个简单的循环：

encrypt proc near
        mov   cx, [LENGTH]    ;Any number from 0 to 30, gotten from DOS
        jcxz  done            ;In case of 0 (file was empty)
    shift_char:
        add   byte ptr [si], 1
        inc   si
        loop  shift_char
    done:
        mov   byte ptr [si], "$"
        ret
encrypt endp

加密TASM中的字符串有问题

2 个答案:

继续讨论如何解决这个问题。