Convertion hexa
cs_windob
Messages postés
225
Date d'inscription
dimanche 19 octobre 2003
Statut
Membre
Dernière intervention
25 août 2008
-
26 juil. 2004 à 16:02
cs_bobo91 Messages postés 107 Date d'inscription dimanche 27 juin 2004 Statut Membre Dernière intervention 12 novembre 2006 - 27 juil. 2004 à 15:33
cs_bobo91 Messages postés 107 Date d'inscription dimanche 27 juin 2004 Statut Membre Dernière intervention 12 novembre 2006 - 27 juil. 2004 à 15:33
22 réponses
cs_windob
Messages postés
225
Date d'inscription
dimanche 19 octobre 2003
Statut
Membre
Dernière intervention
25 août 2008
27 juil. 2004 à 15:33
27 juil. 2004 à 15:33
voila le code qui sans le tenir compte de la presentation est le plus optimisé que j'ai pu trouver
Dim a As String * 1 ' buffer pour recevoir 1 caractère
Dim X As String
Dim Y As String
Dim FILE As String
Dim LNG As Long
Dim i As Long
FILE = "C:\AVTest\Hexa\fichier2.exe" ' le chemin et le nom de ton fic
LNG = FileLen(FILE)
Open (FILE) For Random As #1 Len = Len(a)
For i = 1 To LNG
Get #1, i, a
X = Replace(Format(Hex(Asc(a)), "@@"), " ", "0") ' hexa sur 2 caractères
Y = Y & X
If Len(Y) = 2048 Then
VS = VS & Y
Y = ""
End If
Next i
Text1.Text = VS & Y
--------------------------------------------------------------------
l'avenir appartient a ceux ki program tot ;) ;)
Dim a As String * 1 ' buffer pour recevoir 1 caractère
Dim X As String
Dim Y As String
Dim FILE As String
Dim LNG As Long
Dim i As Long
FILE = "C:\AVTest\Hexa\fichier2.exe" ' le chemin et le nom de ton fic
LNG = FileLen(FILE)
Open (FILE) For Random As #1 Len = Len(a)
For i = 1 To LNG
Get #1, i, a
X = Replace(Format(Hex(Asc(a)), "@@"), " ", "0") ' hexa sur 2 caractères
Y = Y & X
If Len(Y) = 2048 Then
VS = VS & Y
Y = ""
End If
Next i
Text1.Text = VS & Y
--------------------------------------------------------------------
l'avenir appartient a ceux ki program tot ;) ;)
cs_bobo91
Messages postés
107
Date d'inscription
dimanche 27 juin 2004
Statut
Membre
Dernière intervention
12 novembre 2006
27 juil. 2004 à 15:33
27 juil. 2004 à 15:33
lu et assimiler canislupus merci encore.