Patch correctif
cs_Appil
Messages postés
208
Date d'inscription
mercredi 10 avril 2002
Statut
Membre
Dernière intervention
11 juin 2014
-
28 janv. 2003 à 14:55
zelze Messages postés 234 Date d'inscription mardi 31 décembre 2002 Statut Membre Dernière intervention 30 juillet 2008 - 28 janv. 2003 à 18:53
zelze Messages postés 234 Date d'inscription mardi 31 décembre 2002 Statut Membre Dernière intervention 30 juillet 2008 - 28 janv. 2003 à 18:53
2 réponses
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
3
28 janv. 2003 à 15:22
28 janv. 2003 à 15:22
si les modifs sont minime, fait un file compare de tes deux fichiers, recupere les octets modifiés, et lance un petit prog qui va modifier ces octets sur ton prog d'origine...
moi c'est comme ca que je fais si le prog n'a pas besoin d'une nouvelle version...
moi c'est comme ca que je fais si le prog n'a pas besoin d'une nouvelle version...
zelze
Messages postés
234
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
30 juillet 2008
28 janv. 2003 à 18:53
28 janv. 2003 à 18:53
Voila une source qui modifier les offsets:
Private Sub form_load()
On Error Resume Next
Dim valeur As Byte
'1) Ne pas Oublier de Changer Les captions dans form load
'2) Le nom de l'exe
'3) teste du byte originale +1
'4) Sequence(s) de Bytes a patcher
'2******nom du prog à patcher*******
nomprog = ".exe"
'******************************
teste = Dir(nomprog)
If UCase(teste) <> UCase(nomprog) Then
MsgBox "fichier introuvable", vbExclamation, "File " & nomprog & " Not Found"
MsgBox "annulé"
Exit Sub
End If
Open nomprog For Binary As #1
'3**********Teste de Byte Pour Verification Originale******
Get #1, &H155D5 + 1, valeur
If Hex(valeur) <> "74" Then
'*************************************************
Reset
MsgBox "ce n'est pas la bonne version !" & vbCrLf & " ", vbInformation, "Version Checking"
MsgBox "annulé"
Exit Sub
End If
'4****Sequence de Byte A patcher put canal,Offset+1,Byte a patcher
valeur = &H75
Put #1, &H155D5 + 1, valeur
Put #1, &HEC5F + 1, valeur
'*************************************************
If Err <> 0 Then
Reset
MsgBox "l'accés est interdit ou le fichier est en cour d'utilisation" & vbCrLf & "or permission denied by Admin", vbInformation, "File Access Error"
MsgBox "annulé"
Exit Sub
End If
Close #1
MsgBox "réussi !", vbExclamation, "Patching Procedure"
End Sub
Private Sub form_load()
On Error Resume Next
Dim valeur As Byte
'1) Ne pas Oublier de Changer Les captions dans form load
'2) Le nom de l'exe
'3) teste du byte originale +1
'4) Sequence(s) de Bytes a patcher
'2******nom du prog à patcher*******
nomprog = ".exe"
'******************************
teste = Dir(nomprog)
If UCase(teste) <> UCase(nomprog) Then
MsgBox "fichier introuvable", vbExclamation, "File " & nomprog & " Not Found"
MsgBox "annulé"
Exit Sub
End If
Open nomprog For Binary As #1
'3**********Teste de Byte Pour Verification Originale******
Get #1, &H155D5 + 1, valeur
If Hex(valeur) <> "74" Then
'*************************************************
Reset
MsgBox "ce n'est pas la bonne version !" & vbCrLf & " ", vbInformation, "Version Checking"
MsgBox "annulé"
Exit Sub
End If
'4****Sequence de Byte A patcher put canal,Offset+1,Byte a patcher
valeur = &H75
Put #1, &H155D5 + 1, valeur
Put #1, &HEC5F + 1, valeur
'*************************************************
If Err <> 0 Then
Reset
MsgBox "l'accés est interdit ou le fichier est en cour d'utilisation" & vbCrLf & "or permission denied by Admin", vbInformation, "File Access Error"
MsgBox "annulé"
Exit Sub
End If
Close #1
MsgBox "réussi !", vbExclamation, "Patching Procedure"
End Sub