C'est archi possible en fait, par exemple :
Dim a(10) As Long
Dim b(10) As Byte
Dim c(10) As Integer
a(1) = &H2A6CF + 1 ' Ici Offset + 1
b(1) = &H74 ' octet a modifier
c(1) = &HC75 ' octet a ecrire avec poid fort faible inversé
a(2) = &H1D181
b(2) = &HF
c(2) = &H850F
a(3) = &H1D3BC
b(3) = &HF
c(3) = &H840F
a(4) = &H1D3E3 + 1
b(4) = &H75
c(4) = &HA74
NB_MODIF = 5
Dim d As Byte
total = 4
filec = "scanner.exe"
Open filec For Binary As #1
For i = 1 To NB_MODIF
If a(i) <> 0 Then
Seek 1, a(i)
Get 1, a(i), d
If d = b(i) Then Put 1, a(i), c(i): total = total - 1
Else
Exit For
End If
Next i
Close #1
If total = 0 Then t = MsgBox("Well Cracked !") Else t = MsgBox(filec & " is not the proper file")
Cela te permet par exemple de modifier scanspyware 3, le code est pas trés propre désolé.
Par contre faut savoir lire un peu l'assembleur, par exemple &h74=Jump if Equal (je)
&h75 = Jump if Not Equal(jne)
etc...
