traduction en texte

Question

Bonjour, 

Quelqu'un pourrait-il me traduire en texte ces codes binaires :

01 00 09
01 00 01
01 01 05
01 01 05
09 07
01 00 03
01 00 01

09 09
01 0E
01 02 01
01 0C
01 10
01 00 01 

Merci d'avance

cs_vpoyo · Answer

d'ou tu sors ca ? ce n'est pas de l'ascii a priori

Renfield · Answer

ces codes "binaires" sont en hexadecimal...

a part ca, leurs valeurs indiquent effectivement qu'ils ne representent pas des codes ASCII.... impossible, donc, de t'être d'une aide quelconque, sans en savoir davantage.

cs_vpoyo · Answer

et c'est m&#234;me pas de l'unicode :-/

PCPT · Answer

salut,

dans l'ordre, si
 les espaces indiquent la
s&#233;paration de lecture &#224; effectuer, toutes tes valeurs commen&#231;ant par 0
et &#233;tant num&#233;riquent sont &#224; lire par Chr$(TaValeur).

pour le reste :

0E = Chr$(14)

0C = Chr$(12)

10 = Chr$(16)



PCPT   [AFCK]

cs_vpoyo · Answer

ben des le d&#233;but tu as un 00 donc fin de chaine :-/

Renfield · Answer

je pense qu'il s'agit plutot de decrypter un fichier, reste a savoir de quel type il s'agit.

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

Gobillot · Answer

message



c r y p t e

Daniel

PCPT · Answer

bien vu Daniel!









01 00 09 chr$(109) m

01 00 01 chr$(101) e

01 01 05 chr$(115) s

01 01 05 chr$(115) s

00 09 07 chr$(97)  a

01 00 03 chr$(103) g

01 00 01 chr$(101) e



etc...

cs_1as1 · Answer

Merci pcpt, mais comment traduis-tu la suite ?

Gobillot · Answer

quelques variantes pour la suite:









    Dim s As String

    Dim c As String

    Dim r As String

    Dim i As Integer

    Dim j As Integer

    

'   s = "message"

    s = "crypte"

    

    For i = 1 To Len(s)

        c = CStr(Asc(Mid$(s, i, 1)))

        r = ""

        For j = 1 To Len(c)

            r = r & Format$((Mid$(c, j, 1)), "00 ")

            Next

        MsgBox r

        Next





09 09

01 01 04  -->  01 0E    E donne 14

01 02 01     

01 01 02  -->  01 0C    C donne 12

01 01 06  -->  01 10   10 donne 16

01 00 01



Daniel

Renfield · Answer

de la m&#234;me mani&#232;re !!



09 09           chr$(99)    => c

01 0E           chr$(114)  => r

01 02 01      chr$(121)  => y

01 0C          chr$(112)  => p

01 10          chr$(116)  => t

01 00 01     chr$(101)  => e


Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

cs_1as1 · Answer

Merci &#224; tous !

Gobillot · Answer

et voila le d&#233;cryptage









    Dim s As String

    Dim c As String

    Dim r As String

    Dim i As Integer

    Dim j As Integer

    Dim k As Integer

    Dim v As Integer

    Dim x As Integer

    

'   s = "01 00 09" & vbCrLf

'   s = s & "01 00 01" & vbCrLf

'   s = s & "01 01 05" & vbCrLf

'   s = s & "01 01 05" & vbCrLf

'   s = s & "09 07" & vbCrLf

'   s = s & "01 00 03" & vbCrLf

'   s = s & "01 00 01" & vbCrLf



    s = "09 09" & vbCrLf

    s = s & "01 0E" & vbCrLf

    s = s & "01 02 01" & vbCrLf

    s = s & "01 0C" & vbCrLf

    s = s & "01 10" & vbCrLf

    s = s & "01 00 01" & vbCrLf

    

    s = Replace(s, " ", "")

    For i = 1 To Len(s)

        j = InStr(i, s, vbCrLf)

        If j > 0 Then

           c = Mid$(s, i, j - i)

           v = 0

           For k = 1 To Len(c) Step 2

               x = Val("&H" & Mid$(c, k, 2))

               v = Val(CStr(v) & CStr(x))

               Next

           r = r & Chr$(v)

           i = j + 1

           End If

        Next

    MsgBox r


Daniel

Traduction en texte

13 réponses

Discussions similaires