bfkeygen.asm

VBC++程序设计的文件《加密与解密》配套代码发布

	AND      ESI,0FFFFh
	AND      EDX,0FFFFh
	MOV      EAX,[EDI+EAX*4+48h]
	MOV      EBX,[EDI+ECX*4+0448h]
	MOV      ECX,[EDI+ESI*4+0848h]
	ADD      EAX,EBX
	XOR      EAX,ECX
	MOV      ECX,[EDI+EDX*4+0C48h]
 	ADD      EAX,ECX
 	RET     
        BlowFish_Fun endp

        ;BlowFish加密算法函数
        BlowFish_En  proc uses ebx edi esi edx ecx,highbf:DWORD,lowbf:DWORD
	LOCAL    num :DWORD
	MOV      EAX,highbf
	MOV      ECX,lowbf
 	MOV      EAX,[EAX]
 	MOV      ESI,[ECX]
	MOV      EDI,offset key
	MOV      num,10h
	MOV      EBX,EDI
loc_40108E:
	XOR      EAX,[EBX]
 	MOV      EDX,EAX
	invoke   BlowFish_Fun,EAX
	MOV      ECX,num
 	XOR      EAX,ESI
	ADD      EBX,4
	DEC      ECX
	MOV      ESI,EDX
	MOV      num,ECX
	JNZ      loc_40108E

	MOV      ECX,[EDI+40h]
	MOV      EDX,[EDI+44h]
	XOR      ECX,EAX
 	XOR      EDX,ESI
 
	MOV      [BFHIGH],EDX
	MOV      [BFLOW],ECX
	RET
        BlowFish_En  endp

        ;BlowFish初始化函数
        BlowFish_Init proc uses ebx edi esi edx ecx,PWD:DWORD,len_PWD:DWORD
	LOCAL    pbox_num18:DWORD
	LOCAL    pbox_num4 :DWORD
	LOCAL    snum      :DWORD
;初始化s盒
	MOV      ESI,offset key
	MOV      EAX,offset sbox1
	LEA      ECX,[ESI+48h]
loc_401141:
	MOV      EDX,0100h
loc_401146:	
	MOV      EDI,[EAX]
	ADD      EAX,4
	MOV      [ECX],EDI
	ADD      ECX,4
	DEC      EDX
	JNZ      loc_401146
	CMP      EAX,offset sbox1+1000h
	JL       loc_401141

;初始化p盒
;第一步：原p盒与PWD逐项异或
	 
	MOV      EDX,PWD
	MOV      EDI,offset pbox
	XOR      EAX,EAX
	SUB      EDI,ESI
	MOV      pbox_num18,12h
loc_401173:	
	XOR      ECX,ECX
	MOV      pbox_num4,04
loc_40117D:	
	XOR      EBX,EBX
	MOV      BL,[EAX+EDX]
	SHL      ECX,08
	OR       ECX,EBX
	INC      EAX
	CMP      EAX,len_PWD
	JL       loc_40118E
	XOR      EAX,EAX
loc_40118E:
	MOV      EBX,pbox_num4
	DEC      EBX
	MOV      pbox_num4,EBX
	JNZ      loc_40117D
	MOV      EBX,[EDI+ESI]
	ADD      ESI,4
	XOR      EBX,ECX
	MOV      ECX,pbox_num18
	MOV      [ESI-04],EBX
	DEC      ECX
	MOV      pbox_num18,ECX
	JNZ      loc_401173

;用连续的blowfish算法填充p盒
	MOV      EBX,offset key
	XOR      EAX,EAX
	MOV      BFLOW,EAX
	MOV      BFHIGH,EAX
	MOV      ESI,EBX
	MOV      EDI,09
loc_4011C4:
	LEA      EAX,BFLOW
	LEA      ECX,BFHIGH
	invoke   BlowFish_En,ECX,EAX
	MOV      EAX,BFHIGH
	MOV      ECX,BFLOW
	MOV      [ESI],EAX
	MOV      [ESI+04],ECX
	ADD      ESI,8
	DEC      EDI
	JNZ      loc_4011C4

;用连续的blowfish算法填充s盒
	LEA      ESI,[EBX+4Ch]
	MOV      snum,04		;4个s盒。
