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)