Conversion String vers Byte

Version imprimable

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:

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

29/09/2006, 17h12
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].
29/09/2006, 17h20
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...
29/09/2006, 18h06
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:

var c : char ; b : byte absolute c ;

ou alors

Code:

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:

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

Salut

Perso, j'utilise ces 2 fonctions :

Code:

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;

30/09/2006, 17h06
Sub0

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

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:

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;

Salut Sub0 !

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

Code:

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

peuvent être remplacées ainsi:

Code:

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

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

Code:

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

07/10/2006, 10h09
Sub0

Citation:

Envoyé par Claudius40

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

Tanpis.

:merci: