Voir la source binaire et hexa d'un fichier !

Télécharger le projet
Commenter

Description

N'importe quel fichier !
N'importe quelle taille (hum... désolé, au dessus de 200 Ko, ceux qui ont un processeur en dessous de 1800 MHz et 256 Mo RAM ça marchera plus :(

Ce serait mieu que vous téléchargiez le zip, c moin long :)

Source / Exemple : 


' 1 Boite de texte  = > txtFile
' 1 Boutton commande  = > CmdLoad
' 1 Boite de texte = > txtHex      'avec multiline = true  et scrollbar = vertical
' 1 Boite de texte = > txtBin       'avec multiline = true  et scrollbar = vertical

Private Sub cmdLoad_Click()
    If Dir$(txtFile.Text) = "" Then MsgBox "Fichier inconnu": Exit Sub
    txtHex.Text = ""
    txtBin.Text = ""
    Dim aText As String, b$, t$, h$, k As Long, i As Long, j As Long, l As Long
    Open txtFile.Text For Binary As 1
    If LOF(1) > 20& * 1024& Then
        If MsgBox("Le fichier sera peut-être trop gros pour pouvoir être décompiler par votre disque dur (suivant votre processeur et RAM), voulez-vous continuer ?", vbYesNo) = vbNo Then Close 1: Exit Sub
    End If
    aText = Space$(LOF(1))
    Get 1, , aText
    Close 1
    For k = 1 To Len(aText) + 16 - (Len(aText) Mod 16) Step 16
        txtHex.SelStart = Len(txtHex.Text)
        txtBin.SelStart = Len(txtBin.Text)
        If k > 1 Then
            txtHex.SelText = vbCrLf
            txtHex.SelStart = Len(txtHex.Text)
            txtBin.SelText = vbCrLf
            txtBin.SelStart = Len(txtBin.Text)
        End If
        t$ = Hex$(k - 1): If Len(t$) < 4 Then t$ = String$(4 - Len(t$), "0") & t$
        t$ = t$ & "   "
        For i = k To k + 15
            h$ = "00"
            If i <= Len(aText) Then
                j = Asc(Mid$(aText, i, 1))
                h$ = Hex$(j)
                If Len(h$) < 2 Then h$ = "0" & h$
            End If
            t$ = t$ & "  " & h$
        Next
        txtHex.SelText = t$
        t$ = ""
        For i = k To k + 15
            b$ = "00000000"
            If i <= Len(aText) Then
                b$ = ""
                j = Asc(Mid$(aText, i, 1))
                For l = 0 To 7
                    If (2 ^ l) And j Then b$ = "1" & b$ Else b$ = "0" & b$
                Next
            End If
            t$ = t$ & "  " & b$
        Next
        txtBin.SelText = t$
    Next
End Sub

Conclusion :


y'as pas de bugs (je crois)
http://www.TEAM-GAMER.com
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_zerty)