You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

574 lines
11 KiB

TITLE sha512-586.asm
IF @Version LT 800
ECHO MASM version 8.00 or later is strongly recommended.
ENDIF
.586
.MODEL FLAT
OPTION DOTNAME
IF @Version LT 800
.text$ SEGMENT PAGE 'CODE'
ELSE
.text$ SEGMENT ALIGN(64) 'CODE'
ENDIF
ALIGN 16
_sha512_block_data_order PROC PUBLIC
$L_sha512_block_data_order_begin::
push ebp
push ebx
push esi
push edi
mov esi,DWORD PTR 20[esp]
mov edi,DWORD PTR 24[esp]
mov eax,DWORD PTR 28[esp]
mov ebx,esp
call $L000pic_point
$L000pic_point:
pop ebp
lea ebp,DWORD PTR ($L001K512-$L000pic_point)[ebp]
sub esp,16
and esp,-64
shl eax,7
add eax,edi
mov DWORD PTR [esp],esi
mov DWORD PTR 4[esp],edi
mov DWORD PTR 8[esp],eax
mov DWORD PTR 12[esp],ebx
ALIGN 16
$L002loop_x86:
mov eax,DWORD PTR [edi]
mov ebx,DWORD PTR 4[edi]
mov ecx,DWORD PTR 8[edi]
mov edx,DWORD PTR 12[edi]
bswap eax
bswap ebx
bswap ecx
bswap edx
push eax
push ebx
push ecx
push edx
mov eax,DWORD PTR 16[edi]
mov ebx,DWORD PTR 20[edi]
mov ecx,DWORD PTR 24[edi]
mov edx,DWORD PTR 28[edi]
bswap eax
bswap ebx
bswap ecx
bswap edx
push eax
push ebx
push ecx
push edx
mov eax,DWORD PTR 32[edi]
mov ebx,DWORD PTR 36[edi]
mov ecx,DWORD PTR 40[edi]
mov edx,DWORD PTR 44[edi]
bswap eax
bswap ebx
bswap ecx
bswap edx
push eax
push ebx
push ecx
push edx
mov eax,DWORD PTR 48[edi]
mov ebx,DWORD PTR 52[edi]
mov ecx,DWORD PTR 56[edi]
mov edx,DWORD PTR 60[edi]
bswap eax
bswap ebx
bswap ecx
bswap edx
push eax
push ebx
push ecx
push edx
mov eax,DWORD PTR 64[edi]
mov ebx,DWORD PTR 68[edi]
mov ecx,DWORD PTR 72[edi]
mov edx,DWORD PTR 76[edi]
bswap eax
bswap ebx
bswap ecx
bswap edx
push eax
push ebx
push ecx
push edx
mov eax,DWORD PTR 80[edi]
mov ebx,DWORD PTR 84[edi]
mov ecx,DWORD PTR 88[edi]
mov edx,DWORD PTR 92[edi]
bswap eax
bswap ebx
bswap ecx
bswap edx
push eax
push ebx
push ecx
push edx
mov eax,DWORD PTR 96[edi]
mov ebx,DWORD PTR 100[edi]
mov ecx,DWORD PTR 104[edi]
mov edx,DWORD PTR 108[edi]
bswap eax
bswap ebx
bswap ecx
bswap edx
push eax
push ebx
push ecx
push edx
mov eax,DWORD PTR 112[edi]
mov ebx,DWORD PTR 116[edi]
mov ecx,DWORD PTR 120[edi]
mov edx,DWORD PTR 124[edi]
bswap eax
bswap ebx
bswap ecx
bswap edx
push eax
push ebx
push ecx
push edx
add edi,128
sub esp,72
mov DWORD PTR 204[esp],edi
lea edi,DWORD PTR 8[esp]
mov ecx,16
DD 2784229001
ALIGN 16
$L00300_15_x86:
mov ecx,DWORD PTR 40[esp]
mov edx,DWORD PTR 44[esp]
mov esi,ecx
shr ecx,9
mov edi,edx
shr edx,9
mov ebx,ecx
shl esi,14
mov eax,edx
shl edi,14
xor ebx,esi
shr ecx,5
xor eax,edi
shr edx,5
xor eax,ecx
shl esi,4
xor ebx,edx
shl edi,4
xor ebx,esi
shr ecx,4
xor eax,edi
shr edx,4
xor eax,ecx
shl esi,5
xor ebx,edx
shl edi,5
xor eax,esi
xor ebx,edi
mov ecx,DWORD PTR 48[esp]
mov edx,DWORD PTR 52[esp]
mov esi,DWORD PTR 56[esp]
mov edi,DWORD PTR 60[esp]
add eax,DWORD PTR 64[esp]
adc ebx,DWORD PTR 68[esp]
xor ecx,esi
xor edx,edi
and ecx,DWORD PTR 40[esp]
and edx,DWORD PTR 44[esp]
add eax,DWORD PTR 192[esp]
adc ebx,DWORD PTR 196[esp]
xor ecx,esi
xor edx,edi
mov esi,DWORD PTR [ebp]
mov edi,DWORD PTR 4[ebp]
add eax,ecx
adc ebx,edx
mov ecx,DWORD PTR 32[esp]
mov edx,DWORD PTR 36[esp]
add eax,esi
adc ebx,edi
mov DWORD PTR [esp],eax
mov DWORD PTR 4[esp],ebx
add eax,ecx
adc ebx,edx
mov ecx,DWORD PTR 8[esp]
mov edx,DWORD PTR 12[esp]
mov DWORD PTR 32[esp],eax
mov DWORD PTR 36[esp],ebx
mov esi,ecx
shr ecx,2
mov edi,edx
shr edx,2
mov ebx,ecx
shl esi,4
mov eax,edx
shl edi,4
xor ebx,esi
shr ecx,5
xor eax,edi
shr edx,5
xor ebx,ecx
shl esi,21
xor eax,edx
shl edi,21
xor eax,esi
shr ecx,21
xor ebx,edi
shr edx,21
xor eax,ecx
shl esi,5
xor ebx,edx
shl edi,5
xor eax,esi
xor ebx,edi
mov ecx,DWORD PTR 8[esp]
mov edx,DWORD PTR 12[esp]
mov esi,DWORD PTR 16[esp]
mov edi,DWORD PTR 20[esp]
add eax,DWORD PTR [esp]
adc ebx,DWORD PTR 4[esp]
or ecx,esi
or edx,edi
and ecx,DWORD PTR 24[esp]
and edx,DWORD PTR 28[esp]
and esi,DWORD PTR 8[esp]
and edi,DWORD PTR 12[esp]
or ecx,esi
or edx,edi
add eax,ecx
adc ebx,edx
mov DWORD PTR [esp],eax
mov DWORD PTR 4[esp],ebx
mov dl,BYTE PTR [ebp]
sub esp,8
lea ebp,DWORD PTR 8[ebp]
cmp dl,148
jne $L00300_15_x86
ALIGN 16
$L00416_79_x86:
mov ecx,DWORD PTR 312[esp]
mov edx,DWORD PTR 316[esp]
mov esi,ecx
shr ecx,1
mov edi,edx
shr edx,1
mov eax,ecx
shl esi,24
mov ebx,edx
shl edi,24
xor ebx,esi
shr ecx,6
xor eax,edi
shr edx,6
xor eax,ecx
shl esi,7
xor ebx,edx
shl edi,1
xor ebx,esi
shr ecx,1
xor eax,edi
shr edx,1
xor eax,ecx
shl edi,6
xor ebx,edx
xor eax,edi
mov DWORD PTR [esp],eax
mov DWORD PTR 4[esp],ebx
mov ecx,DWORD PTR 208[esp]
mov edx,DWORD PTR 212[esp]
mov esi,ecx
shr ecx,6
mov edi,edx
shr edx,6
mov eax,ecx
shl esi,3
mov ebx,edx
shl edi,3
xor eax,esi
shr ecx,13
xor ebx,edi
shr edx,13
xor eax,ecx
shl esi,10
xor ebx,edx
shl edi,10
xor ebx,esi
shr ecx,10
xor eax,edi
shr edx,10
xor ebx,ecx
shl edi,13
xor eax,edx
xor eax,edi
mov ecx,DWORD PTR 320[esp]
mov edx,DWORD PTR 324[esp]
add eax,DWORD PTR [esp]
adc ebx,DWORD PTR 4[esp]
mov esi,DWORD PTR 248[esp]
mov edi,DWORD PTR 252[esp]
add eax,ecx
adc ebx,edx
add eax,esi
adc ebx,edi
mov DWORD PTR 192[esp],eax
mov DWORD PTR 196[esp],ebx
mov ecx,DWORD PTR 40[esp]
mov edx,DWORD PTR 44[esp]
mov esi,ecx
shr ecx,9
mov edi,edx
shr edx,9
mov ebx,ecx
shl esi,14
mov eax,edx
shl edi,14
xor ebx,esi
shr ecx,5
xor eax,edi
shr edx,5
xor eax,ecx
shl esi,4
xor ebx,edx
shl edi,4
xor ebx,esi
shr ecx,4
xor eax,edi
shr edx,4
xor eax,ecx
shl esi,5
xor ebx,edx
shl edi,5
xor eax,esi
xor ebx,edi
mov ecx,DWORD PTR 48[esp]
mov edx,DWORD PTR 52[esp]
mov esi,DWORD PTR 56[esp]
mov edi,DWORD PTR 60[esp]
add eax,DWORD PTR 64[esp]
adc ebx,DWORD PTR 68[esp]
xor ecx,esi
xor edx,edi
and ecx,DWORD PTR 40[esp]
and edx,DWORD PTR 44[esp]
add eax,DWORD PTR 192[esp]
adc ebx,DWORD PTR 196[esp]
xor ecx,esi
xor edx,edi
mov esi,DWORD PTR [ebp]
mov edi,DWORD PTR 4[ebp]
add eax,ecx
adc ebx,edx
mov ecx,DWORD PTR 32[esp]
mov edx,DWORD PTR 36[esp]
add eax,esi
adc ebx,edi
mov DWORD PTR [esp],eax
mov DWORD PTR 4[esp],ebx
add eax,ecx
adc ebx,edx
mov ecx,DWORD PTR 8[esp]
mov edx,DWORD PTR 12[esp]
mov DWORD PTR 32[esp],eax
mov DWORD PTR 36[esp],ebx
mov esi,ecx
shr ecx,2
mov edi,edx
shr edx,2
mov ebx,ecx
shl esi,4
mov eax,edx
shl edi,4
xor ebx,esi
shr ecx,5
xor eax,edi
shr edx,5
xor ebx,ecx
shl esi,21
xor eax,edx
shl edi,21
xor eax,esi
shr ecx,21
xor ebx,edi
shr edx,21
xor eax,ecx
shl esi,5
xor ebx,edx
shl edi,5
xor eax,esi
xor ebx,edi
mov ecx,DWORD PTR 8[esp]
mov edx,DWORD PTR 12[esp]
mov esi,DWORD PTR 16[esp]
mov edi,DWORD PTR 20[esp]
add eax,DWORD PTR [esp]
adc ebx,DWORD PTR 4[esp]
or ecx,esi
or edx,edi
and ecx,DWORD PTR 24[esp]
and edx,DWORD PTR 28[esp]
and esi,DWORD PTR 8[esp]
and edi,DWORD PTR 12[esp]
or ecx,esi
or edx,edi
add eax,ecx
adc ebx,edx
mov DWORD PTR [esp],eax
mov DWORD PTR 4[esp],ebx
mov dl,BYTE PTR [ebp]
sub esp,8
lea ebp,DWORD PTR 8[ebp]
cmp dl,23
jne $L00416_79_x86
mov esi,DWORD PTR 840[esp]
mov edi,DWORD PTR 844[esp]
mov eax,DWORD PTR [esi]
mov ebx,DWORD PTR 4[esi]
mov ecx,DWORD PTR 8[esi]
mov edx,DWORD PTR 12[esi]
add eax,DWORD PTR 8[esp]
adc ebx,DWORD PTR 12[esp]
mov DWORD PTR [esi],eax
mov DWORD PTR 4[esi],ebx
add ecx,DWORD PTR 16[esp]
adc edx,DWORD PTR 20[esp]
mov DWORD PTR 8[esi],ecx
mov DWORD PTR 12[esi],edx
mov eax,DWORD PTR 16[esi]
mov ebx,DWORD PTR 20[esi]
mov ecx,DWORD PTR 24[esi]
mov edx,DWORD PTR 28[esi]
add eax,DWORD PTR 24[esp]
adc ebx,DWORD PTR 28[esp]
mov DWORD PTR 16[esi],eax
mov DWORD PTR 20[esi],ebx
add ecx,DWORD PTR 32[esp]
adc edx,DWORD PTR 36[esp]
mov DWORD PTR 24[esi],ecx
mov DWORD PTR 28[esi],edx
mov eax,DWORD PTR 32[esi]
mov ebx,DWORD PTR 36[esi]
mov ecx,DWORD PTR 40[esi]
mov edx,DWORD PTR 44[esi]
add eax,DWORD PTR 40[esp]
adc ebx,DWORD PTR 44[esp]
mov DWORD PTR 32[esi],eax
mov DWORD PTR 36[esi],ebx
add ecx,DWORD PTR 48[esp]
adc edx,DWORD PTR 52[esp]
mov DWORD PTR 40[esi],ecx
mov DWORD PTR 44[esi],edx
mov eax,DWORD PTR 48[esi]
mov ebx,DWORD PTR 52[esi]
mov ecx,DWORD PTR 56[esi]
mov edx,DWORD PTR 60[esi]
add eax,DWORD PTR 56[esp]
adc ebx,DWORD PTR 60[esp]
mov DWORD PTR 48[esi],eax
mov DWORD PTR 52[esi],ebx
add ecx,DWORD PTR 64[esp]
adc edx,DWORD PTR 68[esp]
mov DWORD PTR 56[esi],ecx
mov DWORD PTR 60[esi],edx
add esp,840
sub ebp,640
cmp edi,DWORD PTR 8[esp]
jb $L002loop_x86
mov esp,DWORD PTR 12[esp]
pop edi
pop esi
pop ebx
pop ebp
ret
ALIGN 64
$L001K512:
DD 3609767458,1116352408
DD 602891725,1899447441
DD 3964484399,3049323471
DD 2173295548,3921009573
DD 4081628472,961987163
DD 3053834265,1508970993
DD 2937671579,2453635748
DD 3664609560,2870763221
DD 2734883394,3624381080
DD 1164996542,310598401
DD 1323610764,607225278
DD 3590304994,1426881987
DD 4068182383,1925078388
DD 991336113,2162078206
DD 633803317,2614888103
DD 3479774868,3248222580
DD 2666613458,3835390401
DD 944711139,4022224774
DD 2341262773,264347078
DD 2007800933,604807628
DD 1495990901,770255983
DD 1856431235,1249150122
DD 3175218132,1555081692
DD 2198950837,1996064986
DD 3999719339,2554220882
DD 766784016,2821834349
DD 2566594879,2952996808
DD 3203337956,3210313671
DD 1034457026,3336571891
DD 2466948901,3584528711
DD 3758326383,113926993
DD 168717936,338241895
DD 1188179964,666307205
DD 1546045734,773529912
DD 1522805485,1294757372
DD 2643833823,1396182291
DD 2343527390,1695183700
DD 1014477480,1986661051
DD 1206759142,2177026350
DD 344077627,2456956037
DD 1290863460,2730485921
DD 3158454273,2820302411
DD 3505952657,3259730800
DD 106217008,3345764771
DD 3606008344,3516065817
DD 1432725776,3600352804
DD 1467031594,4094571909
DD 851169720,275423344
DD 3100823752,430227734
DD 1363258195,506948616
DD 3750685593,659060556
DD 3785050280,883997877
DD 3318307427,958139571
DD 3812723403,1322822218
DD 2003034995,1537002063
DD 3602036899,1747873779
DD 1575990012,1955562222
DD 1125592928,2024104815
DD 2716904306,2227730452
DD 442776044,2361852424
DD 593698344,2428436474
DD 3733110249,2756734187
DD 2999351573,3204031479
DD 3815920427,3329325298
DD 3928383900,3391569614
DD 566280711,3515267271
DD 3454069534,3940187606
DD 4000239992,4118630271
DD 1914138554,116418474
DD 2731055270,174292421
DD 3203993006,289380356
DD 320620315,460393269
DD 587496836,685471733
DD 1086792851,852142971
DD 365543100,1017036298
DD 2618297676,1126000580
DD 3409855158,1288033470
DD 4234509866,1501505948
DD 987167468,1607167915
DD 1246189591,1816402316
_sha512_block_data_order ENDP
DB 83,72,65,53,49,50,32,98,108,111,99,107,32,116,114,97
DB 110,115,102,111,114,109,32,102,111,114,32,120,56,54,44,32
DB 67,82,89,80,84,79,71,65,77,83,32,98,121,32,60,97
DB 112,112,114,111,64,111,112,101,110,115,115,108,46,111,114,103
DB 62,0
.text$ ENDS
END