4daae89053
updated sysfunc.txt
*programs
new icons and logo for CPUID and ICON
added new version of @ICON and ICONMNGR
fixes in iconedit and calendar from DedOK
new algoritm of fill background in pic4
all apps (fasm-writen only) rewriten to use common macros.inc for easy recompile in fastcall mode (there is a bug in https; run need rewrite to use common macros.inc)
small fixes in build_all.bat script
git-svn-id: svn://kolibrios.org@485 a494cfbc-eb01-0410-851d-a64ba20cac60
416 lines
11 KiB
NASM
416 lines
11 KiB
NASM
; <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:
|