J'aurai besoin d'aide pour comprendre ce code.
Je sais que c'est du Delphi mais je ne conais pas le Delphi du tout.
Le programme contient 3 case, clé1 clé2 et retourne une clé résultat.
j'essaie de comprendre mais je n'arrive pas a convertir ce code en VB.net.
Normal étant donnée que je ne comprend pas du tout ce qu'il fait
Merci d'avance pour l'aide.

Code asm : 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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
00430ADC   55                     push    ebp
00430ADD   8BEC                   mov     ebp, esp
00430ADF   83C4E8                 add     esp, -$18
00430AE2   53                     push    ebx
00430AE3   56                     push    esi
00430AE4   57                     push    edi
00430AE5   33C9                   xor     ecx, ecx
00430AE7   894DEC                 mov     [ebp-$14], ecx
00430AEA   894DE8                 mov     [ebp-$18], ecx
00430AED   8955F0                 mov     [ebp-$10], edx
00430AF0   8945FC                 mov     [ebp-$04], eax
00430AF3   33C0                   xor     eax, eax
00430AF5   55                     push    ebp
 
* Possible String Reference to: 'é8#ýÿëë_^[‹å]Í@'
|
00430AF6   68870B4300             push    $00430B87
 
***** TRY
|
00430AFB   64FF30                 push    dword ptr fs:[eax]
00430AFE   648920                 mov     fs:[eax], esp
00430B01   8D55E8                 lea     edx, [ebp-$18]
00430B04   8B45FC                 mov     eax, [ebp-$04]
 
* Reference to control TFrm_Main.Serie : TMaskEdit
|
00430B07   8B80C4010000           mov     eax, [eax+$01C4]
 
|
00430B0D   E8C6DFFFFF             call    0042EAD8
00430B12   8B45E8                 mov     eax, [ebp-$18]
00430B15   8D55EC                 lea     edx, [ebp-$14]
 
|
00430B18   E89749FDFF             call    004054B4
00430B1D   8B45EC                 mov     eax, [ebp-$14]
00430B20   8D55F4                 lea     edx, [ebp-$0C]
 
|
00430B23   E8181DFDFF             call    00402840
00430B28   8945F8                 mov     [ebp-$08], eax
00430B2B   8D55E8                 lea     edx, [ebp-$18]
00430B2E   8B45FC                 mov     eax, [ebp-$04]
 
* Reference to control TFrm_Main.CodeSt : TMaskEdit
|
00430B31   8B80C8010000           mov     eax, [eax+$01C8]
 
|
00430B37   E89CDFFFFF             call    0042EAD8
00430B3C   8B55E8                 mov     edx, [ebp-$18]
00430B3F   8D4DEC                 lea     ecx, [ebp-$14]
00430B42   8B45F8                 mov     eax, [ebp-$08]
 
|
00430B45   E83AFEFFFF             call    00430984
00430B4A   8B55EC                 mov     edx, [ebp-$14]
00430B4D   8B45FC                 mov     eax, [ebp-$04]
 
* Reference to control TFrm_Main.CodeD : TEdit
|
00430B50   8B80CC010000           mov     eax, [eax+$01CC]
 
|
00430B56   E8B1A6FEFF             call    0041B20C
00430B5B   8B45FC                 mov     eax, [ebp-$04]
 
* Reference to control TFrm_Main.Serie : TMaskEdit
|
00430B5E   8B90C4010000           mov     edx, [eax+$01C4]
00430B64   8B45FC                 mov     eax, [ebp-$04]
 
|
00430B67   E82C4EFFFF             call    00425998
00430B6C   33C0                   xor     eax, eax
00430B6E   5A                     pop     edx
00430B6F   59                     pop     ecx
00430B70   59                     pop     ecx
00430B71   648910                 mov     fs:[eax], edx
 
****** FINALLY
|
 
* Possible String Reference to: '_^[‹å]Í@'
|
00430B74   688E0B4300             push    $00430B8E
00430B79   8D45E8                 lea     eax, [ebp-$18]
00430B7C   BA02000000             mov     edx, $00000002
 
|
00430B81   E8DE26FDFF             call    00403264
00430B86   C3                     ret
 
00430B87   E93823FDFF             jmp     00402EC4
00430B8C   EBEB                   jmp     00430B79
 
****** END
|
00430B8E   5F                     pop     edi
00430B8F   5E                     pop     esi
00430B90   5B                     pop     ebx
00430B91   8BE5                   mov     esp, ebp
00430B93   5D                     pop     ebp
00430B94   C3                     ret
 
 
 
 
 
 
 
 
 
00430ADC   55                     push    ebp
00430ADD   8BEC                   mov     ebp, esp
00430ADF   83C4E8                 add     esp, -$18
00430AE2   53                     push    ebx
00430AE3   56                     push    esi
00430AE4   57                     push    edi
00430AE5   33C9                   xor     ecx, ecx    10110001 Xor 01100110 = 11010111
00430AE7   894DEC                 mov     [ebp-$14], ecx
00430AEA   894DE8                 mov     [ebp-$18], ecx
00430AED   8955F0                 mov     [ebp-$10], edx
00430AF0   8945FC                 mov     [ebp-$04], eax
00430AF3   33C0                   xor     eax, eax
00430AF5   55                     push    ebp