loc_4011F2:	
	MOV      EDI,80H		;每个盒填充80h=128次（每次填充两个数）。
loc_4011F7:
	LEA      ECX,BFLOW
	LEA      EDX,BFHIGH
	invoke   BlowFish_En,EDX,ECX
	MOV      ECX,BFHIGH
	MOV      EDX,BFLOW
	MOV      [ESI-04],ECX
	MOV      [ESI],EDX
	ADD      ESI,8
	DEC      EDI
	JNZ      loc_4011F7
	DEC      snum
	JNZ      loc_4011F2
	RET     
       BlowFish_Init endp

       ;消息处理函数
        _ProcDlgMain proc uses ebx edi esi edx ecx,hWnd:DWORD,wMsg:DWORD,wParam:DWORD,lParam:DWORD
        mov     eax,wMsg
        .if     eax==WM_CLOSE
                invoke  EndDialog,hWnd,NULL
        .elseif eax==WM_COMMAND
                mov   eax,wParam
                and   eax,0ffffh
                .if     eax==IDGEN
		invoke  GetDlgItemText,hWnd,Edit1,offset szID,17
		xor     ebx,ebx
		xor     eax,eax
		mov     esi,offset szID
		mov     ecx,8
	@@33:
		
		or      ebx,eax
		xor     eax,eax
		lodsb
		cmp     eax,39h
		jle     @@3
		sub     eax,7
	@@3:
		sub     eax,30h
		
		shl     ebx,4
		loop    @@33
		or      ebx,eax
		mov     MYBFHIGH,ebx

		mov     esi,offset szID+8
		mov     ecx,8
		xor     eax,eax
		xor     ebx,ebx
	@@44:
		or      ebx,eax
		lodsb
		cmp     eax,39h
		jle     @@4
		sub     eax,7
	@@4:
		sub     eax,30h
		shl     ebx,4
		loop    @@44
		or      ebx,eax
		mov     MYBFLOW,ebx

;		invoke  BlowFish_Init,offset PW_1,23
;		invoke  BlowFish_En,offset data1_p,offset data1_p+4
;		MOV     EAX,BFHIGH
;		MOV     MYBFHIGH,EAX
;		MOV     EAX,BFLOW
;		MOV     MYBFLOW,EAX
		invoke  BlowFish_Init,offset PW_2,18
		invoke  BlowFish_En,offset MYBFHIGH,offset MYBFLOW
		MOV     EAX,BFHIGH
		MOV     MYBFHIGH,EAX
		MOV     EAX,BFLOW
		MOV     MYBFLOW,EAX
		invoke  BlowFish_Init,offset PW_3,14
		invoke  BlowFish_En,offset MYBFHIGH,offset MYBFLOW

		mov     ebx,BFHIGH
		mov     eax,ebx
		mov     edi,offset szText
		mov     ecx,8
	@@12:
		mov     eax,ebx
		shl     ebx,4
		shr     eax,28
		cmp     eax,9
		jle     @@11
		add     eax,7
	@@11:       add     eax,30h
		and     eax,0ffh
		stosb
		loop    @@12

		mov     ebx,BFLOW
		mov     eax,ebx
		mov     edi,offset szText+8
		mov     ecx,8
	@@22:
		mov     eax,ebx
		shl     ebx,4
		shr     eax,28
		cmp     eax,9
		jle     @@21
		add     eax,7
	@@21:       add     eax,30h
		and     eax,0ffh
		stosb
		loop    @@22

		xor     eax,eax
		mov     [edi],eax
		invoke  SetDlgItemText,hWnd,Edit2,offset szText
		mov     eax,FALSE
                        ret
                .elseif eax==IDCLOSE
                        invoke  EndDialog,hWnd,NULL
                .endif
         .else
                mov     eax,FALSE
                ret
         .endif
         mov    eax,TRUE
         ret

_ProcDlgMain endp

        ;主程序
start:  
        invoke  InitCommonControls
        invoke  GetModuleHandle,NULL
        mov     hInstance,eax
        invoke  DialogBoxParam,hInstance,DLG_MAIN,NULL,offset _ProcDlgMain,0
        invoke  ExitProcess,NULL
end     start

end