首页
社区
课程
招聘
[原创]MD5汇编源码折腾日记(全部5天源码汇总) (第5天)
发表于: 2013-3-16 19:46 39359

[原创]MD5汇编源码折腾日记(全部5天源码汇总) (第5天)

2013-3-16 19:46
39359

原前4天的帖子太乱了,重新开贴吧,这次是终结贴,前4天的版主若看着不好,就删了吧:
附前4天链接 http://bbs.pediy.com/showthread.php?t=165855

第5天

可能是手贱吧,本来已经决定不再改了,可是到了第5天,决定还是再次完善吧,这次把寻址偏移地址表也去掉了,代码如下:(本专题最后一贴,全部代码都贴上了,一贴灵啊
(把全部源代码汇总)

.486
.MODEL        FLAT,STDCALL
OPTION        CASEMAP:NONE

incLUDE                        windows.inc
incLUDE                        kernel32.inc
incLUDELIB                kernel32.lib
incLUDE                        user32.inc
incLUDELIB                user32.lib
include                        comdlg32.inc
includelib                comdlg32.lib

.const
       
        IDC_BtFileName                equ        1001
        IDC_EditFileName        equ        1002
        IDC_EditMD5                equ        1003
        IDC_BtMD5                equ        1004
        IDC_BtTerminateMD5        equ        1005
       
.data
       
        szClassName                db        "Class",0
        szWindowName                db        "MD5加密算法",0
        szEdit                        db        "Edit",0
        szButton                db        "Button",0

        szBtMD5                        db        '开始MD5',0
        szBtTerminateMD5        db        '终止MD5',0
        szBtFileName                db        '文件...',0
       
        szStrFilter                db        "所有文件(*.*)",0,"*.*",0,0
       
        szCurrentFilePath        db        MAX_PATH dup        (?)
        szFileName                  db         MAX_PATH dup (?)
       
        align        dword
       
        dwFLeftMove        db        07,12,17,22
        dwGLeftMove        db        05,09,14,20
        dwHLeftMove        db        04,11,16,23
        dwILeftMove        db        06,10,15,21
       
.data?

        hMD5Thd                        dd        ?
        hInstance                dd        ?
        hWinMain                dd        ?
       
        hEditMD5                dd        ?
        hBtMD5                        dd        ?
        hBtTerminateMD5                dd        ?

        hBtFileName                dd        ?
        hEditFileName                dd        ?
        lpFileMemHeader                dd        ?
        dwOpenFileSize                dd        ?
       

.code
_OpenFileProc                         proc  uses ebx esi edi        ,_hWnd
        LOCAL        @dwOpenFileSizeHigh
        LOCAL        @szBuffer3[1024]:byte
       
        LOCAL        @stOFN:OPENFILENAME
        LOCAL        @stSA:SECURITY_ATTRIBUTES
       
        LOCAL        @hDC1

        LOCAL        @hFileMap
        LOCAL        @hOpenFile

        LOCAL        @dwTmp
       
        .if        lpFileMemHeader
                invoke        UnmapViewOfFile,lpFileMemHeader
                mov        lpFileMemHeader,0
        .endif
       
        invoke        SetWindowText,hEditFileName,0
        invoke        SetWindowText,hEditMD5,0
        mov        dwOpenFileSize,0
       
        invoke        RtlZeroMemory,addr @stOFN,sizeof @stOFN
        mov        @stOFN.lStructSize,sizeof @stOFN
        lea        eax,szCurrentFilePath
        mov        @stOFN.lpstrFile,eax
        mov        @stOFN.nMaxFile,MAX_PATH
        mov        @stOFN.Flags,OFN_FILEMUSTEXIST OR OFN_PATHMUSTEXIST
                       
        invoke        GetOpenFileName,addr @stOFN       
        .if        !eax
                jmp        _NOPE
        .endif
        invoke        SetWindowText,hEditFileName,addr szCurrentFilePath
       
        invoke        RtlZeroMemory,addr @stSA,sizeof @stSA       
        invoke        CreateFile,addr szCurrentFilePath, GENERIC_READ,FILE_SHARE_DELETE or FILE_SHARE_READ or FILE_SHARE_WRITE,addr @stSA,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL ,0;FILE_FLAG_DELETE_ON_CLOSE or
        .if        eax == INVALID_HANDLE_VALUE
                jmp        _NOPE
        .endif
        mov        @hOpenFile,eax
       
       
        invoke        GetFileSize,@hOpenFile,addr @dwOpenFileSizeHigh
        mov        dwOpenFileSize,eax
        .if        !eax
                invoke        CloseHandle,@hFileMap
                invoke        CloseHandle,@hOpenFile
                jmp        _NOPE
        .endif
       
       
        invoke        CreateFileMapping,@hOpenFile,0,PAGE_READONLY,0,0,0
        .if        !eax
                invoke        CloseHandle,@hOpenFile
                jmp        _NOPE
        .endif
        mov        @hFileMap,eax
       
       
        invoke        MapViewOfFile,@hFileMap, FILE_MAP_READ,0,0,0
        .if        !eax
                invoke        CloseHandle,@hFileMap
                invoke        CloseHandle,@hOpenFile
                jmp        _NOPE
               
        .endif
        mov        lpFileMemHeader,eax
       
        invoke        CloseHandle,@hFileMap
        invoke        CloseHandle,@hOpenFile
       
        _NOPE:       
       
        ret
_OpenFileProc endp

_MD5hashProc    proc  uses  edi esi,_lpFileMem,_dwFileSize,_lpszMD5Buffer
        local          @dwA,@dwB,@dwC,@dwD
        LOCAL        @dwRotateMD5Count
        LOCAL        @dwEndRotateMD5Count
        LOCAL        @szBuffer1[128]:byte
       
        LOCAL        @dwFTi[64]:dword
       
        LOCAL        @bEndMD5
        LOCAL        @dbFileSizeInBuffer:byte
       
        LOCAL        @dwTiCount
        LOCAL        @dwTiN0
        LOCAL        @dwTiN1
        LOCAL        @dwTiN2
        LOCAL        @wCW:word
       
        LOCAL        @dwTmp1
        LOCAL        @dwTmp2
       
        LOCAL        @dwFOffset
        LOCAL        @dwGOffset
        LOCAL        @dwHOffset
        LOCAL        @dwIOffset
                       
                       
                        ;初始化FOffset表
                        push        0
                        pop        @dwFOffset
                        push        1
                        pop        @dwGOffset
                        push        5
                        pop        @dwHOffset
                        push        0
                        pop        @dwIOffset
                       
                        ;初始化Ti
                       
                        mov        @dwTiCount,1
                        mov        @dwTiN1,10000000h
                        mov        @dwTiN2,10h
                        lea        edi,@dwFTi
                       
                        mov        @wCW,0001011111111111b;设置近似值为剪裁掉尾数状态
                        wait
                        fldcw        @wCW
                @@:       
                        fild        @dwTiCount
                        fsin       
                        fabs
                       
                        fild        @dwTiN1
                        fmul
                       
                        fist         @dwTmp1
                        fild        @dwTmp1
                        fsub
                       
                        fild        @dwTiN2
                        fmul
                        fistp         @dwTmp2
                        fwait
                       
                        mov        eax,@dwTmp1
                        shl        eax,4
                        add        eax,@dwTmp2
                        mov        dword ptr [edi],eax
                         
                        inc        @dwTiCount
                        add        edi,sizeof dword
                       
                        cmp        @dwTiCount,65
                        jz        @f
                        jmp        @b       
                @@:               
                                       
                        xor        al,al
                        lea        edi,@szBuffer1
                        mov        ecx,sizeof @szBuffer1
                        cld
                        rep        stosb
                       
                        mov        @bEndMD5,FALSE
                       
                        ;求得512取模及需要填充的数据
                        mov        eax,_dwFileSize
                        shr        eax,6
                        mov        @dwRotateMD5Count,eax
                       
                        ;模64后末尾字符串复制到缓冲区
                        lea        edi,@szBuffer1
                        mov        esi,_lpFileMem
                        mov          eax,_dwFileSize
                        mov        ecx,eax
                        and        eax,0ffffffc0h;
                        add        esi,eax
       
                        and        ecx,03fh;除以64求模
                        mov        @dbFileSizeInBuffer,cl
                        .if        ecx
                                cld
                                rep        movsb
                        .endif
                        mov  byte ptr [edi],080h;消息末尾附1
                       
                        ;后64位填充消息长度//转为处理@szBuffer1
                        lea        edi,@szBuffer1
                       
                        mov        eax,_dwFileSize;ebx
                        mov        edx,eax
                        shl        eax,3
                        shr        edx,29
                       
                        mov          cl,@dbFileSizeInBuffer;_dwFileSize
                        .if         cl < 56
                                mov        @dwEndRotateMD5Count,1
                                mov          dword ptr [edi+ 60],edx
                                mov          dword ptr [edi+ 56],eax
                        .else
                                mov        @dwEndRotateMD5Count,2
                                mov        dword ptr [edi+124],edx
                                mov          dword ptr [edi+120],eax
                        .endif
                       
                        push        067452301h
                        pop        @dwA
                        push        0efcdab89h
                        pop        @dwB
                        push        098badcfeh
                        pop        @dwC
                        push        010325476h
                        pop        @dwD
                       
                        mov  edi,_lpFileMem
                       
                _Rotate:   
                        mov        ecx, @dwRotateMD5Count
                        .while        ecx
                                push        ecx
                               
                                push        @dwD
                                push        @dwC
                                push        @dwB
                                push        @dwA
                               
                                xor        esi,esi
                                .while        esi < 64
                                        mov          eax,@dwB
                                        mov          ebx,@dwC
                                        mov          ecx,@dwD
                                       
                                        .if        esi < 16;F
                                                and          ebx,eax
                                                not          eax
                                                and          eax,ecx
                                                or          eax,ebx
                                               
                                                mov        ecx,@dwFOffset
                                                inc        @dwFOffset
                                        .elseif esi < 32;G
                                                and          eax,ecx
                                                not          ecx
                                                and          ecx,ebx
                                                or          eax,ecx
                                               
                                                mov        ecx,@dwGOffset
                                                add        @dwGOffset,5
                                        .elseif esi < 48;H
                                                xor          eax,ebx
                                                xor          eax,ecx
                                               
                                                mov        ecx,@dwHOffset
                                                add        @dwHOffset,3
                                        .else                ;I
                                                not          ecx
                                                or          eax,ecx
                                                xor          eax,ebx
                                               
                                                mov        ecx,@dwIOffset
                                                add        @dwIOffset,7
                                        .endif
                               
                                        add        eax,@dwA
                                       
                                        ;dwFOffset
                                        and        ecx,0fh
                                        add          eax,dword ptr [edi+ ecx * sizeof dword];x
                                       
                                        lea        ecx,@dwFTi
                                        add          eax,dword ptr [ecx  + esi * sizeof dword];t
                                       
                                        mov        ecx,esi       
                                        shr        ecx,2
                                        and        ecx,12
                                        mov        edx,esi       
                                        and        edx,3
                                        mov        cl,byte ptr [offset dwFLeftMove + edx + ecx]
                                        rol          eax,cl
                                        add          eax,@dwB
                                       
                                        xchg        eax,@dwB
                                        xchg        eax,@dwC
                                        xchg        eax,@dwD
                                        xchg        eax,@dwA
                                       
                                        inc        esi
                                .endw       
                               
                                pop        eax
                                add        @dwA,eax
                                pop        eax
                                add        @dwB,eax
                                pop        eax
                                add        @dwC,eax
                                pop        eax
                                add        @dwD,eax
                               
                                add          edi,16*sizeof dword
                                pop        ecx
                                dec        ecx
                        .endw       
                       
                        .if        @bEndMD5 == TRUE
                                jmp        @f
                        .endif
                       
                        push        @dwEndRotateMD5Count
                        pop        @dwRotateMD5Count
                       
                        lea        edi,@szBuffer1
                        mov        @bEndMD5,TRUE
                        jmp        _Rotate
                @@:       
                       
                        mov        eax,@dwA
                        bswap        eax
                        mov        ebx,@dwB
                        bswap        ebx
                        mov        ecx,@dwC
                        bswap        ecx
                        mov        edx,@dwD
                        bswap        edx
                       
                jmp        @f
                        szMD5Format@_MD5hashProc    db  '%.8x%.8x%.8x%.8x',0
                @@:
                invoke  wsprintf,_lpszMD5Buffer,addr szMD5Format@_MD5hashProc,eax,ebx,ecx,edx
        ret
_MD5hashProc    endp

_MD5Proc         proc  uses ebx edi esi ,_hWnd
    LOCAL          @szMD5Buffer[32]:byte
    LOCAL        @dwMemSize
   
        .if        ! lpFileMemHeader
                jmp        @f
                        FailMessage@_MD5Proc        db        '创建文件镜像失败,无法计算MD5码!',0
                @@:
                invoke        SetWindowText,hEditMD5,addr FailMessage@_MD5Proc
                jmp        _NOPE       
        .endif
       
        invoke  _MD5hashProc,lpFileMemHeader,dwOpenFileSize, addr @szMD5Buffer
        invoke        SetWindowText,hEditMD5,addr @szMD5Buffer
       
        _NOPE:       
       
    ret
_MD5Proc        endp

_BackgroundWndProc                        proc uses  ebx esi edi, _hWnd, uMsg:UINT, wParam:WPARAM, lParam:LPARAM

        MOV        eax,uMsg       
       
        .if        eax == WM_COMMAND
                mov        eax,wParam
               
                .if        ax ==IDC_BtFileName
                        invoke        CreateThread,0,0,addr         _OpenFileProc,0,0,0
                        invoke        CloseHandle,eax       
                .elseif        ax ==         IDC_BtMD5
                        invoke        CreateThread,0,0,addr         _MD5Proc,0,0,0
                        invoke        CloseHandle,eax       
                .endif
        .elseif        eax==WM_CREATE
       
                ;创建按键
               
                invoke        CreateWindowEx,0,addr szButton,addr szBtFileName,BS_DEFPUSHBUTTON or WS_CHILDWINDOW  or WS_TABSTOP or WS_VISIBLE  ,\;
                        20,20,90,22,_hWnd,IDC_BtFileName,hInstance,0
                        mov        hBtFileName,eax
               
                invoke        CreateWindowEx,0,addr szButton,addr szBtMD5,BS_DEFPUSHBUTTON or WS_CHILDWINDOW  or WS_TABSTOP or WS_VISIBLE  ,\;
                        20,60,90,22,_hWnd,IDC_BtMD5,hInstance,0
                        mov        hBtMD5,eax
               
                ;创建编辑框
               
                invoke        CreateWindowEx,WS_EX_CLIENTEDGE,addr szEdit ,0,ES_LEFT or WS_CHILD OR  WS_VISIBLE,\
                        120,20,530,22,_hWnd,IDC_EditFileName,hInstance,0
                mov        hEditFileName,eax
                invoke        CreateWindowEx,WS_EX_CLIENTEDGE,addr szEdit ,0,ES_LEFT or WS_CHILD OR  WS_VISIBLE,\
                        120,60,530,22,_hWnd,IDC_EditMD5,hInstance,0
                mov        hEditMD5,eax
               
        .elseif eax==WM_DESTROY
                .if        hMD5Thd
                        invoke        TerminateThread,hMD5Thd,0
                        invoke        CloseHandle,hMD5Thd
                .endif       
               
                invoke        PostQuitMessage,0
                invoke        DestroyWindow,hWinMain;_hWnd
               
        .else
                invoke DefWindowProc,_hWnd,uMsg,wParam,lParam
                ret
        .endif
       
        xor eax,eax
        ret
_BackgroundWndProc endp

_WinMain                         proc        uses esi edi ebx
        LOCAL        @stWc:WNDCLASSEX
        LOCAL        @stMsg:MSG
        LOCAL        @stRect1:RECT
        LOCAL        @stRect2:RECT
        LOCAL        @dwHigh
       
        invoke        RtlZeroMemory,addr @stWc,sizeof @stWc
       
        mov        @stWc.cbSize,sizeof @stWc
        mov        @stWc.style,CS_VREDRAW OR CS_HREDRAW OR CS_DBLCLKS ;;
        mov        @stWc.lpfnWndProc,offset _BackgroundWndProc

        mov        @stWc.lpszClassName,offset szClassName
        mov        @stWc.hbrBackground,COLOR_BTNFACE+2
        push        hInstance
        pop        @stWc.hInstance
        invoke        LoadIcon,hInstance,IDI_APPLICATION
        mov        @stWc.hIcon,eax
        mov        @stWc.hIconSm,eax
        invoke        LoadCursor,0,IDC_ARROW
        mov        @stWc.hCursor,eax
       
        invoke        RegisterClassEx,addr @stWc
       
        invoke        CreateWindowEx,WS_EX_WINDOWEDGE,addr szClassName,addr szWindowName,\
                 WS_SYSMENU  or WS_DLGFRAME    or WS_BORDER  or WS_MINIMIZEBOX  OR DS_MODALFRAME or WS_VISIBLE,\
                100,100,750,200,0,0,hInstance,0
                mov        hWinMain,eax
                       
        .while        TRUE
                invoke        GetMessage,addr @stMsg,0,0,0
                .break .if !eax
                invoke        TranslateMessage,addr @stMsg
                invoke        DispatchMessage,addr @stMsg
        .endw
        mov        eax,@stMsg.wParam

        ret
_WinMain endp

Start:

        invoke        GetModuleHandle,0
        mov        hInstance,eax
        invoke        _WinMain
        invoke        ExitProcess,0

end Start

前4天 及第五天的源代码的源代码汇总


[招生]科锐逆向工程师培训(2024年11月15日实地,远程教学同时开班, 第51期)

上传的附件:
收藏
免费 6
支持
分享
最新回复 (19)
雪    币: 34
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
下来学习学习。支持
2013-3-16 20:06
0
雪    币: 370
活跃值: (15)
能力值: ( LV9,RANK:170 )
在线值:
发帖
回帖
粉丝
3
MD5汇编源码
感谢分享,这个适合用来做个模块
2013-3-16 20:58
0
雪    币: 66
活跃值: (203)
能力值: ( LV3,RANK:30 )
在线值:
发帖
回帖
粉丝
4
Thanks,有时间还得多研究啊
2013-3-16 21:38
0
雪    币: 97697
活跃值: (200834)
能力值: (RANK:10 )
在线值:
发帖
回帖
粉丝
5
Thanks for share.
2013-3-17 07:43
0
雪    币: 190
活跃值: (40)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
6
感谢分享~~~
2013-3-17 11:47
0
雪    币: 707
活跃值: (1301)
能力值: ( LV9,RANK:190 )
在线值:
发帖
回帖
粉丝
7
支持汇编,下载收藏
2013-3-17 19:36
0
雪    币: 257
活跃值: (67)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
8
感谢分享,来看一下
2013-3-17 21:13
0
雪    币: 206
活跃值: (85)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
9
指出一下,MD5不是加密算法,不能误导他人啊
2013-3-18 09:06
0
雪    币: 107
活跃值: (404)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
10
膜拜楼主....谢谢分享.........
2013-3-18 10:02
0
雪    币: 219
活跃值: (783)
能力值: (RANK:290 )
在线值:
发帖
回帖
粉丝
11
做一个sdk~
2013-3-18 13:51
0
雪    币: 3
活跃值: (81)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
12
喜欢汇编,学习学习
2013-3-18 22:56
0
雪    币: 60
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
13
不用汇编写多好啊,一看头大
2013-3-19 13:02
0
雪    币: 1021
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
zig
14
感谢lz分享
,,,,,,
2013-3-19 21:56
0
雪    币: 17
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
15
谢谢你的分享。
2013-3-20 14:51
0
雪    币: 32
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
16
Thanks for share.
汇编,不錯
2013-8-2 09:42
0
雪    币: 38
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
17
看的不太懂 希望讲的更清楚一点
2014-6-29 12:15
0
雪    币: 29
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
18
又一次得到了教育。。哈哈。。谢谢
2016-4-25 23:07
0
雪    币: 6
活跃值: (19)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
19
学习一下
2016-4-26 00:09
0
雪    币: 7
活跃值: (84)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
20
非常强大,支持一下。。期待SHA-1汇编源码
2019-1-3 17:01
0
游客
登录 | 注册 方可回帖
返回
//