1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
//---------------------------------------------------------------------------------------------
PROCEDURE AsciiVersHexa(InfoAscii est une chaîne ASCIIZ de 64)
//---------------------------------------------------------------------------------------------
Res_Hexa est une chaîne ASCIIZ de 64
i , DimInfo est un entier
DimInfo = Taille(InfoAscii)
TabDec est un tableau de DimInfo chaînes
POUR i = 1 _A_ DimInfo
TabDec[i] = Asc(InfoAscii[[i]])
FIN
//Res_Decimal1 = hexres
POUR i = 1 _A_ DimInfo
Res_Hexa += NumériqueVersChaîne(Asc(InfoAscii[[i]]), "02X") + " "
FIN
RENVOYER Res_Hexa
//-------------------------------------------------------------------------------------
PROCEDURE HexaVersAscii(InfoHexa est une chaîne)
//--------------------------------------------------------------------------------------
i, DimInfo est un entier
MaChaineAscii est une chaîne ASCIIZ de 64
ChaineHexa est une chaîne
ChaineHexa = InfoHexa
DimInfo = Taille(ChaineHexa)
POUR i = 1 _A_ DimInfo PAS 2
MaChaineAscii += Caract(Val(ChaineHexa[[i sur 2]],"x"))
FIN
RENVOYER MaChaineAscii |
Partager