Discussion :

[zulianithomas]

Bonjour,

Pour des besoins de cryptage j'ai besoin de travailler avec des octets (byte en anglais) mais les chaines à crypter sont évidemment disponibles initialement au format String.

Existe-t'il une fonction "bête" permettant cette conversion ?

Sinon, est-ce que les deux fonctions suivantes de conversion sont correctes ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function CharToByte(chrLettre:Char):Byte;
var bRes:Byte;
begin 
     case ( Ord(chrLettre) - 48) of 
     0..9:bRes := Ord(chrLettre) - 48; 
     else 
         bRes := Ord(chrLettre) + 10 - 65; 
     end; 
     Result := bRes; 
end;
 
function ByteToChar(bLettre:Byte):string;
var strRes:string;
begin 
     case bLettre of
     0..9:strRes := IntToStr(bLettre); 
     else 
         strRes := Chr(65 + bLettre - 10); 
     end; 
     Result := strRes; 
end;

Merci d'avance

[sjrd]

En fait tu travailles avec des chaînes en hexadécimal, non ?

Si oui va voir IntToHex et StrToInt (pour cette dernière, rajouter '$' devant le nombre hexa en chaîne).

Donc CharToByte devient StrToInt('$'+C) et ByteToChar devient IntToHex(B)[1].

[zulianithomas]

En fait, non, mes chaînes sont initialement en format ascii classique.
Mais effectivement, les fonctions que tu as indiquées devraient convenir, la conversion ascii -> hex string ne devant pas être trop compliquée...

[Graffito]

Bonjour,

Si la on recherche la même représentation binaire du char et du byte, on peut
1) soit utiliser la directive absolute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

var c : char ; b : byte absolute c ;

ou alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

var b : byte ; c : char absolute b ;

Dans ce cas, si on modifie c, b est modifié et réciproquement.

1) soit utiliser la directive ord et char]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
var b : byte ; c: char ;
b:=ord(c) ;
et
c:=char(b) ;

[Sub0]

Salut

Perso, j'utilise ces 2 fonctions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
{----------------------------------------------------------------}
{ CONVERSION STRING -> CODE HEXADECIMAL                          }
{----------------------------------------------------------------}
Function MyUrlEncode(Const st: String): String;
Var x: Integer;
Begin
  Result := '';
  If (st = '') Then Exit;
  For x := 1 To Length(st) Do
    Result := Result + IntToHex(Ord(st[x]), 2);
End;
 
 
{----------------------------------------------------------------}
{ CONVERSION CODE HEXADECIMAL -> STRING                          }
{----------------------------------------------------------------}
Function MyUrlDecode(Const st: String): String;
Var x: Integer;
Begin
  Result := '';
  If (Length(st) < 2) Then Exit;
  x := 1;
  Repeat
    Result := Result + Chr(Byte(StrToInt('$' + st[x] + st[x + 1])));
    x := x + 2;
  Until (x >= Length(st));
End;

[Sub0]

N'oubli pas d'ajouter le tag [Résolu] (bouton an bas de ce message)

[Sub0]

J'ai trouvé une méthode beaucoups plus rapide pour la conversion d'une chaine vers une chaîne hexa. La différence est incroyable. Par contre, je n'ai pas encore trouvé comment obtenir la conversion inverse avec le même genre de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function StrToHexStr(source: String): String;
Var
  i: Cardinal;
  x: Integer;
  achar: ShortString;
Begin
  Result := '';
  If (source = '') Then Exit;
  SetLength(Result, Length(source) * 2);
  x := 2;
  For i := 1 To Length(source) Do Begin
    achar := Format('%x', [Integer(source[i])]);
    If Length(achar) = 1 Then achar := '0' + achar;
    Result[x - 1] := achar[1];
    Result[x] := achar[2];
    Inc(x, 2);
  End;
End;

[Cl@udius]

Salut Sub0 !

Sympa cette fonction de conversion
Une toute petite remarque: Ces 2 lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    achar := Format('%x', [Integer(source[i])]);
    If Length(achar) = 1 Then achar := '0' + achar;

peuvent être remplacées ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    achar := Format('%.2x', [Integer(source[i])]);

Pour la fonction inverse j'ai abouti au même code que le tien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function HexStrToStr(Source: string): string;
var
  i: Integer;
begin
  Result := '';
  If (source = '') Then Exit;
  i := 1;
  repeat
    Result := Result + Chr(StrToInt('$' + Copy(Source, i, 2)));
    Inc(i, 2);
  until (i > Length(Source));
end;

@+ Claudius

[Sub0]

Pour la fonction inverse j'ai abouti au même code que le tien

Tanpis.