强
学习你

能否提供RSA汇编源码？

N值能到多大？

n能到1024位。也有疑问，位数再高不知为何不行。（改变DD_NUM等值的数即可改变位数）
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                .386
                .model flat, stdcall
                option casemap :none
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
include                windows.inc
include                user32.inc
includelib        user32.lib
include                kernel32.inc
includelib        kernel32.lib
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ICO_MAIN        equ                1000        ;图标
DLG_MAIN        equ                100

DD_NUM           EQU   32                ;位数除以32，即DWORD数
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                .data?

hInstance        dd                ?

actural_b        dd        DD_NUM * 2 dup (0)
actural_n        dd        DD_NUM * 2 dup (0)
actural_m        dd        DD_NUM * 2 dup (0)
result                dd        DD_NUM * 2 dup (0)
presult                dd        ?

                .data

rsa_a        dd        DD_NUM dup (0)
rsa_b        dd        DD_NUM dup (0)
rsa_c        dd        DD_NUM dup (0)
rsa_n        dd        DD_NUM dup (0)
rsa_p        dd        DD_NUM dup (0)
rsa_m        dd        DD_NUM dup (0)

                .const
default_b        db        "10001",0        ;设置默认的私钥
default_n        db        "C7B71C573A60F571",0        ;设置默认的模
default_m        db        "BCF0DB712E6595F1",0                ;设置默认的数据
num_error        db        "有非法字符！",0
blank_error        db        "输入所有数据！",0
format                db         "%X",0
format8                db         "%8X",0

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                .code
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
rsa        proc
        push ebp
        mov  ebp,esp

;------------------------------;  置初值
        mov rsa_c,1
;-------------------------------循环计算
rsa0:        mov eax,rsa_b                ;bl;
        and eax,1                                ;b&1
        .if eax == 0                                ;b偶数?
;------------------------------b = b >> 1        ;b是偶数时
                rcl eax,1               
                mov esi,DD_NUM ;2
                .repeat
                        rcr eax,1
                        rcr [rsa_b-4+esi*4],1       
                        rcl eax,1
                        dec esi
                .until esi == 0
;------------------------------a = (a * a) mod n
                lea  eax,rsa_a        ;c--[EBP-08h][EBP-04h]
                call        mulanddiv                ;<--调用两数相乘再除以n的子程序，

        .else
                sub rsa_b,1        ;b = b - 1 只需将b的最低位置0即可
;------------------------------c = (c * a) mod n
                lea  eax,rsa_c                ;a
                call        mulanddiv                ;<--调用两数相乘再除以n的子程序

        .endif
;------------------------------判断b是否0  while(b)
        mov esi,DD_NUM ;2
        .repeat
                cmp [rsa_b-4+esi*4],0        ;判断b是否0
                ja rsa0
                dec esi
        .until esi == 0

;------------------------------计算结束
        pop      ebp
        retn
rsa        endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;-----------------------------两数相乘再和另一个数相除的子程序段
mulanddiv        proc
        mov ebx,eax
        lea ecx,rsa_a
        xor eax,eax
        xor esi,esi
        .repeat
                mov [rsa_p+esi*4],eax                ;乘积置初值0
                inc esi
        .until  esi == DD_NUM + DD_NUM ;4

        push ebp
        xor edi,edi
        .repeat
                lea ecx,[ecx+edi*4]                ;ecx=ecx+edi*4
                xor esi,esi                        ;esi=0
                lea ebp,[rsa_p+edi*4]
                .repeat
                        mov eax,[ebx+esi*4]
                        mul DWORD ptr [ecx]
                        lea ebp,[ebp+esi*4]
                        add DWORD ptr [ebp],eax
                        adc DWORD ptr [ebp+4],edx
                        adc DWORD ptr [ebp+8],0
                        inc esi
                .until esi == DD_NUM ;2
                inc edi
        .until edi == DD_NUM ;2
        pop ebp
;--------------------------------两个数相除 取余数
        mov ecx,DD_NUM * 20H ;40H        ;<--设循环次数为64次

bigdiv:        xor esi,esi
        inc esi
        push ecx
        mov ecx,DD_NUM + DD_NUM - 1
        shl DWORD ptr [rsa_p],1;被除数左移1位
