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