virusbook.txt

文件加密

mov     dl,renn[1]
mov     dh,0
mov     bx,dx
mov     renn[bx+2],0
ret
    get_rename endp
;::::::::::::::::::::::::::::
    tt proc near                ;show file
mov     endcde,0
call    get_fname1
call    openh
cmp     endcde,0
jne     a3
      contin:
call    readh
cmp     endcde,0
jnz     a3
call    disph
call    clear_ioarea
jmp     contin
a3:ret
    tt endp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    get_fname1 proc near               ;键盘输入文件名
mov     ah,9
mov     dx,offset read_prompt
int     21h
mov     ah,0ah
mov     dx,offset getn
int     21h
mov     dl,getn[1]
mov     dh,0
mov     bx,dx
mov     getn[bx+2],0
mov     dl,0dh
mov     ah,2
int     21h
mov     dl,0ah
mov     ah,2
int     21h
ret
    get_fname1 endp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    openh proc near
mov     ah,3dh          ;request open
mov     al,0
lea     dx,pathnam
int     21h
jc      b1              ;error ?
mov     handle,ax       ;no,save handle
ret
      b1:       
mov     endcde,01       ;打开文件失败
lea     dx,openmsg      ;error message
call    errm
ret
    openh endp
;::::::::::::::::::::::::::::::::
    readh proc near
mov     ah,3fh          ;request read
mov     bx,handle
mov     cx,32           ;for name and CR/LF
lea     dx,ioarea
int     21h
jc      c1              ;error on read ?
cmp     ax,0            ;end of file ?
je      c2
add     read_len,ax
cmp     ioarea,1ah      ;EOF marker ?
je      c2      
ret
      c1:       
lea     dx,readmsg      ;no,invalid read
call    errm
      c2:       
mov     endcde,01       ;force end
ret
      readh endp
;;::::::::::::::::::::::
    disph proc near                     ;显示文件内容
mov     ah,40h          ;request display
mov     bx,01           ;set handle
cmp     read_len,32
jl      displess32
mov     cx,32           ;for name and CR/LF
sub     read_len,32
jmp     displeaio
     displess32:        
mov     cx,read_len
mov     read_len,0
     displeaio:
lea     dx,ioarea
int     21h
cmp     row,20          ;bottom of screen ?
jae     d1              ;yes,bypass
inc     row
ret
      d1:       
mov     ax,0601h
ret
     disph endp
;::::::::::::::::::::::::::;
    errm proc near
mov     ah,9
int     21h
ret
     errm endp
;;;::::::::::::
     clear_ioarea proc near     ;清空缓冲区
push    di
push    cx
push    ax
lea     di,ioarea
mov     cx,32
mov     al,0
cld
rep     stosb
pop     ax
pop     cx
pop     di
ret
     clear_ioarea endp
;::::::::::::::::::::::::::::::::::
    ssjiami proc near               ;加密部分
mov     endcde,0
call    get_fname1             ;得到句柄
call    openh                  ;打开文件
cmp     endcde,0
jne     a
call    mima                   ;读入密码
cmp     scode[1],0              ;读入密码放入换从区、
je      a
call    creath                 ;创建文件
cmp     errcde,0
je      contin1
ret
     contin1:
call    readh                 ;读文件
cmp     endcde,0
jne     h
call    jiami                 ;开始加密
call    disph1             
call    clear_ioarea
jmp     contin1
      h:
call clseh                ;文件关闭
      a:
ret
     ssjiami endp
;______________________________________________
     mima proc near                ;读密码
mov     ah,9
mov     dx,offset password
int     21h
mov     ah,0ah
mov     dx,offset scode
int     21h
ret
mima    endp
;_________________________
    creath proc near               ;创建文件
mov ah,9
lea     dx,wri_promstr1
int     21h
call    write_get_fname
mov     ah,3ch
mov     cx,0
lea     dx,writefnam
int     21h
jb      a5
mov     handle1,ax
ret
     a5:
lea     dx,opnmsg
call    errm
ret
    creath endp
;____________________________________________
   write_get_fname proc near     