SHIFTP:        rcl DWORD ptr [rsa_p+esi*4],1
        inc esi
        loop SHIFTP
        pop ecx

        mov esi,DD_NUM;2                ;比较
        .repeat
                mov eax,[rsa_n-4+esi*4]
                cmp [rsa_m-4+esi*4],eax
                jc  loop0
                ja  asubb
                dec esi
        .until esi == 0

asubb:        xor esi,esi                ;相减
        clc
        push ecx
        mov ecx,DD_NUM
msubn:        mov eax,[rsa_n+esi*4]
        sbb [rsa_m+esi*4],eax
        inc esi
        loop msubn
        pop ecx

loop0:        loop bigdiv

        xor esi,esi
        .repeat
                mov eax,[rsa_m+esi*4]                ;保存余数
                mov [ebx+esi*4],eax
                inc esi
        .until esi == DD_NUM ;2

        retn
mulanddiv        endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
scan_data        proc        hWnd
;检查输入数据的长度
        mov edi,eax
        invoke lstrlen,eax
        .if eax ==0
                jmp nonum
        .endif

;检查输入数据中是否有非法字符
scan_b:
        mov al,BYTE ptr [edi]
        .if al == 0
                xor eax,eax
                inc eax
                jmp scan_end
        .elseif al >= '0' && al <= '9' || al >= 'A' && al <= 'F' || al >= 'a' && al <= 'f'
                inc edi
                jmp scan_b
        .else
                jmp notnum
        .endif
notnum:       
        invoke SetDlgItemText,hWnd,104,addr num_error
        xor eax,eax
        jmp scan_end
nonum:       
        invoke SetDlgItemText,hWnd,104,addr blank_error
        xor eax,eax
scan_end:
        pop ebp
        retn 4
scan_data        endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
stringtoint        proc
        mov esi,eax
        mov edi,edx
        invoke lstrlen,eax
        xchg eax,esi
        mov edx,edi
        xor ebx,ebx
conv:        mov cl,BYTE ptr [eax+esi-1]
        .if cl >= 'A' && cl <= 'F'
                sub cl,'A'-0ah
        .elseif cl >= 'a' && cl <= 'f'
                sub cl,'a'-0ah
        .else
                sub cl,'0'
        .endif
        mov bl,cl

        dec esi
        jz oddbit
        mov cl,BYTE ptr [eax+esi-1]
        .if cl >= 'A' && cl <= 'F'
                sub cl,'A'-0ah
        .elseif cl >= 'a' && cl <= 'f'
                sub cl,'a'-0ah
        .else
                sub cl,'0'
        .endif
        shl cl,4
        add bl,cl
        mov BYTE ptr [edx],bl
        inc edx
        dec esi
        jnz conv
        jmp convert_end

oddbit:        mov BYTE ptr [edx],bl
       
convert_end:
        retn
stringtoint        endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
inttostring        proc
        mov esi,eax
        mov edi,edx
        invoke lstrlen,eax
        cdq
        mov ecx,4
        div ecx
        mov ebx,eax
        xor eax,eax
        lea eax,result
        mov presult,eax
        .if edx != 0
                mov eax,DWORD ptr [esi+ebx*4]
                invoke wsprintf,presult,addr format,eax
                add presult,eax
        .endif
        .while ebx > 0
                mov eax,DWORD ptr [esi+ebx*4-4]
                invoke wsprintf,presult,addr format,eax
                add presult,eax
                dec ebx
        .endw
        retn
inttostring        endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_ProcDlgMain        proc        uses ebx edi esi hWnd,wMsg,wParam,lParam

                mov        eax,wMsg
                .if        eax == WM_CLOSE
                        invoke        EndDialog,hWnd,NULL
                .elseif        eax == WM_INITDIALOG
                        invoke        LoadIcon,hInstance,ICO_MAIN
                        invoke        SendMessage,hWnd,WM_SETICON,ICON_BIG,eax
                        invoke SetDlgItemText,hWnd,101,addr default_b
                        invoke SetDlgItemText,hWnd,102,addr default_n
                        invoke SetDlgItemText,hWnd,103,addr default_m
                .elseif        eax == WM_COMMAND
                        mov        eax,wParam
                        .if        ax == IDCANCEL
                                invoke        EndDialog,hWnd,NULL
                        .elseif        ax == IDOK
                                invoke SetDlgItemText,hWnd,104,NULL
                                lea eax,actural_b
                                xor edx,edx
                                mov ecx,DD_NUM * 8 + 1
