Hexa/ascii avec possibilité de fichier

Soyez le premier à donner votre avis sur cette source.

Vue 6 476 fois - Téléchargée 450 fois

Description

Salut a tous ! (svp prenez la peine de lire la description jusqu'au bout please!!)
voila c'est 1 ma premiere source sur le site (j'ai beaucoup télécharger et tout mais jme suis refais un compte la) et 2 ma premiere source en vb !(avant j'étais sous qbasic c'est completement different)
Alors la source maintenant... en fait c'est (encore et encore) un simple convertisseur hexa/ascii mais j'en ai trouvé aucun qui m'allait (pour les option avec les fichiers surtout).Donc je suis partit de la super source de Arcanis(http://www.vbfrance.com/codes/CONVERTISSEUR-ASCII-HEXADECIMAL-SIMPLE_33579.aspx) et j'ai essayer d'utiliser le principe de celle la(http://www.vbfrance.com/code.aspx?id=28389 de Zifnig) mais j'ai pas reussi ... Finalement j'ai fai mon truc en gardant un peu l'interface de

Ya un blem en fait c'est que quand je prend un fichier hexa(un packet recupéré avec wpepro, ou j'ai supprimer tous les espace avec un ptit prog. de ma cration) il convertit très bien vers ASCII (cool) mais la je veut le convertir en HEXA poru voir et il m'affiche un texte hexa completement different que l'original et surtout beaucoup plus long, et quand je reconvertit ce 'long texte hexa' en ascii il me met le bon truc (bizar non??). Un autre probleme quand j'ai pris mon ptit prog pour enlever les espace d'un file pour le convertir en hexa (juste pour voir) i me met un truc long et tout, mais surtout quand j'essay de le reconvertir en ascii i me met un ou deux caractere inconus...
J'ai pris le temps de beaucoup commenter la source parce qu'elle est un peu .. comment dire.. pas conforme je pense (stucture et tout) car en generale je declarait ps les variable (en qb )
Alors merci d'avance pour les conseils, les commentaires, et les reproches(allez y mollo quand meme sur les reproche 'oui je c'est que ya plein de sources comme ca')
XRaph

Source / Exemple :


'dans le zip la source + mon prog. pour enlever les espaces d'un fichier (en qb) pour tester l'erreur

Conclusion :


Re-merci d'avance et je suis ouvert à toutes repliques

ps: désoler pour les éventuelles fautes d'orthographes

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
15
Date d'inscription
mardi 24 février 2009
Statut
Membre
Dernière intervention
18 juillet 2009

Mais quand meme il y a un probleme dans la conversion en hexa :
TotalChaine = TotalChaine & Right("0" & hex(Asc(Mid(Texte, a, 1))), 2)

ca ne 'marche pas'
1:: ca sort un texte en hex beaucoup plus long que cque ca doit etre
2:: quand je le reconvertit ca me mes 1::des chose pas bonnes et des caractere comme ca :: ||||| en gras (des barres si tu vois(0_0) pas bien LLOOLL)et 2:: le texte 'normal' est beaucoup plus court (Meme pas une ligne)

Alors voila probleme -> -_-' <-

Merci d'avance
Messages postés
15
Date d'inscription
mardi 24 février 2009
Statut
Membre
Dernière intervention
18 juillet 2009

A merci beaucoup mdry je mes à jour des que j'ai le tmp.
Il y a tjr le probleme de conversion hexa->ascii de mon fichier 'SUPPRIME.txt' .
Je l'ouvre, je le convertit en hexa et je le reconvertit en ascii et il me met 1 caractere bidon :: Þ (en fait yen a jor 3 des carac la dedans)
Pour la lecture du fichier j'ai pas l'habitude comme avant j'était sous qb (ya aussi le mode binary je croi(?) mais je l'ai jamais utilisé)...

Messages postés
33
Date d'inscription
dimanche 25 juillet 2004
Statut
Membre
Dernière intervention
5 mai 2013

Ha oui
Pour les séparations

Dim A As Integer 'les declarations sont pas propres je fais ca un peu partout ...
Dim TotalChaine As String '...quand j'ai besoin d'une vriable

TotalChaine = "" 'au cas ou
For A = 1 To Len(Texte) 'on boucle jusqu'a la fin de la chaine(texte quoi)
TotalChaine = TotalChaine & Right("0" & Hex(Asc(Mid(Texte, a, 1))), 2)
' 11 1111
'0123 4567 8901 2345
Select Case (A - 1) Mod 16 'Mod : il faut tj partir à Zéro
Case 15 'au 16ième Hex, on change de ligne
TotalChaine = TotalChaine & vbCrLf
Case 3, 7, 11 'on regroupe par 4 Hex, 2 espaces entre groupe
TotalChaine = TotalChaine & " "
Case Else '1 espace entre Hex
TotalChaine = TotalChaine & " "
End Select
Next A '...rapport à l'originale (beaucoup plus long, mai à la meme équivlence en ASCII)
TxtHexa.Text = TotalChaine 'on ecrit le result dans la textbox
Messages postés
33
Date d'inscription
dimanche 25 juillet 2004
Statut
Membre
Dernière intervention
5 mai 2013

Pour lire un fichier texte
Open Fichier For Binary As #1
Texte = Space(LOF(1))
Get #1, , Texte
Close
Il lit le fichier au complet avec les 'retour de ligne'

Pour un Hex
Hex renvoie une chaîne de caractères
Hex("A") = 41 , 2 car.
Hex(vbTab) = 9, 1 car.

Test ceci:
Tmp = Right("0" & Hex(vbTab), 2)
il renvoie 09

bon VB
Messages postés
15
Date d'inscription
mardi 24 février 2009
Statut
Membre
Dernière intervention
18 juillet 2009

J'ai oublié de dire que SUPPRIME.txt c'est le ptit prog. pour les espaces... (c'est du qbasic)
Les commentaires ne sont pas interdits !!

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.