mov     ah,0ah
mov     dx,offset getwrinam
int     21h
mov     dl,getwrinam[1]
mov     dh,0
mov     bx,dx
mov     getwrinam[bx+2],0
ret
write_get_fname endp
;_________________________
disph1 proc near                   
mov     ah,40h
mov     bx,handle1
cmp     word ptr read_len,20h
jl      less32
mov     cx,20h
sub     read_len,20h
jmp     leaio
less32:
mov     cx,read_len
mov     word ptr read_len,0
leaio:
lea    dx,ioarea
int     21h
jnb     drr
lea     dx,wrtmsg
call    errm
drr:
ret
disph1 endp
;___________
    clseh proc near               ;关闭文件
mov     ah,3eh
mov     bx,handle1
int     21h
ret
    clseh endp
;___--------------------------
   jiami proc near
mov     cx,0
     loos:
cmp     ch,20h
je exit
mov     bx,cx
cmp     cl,scode[1]
jne     e
mov     cl,0
      e:
mov     bl,cl
mov     bh,0
mov     al,scode[bx+2]
mov     bl,ch
mov     bh,0
xor     ioarea[bx],al
inc     cl
inc     ch
jmp     loos
exit:
ret
     jiami endp
;--------------------------------------------
   aa proc near                 ;显示加密后的文件
mov endcde,0
call    get_fname1
call    openh
cmp     endcde,0
jne     exit1
call    mima
cmp     scode[1],0
je      exit1
mov     dl,0dh
mov     ah,02h
int     21h
mov     dl,0ah
mov     ah,02h
int     21h
     to:
call    readh
cmp     endcde,0
jne     exit1
call    jiami
call    disph
call    clear_ioarea
jmp     to
    exit1:
ret
    aa endp
   code ends
  end begin
标签: 编程部族     
所属版块 : 科技  
票数：0
我顶
 
[收藏到我的网摘]
[推荐] | [评论] | [举报] | [打印]
本文章被推荐到了0个圈子
点击数: 1063   评论数: 6
本文章引用通告地址(TrackBack Ping URL)为:  
http://post.blog.hexun.com/sunchen-x/trackback.aspx?articleid=526493&key=632562728266900000
本文章尚未被引用。
下一篇: 我和我的女人们（一篇凄美的情色文学）
上一篇: 一份优秀的OFFER
博客链                                                想在这里投放广告？点击查看详情
    

更多...
全民解套行动重磅出击
《犇牛日报II》全新登场 
100%进口伟哥,假一赔十!
儿童天赋基因检测调查
白发--脱发--怎么办？
前列腺—恢复男性功能
理财产品首页全新改版
全民解套行动重磅出击
《犇牛日报II》全新登场 
最新读者
 
留下足迹请登录

[登录][注册]
?	 熊回来了
?	 mtxmxt
奇迹私服(未注册)	Re: 汇编程序设计——小型文件管理加密系统 [2008-8-11 14:04:07]
奇迹私服
[引用] [支持] [反对] [删除] [不允许匿名评论] 匿名者(未注册)	Re: 汇编程序设计——小型文件管理加密系统 [2008-7-9 21:36:30]
真的很不错啊！
[引用] [支持] [反对] [删除] [不允许匿名评论] 2182982(未注册)	Re: 汇编程序设计——小型文件管理加密系统 [2007-6-20 22:53:26]
很帅呆！！
[引用] [支持] [反对] [删除] [不允许匿名评论] qq(未注册)	Re: 汇编程序设计——小型文件管理加密系统 [2007-1-15 9:23:42]
so good
[引用] [支持] [反对] [删除] [不允许匿名评论] 古乾波(未注册)	Re: 汇编程序设计——小型文件管理加密系统 [2007-1-9 17:48:10]
楼主真棒！
[引用] [支持] [反对] [删除] [不允许匿名评论] 你很厉害(未注册)	Re: 汇编程序设计——小型文件管理加密系统 [2007-1-4 20:55:38]
你写的程序我很有用 谢谢!!真的太谢谢你!!
[引用]