clrmem:                                mov [eax + ecx * 4 - 4],edx
                                loop clrmem
                                lea eax,rsa_a
                                mov ecx,DD_NUM * 6 + 1
clrmem1:                        mov [eax + ecx * 4 - 4],edx
                                loop clrmem1

                                invoke GetDlgItemText,hWnd,101,addr actural_b,sizeof actural_b
                                invoke GetDlgItemText,hWnd,102,addr actural_n,sizeof actural_n
                                invoke GetDlgItemText,hWnd,103,addr actural_m,sizeof actural_m
                                lea eax,actural_b
                                invoke scan_data,hWnd
                                .if eax
                                        lea eax,actural_n
                                        invoke scan_data,hWnd
                                        .if eax
                                                lea eax,actural_m
                                                invoke scan_data,hWnd
                                                .if eax
                                                        lea eax,actural_b
                                                        lea edx,rsa_b
                                                        call stringtoint
                                                        lea eax,actural_n
                                                        lea edx,rsa_n
                                                        call stringtoint
                                                        lea eax,actural_m
                                                        lea edx,rsa_a
                                                        call stringtoint
                                                        call rsa
                                                        lea eax,rsa_c
                                                        lea edx,result
                                                        call inttostring
                                                        invoke SetDlgItemText,hWnd,104,addr result
                                                .endif
                                        .endif
                                .endif
                        .endif
                .else
                        mov        eax,FALSE
                        ret
                .endif
                mov        eax,TRUE
                ret

_ProcDlgMain        endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
start:
                invoke        GetModuleHandle,NULL
                mov        hInstance,eax
                invoke        DialogBoxParam,hInstance,DLG_MAIN,NULL,offset _ProcDlgMain,NULL
                invoke        ExitProcess,NULL
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                end        start
:)

谢谢   :D

但是好像没办法输入1024位的N值？

兄弟，有bug啊
对小于10的偶数不能加密……

谢谢提供源码。

最初由 风云剑 发布
但是好像没办法输入1024位的N值？

你的1024位的N值什么样？我来试试。

最初由 JoJoYi 发布
兄弟，有bug啊
对小于10的偶数不能加密……

不可能呀？

稍更新了一下界面:)
[点击下载：附件！

谢谢了：）

最初由 moon 发布


你的1024位的N值什么样？我来试试。

还是不知道怎么输入？例如下面这个。
623234F3919282998411EF02BDB9AAA31F1179BD61BA4F0498958A5A1451EDCD30244C016F77417447EF1A92892AC684F8010578E27C2182B162B6CD95C8BD4F3E3825F23A1776E85EED0051AE56FE52B39AF5128808A672F8907AE9A34256935B4CFA9E39EF55FE0BB877E1397082F27DE10817968851CFF785B6C7072AE671

用MASM6.0？

对不起，我真是没有考虑到大数据输入的问题，我在调试时没有这样大的数据。这要在源码上改一个地方即可，即把输入缓冲区加大。我现在出差，改不了源代码，等我几天后回去再改吧。我是在路上想到的这个问题。

呵呵，你这个是用注册机生成器作的吧？要是这样的话还缺少一个资源文件。

是啊，要不然直接把我贴出的源码改一下即可。

资源文件源自于刘健英的注册机生成器，代码的对话框过程部分源于罗云彬的例子程序。感谢两位老兄！

点击下载：附件！

不知道是不是理解错误,记忆中公钥是不能随便付值的,而是又
密钥计算生成的.譬如模N=P*Q, p,q是密钥是质数,那么N就不可能
是偶数,公钥e的取值也是有一定限制的.i.e.gcd(e,m)=1

这个计算器更适合称为大数的取模运算(取模)

最初由 evileast 发布
不知道是不是理解错误,记忆中公钥是不能随便付值的,而是又
密钥计算生成的.譬如模N=P*Q, p,q是密钥是质数,那么N就不可能
是偶数,公钥e的取值也是有一定限制的.i.e.gcd(e,m)=1

这个程序是介绍RSA原理的，并不是用于生成RSA密钥的。密钥是需要事先计算出来的，所以这个ASM程序更多的可以认为是加减乘除、求余、模幂运算的实例代码。

比较实际用途的是在破解的时候，需要进行一下验算的地方，可以把遇到的参数输入进行计算。tE!的那个是字符串加密，而我的是数值运算。但求私钥还是要用tE!的那个，我现在因为不会判断素数，所以编分解n的那段不行，编出来分解时间也太长。