[MASM32] Comment utiliser md5()

**sefo** · 10/12/2004, 20h44

Sur windows XP, intel avec MASM32
J'ai récupéré la dll sur le site de WiteG:
http://www.witeg.cad.pl/crypto/md.zip
J'ai ecrit ce programme que j'arrive a compiler
mais en débuggant il semble qu'il y ait une erreur juste au moment du call lpMD
Merci pour toute correction/info

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
;===========================
;MD5
;Test vector:
;"abc" 900150983cd24fb0d6963f7d28e17f72 
;===========================
 
 
.386
.model flat, stdcall
option casemap:none
 
include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\user32.lib
 
.data
StringToHash db "abc",0
DLLname db "md.dll",0
FuncName db "MD5",0
lpMD dd 0
BUF_1 db 100 dup (0)
 
.data?
hDLL dd ?
 
.code
start:
invoke LoadLibrary,offset DLLname
mov hDLL,eax
invoke GetProcAddress, hDLL, offset FuncName
mov lpMD,eax
 
push offset StringToHash
call lstrlen
 
push offset StringToHash
push eax
push offset BUF_1
call lpMD
 
push 0
push offset StringToHash
push offset BUF_1
push 0
call MessageBox
 
invoke FreeLibrary,hDLL
 
push 0
call ExitProcess
 
end start

Balises code ajoutées par Alcatîz.
Merci d'y penser à l'avenir !

**harlequin** · 10/12/2004, 23h38

Salut,

Pour moi ça marche au poil.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
invoke GetProcAddress, hDLL, offset FuncName 
mov lpMD,eax

quand tu debug, vérifie quand même que eax != 0

Essaye aussi avec un link implicite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
.386 
.model flat, stdcall 
option casemap:none 
 
include \masm32\include\windows.inc 
include \masm32\include\kernel32.inc 
include \masm32\include\user32.inc 
include .\md.inc
 
includelib \masm32\lib\kernel32.lib 
includelib \masm32\lib\user32.lib 
includelib .\md.lib
 
.data 
StringToHash db "abc",0 
DLLname db "md.dll",0 
BUF_1 db 100 dup (0) 
 
.code 
start: 
 
push offset StringToHash 
call lstrlen 
 
invoke MD5, offset BUF_1, eax, offset StringToHash
 
push 0 
push offset StringToHash 
push offset BUF_1 
push 0 
call MessageBox 
 
push 0 
call ExitProcess 
 
end start

Euh , je crois bien que c'est à toi maintenant

A+

**sefo** · 12/12/2004, 11h04

En effet ça marche... J'avais dû faire une fausse manoeuvre...

Maintenant j'aimerai savoir comment afficher la valeur hexadécimale de EAX?
Est-ce que je dois créer une routine de conversion char/hexa?
Ou alors simplement déclarer une variable locale?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
MaFonction PROC
LOCAL TempVar db "",0
 
invoke MD5, offset BUF_1, eax, offset StringToHash
 
mov eax,offset BUF_1
mov TempVar, eax
 
push 0 
push offset StringToHash 
push offset TempVar
push 0 
call MessageBox
MaFonction ENDP

Merci pour toute information.

**Crisanar** · 12/12/2004, 12h16

Tu dois convertir la valeur. Dans les languages de haut niveau le compilateur ajoute une routine pour toi mais en asm tu dois tout faire par toi-meme. Mais rassure toi la routine est tres simple à implémenter.

**sefo** · 12/12/2004, 14h07

Ou est-ce que je peux trouver cette routine de conversion?

**Alcatîz** · 12/12/2004, 14h28

Tu peux faire ça très simplement en déclarant une chaîne '0123456789ABCDEF' et en extrayant chaque groupe de 4 bits qui compose eax. Le nombre obtenu est l'indice du digit hexadécimal correspondant dans la chaîne.
Mais il y a d'autres méthodes...

**sefo** · 12/12/2004, 15h32

Ok, merci. J'ai découvert XLAT en faisant quelques recherches.
Ce qui me donne comme code: (valeur a convertir:6CE45)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
.data
result   db 100 dup (0)
HexTbl db "0123456789ABCDEF",0
 
.code
start:
 
mov ecx,6CE45h
 
; conversion ASCII et affichage
lea ebx,HexTbl
mov al,6h
xlat HexTbl
mov [result+0],al
mov al,0Ch
xlat HexTbl
mov [result+1],al
mov al,0Eh
xlat HexTbl
mov [result+2],al
mov al,4h
xlat HexTbl
mov [result+3],al
mov al,5h
xlat HexTbl
mov [result+4],al
 
push 0
push offset result
push offset result
push 0
call MessageBox
 
push 0
call ExitProcess
 
end start

Bon, il reste à ajouter une boucle, mais ce n'est pas un problème.
Par contre ici je n'utilise pas ECX, je passe directement les valeurs à al...

Qu'est-ce que je pourrais faire pour mettre dans al automatiquement un byte de ECX?

mov al,byte ptr[ecx+x] ne marche pas

Merci encore pour toute aide

**harlequin** · 12/12/2004, 16h33

