forked from KolibriOS/kolibrios
md5 example for Menuet (hehe) deleted as outdated, use libcrash from dunkaist
git-svn-id: svn://kolibrios.org@3117 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kirill Lipatov (Leency)
parent
cbee725189
commit
5c280e96ca
@ -1,5 +0,0 @@
|
|||||||
@erase lang.inc
|
|
||||||
@echo lang fix en >lang.inc
|
|
||||||
@fasm md5.asm md5
|
|
||||||
@erase lang.inc
|
|
||||||
@pause
|
|
||||||
@ -1,5 +0,0 @@
|
|||||||
@erase lang.inc
|
|
||||||
@echo lang fix ru >lang.inc
|
|
||||||
@fasm md5.asm md5
|
|
||||||
@erase lang.inc
|
|
||||||
@pause
|
|
||||||
@ -1,415 +0,0 @@
|
|||||||
; <20>ਬ¥à ॠ«¨§ 樨 £¥¥à â®à MD5 - å¥è
|
|
||||||
;
|
|
||||||
; MD5 Generator
|
|
||||||
;
|
|
||||||
; €¢â®à: Hex
|
|
||||||
; ‘ ©â: www.mestack.narod.ru
|
|
||||||
; ˆ¤¥ï, ॠ«¨§ æ¨ï ¨ ®â« ¤ª .
|
|
||||||
;
|
|
||||||
; €¢â®à: Halyavin
|
|
||||||
; ‘ ©â: www.shade.msu.ru/~msu-se/home.html
|
|
||||||
; „®à ¡®âª , ®â« ¤ª ¨ ®¯â¨¬¨§ æ¨ï.
|
|
||||||
;
|
|
||||||
; Š®¬¯¨«¨àã¥âìáï Fasm'®¬ ¤«ï Œ¥ãí⎑
|
|
||||||
include 'lang.inc'
|
|
||||||
include '..\..\..\..\macros.inc'
|
|
||||||
|
|
||||||
use32
|
|
||||||
|
|
||||||
org 0x0
|
|
||||||
|
|
||||||
db 'MENUET01' ; 8-¡ ©âë© ¨¤¥â¨ä¨ª â®à MenuetOS
|
|
||||||
dd 0x01 ; ¢¥àá¨ï § £®«®¢ª (¢á¥£¤ 1)
|
|
||||||
dd START ; ¤à¥á ¯¥à¢®© ª®¬ ¤ë
|
|
||||||
dd I_END ; à §¬¥à ¯à®£à ¬¬ë
|
|
||||||
dd 0x4000 ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
|
|
||||||
dd 0x4000 ; ¤à¥á ¢¥àè¨ë áâíª
|
|
||||||
dd 0x0 ; ¤à¥á ¡ãä¥à ¤«ï ¯ à ¬¥â஢ (¥ ¨á¯®«ì§ã¥âáï)
|
|
||||||
dd 0x0 ; § १¥à¢¨à®¢ ®
|
|
||||||
|
|
||||||
START: ; <20> ç «® ¢ë¯®«¥¨ï ¯à®£à ¬¬ë
|
|
||||||
|
|
||||||
red:
|
|
||||||
call draw_window ; ‘¯¥à¢ ¯¥à¥à¨á㥬 ®ª®
|
|
||||||
|
|
||||||
still:
|
|
||||||
|
|
||||||
mov eax,10 ; Ž¦¨¤ ¥¬ ᮡë⨩
|
|
||||||
mcall
|
|
||||||
|
|
||||||
cmp eax,1 ; ‡ ¯à®á ¯¥à¥à¨á®¢ªã ?
|
|
||||||
jz red
|
|
||||||
cmp eax,2 ; ¦ â ª« ¢¨è¨ ?
|
|
||||||
jnz button
|
|
||||||
|
|
||||||
key:
|
|
||||||
mov eax,2
|
|
||||||
mcall
|
|
||||||
jmp still
|
|
||||||
|
|
||||||
button:
|
|
||||||
mov eax,17
|
|
||||||
mcall
|
|
||||||
|
|
||||||
cmp ah,1 ; id ª®¯ª¨ = 1 ?
|
|
||||||
jnz noclose
|
|
||||||
or eax,-1
|
|
||||||
mcall
|
|
||||||
|
|
||||||
noclose:
|
|
||||||
|
|
||||||
cmp ah,2 ; ƒ¥¥à¨à®¢ âì?
|
|
||||||
je procMD5hash
|
|
||||||
|
|
||||||
jmp still
|
|
||||||
|
|
||||||
|
|
||||||
procMD5hash:
|
|
||||||
|
|
||||||
; phase I - padding
|
|
||||||
mov edi,ptBuffer
|
|
||||||
mov eax,[dtBufferLength]
|
|
||||||
|
|
||||||
inc eax
|
|
||||||
add edi,eax
|
|
||||||
mov byte [edi-1],0x80
|
|
||||||
|
|
||||||
xor edx,edx
|
|
||||||
|
|
||||||
mov ebx,64
|
|
||||||
div ebx
|
|
||||||
|
|
||||||
neg edx
|
|
||||||
add edx,64
|
|
||||||
|
|
||||||
cmp edx,8
|
|
||||||
jae @f
|
|
||||||
|
|
||||||
add edx,64
|
|
||||||
|
|
||||||
@@: mov ecx,edx
|
|
||||||
xor al,al
|
|
||||||
rep stosb
|
|
||||||
|
|
||||||
mov eax,[dtBufferLength]
|
|
||||||
|
|
||||||
inc edx
|
|
||||||
add [dtBufferLength],edx
|
|
||||||
|
|
||||||
xor edx,edx
|
|
||||||
|
|
||||||
mov ebx,8
|
|
||||||
mul ebx
|
|
||||||
|
|
||||||
mov [edi-8],eax
|
|
||||||
mov [edi-4],edx
|
|
||||||
|
|
||||||
mov edx,[dtBufferLength]
|
|
||||||
|
|
||||||
mov edi,ptBuffer
|
|
||||||
|
|
||||||
; phase II - chaining variables initialization
|
|
||||||
mov dword [dtA],067452301h
|
|
||||||
mov dword [dtB],0efcdab89h
|
|
||||||
mov dword [dtC],098badcfeh
|
|
||||||
mov dword [dtD],010325476h
|
|
||||||
|
|
||||||
mov esi,ptMD5Result
|
|
||||||
|
|
||||||
hashloop:
|
|
||||||
;diff16 "hashloop",hashloop
|
|
||||||
mov eax,[dtA]
|
|
||||||
mov [dta],eax
|
|
||||||
mov eax,[dtB]
|
|
||||||
mov [dtb],eax
|
|
||||||
mov eax,[dtC]
|
|
||||||
mov [dtc],eax
|
|
||||||
mov eax,[dtD]
|
|
||||||
mov [dtd],eax
|
|
||||||
|
|
||||||
macro ff dta,dtb,dtc,dtd,data,shift,cc
|
|
||||||
{
|
|
||||||
mov eax,dtb
|
|
||||||
mov ebx,dtc
|
|
||||||
mov ecx,dtd
|
|
||||||
|
|
||||||
and ebx,eax
|
|
||||||
not eax
|
|
||||||
and eax,ecx
|
|
||||||
or eax,ebx
|
|
||||||
|
|
||||||
add eax,dta
|
|
||||||
add eax,data
|
|
||||||
add eax,cc
|
|
||||||
rol eax,shift
|
|
||||||
add eax,dtb
|
|
||||||
mov dta,eax
|
|
||||||
}
|
|
||||||
macro gg dta,dtb,dtc,dtd,data,shift,cc
|
|
||||||
{
|
|
||||||
mov eax,dtb
|
|
||||||
mov ebx,dtc
|
|
||||||
mov ecx,dtd
|
|
||||||
|
|
||||||
and eax,ecx
|
|
||||||
not ecx
|
|
||||||
and ecx,ebx
|
|
||||||
or eax,ecx
|
|
||||||
|
|
||||||
add eax,dta
|
|
||||||
add eax,data
|
|
||||||
add eax,cc
|
|
||||||
rol eax,shift
|
|
||||||
add eax,dtb
|
|
||||||
mov dta,eax
|
|
||||||
}
|
|
||||||
macro hh dta,dtb,dtc,dtd,data,shift,cc
|
|
||||||
{
|
|
||||||
mov eax,dtb
|
|
||||||
mov ebx,dtc
|
|
||||||
mov ecx,dtd
|
|
||||||
|
|
||||||
xor eax,ebx
|
|
||||||
xor eax,ecx
|
|
||||||
|
|
||||||
add eax,dta
|
|
||||||
add eax,data
|
|
||||||
add eax,cc
|
|
||||||
rol eax,shift
|
|
||||||
add eax,dtb
|
|
||||||
mov dta,eax
|
|
||||||
}
|
|
||||||
macro ii dta,dtb,dtc,dtd,data,shift,cc
|
|
||||||
{
|
|
||||||
mov eax,dtb
|
|
||||||
mov ebx,dtc
|
|
||||||
mov ecx,dtd
|
|
||||||
|
|
||||||
not ecx
|
|
||||||
or eax,ecx
|
|
||||||
xor eax,ebx
|
|
||||||
|
|
||||||
add eax,dta
|
|
||||||
add eax,data
|
|
||||||
add eax,cc
|
|
||||||
rol eax,shift
|
|
||||||
add eax,dtb
|
|
||||||
mov dta,eax
|
|
||||||
}
|
|
||||||
; round 1
|
|
||||||
ff [dta],[dtb],[dtc],[dtd],dword [edi+00*4],07,0xd76aa478
|
|
||||||
ff [dtd],[dta],[dtb],[dtc],dword [edi+01*4],12,0xe8c7b756
|
|
||||||
ff [dtc],[dtd],[dta],[dtb],dword [edi+02*4],17,0x242070db
|
|
||||||
ff [dtb],[dtc],[dtd],[dta],dword [edi+03*4],22,0xc1bdceee
|
|
||||||
ff [dta],[dtb],[dtc],[dtd],dword [edi+04*4],07,0xf57c0faf
|
|
||||||
ff [dtd],[dta],[dtb],[dtc],dword [edi+05*4],12,0x4787c62a
|
|
||||||
ff [dtc],[dtd],[dta],[dtb],dword [edi+06*4],17,0xa8304613
|
|
||||||
ff [dtb],[dtc],[dtd],[dta],dword [edi+07*4],22,0xfd469501
|
|
||||||
ff [dta],[dtb],[dtc],[dtd],dword [edi+08*4],07,0x698098d8
|
|
||||||
ff [dtd],[dta],[dtb],[dtc],dword [edi+09*4],12,0x8b44f7af
|
|
||||||
ff [dtc],[dtd],[dta],[dtb],dword [edi+10*4],17,0xffff5bb1
|
|
||||||
ff [dtb],[dtc],[dtd],[dta],dword [edi+11*4],22,0x895cd7be
|
|
||||||
ff [dta],[dtb],[dtc],[dtd],dword [edi+12*4],07,0x6b901122
|
|
||||||
ff [dtd],[dta],[dtb],[dtc],dword [edi+13*4],12,0xfd987193
|
|
||||||
ff [dtc],[dtd],[dta],[dtb],dword [edi+14*4],17,0xa679438e
|
|
||||||
ff [dtb],[dtc],[dtd],[dta],dword [edi+15*4],22,0x49b40821
|
|
||||||
; round 2
|
|
||||||
gg [dta],[dtb],[dtc],[dtd],dword [edi+01*4],05,0xf61e2562
|
|
||||||
gg [dtd],[dta],[dtb],[dtc],dword [edi+06*4],09,0xc040b340
|
|
||||||
gg [dtc],[dtd],[dta],[dtb],dword [edi+11*4],14,0x265e5a51
|
|
||||||
gg [dtb],[dtc],[dtd],[dta],dword [edi+00*4],20,0xe9b6c7aa
|
|
||||||
gg [dta],[dtb],[dtc],[dtd],dword [edi+05*4],05,0xd62f105d
|
|
||||||
gg [dtd],[dta],[dtb],[dtc],dword [edi+10*4],09,0x02441453
|
|
||||||
gg [dtc],[dtd],[dta],[dtb],dword [edi+15*4],14,0xd8a1e681
|
|
||||||
gg [dtb],[dtc],[dtd],[dta],dword [edi+04*4],20,0xe7d3fbc8
|
|
||||||
gg [dta],[dtb],[dtc],[dtd],dword [edi+09*4],05,0x21e1cde6
|
|
||||||
gg [dtd],[dta],[dtb],[dtc],dword [edi+14*4],09,0xc33707d6
|
|
||||||
gg [dtc],[dtd],[dta],[dtb],dword [edi+03*4],14,0xf4d50d87
|
|
||||||
gg [dtb],[dtc],[dtd],[dta],dword [edi+08*4],20,0x455a14ed
|
|
||||||
gg [dta],[dtb],[dtc],[dtd],dword [edi+13*4],05,0xa9e3e905
|
|
||||||
gg [dtd],[dta],[dtb],[dtc],dword [edi+02*4],09,0xfcefa3f8
|
|
||||||
gg [dtc],[dtd],[dta],[dtb],dword [edi+07*4],14,0x676f02d9
|
|
||||||
gg [dtb],[dtc],[dtd],[dta],dword [edi+12*4],20,0x8d2a4c8a
|
|
||||||
; round 3
|
|
||||||
hh [dta],[dtb],[dtc],[dtd],dword [edi+05*4],04,0xfffa3942
|
|
||||||
hh [dtd],[dta],[dtb],[dtc],dword [edi+08*4],11,0x8771f681
|
|
||||||
hh [dtc],[dtd],[dta],[dtb],dword [edi+11*4],16,0x6d9d6122
|
|
||||||
hh [dtb],[dtc],[dtd],[dta],dword [edi+14*4],23,0xfde5380c
|
|
||||||
hh [dta],[dtb],[dtc],[dtd],dword [edi+01*4],04,0xa4beea44
|
|
||||||
hh [dtd],[dta],[dtb],[dtc],dword [edi+04*4],11,0x4bdecfa9
|
|
||||||
hh [dtc],[dtd],[dta],[dtb],dword [edi+07*4],16,0xf6bb4b60
|
|
||||||
hh [dtb],[dtc],[dtd],[dta],dword [edi+10*4],23,0xbebfbc70
|
|
||||||
hh [dta],[dtb],[dtc],[dtd],dword [edi+13*4],04,0x289b7ec6
|
|
||||||
hh [dtd],[dta],[dtb],[dtc],dword [edi+00*4],11,0xeaa127fa
|
|
||||||
hh [dtc],[dtd],[dta],[dtb],dword [edi+03*4],16,0xd4ef3085
|
|
||||||
hh [dtb],[dtc],[dtd],[dta],dword [edi+06*4],23,0x04881d05
|
|
||||||
hh [dta],[dtb],[dtc],[dtd],dword [edi+09*4],04,0xd9d4d039
|
|
||||||
hh [dtd],[dta],[dtb],[dtc],dword [edi+12*4],11,0xe6db99e5
|
|
||||||
hh [dtc],[dtd],[dta],[dtb],dword [edi+15*4],16,0x1fa27cf8
|
|
||||||
hh [dtb],[dtc],[dtd],[dta],dword [edi+02*4],23,0xc4ac5665
|
|
||||||
; round 4
|
|
||||||
ii [dta],[dtb],[dtc],[dtd],dword [edi+00*4],06,0xf4292244
|
|
||||||
ii [dtd],[dta],[dtb],[dtc],dword [edi+07*4],10,0x432aff97
|
|
||||||
ii [dtc],[dtd],[dta],[dtb],dword [edi+14*4],15,0xab9423a7
|
|
||||||
ii [dtb],[dtc],[dtd],[dta],dword [edi+05*4],21,0xfc93a039
|
|
||||||
ii [dta],[dtb],[dtc],[dtd],dword [edi+12*4],06,0x655b59c3
|
|
||||||
ii [dtd],[dta],[dtb],[dtc],dword [edi+03*4],10,0x8f0ccc92
|
|
||||||
ii [dtc],[dtd],[dta],[dtb],dword [edi+10*4],15,0xffeff47d
|
|
||||||
ii [dtb],[dtc],[dtd],[dta],dword [edi+01*4],21,0x85845dd1
|
|
||||||
ii [dta],[dtb],[dtc],[dtd],dword [edi+08*4],06,0x6fa87e4f
|
|
||||||
ii [dtd],[dta],[dtb],[dtc],dword [edi+15*4],10,0xfe2ce6e0
|
|
||||||
ii [dtc],[dtd],[dta],[dtb],dword [edi+06*4],15,0xa3014314
|
|
||||||
ii [dtb],[dtc],[dtd],[dta],dword [edi+13*4],21,0x4e0811a1
|
|
||||||
ii [dta],[dtb],[dtc],[dtd],dword [edi+04*4],06,0xf7537e82
|
|
||||||
ii [dtd],[dta],[dtb],[dtc],dword [edi+11*4],10,0xbd3af235
|
|
||||||
ii [dtc],[dtd],[dta],[dtb],dword [edi+02*4],15,0x2ad7d2bb
|
|
||||||
ii [dtb],[dtc],[dtd],[dta],dword [edi+09*4],21,0xeb86d391
|
|
||||||
|
|
||||||
mov eax,[dta]
|
|
||||||
add [dtA],eax
|
|
||||||
mov eax,[dtb]
|
|
||||||
add [dtB],eax
|
|
||||||
mov eax,[dtc]
|
|
||||||
add [dtC],eax
|
|
||||||
mov eax,[dtd]
|
|
||||||
add [dtD],eax
|
|
||||||
|
|
||||||
add edi,64
|
|
||||||
|
|
||||||
sub edx,64
|
|
||||||
jnz hashloop
|
|
||||||
|
|
||||||
; phase IV - results
|
|
||||||
|
|
||||||
mov ecx,4
|
|
||||||
mov esi,ptMD5Result
|
|
||||||
|
|
||||||
@@: mov eax,[esi]
|
|
||||||
xchg al,ah
|
|
||||||
rol eax,16
|
|
||||||
xchg al,ah
|
|
||||||
mov [esi],eax
|
|
||||||
|
|
||||||
add esi,4
|
|
||||||
loop @b
|
|
||||||
|
|
||||||
translate:
|
|
||||||
;diff16 "translate",translate
|
|
||||||
mov esi,ptMD5Result-5
|
|
||||||
mov edi,hexresult
|
|
||||||
mov ecx,16
|
|
||||||
@@:
|
|
||||||
test ecx,3
|
|
||||||
jnz .nojmp
|
|
||||||
add esi,8
|
|
||||||
.nojmp:
|
|
||||||
xor eax,eax
|
|
||||||
mov al,byte [esi]
|
|
||||||
mov edx,eax
|
|
||||||
shr eax,4
|
|
||||||
mov bl,byte [table+eax]
|
|
||||||
mov [edi],bl
|
|
||||||
inc edi
|
|
||||||
and edx,15
|
|
||||||
mov bl,byte [table+edx]
|
|
||||||
mov [edi],bl
|
|
||||||
dec esi
|
|
||||||
inc edi
|
|
||||||
loop @b
|
|
||||||
|
|
||||||
mov esi,hexresult
|
|
||||||
|
|
||||||
mov [text], esi
|
|
||||||
mov eax,32
|
|
||||||
mov [textlen], eax
|
|
||||||
call draw_window
|
|
||||||
|
|
||||||
jmp still
|
|
||||||
|
|
||||||
; *********************************************
|
|
||||||
; ******* WINDOW DEFINITIONS AND DRAW ********
|
|
||||||
; *********************************************
|
|
||||||
|
|
||||||
|
|
||||||
draw_window:
|
|
||||||
|
|
||||||
mov eax,12 ; function 12:tell os about windowdraw
|
|
||||||
mov ebx,1 ; 1, start of draw
|
|
||||||
mcall
|
|
||||||
; DRAW WINDOW
|
|
||||||
mov eax,0 ; function 0 : define and draw window
|
|
||||||
mov ebx,100*65536+230 ; [x start] *65536 + [x size]
|
|
||||||
mov ecx,60*65536+100 ; [y start] *65536 + [y size]
|
|
||||||
mov edx,0x13ffffff ; color of work area RRGGBB
|
|
||||||
mov edi,title ; WINDOW LABEL
|
|
||||||
mcall
|
|
||||||
|
|
||||||
|
|
||||||
; <20>¨á㥬 ª®¯ªã ¤«ï £¥¥à 樨
|
|
||||||
mov eax,8 ; function 8 : define and draw button
|
|
||||||
mov ebx,20*65536+80 ; [x start] *65536 + [x size]
|
|
||||||
mov ecx,34*65536+14 ; [y start] *65536 + [y size]
|
|
||||||
mov edx,2 ; button id
|
|
||||||
mov esi,0x5588dd ; button color RRGGBB
|
|
||||||
mcall
|
|
||||||
|
|
||||||
; <20> §¢ ¨¥ ª®¯ªã
|
|
||||||
mov eax,4 ; function 4 : write text to window
|
|
||||||
mov ebx,23*65536+38 ; [x start] *65536 + [y start]
|
|
||||||
mov ecx,0x000000 ; color of text RRGGBB
|
|
||||||
mov edx,gen_txt ; pointer to text beginning
|
|
||||||
mov esi,gen_len-gen_txt ; text length
|
|
||||||
mcall
|
|
||||||
|
|
||||||
mov ebx,20*65536+70
|
|
||||||
mov ecx,0x000000
|
|
||||||
mov edx,[text]
|
|
||||||
xor eax,eax
|
|
||||||
mov al, [textlen]
|
|
||||||
mov esi,eax
|
|
||||||
mov eax,4
|
|
||||||
mcall
|
|
||||||
|
|
||||||
mov eax,12 ; function 12:tell os about windowdraw
|
|
||||||
mov ebx,2 ; 2, end of draw
|
|
||||||
mcall
|
|
||||||
|
|
||||||
ret
|
|
||||||
|
|
||||||
;Ž¡« áâì ¤ ëå
|
|
||||||
|
|
||||||
title db 'MD5 Generator',0
|
|
||||||
|
|
||||||
text: dd 0
|
|
||||||
textlen: dd 0
|
|
||||||
|
|
||||||
gen_txt: db '‘£¥¥à¨à®¢ âì'
|
|
||||||
gen_len:
|
|
||||||
|
|
||||||
InputMD5Rez: dd 0
|
|
||||||
InputMD5Rezlen:
|
|
||||||
|
|
||||||
ptBuffer: db '123' ;‡ ¬¥¨âì £¥¥à¨à㥬®¥ á«®¢®
|
|
||||||
rb 61
|
|
||||||
dtBufferLength: dd 3 ;<3B> §¬¥à ptBuffer
|
|
||||||
|
|
||||||
ptMD5Result:
|
|
||||||
|
|
||||||
dtA: dd 0
|
|
||||||
dtB: dd 0
|
|
||||||
dtC: dd 0
|
|
||||||
dtD: dd 0
|
|
||||||
|
|
||||||
dta: dd 0
|
|
||||||
dtb: dd 0
|
|
||||||
dtc: dd 0
|
|
||||||
dtd: dd 0
|
|
||||||
|
|
||||||
x: dd 0
|
|
||||||
s: dd 0
|
|
||||||
t: dd 0
|
|
||||||
|
|
||||||
table: db '0123456789abcdef'
|
|
||||||
hexresult db 32
|
|
||||||
|
|
||||||
I_END:
|
|
||||||
Loading…
Reference in New Issue
Block a user