Salut,

C'est pas trop difficile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
   ...
   mov al, cl
   ...
   shr ecx, 8
   ...

Simple, non ?

**sefo** · 12/12/2004, 16h44

Hmm? Tu pourrais etre plus precis?

disons que ECX contient 6C45B

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
lea ebx,HexTbl 
mov al,cl       ; met 5B
xlat HexTbl    ; correspond a rien
mov [result+0],al
shr ecx,8 
mov al,cl       ; met C4
xlat HexTbl    ; correspond a rien
mov [result+1],al

**harlequin** · 12/12/2004, 18h17

Ouais, un truc dans le genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
   .data
   ...
   hex db "0123456789ABCDEF"
 
   .code
   ...
   mov ecx, 06C45Bh
   lea edi, BUF_1+8
   mov byte ptr [edi], 0 ; null terminating string
   .repeat
      dec edi
      mov eax, ecx
      and eax, 0fh
      mov al, hex[eax]
      mov [edi], al 
      shr ecx, 4
   .until edi==offset BUF_1
 
   push 0 
   push offset StringToHash 
   push offset BUF_1 
   push 0 
   call MessageBox

a+

**sefo** · 12/12/2004, 19h21

Aah bon ca marche... Mais en fait je me suis trompé et ce n'est pas ce que je cherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
MaFonction PROC uses esi Str:DWORD,dLen:DWORD
mov esi,eax
mov eax,Str
push eax
push esi
push offset BUF_1
call lpMD
mov eax,BUF_1
ret
MaFonction ENDP

A la fin de cette fonction, EAX contient l'ADDRESS de la chaine cryptée et non pas la chaine cryptée...
Ce qui change tout...

Alors ma question:
J'ai une valeur Hexa en memoire (adresse stockée dans eax),
comment s'y prendre pour la faire apparaitre dans une message box?

**harlequin** · 12/12/2004, 22h08

Envoyé par sefo

A la fin de cette fonction, EAX contient l'ADDRESS de la chaine cryptée et non pas la chaine cryptée...
Ce qui change tout...

alors là tu m'épates

il y a deux points à éclaircir:

a moins d'un miracle, tu ne pourra pas mettre toute ta chaîne dans eax (16 bytes dans le cas d'un hash MD5)
si tu posséde une adresse valide, tu peux toujours placer dans un registre la valeur à cette adresse.

Résultat: ça change rien du tout.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
.data
hash   dd 4 dup(0)
buffer db 32 dup(0), 0
...
.code
...
invoke MaFonction, .... ; eax = offset hash
mov edx, [eax]           ;  place les 4 premier bytes dans edx
invoke d2str, edx, offset buffer  ; numeric to hex digits string. résultat dans buffer
mov edx, [eax+4]       ; les 4 bytes suivant
invoke d2str, edx, offset buffer+8
mov edx, [eax+8]
invoke d2str, edx, offset buffer+16
mov edx, [eax+12]
invoke d2str, edx, offset buffer+24

C'est juste un exemple.
a+

**sefo** · 12/12/2004, 22h31

Oui, c'est bien ce que je dis...
J'ai l'offset du hash dans eax et pas le hash lui-meme...

Bon, tu me sors une nouvelle fonction (d2str) juste au moment ou je trouve une autre fonction (dwtoa)... Donc je ne sais plus quoi utiliser...

Je dois inclure les librairies masm32.inc/.lib pour utiliser dwtoa (que je n'arrive pas a faire marcher...)

Et pour d2str, je le trouve ou

:

**harlequin** · 12/12/2004, 23h41

Pas de panique

Voilà d2str

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
...
d2str	PROTO d:DWORD, bufferaddr:DWORD
...
 
.code
 
d2str	PROC USES edi edx, d:DWORD, bufferaddr:DWORD
		mov edi, bufferaddr
		mov edx, 4    ; register length 4 bytes
		.repeat
			dec edx
			mov eax, d
			and eax, 0fh
			mov al, hex[eax]
			mov [edi+1], al 
			shr d, 4
			mov eax, d
			and eax, 0fh
			mov al, hex[eax]
			mov [edi], al 
			shr d, 4		
			add edi, 2
		.until edx==0
		mov byte ptr [edi], 0 ; null terminating string
		ret
d2str	ENDP
 
start: 
 
push offset StringToHash 
call lstrlen 
 
invoke MD5, offset hash, eax, offset StringToHash
 
invoke d2str, hash,		offset BUF_1
invoke d2str, hash+4,	offset BUF_1+8
invoke d2str, hash+8,	offset BUF_1+16
invoke d2str, hash+12,	offset BUF_1+24
 
push 0 
push offset StringToHash 
push offset BUF_1 
push 0 
call MessageBox 
...

Voilà, ça c'est du self-made.

**sefo** · 13/12/2004, 00h29

eh ben la je n'ai plus rien a dire

Merci pour ton aide harlequin et pour ta resistence face a mes questions

[MASM32] Comment utiliser md5()

x86 32-bits / 64-bits Assembleur

Discussions similaires

Partager

Partager